[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Changes to gnats/contrib/tkgnats/tkpr_library.tcl
From: |
Michael Richardson |
Subject: |
Changes to gnats/contrib/tkgnats/tkpr_library.tcl |
Date: |
Tue, 07 Jan 2003 02:04:58 -0500 |
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
- Changes to gnats/contrib/tkgnats/tkpr_library.tcl,
Michael Richardson <=