Changes to gnats/contrib/tkgnats/tkquerypr.tcl

[Michael Richardson]

Index: gnats/contrib/tkgnats/tkquerypr.tcl
diff -c gnats/contrib/tkgnats/tkquerypr.tcl:1.5 
gnats/contrib/tkgnats/tkquerypr.tcl:1.6
*** gnats/contrib/tkgnats/tkquerypr.tcl:1.5     Tue Jun 11 23:41:17 2002
--- gnats/contrib/tkgnats/tkquerypr.tcl Wed Dec 18 23:17:54 2002
***************
*** 1863,1875 ****
  pack .mframe.help -side right
  
  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]} {
!         checkbar .eflds.lb [string tolower $efield] $efield $elist All
      }
  }
  pack .eflds -side top  -padx  0 -fill x -anchor w
  
  frame .eboxs    
  set   nboxes 1
--- 1863,1881 ----
  pack .mframe.help -side right
  
  frame .eflds
+ set panelnum 0
  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]} {
!         checkbar .eflds.lb [string tolower $efield] $efield $elist All 
$panelnum
!       incr panelnum
      }
  }
+ pack .eflds.lb -side left -pady 0
  pack .eflds -side top  -padx  0 -fill x -anchor w
+ 
+ #puts stderr [concat "query boxes: " [grid slaves .eflds.lb]]
+ 
  
  frame .eboxs    
  set   nboxes 1