Changeset 1354 for trunk

Timestamp:

Mar 20, 2009 8:20:12 PM (15 years ago)

Author:

gah

Message:

my first cut at flowvisviewer client based on work by dsk

File:

• trunk/gui/scripts/flowvisviewer.tcl (modified) (2 diffs)

trunk/gui/scripts/flowvisviewer.tcl

@@ -1472 +1472 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::FlowvisViewer::Play {} {
-    SendCmd "flow play"
+    SendCmd "flow next"
     set delay [expr {int(ceil(pow($settings_(speed)/10.0+2,2.0)*15))}]
     $_dispatcher event -after $delay !play
@@ -1998 +1998 @@
         "next" {
             # This operation should not be called by public routines.
-            SendCmd "flow play"
+            SendCmd "flow next"
             set delay [expr {int(ceil(pow($settings_(speed)/10.0+2,2.0)*15))}]
             $_dispatcher event -after $delay !play