Update of /project/cells/cvsroot/Celtk In directory clnet:/tmp/cvs-serv6393

Modified Files: togl.lisp Log Message:

--- /project/cells/cvsroot/Celtk/togl.lisp 2006/07/24 05:04:01 1.15 +++ /project/cells/cvsroot/Celtk/togl.lisp 2006/07/25 10:53:41 1.16 @@ -183,8 +183,8 @@

(def-togl-callback create () (trc nil "!!!!!!!!!!!!!!!!!! about to install togl-ptr!!!!!!!!!!!!!!!!!!" togl-ptr self) -;;; (setf (togl-ptr self) (setf cl-ftgl::*ftgl-ogl* ;; help debug failure to use lazy cells/classes to defer FTGL till Ogl ready -;;; togl-ptr)) + (setf (togl-ptr self) (setf cl-ftgl::*ftgl-ogl* ;; help debug failure to use lazy cells/classes to defer FTGL till Ogl ready + togl-ptr))

(setf (togl-ptr self) togl-ptr) (setf (gethash (pointer-address togl-ptr) (tkwins *tkw*)) self))