where-vessels: smash flags - set width of b string

[ypp-sc-tools.web-live.git] / yarrg / where-vessels

diff --git a/yarrg/where-vessels b/yarrg/where-vessels
index c60137532af0b2dde6fb54ad10db10f4ecc67363..f4fee80f5229325a602e9e53b64cc1fc61377b93 100755 (executable)
--- a/yarrg/where-vessels
+++ b/yarrg/where-vessels
@@ -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