Changeset 2141 for trunk/gui/scripts/xyresult.tcl

Timestamp:

Mar 18, 2011 9:01:35 AM (13 years ago)

Author:

mmc

Message:

Oops! Fixed a problem with the "xml" method added to the Tool class for
the regression tester. The base class ControlOwner? already has this method,
so it should not have been added at the Tool level. The Tool's implementation
broke the ordinary workings of the Rappture GUI.

Removed a debug puts statement from XyResult? and updated it to work with
the new CurveValue? objects in addition to the old Curves.

File:

• trunk/gui/scripts/xyresult.tcl (modified) (1 diff)

trunk/gui/scripts/xyresult.tcl

@@ -729 +729 @@
         foreach elem $label2elem($label) {
             set dataobj $_elem2dataobj($elem)
-            puts stderr dataobj=$dataobj
-            scan $dataobj "::curve%d" suffix
+            regexp {^::curve(?:Value)?([0-9]+)$} $dataobj match suffix
             incr suffix
             set elabel [format "%s \#%d" $label $suffix]