{Show Yours? {For you} Lock Hide} 2 3
set cw [make-smasher xabbrev "Flags" frame]
- foreach ix {1 3} ab {a b} {
+ foreach ix {1 3} ab {a b} width {14 12} {
set vn smash_xabbrev_$ab
global $vn
set $vn {}
- entry $cw.$ix -textvariable $vn -width 14
+ entry $cw.$ix -textvariable $vn -width $width
trace add variable $vn write [list redraw-needed $vn]
}
set ix 0