[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Changes to gnats/contrib/tkgnats/tksendpr.tcl
From: |
Michael Richardson |
Subject: |
Changes to gnats/contrib/tkgnats/tksendpr.tcl |
Date: |
Sun, 29 Dec 2002 23:09:12 -0500 |
Index: gnats/contrib/tkgnats/tksendpr.tcl
diff -c gnats/contrib/tkgnats/tksendpr.tcl:1.2
gnats/contrib/tkgnats/tksendpr.tcl:1.3
*** gnats/contrib/tkgnats/tksendpr.tcl:1.2 Wed Oct 27 02:11:58 1999
--- gnats/contrib/tkgnats/tksendpr.tcl Sun Dec 29 23:09:11 2002
***************
*** 533,542 ****
frame .eflds
radiobar_frame .eflds .eflds.lb
foreach {efield elist} [list Class $TkGnats(ClassesList) State
$TkGnats(StatesList) Priority {low medium high} Severity {non-critical serious
critical} Confidential {no yes}] {
if {![check_suppressed_field $efield]} {
! radiobar .eflds.lb [string tolower $efield] $efield $elist None
radiobar_set .eflds.lb [string tolower $efield]
$TkGnats(CreateDefault$efield)
} {
set $efield [lindex $elist 0]
}
--- 533,544 ----
frame .eflds
radiobar_frame .eflds .eflds.lb
+ set panelnum 0
foreach {efield elist} [list Class $TkGnats(ClassesList) State
$TkGnats(StatesList) Priority {low medium high} Severity {non-critical serious
critical} Confidential {no yes}] {
if {![check_suppressed_field $efield]} {
! radiobar .eflds.lb [string tolower $efield] $efield $elist None
"" "" 0 $panelnum
radiobar_set .eflds.lb [string tolower $efield]
$TkGnats(CreateDefault$efield)
+ incr panelnum
} {
set $efield [lindex $elist 0]
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Changes to gnats/contrib/tkgnats/tksendpr.tcl,
Michael Richardson <=