Changeset 439 for trunk/gui/scripts/controls.tcl
- Timestamp:
- May 16, 2006, 8:59:50 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/controls.tcl
r438 r439 422 422 lappend showing $name 423 423 if {$show} { 424 $vwidget configure -state normal 425 if {$lwidget != ""} { 424 if {[winfo exists $vwidget]} { 425 $vwidget configure -state normal 426 } 427 if {[winfo exists $lwidget]} { 426 428 $lwidget configure -foreground \ 427 429 [lindex [$lwidget configure -foreground] 3] 428 430 } 429 431 } else { 430 $vwidget configure -state disabled 431 if {$lwidget != ""} { 432 if {[winfo exists $vwidget]} { 433 $vwidget configure -state disabled 434 } 435 if {[winfo exists $lwidget]} { 432 436 $lwidget configure -foreground gray 433 437 }
Note: See TracChangeset
for help on using the changeset viewer.