Changeset 4785 for trunk/gui

Timestamp:

Nov 25, 2014 1:03:49 PM (9 years ago)

Author:

ldelgass

Message:

Add tool hints to drawing output

File:

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

trunk/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
+        }
+    }
 }