Changeset 4785


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

Add tool hints to drawing output

File:
1 edited

Legend:

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

    r4493 r4785  
    129129        }
    130130    }
     131    foreach {key path} {
     132        toolid          tool.id
     133        toolname        tool.name
     134        toolcommand     tool.execute
     135        tooltitle       tool.title
     136        toolrevision    tool.version.application.revision
     137    } {
     138        set str [$_xmlobj get $path]
     139        if { "" != $str } {
     140            set _hints($key) $str
     141        }
     142    }
    131143}
    132144
Note: See TracChangeset for help on using the changeset viewer.