Changeset 4176

Timestamp:

Feb 12, 2014, 7:26:05 AM (10 years ago)

Author:

gah

Message:

typos

Location:

trunk

Files:

• examples/zoo/drawing/tool.xml (modified) (3 diffs, 1 prop)
• gui/scripts/analyzer.tcl (modified) (1 diff)
• gui/scripts/drawingentry.tcl (modified) (1 diff)
• lang/tcl/scripts/exec.tcl (modified) (1 diff)

trunk/examples/zoo/drawing/tool.xml

@@ -62 +62 @@
      <path>input.choice(analysis)</path>
     </variable>
+    <variable>
+     <name>linewidth</name>
+     <path>input.integer(linewidth)</path>
+    </variable>
    </substitutions>
    <components>
@@ -130 +134 @@
      <coords>0 .7 .25 .7 .35 .4 .65 .4 .75 .7 1 .7</coords>
      <color>red</color>
-     <linewidth>2</linewidth>
+     <linewidth>${linewidth}</linewidth>
     </line>
     <rectangle id="border">
@@ -169 +173 @@
    </components>
   </drawing>
+  <integer id="linewidth">
+    <about>
+      <label>Line width</label>
+      <description>Number of pixels for linewidth.</description>
+    </about>
+    <min>1</min>
+    <max>10</max>
+    <default>2</default>
+  </integer>
   <number id="feature_height">
    <about>

trunk/gui/scripts/analyzer.tcl

@@ -443 +443 @@
     if {$status != 0} {
         $itk_component(runinfo) configure -state normal
-        $itk_component(runinfo) delete 1.0 end
-        $itk_component(runinfo) insert end "Problem launching job:\n\n" text
+        # Don't erase program error messages. 
+        # $itk_component(runinfo) delete 1.0 end
+        $itk_component(runinfo) insert end "\n\nProblem launching job:\n\n" text
         _simOutput $result
         $itk_component(runinfo) configure -state disabled

trunk/gui/scripts/drawingentry.tcl

@@ -155 +155 @@
         set _name2path($name) $path
         if {$path eq ""} {
-            puts stderr "no path defined for substituion variable \"$cpath\""
+            puts stderr "no path defined for substitution variable \"$cpath\""
             continue
         }

trunk/lang/tcl/scripts/exec.tcl

@@ -68 +68 @@
             }
         }
+        puts stderr $result
         error $result
     }