Changes to gnats/contrib/tkgnats/tkeditpr.tcl

[Michael Richardson]

Index: gnats/contrib/tkgnats/tkeditpr.tcl
diff -c gnats/contrib/tkgnats/tkeditpr.tcl:1.4 
gnats/contrib/tkgnats/tkeditpr.tcl:1.5
*** gnats/contrib/tkgnats/tkeditpr.tcl:1.4      Mon Dec  3 13:02:13 2001
--- gnats/contrib/tkgnats/tkeditpr.tcl  Wed Dec 18 23:17:54 2002
***************
*** 797,802 ****
--- 797,803 ----
          >Audit-Trail
          >Unformatted
          >Release-Note
+       >Cost
      }
      
      # List of entry widgets for traverse key binding
***************
*** 906,919 ****
  
      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] != 1} {
              bagged_radiobar .eflds.lb [string tolower $efield] $efield \
!                     $elist None frm $Tkeditpr(value_width)
          }
      }
      pack .eflds.lb -side left -pady 0
      pack .eflds    -side top  -pady 0 -fill x -anchor w
      
      frame .eboxs
      set   nboxes 1
--- 907,925 ----
  
      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] != 1} {
              bagged_radiobar .eflds.lb [string tolower $efield] $efield \
!                     $elist None frm $Tkeditpr(value_width) $panelnum
!           incr panelnum
          }
      }
      pack .eflds.lb -side left -pady 0
      pack .eflds    -side top  -pady 0 -fill x -anchor w
+ 
+     #puts stderr [concat "This is fun: " [grid slaves .eflds.lb]]
+ 
      
      frame .eboxs
      set   nboxes 1