Changeset 2783 for trunk/gui

Timestamp:

Feb 8, 2012 12:57:12 PM (12 years ago)

Author:

gah

Message:

add disablestyle element to hide/greout element when disabled.

Location:

trunk/gui/scripts

Files:

• analyzer.tcl (modified) (1 diff)
• controls.tcl (modified) (1 diff)
• resultset.tcl (modified) (2 diffs)

trunk/gui/scripts/analyzer.tcl

@@ -646 +646 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::Analyzer::clear {} {
-    $itk_component(resultset) addtotree 
-
     foreach obj $_runs {
         itcl::delete object $obj

trunk/gui/scripts/controls.tcl

@@ -192 +192 @@
     set notify [string trim [$_owner xml get $path.about.notify]]
 
-    #
-    # If this element has an <enable> expression, then register
-    # its controlling widget here.
-    #
     set disablestyle [string trim [$_owner xml get $path.about.disablestyle]]
-    set _name2info($name-disablestyle) $disablestyle
-
+    if { $disablestyle != "" } {
+        set _name2info($name-disablestyle) $disablestyle
+    }
     #
     # If this element has an <enable> expression, then register

trunk/gui/scripts/resultset.tcl

@@ -54 +54 @@
     public method contains {xmlobj}
     public method size {{what -results}}
-    public method addtotree {} 
 
     protected method _doClear {}
@@ -1659 +1658 @@
 }
 
-itcl::body Rappture::ResultSet::addtotree {} {
-    set index current
-    if {$index == "current"} {
-        # search for the result for these settings
-        set format ""
-        set tuple ""
-        foreach col [lrange [$_results column names] 1 end] {
-            lappend format $col
-            lappend tuple $_cntlInfo($this-$col-value)
-        }
-        set index [$_results find -format $format -- $tuple]
-        if {"" == $index} {
-            return ""  ;# somethings wrong -- bail out!
-        }
-    }
-    set tree [blt::tree create]
-    foreach col $_cntlInfo($this-all) {
-        set node [$tree insert 0 -label $col]
-        set quantity $_cntlInfo($this-$col-label)
-        # Be careful giving singleton elements as the "columns"
-        # argument to "Tuples::get". It is expecting a list.
-        foreach {label val} [_getValues $col all] {
-            if {$col == "xmlobj"} {
-                set val "#[expr {$val+1}]"
-            }
-            $tree set $node $label $val
-        }
-    }
-    $tree dumpfile 0 clear.dump
-}