Changes to gnats/contrib/tkgnats/tkpr_library.tcl
Michael Richardson <[email protected]> Tue, 07 Jan 2003 15:45:10 -0500
| Newsgroups | gmane.comp.bug-tracking.gnats.patches |
|---|---|
| Message-ID | <[email protected]> |
Index: gnats/contrib/tkgnats/tkpr_library.tcl
diff -c gnats/contrib/tkgnats/tkpr_library.tcl:1.7 gnats/contrib/tkgnats/tkpr_library.tcl:1.8
*** gnats/contrib/tkgnats/tkpr_library.tcl:1.7 Tue Jan 7 02:17:31 2003
--- gnats/contrib/tkgnats/tkpr_library.tcl Tue Jan 7 15:45:10 2003
***************
*** 1877,1888 ****
foreach field $multitextflds {
if {[check_suppressed_field $field] != 1} {
! set tlength [string length $flds($field)]
! #puts stderr "field $field ($flds($field) has length: $tlength"
if {$tlength < 2} {
- set buttonbackground "lightblue"
- } {
set buttonbackground "grey"
}
set alias [get_field_alias $field]
button .mb.b$num -text "${alias}:" -command "switch_txt $field {$multitextflds}" -bg $buttonbackground
--- 1877,1892 ----
foreach field $multitextflds {
if {[check_suppressed_field $field] != 1} {
! if {[info exists flds($field)]} {
! set tlength [string length $flds($field)]
! puts stderr "field $field ($flds($field) has length: $tlength"
! } {
! set tlength 0
! }
if {$tlength < 2} {
set buttonbackground "grey"
+ } {
+ set buttonbackground "lightblue"
}
set alias [get_field_alias $field]
button .mb.b$num -text "${alias}:" -command "switch_txt $field {$multitextflds}" -bg $buttonbackground