Changeset 170 for trunk/gui/scripts/analyzer.tcl
- Timestamp:
- Feb 10, 2006 8:27:40 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/analyzer.tcl
r168 r170 27 27 option add *Analyzer.font \ 28 28 -*-helvetica-medium-r-normal-*-*-120-* widgetDefault 29 option add *Analyzer.codeFont \ 30 -*-courier-medium-r-normal-*-*-120-* widgetDefault 29 31 option add *Analyzer.textFont \ 30 32 -*-helvetica-medium-r-normal-*-*-120-* widgetDefault … … 35 37 inherit itk::Widget 36 38 39 itk_option define -codefont codeFont Font "" 37 40 itk_option define -textfont textFont Font "" 38 41 itk_option define -boldtextfont boldTextFont Font "" … … 165 168 usual 166 169 ignore -borderwidth -relief 167 rename -font - textfont textFont Font170 rename -font -codefont codeFont Font 168 171 } 169 172 $w.info contents $w.info.text 170 171 $itk_component(runinfo) tag configure ERROR -foreground red172 173 173 174 itk_component add progress { … … 225 226 226 227 eval itk_initialize $args 228 229 $itk_component(runinfo) tag configure ERROR -foreground red 230 $itk_component(runinfo) tag configure text -font $itk_option(-textfont) 227 231 228 232 # … … 300 304 $itk_component(runinfo) configure -state normal 301 305 $itk_component(runinfo) delete 1.0 end 302 $itk_component(runinfo) insert end "Running simulation...\n\n" 306 $itk_component(runinfo) insert end "Running simulation...\n\n" text 303 307 $itk_component(runinfo) configure -state disabled 304 308 … … 341 345 $itk_component(runinfo) configure -state normal 342 346 $itk_component(runinfo) delete 1.0 end 343 $itk_component(runinfo) insert end "Problem launching job:\n\n" 347 $itk_component(runinfo) insert end "Problem launching job:\n\n" text 344 348 _simOutput $result 345 349 $itk_component(runinfo) configure -state disabled
Note: See TracChangeset
for help on using the changeset viewer.