- Timestamp:
- Oct 3, 2005 7:39:09 PM (19 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/deviceLayout1D.tcl
r53 r81 504 504 } 505 505 set _device $itk_option(-device) 506 $_dispatcher event -idle ! redraw506 $_dispatcher event -idle !layout 507 507 } 508 508 -
trunk/gui/scripts/energyLevels.tcl
r13 r81 288 288 # 289 289 array set params { 290 -color black290 -color auto 291 291 -brightness 0 292 292 -width 1 … … 312 312 set params(-color) [Rappture::color::brightness \ 313 313 $params(-color) $params(-brightness)] 314 } 315 if {$params(-color) == "auto" || $params(-color) == "autoreset"} { 316 # can't handle -autocolors yet 317 set params(-color) blue 314 318 } 315 319
Note: See TracChangeset
for help on using the changeset viewer.