[cells-cvs] CVS Celtk

[fgoenninger]

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

Modified Files:
	togl.lisp 
Log Message:
Added: Some comments in the code - just to remember the why and how here and there ... Helped me to understand the code after having debugged it for a few hours ... Frank

--- /project/cells/cvsroot/Celtk/togl.lisp	2007/01/29 06:48:42	1.25
+++ /project/cells/cvsroot/Celtk/togl.lisp	2007/11/16 10:09:31	1.26
@@ -50,6 +50,8 @@
 (defcfun ("Togl_Interp" Togl-Interp) :pointer
   (togl-struct-ptr :pointer))
 
+;; The following functions are not CFFI-translated yet ...
+
 ;; Togl_AllocColor
 ;; Togl_FreeColor
 
@@ -80,8 +82,8 @@
 ;;
 
 (defun tk-togl-init (interp)
-  ;(assert (not (zerop (tcl-init-stubs interp "8.1" 0))))
-  ;(assert (not (zerop (tk-init-stubs interp "8.1" 0))))
+  ;(assert (not (zerop (tcl-init-stubs interp "8.1" 0)))) ;; Only meaningful on Windows
+  ;(assert (not (zerop (tk-init-stubs interp "8.1" 0)))) ;; dito
   (togl-init interp)
   (togl-create-func (callback togl-create))
   (togl-destroy-func (callback togl-destroy))
@@ -194,13 +196,17 @@
 
 (def-togl-callback create ()
   (trc "___________________ TOGL SET UP _________________________________________" togl-ptr )
-;;;  ;
-;;;  ; just comment out these next two lines if not using Cello
-;;;  ;
-;;;  (setf cl-ftgl:*ftgl-ogl* togl-ptr) ;; help debug failure to use lazy cells/classes to defer FTGL till Ogl ready
-;;;  (kt-opengl:kt-opengl-reset)
-;;;  ; ^^^^^ above two needed only for cello ^^^^^^
-;;;  ;
+  ;;  
+  ;; Cello dependency here: relies on :CELLO being pushed to *features*!
+  ;;
+  ;;(eval-when (:compile-toplevel :execute)
+  ;;  (if (member :cello cl-user::*features*)
+  ;;    (progn
+  ;;      (setf cl-ftgl:*ftgl-ogl* togl-ptr) ;; help debug failure to use lazy cells/classes
+  ;;                                         ;; to defer FTGL till Ogl ready
+  ;;      (kt-opengl:kt-opengl-reset))))
+;;;   ^^^^^ above two needed only for cello ^^^^^^
+;;;  
   (setf (togl-ptr self) togl-ptr) ;; this cannot be deferred
   (setf (togl-ptr-set self) togl-ptr) ;; this gets deferred, which is OK
   (setf (gethash (pointer-address togl-ptr) (tkwins *tkw*)) self))