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)))