[cells-cvs] CVS Celtk

[fgoenninger]

Update of /project/cells/cvsroot/Celtk
In directory cl-net:/tmp/cvs-serv31837

Modified Files:
	togl.lisp 
Log Message:
Changed: Mac OS X: Togl assumed to be installed in standard directory
"/Library/Tcl/".



--- /project/cells/cvsroot/Celtk/togl.lisp	2008/03/23 23:47:42	1.30
+++ /project/cells/cvsroot/Celtk/togl.lisp	2009/08/14 16:00:38	1.31
@@ -22,7 +22,7 @@
 
 (define-foreign-library Togl
   (:darwin (:or "libTogl1.7.dylib"
-                "/opt/tcltk/togl/lib/Togl1.7/libtogl1.7.dylib"))
+                "/Library/Tcl/lib/Togl1.7/libTogl1.7.dylib"))
   (:windows (:or "togl17.dll"))
   (:unix "/usr/lib/Togl1.7/libTogl1.7.so"))
 
@@ -206,7 +206,7 @@
     (set (find-symbol "*FTGL-OGL*" "CL-FTGL") togl-ptr)) ;; help debug failure to use lazy cells/classes  ;; to defer FTGL till Ogl ready
 
   (when (find-package "KT-OPENGL")
-    (funcall (symbol-function (find-symbol "KT-OPENGL-RESET" "CL-FTGL"))))
+    (funcall (symbol-function (find-symbol "KT-OPENGL-RESET" "KT-OPENGL"))))
 
   ;;;   ^^^^^ above two needed only for cello ^^^^^^
   ;;;