1877 |
foreach field $multitextflds { |
foreach field $multitextflds { |
1878 |
if {[check_suppressed_field $field] != 1} { |
if {[check_suppressed_field $field] != 1} { |
1879 |
|
|
1880 |
set tlength [string length $flds($field)] |
if {[info exists flds($field)]} { |
1881 |
#puts stderr "field $field ($flds($field) has length: $tlength" |
set tlength [string length $flds($field)] |
1882 |
|
puts stderr "field $field ($flds($field) has length: $tlength" |
1883 |
|
} { |
1884 |
|
set tlength 0 |
1885 |
|
} |
1886 |
if {$tlength < 2} { |
if {$tlength < 2} { |
|
set buttonbackground "lightblue" |
|
|
} { |
|
1887 |
set buttonbackground "grey" |
set buttonbackground "grey" |
1888 |
|
} { |
1889 |
|
set buttonbackground "lightblue" |
1890 |
} |
} |
1891 |
set alias [get_field_alias $field] |
set alias [get_field_alias $field] |
1892 |
button .mb.b$num -text "${alias}:" -command "switch_txt $field {$multitextflds}" -bg $buttonbackground |
button .mb.b$num -text "${alias}:" -command "switch_txt $field {$multitextflds}" -bg $buttonbackground |