[cells-cvs] CVS Celtk

[ktilton]

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