Changeset 3655 for branches/1.2/gui/scripts/main.tcl

Timestamp:

May 15, 2013 2:02:33 PM (11 years ago)

Author:

gah

Message:

fix assorted automatic tickets: bad data in curve, more trim space, move image creation before errors in constructor

File:

• branches/1.2/gui/scripts/main.tcl (modified) (4 diffs)

branches/1.2/gui/scripts/main.tcl

@@ -124 +124 @@
     # examples/ and docs/ dirs from the install location
     foreach runobj $loadobjs {
-        set tdir [$runobj get tool.version.application.directory(tool)]
+        set tdir \
+            [string trim [$runobj get tool.version.application.directory(tool)]]
         if {[file isdirectory $tdir] && \
             [file exists $tdir/tool.xml]} {
@@ -221 +222 @@
 # Add a place for about/questions in the breadcrumbs area of this pager.
 #
-set app [$tool xml get tool.id]
+set app [string trim [$tool xml get tool.id]]
 set url [Rappture::Tool::resources -huburl]
 if {"" != $url && "" != $app} {
@@ -279 +280 @@
 # adjust the title of the page here.
 # to adjust the button text, look in analyzer.tcl
-set simtxt [$xmlobj get tool.action.label]
+set simtxt [string trim [$xmlobj get tool.action.label]]
 if {"" == $simtxt} {
     set simtxt "Simulate"
@@ -308 +309 @@
     $f.analyze configure -simcontrol off
 } elseif {[llength [$win.pager page]] == 2} {
-    set style [$xmlobj get tool.layout]
+    set style [string trim [$xmlobj get tool.layout]]
     set screenw [winfo screenwidth .]