Changeset 1318 for trunk/gui/scripts/flowvisviewer.tcl

Timestamp:

Mar 12, 2009 7:00:58 PM (15 years ago)

Author:

gah

Message:

Added new icons for nanovisviewer

File:

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

trunk/gui/scripts/flowvisviewer.tcl

@@ +1 @@
+
 # ----------------------------------------------------------------------
 #  COMPONENT: flowvisviewer - 3D vector field rendering
@@ -173 +174 @@
         rename -highlightbackground -controlbackground controlBackground Background
     }
-    pack $itk_component(reset) -side left -padx {4 1} -pady 4
+    pack $itk_component(reset) -side left -padx {4 1} -pady 2
     Rappture::Tooltip::for $itk_component(reset) "Reset the view to the default zoom level"
 
@@ -186 +187 @@
         rename -highlightbackground -controlbackground controlBackground Background
     }
-    pack $itk_component(zoomin) -side left -padx 1 -pady 4
+    pack $itk_component(zoomin) -side left -padx 1 -pady 2
     Rappture::Tooltip::for $itk_component(zoomin) "Zoom in"
 
@@ -199 +200 @@
         rename -highlightbackground -controlbackground controlBackground Background
     }
-    pack $itk_component(zoomout) -side left -padx {1 4} -pady 4
+    pack $itk_component(zoomout) -side left -padx {1 4} -pady 2
     Rappture::Tooltip::for $itk_component(zoomout) "Zoom out"
 
@@ -211 +212 @@
         rename -background -controlbackground controlBackground Background
     }
-    pack $itk_component(slicers) -side bottom -padx 4 -pady 4
+    pack $itk_component(slicers) -side bottom -padx 4 -pady 2
     grid rowconfigure $itk_component(slicers) 1 -weight 1
     #
@@ -338 +339 @@
         "Toggle the volume cloud on/off"
     grid $itk_component(volume) -row 0 -column 0 -columnspan 3 \
-        -sticky ew -padx 1 -pady 3
+        -sticky ew -padx 1 -pady 2
 
     #
@@ -354 +355 @@
         rename -highlightbackground -controlbackground controlBackground Background
     }
-    pack $itk_component(settings) -side top -pady 2
+    pack $itk_component(settings) -side top 
 
     Rappture::Balloon $itk_component(controls).panel -title "Settings"
@@ -472 +473 @@
         rename -background -controlbackground controlBackground Background
     }
-    pack $itk_component(flowctrl) -side top -padx 4 -pady 4
+    pack $itk_component(flowctrl) -side top -padx 4 -pady 0
     grid rowconfigure $itk_component(flowctrl) 1 -weight 1
 
@@ -491 +492 @@
     Rappture::Tooltip::for $itk_component(record) \
         "Record flow visualization"
-    grid $itk_component(record) -row 1 -column 0 -sticky ew -padx 1
+    grid $itk_component(record) -row 1 -column 0 -padx 1
 
     #
@@ -498 +499 @@
     itk_component add stop {
         label $itk_component(flowctrl).stop \
-            -borderwidth 1 -relief sunken -state disable -padx 1 -pady 1 \
+            -borderwidth 1 -relief sunken -padx 1 -pady 1 \
             -image [Rappture::icon playback-stop]
     } {
@@ -509 +510 @@
     Rappture::Tooltip::for $itk_component(stop) \
         "Stop flow visualization"
-    grid $itk_component(stop) -row 1 -column 1 -sticky ew -padx 1
+    grid $itk_component(stop) -row 1 -column 1 -padx 1
 
     #
@@ -527 +528 @@
     Rappture::Tooltip::for $itk_component(play) \
         "Play/Pause flow visualization"
-    grid $itk_component(play) -row 1 -column 2 -sticky ew -padx 1
+    grid $itk_component(play) -row 1 -column 2 -padx 1
 
     # Bindings for rotation via mouse
@@ -951 +952 @@
 
         # raise the record button back up.
-        $itk_component(record) configure -relief raised -state normal
+        $itk_component(record) configure -relief raised 
 
         # FIXME: manually download file???
@@ -1318 +1319 @@
             switch -- $action {
                 record {
-                    $itk_component(record) configure -relief sunken -state disable
-                    $itk_component(stop) configure -relief raised -state normal
-                    $itk_component(play) configure -relief raised -state normal
-                    set inner [$itk_component(controls).panel component inner]
-                    set frames [$inner.scales.framecnt value]
-                    set cmds "flow capture $frames"
-                    _send $cmds
+                    if { [$itk_component(record) cget -relief] != "sunken" } {
+                        $itk_component(record) configure -relief sunken 
+                        $itk_component(stop) configure -relief raised 
+                        $itk_component(play) configure -relief raised 
+                        set inner \
+                            [$itk_component(controls).panel component inner]
+                        set frames [$inner.scales.framecnt value]
+                        set cmds "flow capture $frames"
+                        _send $cmds
+                    }
                 }
                 stop {
-                    $itk_component(record) configure -relief raised -state normal
-                    $itk_component(stop) configure -relief sunken -state disable
-                    $itk_component(play) configure -relief raised -state normal
-                    _pause
-                    set cmds "flow reset"
-                    _send $cmds
-
+                    if { [$itk_component(stop) cget -relief] != "sunken" } {
+                        $itk_component(record) configure -relief raised 
+                        $itk_component(stop) configure -relief sunken 
+                        $itk_component(play) configure -relief raised 
+                        _pause
+                        set cmds "flow reset"
+                        _send $cmds
+                    }
                 }
                 play {
-                    $itk_component(record) configure -relief raised -state normal
-                    $itk_component(stop) configure -relief raised -state normal
-                    $itk_component(play) configure \
-                        -image [Rappture::icon playback-pause] \
-                        -relief sunken -state normal
-                    bind $itk_component(play) <ButtonPress> \
-                        [itcl::code $this _pause]
-                    _play
+                    if { [$itk_component(play) cget -relief] != "sunken" } {
+                        $itk_component(record) configure -relief raised
+                        $itk_component(stop) configure -relief raised 
+                        $itk_component(play) configure \
+                            -image [Rappture::icon playback-pause] \
+                            -relief sunken 
+                        bind $itk_component(play) <ButtonPress> \
+                            [itcl::code $this _pause]
+                        _play
+                    }
                 }
                 default {
@@ -1383 +1390 @@
     $itk_component(play) configure \
         -image [Rappture::icon playback-start] \
-        -relief raised -state normal
+        -relief raised 
     bind $itk_component(play) <ButtonPress> \
         [itcl::code $this _flow movie play toggle]