Update of /project/cells/cvsroot/Celtk/gears In directory clnet:/tmp/cvs-serv31024/gears
Modified Files: gears.lisp Log Message: New "lite" versions of Celtk without all the Tk widgets, for PureCello
--- /project/cells/cvsroot/Celtk/gears/gears.lisp 2006/06/07 22:13:41 1.2 +++ /project/cells/cvsroot/Celtk/gears/gears.lisp 2006/11/04 20:53:08 1.3 @@ -37,12 +37,12 @@ (mk-row () (mk-label :text "Spin delay (ms):") (mk-entry :id :vtime - :md-value (c-in "100")) + :value (c-in "100")) (mk-button-ex (" Quit " (tk-eval "destroy .")))) (make-instance 'gears :fm-parent *parent* :width 400 :height 400 - :timer-interval (c? (let ((n$ (md-value (fm-other :vtime)))) + :timer-interval (c? (let ((n$ (value (fm-other :vtime)))) (format nil "~a" (max 1 (or (parse-integer n$ :junk-allowed t) 0))))) :double 1 ;; "yes" :event-handler (c? (lambda (self xe)