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.5 
gnats/contrib/tkgnats/tkpr_library.tcl:1.6
*** gnats/contrib/tkgnats/tkpr_library.tcl:1.5  Wed Dec 18 23:19:38 2002
--- gnats/contrib/tkgnats/tkpr_library.tcl      Tue Jan  7 02:04:58 2003
***************
*** 966,972 ****
      }
  
      set glist [join [get_gnatsd_reply_dot_ended $s] \n]
!     puts $glist    
      close_socket $TkGnats(GNATS_SERVER) $TkGnats(GNATS_PORT)
      
      return $glist
--- 966,972 ----
      }
  
      set glist [join [get_gnatsd_reply_dot_ended $s] \n]
!     #puts $glist    
      close_socket $TkGnats(GNATS_SERVER) $TkGnats(GNATS_PORT)
      
      return $glist
***************
*** 1865,1870 ****
--- 1865,1871 ----
  
  proc make_txt_mb {multitextflds} {
      global TkGnats
+     global flds
      set   f [frame .multiline -relief groove  -borderwidth 2]
      
      frame  .mb
***************
*** 1875,1882 ****
      set num   0
      foreach field $multitextflds {
          if {[check_suppressed_field $field] != 1} {
              set alias [get_field_alias $field]
!             button .mb.b$num -text "${alias}:" -command "switch_txt $field 
{$multitextflds}"
              pack   .mb.b$num -side left -anchor w
              incr   count
              if {$count == 1} {
--- 1876,1891 ----
      set num   0
      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
              pack   .mb.b$num -side left -anchor w
              incr   count
              if {$count == 1} {
***************
*** 3357,3362 ****
--- 3366,3373 ----
      chk_fld field(>Arrival-Date)  [clock format [clock seconds]]
      chk_fld field(>Last-Modified) "\n"
      chk_fld field(>Closed-Date)   "\n"
+     chk_fld field(>Start-Date)    "\n"
+     chk_fld field(>End-Date)      "\n"
      chk_fld field(>Originator)    Unknown
      chk_fld field(>Responsible)   gnats
      chk_fld field(>Category)      pending