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