[cello-cvs] CVS cello

[ktilton]

Update of /project/cello/cvsroot/cello
In directory clnet:/tmp/cvs-serv8567

Modified Files:
	cello.lisp cello.lpr window.lisp 
Log Message:
Cello Rizing. cl-opengl becomes kt-opengl, hello-cffi becomes cffi-extender, end lots more to come

--- /project/cello/cvsroot/cello/cello.lisp	2006/05/17 16:14:27	1.2
+++ /project/cello/cvsroot/cello/cello.lisp	2006/05/26 22:08:55	1.3
@@ -34,6 +34,7 @@
      #:cl-openal
      #:cl-ftgl
      #:cl-magick
-     #:celtk))
+     #:celtk)
+  (:shadowing-import-from #:celtk #:window))
 
 (in-package :cello)
--- /project/cello/cvsroot/cello/cello.lpr	2006/05/17 16:14:27	1.2
+++ /project/cello/cvsroot/cello/cello.lpr	2006/05/26 22:08:55	1.3
@@ -1,4 +1,4 @@
-;; -*- lisp-version: "8.0 [Windows] (May 5, 2006 15:39)"; cg: "1.81"; -*-
+;; -*- lisp-version: "8.0 [Windows] (May 11, 2006 6:29)"; cg: "1.81"; -*-
 
 (in-package :cg-user)
 
@@ -6,7 +6,6 @@
 
 (define-project :name :cello
   :modules (list (make-instance 'module :name "cello.lisp")
-                 (make-instance 'module :name "datetime.lisp")
                  (make-instance 'module :name "window-macros.lisp")
                  (make-instance 'module :name "clipping.lisp")
                  (make-instance 'module :name "mg-geometry.lisp")
@@ -48,22 +47,22 @@
                  (make-instance 'module :name "cello-magick.lisp")
                  (make-instance 'module :name "cello-openal.lisp"))
   :projects (list (make-instance 'project-module :name
-                                 "c:\\0dev\\cells\\cells")
-                  (make-instance 'project-module :name
                                  "..\\Celtk\\CELTK")
                   (make-instance 'project-module :name
-                                 "c:\\0dev\\cl-opengl\\cl-opengl")
+                                 "hello-cffi\\hello-cffi")
+                  (make-instance 'project-module :name
+                                 "cl-opengl\\cl-opengl")
                   (make-instance 'project-module :name
-                                 "..\\cl-ftgl\\cl-ftgl")
+                                 "cl-magick\\cl-magick")
                   (make-instance 'project-module :name
-                                 "c:\\0dev\\cl-magick\\cl-magick")
+                                 "cl-ftgl\\cl-ftgl")
                   (make-instance 'project-module :name
-                                 "..\\cl-openal\\cl-openal"))
+                                 "cl-openal\\cl-openal"))
   :libraries nil
   :distributed-files nil
   :internally-loaded-files nil
   :project-package-name :cello
-  :main-form 'cello::form3
+  :main-form nil
   :compilation-unit t
   :verbose nil
   :runtime-modules nil
--- /project/cello/cvsroot/cello/window.lisp	2006/05/17 16:14:28	1.2
+++ /project/cello/cvsroot/cello/window.lisp	2006/05/26 22:08:55	1.3
@@ -26,7 +26,7 @@
 ;
 
 
-(defmodel window (celtk:window focuser ix-lit-scene control ogl-shared-resource-tender)
+(defmodel cello-window (celtk:window focuser ix-lit-scene control ogl-shared-resource-tender)
   (
    (redisplayp :cell nil :initarg :redisplayp :initform nil :accessor redisplayp)
    (self-sizing :cell nil :initarg :self-sizing :initform nil :accessor self-sizing)