Changeset 1511

Timestamp:

Jun 12, 2009, 3:53:22 PM (15 years ago)

Author:

gah

Message:

remove components from unirect3d class

Location:

trunk/gui/scripts

Files:

• field.tcl (modified) (2 diffs)
• flowspeed.tcl (modified) (1 diff)
• flowvisviewer.tcl (modified) (2 diffs)
• unirect3d.tcl (modified) (4 diffs)

trunk/gui/scripts/field.tcl

@@ -855 +855 @@
         set max 0
         foreach cname [$_field children -type component] {
-            if { [info exists _comp2unirect3d($cname)] } {
-                set value [$_comp2unirect3d($cname) components]
-            } elseif { [info exists _comp2unirect2d($cname)] } {
-                set value [$_comp2unirect2d($cname) components]
-            } elseif { [info exists _comp2extents($cname)] } {
-                set value $_comp2extents($cname)
-            } else {
+            if { ![info exists _comp2unirect3d($cname)] &&
+                 ![info exists _comp2extents($cname)] } {
                 continue
             }
+            set value $_comp2extents($cname)
             if { $max < $value } {
                 set max $value
@@ -872 +868 @@
     if { $what == "component0"} {
         set what [lindex [components -name] 0]
-        if { [info exists _comp2unirect3d($what)] } {
-            return [$_comp2unirect3d($what) components]
-        } elseif { [info exists _comp2unirect2d($what)] } {
-            return [$_comp2unirect2d($what) components]
-        } elseif { [info exists _comp2extents($what)] } {
-            return $_comp2extents($what)
-        }
     }
     return $_comp2extents($what)

trunk/gui/scripts/flowspeed.tcl

@@ -72 +72 @@
         [itcl::code $this _validate %A]
     bind $itk_component(entry) <KeyPress-Return> \
+        "$this value \[$itk_component(entry) get\]"
+    bind $itk_component(entry) <KeyPress-Tab> \
         "$this value \[$itk_component(entry) get\]"
 

trunk/gui/scripts/flowvisviewer.tcl

@@ -425 +425 @@
     }
     bind $itk_component(duration) <Return> [itcl::code $this flow duration]
+    bind $itk_component(duration) <Tab> [itcl::code $this flow duration]
     Rappture::Tooltip::for $itk_component(duration) \
         "Set duration of flow (format is min:sec)"
@@ -2885 +2886 @@
     set framerate [expr 1000.0 / $_flow(delay)]
     set framerate 25.0
-    set bitrate 400000
+    set bitrate 6000000
 
     set start [clock seconds]

trunk/gui/scripts/unirect3d.tcl

@@ -30 +30 @@
         return _axisOrder;
     }
-    public method components {} {
-        return _components;
-    }
     private method GetString { obj path varName }
     private method GetValue { obj path varName }
@@ -47 +44 @@
     private variable _zMin       0
     private variable _zNum       0
-    private variable _components 1
     private variable _values     ""; # BLT vector containing the z-values 
     private variable _hints
@@ -71 +67 @@
     GetSize $m "yaxis.numpoints" _yNum
     GetSize $m "zaxis.numpoints" _zNum
-    GetSize $m "components" _components
     itcl::delete object $m
 
@@ -100 +95 @@
     lappend data "zmin" $_zMin "zmax" $_zMax "znum" $_zNum
     lappend data "axisorder" $_axisOrder
-    lappend data "components" $_components
     if { [$_values length] > 0 } {
         lappend data "values" [$_values range 0 end]