pack $wb-act.rej
grid $wb-def $wb-image $wb-act $wb-inf -padx 3
- grid configure $wb-image -ipadx 3 -ipady 3
+ grid configure $wb-image -ipadx 3 -ipady 3 -sticky w
lappend approve_ixes $ix
}
eval destroy [winfo children .app]
set approve_ixes {}
- set per_page 2
+ set per_page 10
incr approve_page $delta
set ll [llength $approve_list]