Changes to gnats/contrib/tkgnats/tkpr_library.tcl

[Michael Richardson]

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