Changeset 2135 for trunk/gui/scripts/tool.tcl

Timestamp:

Mar 14, 2011, 11:00:49 AM (14 years ago)

Author:

mmc

Message:

Changes for the regression tester. Fixed the Diffview widget to show
the highlight properly as the window is widened. Also, fixed the way
changes are handled at the very end after the last common line.

Added an "xml" method to the Tool object, so we can access the underlying
XML data for each run.

File:

• trunk/gui/scripts/tool.tcl (modified) (2 diffs)

trunk/gui/scripts/tool.tcl

@@ -29 +29 @@
     public method abort {}
     public method reset {}
+    public method xml {args}
 
     protected method _mkdir {dir}
@@ -337 +338 @@
         if {[$_xmlobj element -as type $path.default] ne ""} {
             set defval [$_xmlobj get $path.default]
-            $_xmlobj put $path $defval
-        }
-    }
-}
-
+            $_xmlobj put $path.current $defval
+        }
+    }
+}
+
+# ----------------------------------------------------------------------
+# USAGE: xml ?<option> <arg> <arg>...?
+#
+# Used to access the XML specification for this tool.  With no extra
+# args, it returns the Rappture XML object.  Otherwise, it applies
+# the option/args to the object and returns the result.  The <option>
+# might be something like "children" or "element" or any other
+# operation supported by a Rappture::library object.
+# ----------------------------------------------------------------------
+itcl::body Rappture::Tool::xml {args} {
+    if {[llength $args] == 0} {
+        return $_xmlobj
+    }
+    return [eval $_xmlobj $args]
+}
 
 # ----------------------------------------------------------------------