chiark / gitweb /
where-vessels: smash flags - set width of b string
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sun, 8 Aug 2010 17:29:50 +0000 (18:29 +0100)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sun, 8 Aug 2010 19:59:56 +0000 (20:59 +0100)
yarrg/where-vessels

index c601375..f4fee80 100755 (executable)
@@ -645,11 +645,11 @@ proc make-smashers {} {
        {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