[cello-cvs] CVS cello

[fgoenninger]

Update of /project/cello/cvsroot/cello
In directory clnet:/tmp/cvs-serv19014

Modified Files:
	cello-ftgl.lisp 
Log Message:
Changed: Demo code only. Make FTGL-WINDOW (the demo) work with new Celtk/Cello changes. At least I tried to ;-)

--- /project/cello/cvsroot/cello/cello-ftgl.lisp	2006/10/02 02:59:18	1.8
+++ /project/cello/cvsroot/cello/cello-ftgl.lisp	2006/10/13 07:59:12	1.9
@@ -98,7 +98,7 @@
                     :face *gui-style-button-face*
                     :sizes '(14 9 14 14 14)
                     :text-color +green+))
-      (run-cello-window (make-instance 'ftgl-window)
+      (run-cello-window 'ftgl-window
         (lambda ()
           ;;; -- not sure how much of this new reset stuff is necessary ---
           (kt-opengl-init)
@@ -108,8 +108,6 @@
 (defmodel ftgl-window (cello-window)
   ()
   (:default-initargs
-    :idler nil
-    :display-continuous t
     :ll 0 :lt 0
     :lr (c-in (scr2log 900))
     :lb (c-in (scr2log -900))
@@ -117,7 +115,6 @@
     :title$ "Hello, ftgl"
     :skin nil 
     :lighting :off
-    :clear-rgba (list 0 0 0 1)
     :pre-layer (c? (with-layers +blue+ :off))
     :clipped nil
     :kids (c? (the-kids
@@ -133,6 +130,7 @@
                                   :lighting :off
                                   :text$ s
                                   :style-id :unique
+				  :fm-parent *parent*
                                   :pre-layer (c? (with-layers (:rgba (if (^mouse-over-p)
                                                                          +red+ +blue+)))))))))))