Changes to gnats/contrib/tkgnats/tksendpr.tcl

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