/[gnats]/gnats/contrib/tkgnats/tkpr_library.tcl
ViewVC logotype

Diff of /gnats/contrib/tkgnats/tkpr_library.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by mcr, Tue Jan 7 07:17:31 2003 UTC revision 1.8 by mcr, Tue Jan 7 20:45:10 2003 UTC
# Line 1877  proc make_txt_mb {multitextflds} { Line 1877  proc make_txt_mb {multitextflds} {
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

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26