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