Changeset 674 for trunk/gui/scripts/sequenceresult.tcl

Timestamp:

Apr 19, 2007, 5:38:09 PM (18 years ago)

Author:

mmc

Message:

Fixed sequences so that styles for embedded curves are handled properly.
Fixed the play times for sequences so they are a little slower. This
works better with the frame updates over VNC. Added "select all" to
the menu for string items.

File:

• trunk/gui/scripts/sequenceresult.tcl (modified) (4 diffs)

trunk/gui/scripts/sequenceresult.tcl

@@ -302 +302 @@
                     }
                     if {[llength $all] > 0} {
-                        set delay [expr {int(ceil(pow($_play(speed)/10.0,2.0)*5))}]
+                        set delay [expr {int(ceil(pow($_play(speed)/10.0+2,2.0)*15))}]
                         set rval [eval Rappture::icon::gif_animate $delay $all]
                     }
@@ -342 +342 @@
 
     # schedule the first frame
-    set delay [expr {int(ceil(pow($_play(speed)/10.0,2.0)*5))}]
+    set delay [expr {int(ceil(pow($_play(speed)/10.0+2,2.0)*15))}]
     set _afterId [after $delay [itcl::code $this _playFrame]]
 }
@@ -492 +492 @@
     goto $_pos
 
-    set delay [expr {int(ceil(pow($_play(speed)/10.0,2.0)*5))}]
+    set delay [expr {int(ceil(pow($_play(speed)/10.0+2,2.0)*15))}]
     set _afterId [after $delay [itcl::code $this _playFrame]]
 }
@@ -515 +515 @@
     if {"" != $_topmost} {
         foreach dataobj [$_topmost value $_pos] {
-            $viewer add $dataobj ""
-        }
-    }
-}
+            set settings "-color autoreset -width 2"
+            if {[catch {$dataobj hints style} style] == 0} {
+                eval lappend settings $style
+            }
+            $viewer add $dataobj $settings
+        }
+    }
+}