Changeset 4520 for branches/1.3/gui/scripts/field.tcl

Timestamp:

Jul 16, 2014 11:15:23 PM (10 years ago)

Author:

ldelgass

Message:

Merge r4502 from trunk (sync field.tcl)

Location:

branches/1.3

Files:

• . (modified) (1 prop)
• gui/scripts/field.tcl (modified) (5 diffs)

branches/1.3/gui/scripts/field.tcl

@@ -89 +89 @@
         # defined below 
     }
-    public method blob { cname }  
+    public method blob { cname }
     public method components {args}
     public method controls {option args}
@@ -365 +365 @@
     }
     if {[info exists _comp2dx($cname)]} {
-        error "method \"values\" is not implemented for dx data"
+        error "method \"values\" is not implemented for dx file data"
     }
     if {[info exists _comp2unirect2d($cname)]} {
@@ -392 +392 @@
     }
     if {[info exists _comp2dx($cname)]} {
-        return $_comp2dx($cname)
+        return $_comp2dx($cname)  ;# return gzipped, base64-encoded DX data
     }
     if {[info exists _comp2unirect2d($cname)]} {
@@ -919 +919 @@
                 continue;               # Ignore this component
             }
-            set vector ""
             if 0 {
                 set f [open /tmp/$_path.$cname.dx "w"]
@@ -948 +947 @@
                     [Rappture::FlowHints ::\#auto $_field $cname $_units]
             }
-            set _dim 3
             incr _counter
         } elseif { $type == "dicom"} {