- Timestamp:
- May 16, 2006, 8:59:50 PM (18 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 2 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 } -
trunk/gui/scripts/deviceEditor.tcl
r438 r439 91 91 92 92 } elseif {[llength $args] == 0} { 93 # querying -- nothing to do here93 sync ;# querying -- must sync controls with the value 94 94 } else { 95 95 error "wrong # args: should be \"value ?-check? ?newval?\""
Note: See TracChangeset
for help on using the changeset viewer.