Changeset 2158 for trunk/builder/scripts/main.tcl

Timestamp:

Mar 27, 2011 3:14:54 PM (12 years ago)

Author:

mmc

Message:

Integrated the new -tooltip support into the builder and added tooltips
for the Tool section. Also, fixed a problem whereby you would load an
XML file and then switch to another, and the program would prompt you
to save changes, even though nothing was changed. Empty strings were
being inserted into the XML causing it to appear different than the
original. That's fixed now.

File:

• trunk/builder/scripts/main.tcl (modified) (3 diffs)

trunk/builder/scripts/main.tcl

@@ -190 +190 @@
 
     if {$what == "-new"} {
-        set xmlobj [Rappture::LibraryObj ::#auto "<?xml version=\"1.0\"?><run/>"]
-        $xmlobj put tool.command ""
+        set xmlobj [Rappture::LibraryObj ::#auto "<?xml version=\"1.0\"?><run><tool/></run>"]
     } else {
         if {$what == "-file"} {
@@ -1031 +1030 @@
 
     # copy the ToolXml object and pass to analyzer to show outputs
-    set synthrun [Rappture::LibraryObj ::#auto "<?xml version=\"1.0\"?><run/>"]
+    set synthrun [Rappture::LibraryObj ::#auto "<?xml version=\"1.0\"?><run><tool/></run>"]
     $synthrun copy "" from $ToolXml ""
     $f.analyze load $synthrun
@@ -1246 +1245 @@
                 }
                 lappend atargs -$key $val
+            }
+
+            # add any tooltip info for this attribute
+            if {[info exists info(-tooltip)] && $info(-tooltip) ne ""} {
+                lappend atargs -tooltip $info(-tooltip)
             }