Changes to gnats/contrib/tkgnats/tksendpr.tcl

[Michael Richardson]

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