Changeset 4786 for branches/1.3/gui/scripts/drawing.tcl

Timestamp:

Nov 25, 2014 1:08:51 PM (9 years ago)

Author:

ldelgass

Message:

merge r4785 from trunk

Location:

branches/1.3

Files:

• . (modified) (1 prop)
• gui/scripts/drawing.tcl (modified) (1 diff)

branches/1.3/gui/scripts/drawing.tcl

@@ -129 +129 @@
         }
     }
+    foreach {key path} {
+        toolid          tool.id
+        toolname        tool.name
+        toolcommand     tool.execute
+        tooltitle       tool.title
+        toolrevision    tool.version.application.revision
+    } {
+        set str [$_xmlobj get $path]
+        if { "" != $str } {
+            set _hints($key) $str
+        }
+    }
 }