[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Changes to gnats/contrib/tkgnats/tkeditpr.tcl
From: |
Michael Richardson |
Subject: |
Changes to gnats/contrib/tkgnats/tkeditpr.tcl |
Date: |
Wed, 18 Dec 2002 23:17:54 -0500 |
Index: gnats/contrib/tkgnats/tkeditpr.tcl
diff -c gnats/contrib/tkgnats/tkeditpr.tcl:1.4
gnats/contrib/tkgnats/tkeditpr.tcl:1.5
*** gnats/contrib/tkgnats/tkeditpr.tcl:1.4 Mon Dec 3 13:02:13 2001
--- gnats/contrib/tkgnats/tkeditpr.tcl Wed Dec 18 23:17:54 2002
***************
*** 797,802 ****
--- 797,803 ----
>Audit-Trail
>Unformatted
>Release-Note
+ >Cost
}
# List of entry widgets for traverse key binding
***************
*** 906,919 ****
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] != 1} {
bagged_radiobar .eflds.lb [string tolower $efield] $efield \
! $elist None frm $Tkeditpr(value_width)
}
}
pack .eflds.lb -side left -pady 0
pack .eflds -side top -pady 0 -fill x -anchor w
frame .eboxs
set nboxes 1
--- 907,925 ----
frame .eflds
radiobar_frame .eflds .eflds.lb
+ set panelnum 0
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] != 1} {
bagged_radiobar .eflds.lb [string tolower $efield] $efield \
! $elist None frm $Tkeditpr(value_width) $panelnum
! incr panelnum
}
}
pack .eflds.lb -side left -pady 0
pack .eflds -side top -pady 0 -fill x -anchor w
+
+ #puts stderr [concat "This is fun: " [grid slaves .eflds.lb]]
+
frame .eboxs
set nboxes 1
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Changes to gnats/contrib/tkgnats/tkeditpr.tcl,
Michael Richardson <=