Update of /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk In directory common-lisp:/tmp/cvs-serv10926/root/cells-gtk/test-gtk
Modified Files: test-display.lisp Log Message: trivial
--- /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk/test-display.lisp 2005/02/27 03:21:20 1.6 +++ /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk/test-display.lisp 2006/02/16 18:20:19 1.7 @@ -2,8 +2,8 @@
(defmodel test-display (vbox) - () - (:default-initargs + () + (:default-initargs ;; g_timeout_add a function that will move the bar until the "Pulse" toggle is false. :md-value (c? (when (md-value (fm-other :pulse)) (timeout-add (md-value (fm-other :timeout)) (lambda () @@ -40,10 +40,9 @@ :kids (list (mk-progress-bar :md-name :pbar2 :pulse-step (c? (md-value (fm^ :step))) - :fraction (c-in 0)) - (mk-toggle-button :md-name :pulse - :label "Pulse") - (mk-label :text "Timeout") + :fraction (c-in .1)) + (mk-toggle-button :md-name :pulse :label "Pulse") + (mk-label :text "Interval") (mk-spin-button :md-name :timeout :sensitive (c? (not (md-value (fm^ :pulse)))) :min 10 :max 1000