Changeset 9 for trunk/gui/scripts/analyzer.tcl
- Timestamp:
- Apr 19, 2005, 8:06:13 PM (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/analyzer.tcl
r8 r9 151 151 puts $fid "<?xml version=\"1.0\"?>" 152 152 set xml [$itk_option(-tool) xml] 153 set xml2 [$itk_option(-device) xml] 154 regsub -all {&} $xml2 {\\\&} xml2 155 regsub {</run>} $xml "$xml2</run>" xml 153 if {$itk_option(-device) != ""} { 154 set xml2 [$itk_option(-device) xml] 155 regsub -all {&} $xml2 {\\\&} xml2 156 regsub {</run>} $xml "$xml2</run>" xml 157 } 156 158 puts $fid $xml 157 159 close $fid … … 265 267 $itk_component(info) configure -state normal 266 268 $itk_component(info) delete 1.0 end 267 $itk_component(info) insert end [$itk_option(-tool) get executable.about]269 $itk_component(info) insert end [$itk_option(-tool) get tool.about] 268 270 $itk_component(info) configure -state disabled 269 271 }
Note: See TracChangeset
for help on using the changeset viewer.