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 |
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 |
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} { |
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 |