Changeset 2141
- Timestamp:
- Mar 18, 2011, 9:01:35 AM (14 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/tool.tcl
r2135 r2141 29 29 public method abort {} 30 30 public method reset {} 31 public method xml {args}32 31 33 32 protected method _mkdir {dir} … … 344 343 345 344 # ---------------------------------------------------------------------- 346 # USAGE: xml ?<option> <arg> <arg>...?347 #348 # Used to access the XML specification for this tool. With no extra349 # args, it returns the Rappture XML object. Otherwise, it applies350 # the option/args to the object and returns the result. The <option>351 # might be something like "children" or "element" or any other352 # operation supported by a Rappture::library object.353 # ----------------------------------------------------------------------354 itcl::body Rappture::Tool::xml {args} {355 if {[llength $args] == 0} {356 return $_xmlobj357 }358 return [eval $_xmlobj $args]359 }360 361 # ----------------------------------------------------------------------362 345 # USAGE: _output <data> 363 346 # -
trunk/gui/scripts/xyresult.tcl
r2049 r2141 729 729 foreach elem $label2elem($label) { 730 730 set dataobj $_elem2dataobj($elem) 731 puts stderr dataobj=$dataobj 732 scan $dataobj "::curve%d" suffix 731 regexp {^::curve(?:Value)?([0-9]+)$} $dataobj match suffix 733 732 incr suffix 734 733 set elabel [format "%s \#%d" $label $suffix]
Note: See TracChangeset
for help on using the changeset viewer.