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

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

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

revision 1.4 by mcr, Mon Dec 3 18:02:13 2001 UTC revision 1.5 by mcr, Thu Dec 19 04:17:54 2002 UTC
# Line 797  proc edit_window {} { Line 797  proc edit_window {} {
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
# Line 906  proc edit_window {} { Line 907  proc edit_window {} {
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

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

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