[cells-gtk-cvs] CVS root/cells-gtk/test-gtk

[pdenno]

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