Changeset 4787


Ignore:
Timestamp:
Nov 25, 2014, 4:15:51 PM (5 years ago)
Author:
ldelgass
Message:

add tool hints to mesh object

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gui/scripts/mesh.tcl

    r4724 r4787  
    423423        set str [$_mesh get $path]
    424424        if {"" != $str} {
     425            set _hints($key) $str
     426        }
     427    }
     428    foreach {key path} {
     429        toolid          tool.id
     430        toolname        tool.name
     431        toolcommand     tool.execute
     432        tooltitle       tool.title
     433        toolrevision    tool.version.application.revision
     434    } {
     435        set str [$_xmlobj get $path]
     436        if { "" != $str } {
    425437            set _hints($key) $str
    426438        }
Note: See TracChangeset for help on using the changeset viewer.