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