Changeset 4787 for trunk/gui/scripts

Timestamp:

Nov 25, 2014, 1:15:51 PM (10 years ago)

Author:

ldelgass

Message:

add tool hints to mesh object

File:

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

trunk/gui/scripts/mesh.tcl

@@ -423 +423 @@
         set str [$_mesh get $path]
         if {"" != $str} {
+            set _hints($key) $str
+        }
+    }
+    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
         }