[cells-cvs] CVS update: cell-cultures/cello/application.lisp cell-cultures/cello/image.lisp

[Kenny Tilton]

Update of /project/cells/cvsroot/cell-cultures/cello
In directory common-lisp.net:/tmp/cvs-serv19757/cello

Modified Files:
	application.lisp image.lisp 
Log Message:
Patches to support cells-gtk; ongoing glut refinements cello osx port
Date: Wed Nov 17 13:31:24 2004
Author: ktilton

Index: cell-cultures/cello/application.lisp
diff -u cell-cultures/cello/application.lisp:1.1 cell-cultures/cello/application.lisp:1.2
--- cell-cultures/cello/application.lisp:1.1	Sat Jun 26 20:38:33 2004
+++ cell-cultures/cello/application.lisp	Wed Nov 17 13:31:24 2004
@@ -91,8 +91,3 @@
 (defun fm-find-system (md)
    (upper md mg-system))
 
-
-(defmodel glutwindow (ix-family)
-  ((glutw :cell nil :initarg :glutw :initform nil :accessor glutw :type integer)
-   ))
-


Index: cell-cultures/cello/image.lisp
diff -u cell-cultures/cello/image.lisp:1.6 cell-cultures/cello/image.lisp:1.7
--- cell-cultures/cello/image.lisp:1.6	Thu Oct 28 02:08:56 2004
+++ cell-cultures/cello/image.lisp	Wed Nov 17 13:31:24 2004
@@ -62,7 +62,7 @@
      :initform (c-formula (:lazy :until-asked)
                        (assert *w*)
                        (assert (not *ogl-listing-p*))
-                       (ogl-dsp-list-prep self)
+                       (time (progn (ogl-dsp-list-prep self)
                        (when (every 'dsp-list (kids self))
                          (let ((display-list-name (or .cache (gl-gen-lists 1)))
                                (*ogl-shared-resource-tender*
@@ -77,7 +77,7 @@
                            (trc nil "finished display list" display-list-name self)
                            (gl-end-list)
                            (setf (redisplayp (ogl-node-window self)) t)
-                           display-list-name))))
+                           display-list-name))))))
    (gl-name :initarg :gl-name :initform nil :accessor gl-name)
    (renderer :initarg :renderer :initform nil :accessor renderer)))