797 |
>Audit-Trail |
>Audit-Trail |
798 |
>Unformatted |
>Unformatted |
799 |
>Release-Note |
>Release-Note |
800 |
|
>Cost |
801 |
} |
} |
802 |
|
|
803 |
# List of entry widgets for traverse key binding |
# List of entry widgets for traverse key binding |
907 |
|
|
908 |
frame .eflds |
frame .eflds |
909 |
radiobar_frame .eflds .eflds.lb |
radiobar_frame .eflds .eflds.lb |
910 |
|
set panelnum 0 |
911 |
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}] { |
912 |
if {[check_suppressed_field $efield] != 1} { |
if {[check_suppressed_field $efield] != 1} { |
913 |
bagged_radiobar .eflds.lb [string tolower $efield] $efield \ |
bagged_radiobar .eflds.lb [string tolower $efield] $efield \ |
914 |
$elist None frm $Tkeditpr(value_width) |
$elist None frm $Tkeditpr(value_width) $panelnum |
915 |
|
incr panelnum |
916 |
} |
} |
917 |
} |
} |
918 |
pack .eflds.lb -side left -pady 0 |
pack .eflds.lb -side left -pady 0 |
919 |
pack .eflds -side top -pady 0 -fill x -anchor w |
pack .eflds -side top -pady 0 -fill x -anchor w |
920 |
|
|
921 |
|
#puts stderr [concat "This is fun: " [grid slaves .eflds.lb]] |
922 |
|
|
923 |
|
|
924 |
frame .eboxs |
frame .eboxs |
925 |
set nboxes 1 |
set nboxes 1 |