/[gnats]/gnats/contrib/tkgnats/tkquerypr.tcl
ViewVC logotype

Diff of /gnats/contrib/tkgnats/tkquerypr.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by mcr, Wed Jun 12 03:41:17 2002 UTC revision 1.6 by mcr, Thu Dec 19 04:17:54 2002 UTC
# Line 1863  menu       .mframe.help.m Line 1863  menu       .mframe.help.m
1863  pack .mframe.help -side right  pack .mframe.help -side right
1864    
1865  frame .eflds  frame .eflds
1866    set panelnum 0
1867  radiobar_frame .eflds .eflds.lb  radiobar_frame .eflds .eflds.lb
1868  foreach {efield elist} [list Class $TkGnats(ClassesList) State $TkGnats(StatesList) Priority {low medium high} Severity {non-critical serious critical} Confidential {no yes}] {  foreach {efield elist} [list Class $TkGnats(ClassesList) State $TkGnats(StatesList) Priority {low medium high} Severity {non-critical serious critical} Confidential {no yes}] {
1869      if {![check_suppressed_field $efield]} {      if {![check_suppressed_field $efield]} {
1870          checkbar .eflds.lb [string tolower $efield] $efield $elist All          checkbar .eflds.lb [string tolower $efield] $efield $elist All $panelnum
1871            incr panelnum
1872      }      }
1873  }  }
1874    pack .eflds.lb -side left -pady 0
1875  pack .eflds -side top  -padx  0 -fill x -anchor w  pack .eflds -side top  -padx  0 -fill x -anchor w
1876    
1877    #puts stderr [concat "query boxes: " [grid slaves .eflds.lb]]
1878    
1879    
1880  frame .eboxs      frame .eboxs    
1881  set   nboxes 1  set   nboxes 1
1882  array set xpad {1 0 2 20 3 0}  array set xpad {1 0 2 20 3 0}

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26