Changeset 2300 for branches

Timestamp:

Jul 8, 2011, 6:09:04 PM (13 years ago)

Author:

gah

Message:

add histogram example

File:

• branches/blt4/gui/scripts/histogram.tcl (modified) (5 diffs)

branches/blt4/gui/scripts/histogram.tcl

@@ -35 +35 @@
 
     protected method Build {}
-    private method Clear {}
+    private method Clear { {comp ""} }
     private method ParseData { comp } 
 
@@ -335 +335 @@
 }
 
+#
+# ParseData --
+#
+#       Parse the components data representations.  The following
+#       elements may be used <xy>, <xhw>, <namevalue>, <xvector>,
+#       <yvector>.  Only one element is used for data.  
+#
 itcl::body Rappture::Histogram::ParseData { comp } {
     # Create new vectors or discard any existing data
@@ -344 +351 @@
     set xydata [$_hist get ${comp}.xy]
     if { $xydata != "" } {
+        # Fast way of parsing x/y pairs.  Set a temporary vector using the 
+        # entire as a list of values (newlines treated as whitespace).  
+        # Then split the vector into the x and y vectors required.
         set tmp [blt::vector create \#auto]
         $tmp set $xydata
@@ -354 +364 @@
     set xhwdata [$_hist get ${comp}.xhw]
     if { $xhwdata != "" } {
+        # Slow way of parsing x, h, and w values.  The third value is 
+        # optional to can't simply load the values into a vector.
         foreach line [split $xhwdata \n] {
             set n [scan $line {%s %s %s} x h w]
@@ -396 +408 @@
 }
 
-itcl::body Rappture::Histogram::Clear {} {
-    foreach name [array names _widths] {
-        blt::vector destroy $_widths($name)
-    }
-    array unset _widths
-    foreach name [array names _yvalues] {
-        blt::vector destroy $_yvalues($name)
-    }
-    array unset _yvalues
-    foreach name [array names _xvalues] {
-        blt::vector destroy $_xvalues($name)
-    }
-    array unset _xvalues
-    array unset _xlabels
-    array unset _comp2hist
-}
-
+itcl::body Rappture::Histogram::Clear { {comp ""} } {
+    if { $comp == "" } {
+        foreach name [array names _widths] {
+            blt::vector destroy $_widths($name)
+        }
+        array unset _widths
+        foreach name [array names _yvalues] {
+            blt::vector destroy $_yvalues($name)
+        }
+        array unset _yvalues
+        foreach name [array names _xvalues] {
+            blt::vector destroy $_xvalues($name)
+        }
+        array unset _xvalues
+        array unset _xlabels
+        array unset _comp2hist
+        return
+    }
+    if { [info exists _widths($comp)] } {
+        blt::vector destroy $_widths($comp) 
+    }
+    if { [info exists _yvalues($comp)] } {
+        blt::vector destroy $_yvalues($comp) 
+    }
+    if { [info exists _xvalues($comp)] } {
+        blt::vector destroy $_xvalues($comp) 
+    }
+    array unset _xvalues $comp
+    array unset _yvalues $comp
+    array unset _widths $comp
+    array unset _xlabels $comp
+    array unset _comp2hist $comp
+}
+