/[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.5 by mcr, Thu Dec 19 04:19:38 2002 UTC revision 1.6 by mcr, Tue Jan 7 07:04:58 2003 UTC
# Line 966  proc get_gnats_fieldvalue_socket {type} Line 966  proc get_gnats_fieldvalue_socket {type}
966      }      }
967    
968      set glist [join [get_gnatsd_reply_dot_ended $s] \n]      set glist [join [get_gnatsd_reply_dot_ended $s] \n]
969      puts $glist          #puts $glist    
970      close_socket $TkGnats(GNATS_SERVER) $TkGnats(GNATS_PORT)      close_socket $TkGnats(GNATS_SERVER) $TkGnats(GNATS_PORT)
971            
972      return $glist      return $glist
# Line 1865  proc clipboard_doit {w opt} { Line 1865  proc clipboard_doit {w opt} {
1865    
1866  proc make_txt_mb {multitextflds} {  proc make_txt_mb {multitextflds} {
1867      global TkGnats      global TkGnats
1868        global flds
1869      set   f [frame .multiline -relief groove  -borderwidth 2]      set   f [frame .multiline -relief groove  -borderwidth 2]
1870            
1871      frame  .mb      frame  .mb
# Line 1875  proc make_txt_mb {multitextflds} { Line 1876  proc make_txt_mb {multitextflds} {
1876      set num   0      set num   0
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)]
1881                #puts stderr "field $field ($flds($field) has length: $tlength"
1882                if {$tlength < 2} {
1883                    set buttonbackground "lightblue"
1884                } {
1885                    set buttonbackground "grey"
1886                }
1887              set alias [get_field_alias $field]              set alias [get_field_alias $field]
1888              button .mb.b$num -text "${alias}:" -command "switch_txt $field {$multitextflds}"              button .mb.b$num -text "${alias}:" -command "switch_txt $field {$multitextflds}" -bg $buttonbackground
1889              pack   .mb.b$num -side left -anchor w              pack   .mb.b$num -side left -anchor w
1890              incr   count              incr   count
1891              if {$count == 1} {              if {$count == 1} {
# Line 3357  proc load_field_defaults {field_array} { Line 3366  proc load_field_defaults {field_array} {
3366      chk_fld field(>Arrival-Date)  [clock format [clock seconds]]      chk_fld field(>Arrival-Date)  [clock format [clock seconds]]
3367      chk_fld field(>Last-Modified) "\n"      chk_fld field(>Last-Modified) "\n"
3368      chk_fld field(>Closed-Date)   "\n"      chk_fld field(>Closed-Date)   "\n"
3369        chk_fld field(>Start-Date)    "\n"
3370        chk_fld field(>End-Date)      "\n"
3371      chk_fld field(>Originator)    Unknown      chk_fld field(>Originator)    Unknown
3372      chk_fld field(>Responsible)   gnats      chk_fld field(>Responsible)   gnats
3373      chk_fld field(>Category)      pending      chk_fld field(>Category)      pending

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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