[cells-cvs] CVS update: cell-cultures/cl-ftgl/cl-ftgl.lisp cell-cultures/cl-ftgl/cl-ftgl.lpr

[Kenny Tilton]

Update of /project/cells/cvsroot/cell-cultures/cl-ftgl
In directory common-lisp.net:/tmp/cvs-serv12564/cl-ftgl

Modified Files:
	cl-ftgl.lisp cl-ftgl.lpr 
Log Message:
Cello cleanup, but mostly "removing" ffi-extender, which really lives on as the "hello-c" package
Date: Fri Apr  8 11:11:17 2005
Author: ktilton

Index: cell-cultures/cl-ftgl/cl-ftgl.lisp
diff -u cell-cultures/cl-ftgl/cl-ftgl.lisp:1.7 cell-cultures/cl-ftgl/cl-ftgl.lisp:1.8
--- cell-cultures/cl-ftgl/cl-ftgl.lisp:1.7	Sun Dec  5 05:50:41 2004
+++ cell-cultures/cl-ftgl/cl-ftgl.lisp	Fri Apr  8 11:11:16 2005
@@ -20,7 +20,7 @@
 ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS 
 ;;; IN THE SOFTWARE.
 
-;;; $Header: /project/cells/cvsroot/cell-cultures/cl-ftgl/cl-ftgl.lisp,v 1.7 2004/12/05 04:50:41 ktilton Exp $
+;;; $Header: /project/cells/cvsroot/cell-cultures/cl-ftgl/cl-ftgl.lisp,v 1.8 2005/04/08 09:11:16 ktilton Exp $
 
 (defpackage #:cl-ftgl
   (:nicknames #:ftgl)
@@ -56,15 +56,6 @@
     #:*gui-style-button-face*))
 
 (in-package :cl-ftgl)
-
-(defparameter *ftgl-dynamic-lib-path* :unconfigured)
-(defparameter *font-directory-path* :unconfigured)
-(defparameter *gui-style-default-face* :unconfigured)
-(defparameter *gui-style-button-face* :unconfigured)
-
-(eval-when (compile load eval)
-  (load (merge-pathnames "cl-ftgl-config"
-          cl-user::*cell-cultures-config*)))
 
 ;; ----------------------------------------------------------------------------
 ;; EXTERNAL DEPENDENCIES


Index: cell-cultures/cl-ftgl/cl-ftgl.lpr
diff -u cell-cultures/cl-ftgl/cl-ftgl.lpr:1.1 cell-cultures/cl-ftgl/cl-ftgl.lpr:1.2
--- cell-cultures/cl-ftgl/cl-ftgl.lpr:1.1	Sat Jun 26 20:38:39 2004
+++ cell-cultures/cl-ftgl/cl-ftgl.lpr	Fri Apr  8 11:11:16 2005
@@ -1,37 +1,29 @@
-;; -*- lisp-version: "6.2 [Windows] (Jun 26, 2002 11:39)"; common-graphics: "1.389.2.105.2.14"; -*-
+;; -*- lisp-version: "7.0 [Windows] (Apr 6, 2005 17:03)"; cg: "1.54.2.17"; -*-
 
-(in-package :common-graphics-user)
+(in-package :cg-user)
 
-(defpackage :cl-ftgl (:export))
+(defpackage :CL-FTGL)
 
 (define-project :name :cl-ftgl
-  :application-type (intern "Standard EXE" (find-package :keyword))
-  :modules (list (make-instance 'module :name "cl-ftgl.lisp"))
+  :modules (list (make-instance 'module :name "cl-ftgl-config.lisp")
+                 (make-instance 'module :name "cl-ftgl.lisp"))
   :projects nil
   :libraries nil
   :distributed-files nil
+  :internally-loaded-files nil
   :project-package-name :cl-ftgl
   :main-form nil
   :compilation-unit t
   :verbose nil
-  :runtime-modules '(:cg :drag-and-drop :lisp-widget
-                     :multi-picture-button :common-control
-                     :edit-in-place :outline :grid :group-box
-                     :header-control :progress-indicator-control
-                     :common-status-bar :tab-control :trackbar-control
-                     :up-down-control :dde :mci :carets :hotspots
-                     :menu-selection :choose-list :directory-list
-                     :color-dialog :find-dialog :font-dialog
-                     :string-dialog :yes-no-list-dialog
-                     :list-view-control :rich-edit :drawable :ole :www
-                     :aclwin302)
+  :runtime-modules nil
   :splash-file-module (make-instance 'build-module :name "")
   :icon-file-module (make-instance 'build-module :name "")
-  :include-flags '(:compiler :top-level :local-name-info)
+  :include-flags '(:local-name-info)
   :build-flags '(:allow-debug :purify)
   :autoload-warning t
   :full-recompile-for-runtime-conditionalizations nil
   :default-command-line-arguments "+cx +t \"Initializing\""
+  :additional-build-lisp-image-arguments '(:read-init-files nil)
   :old-space-size 256000
   :new-space-size 6144
   :runtime-build-option :standard