X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fwhere-vessels;h=f4fee80f5229325a602e9e53b64cc1fc61377b93;hb=b6919a190cf9ce37ab245d1ec124320ffe49a969;hp=c60137532af0b2dde6fb54ad10db10f4ecc67363;hpb=25bfdb659114a00e7bea79c97d7372e97d99bbe5;p=ypp-sc-tools.db-test.git

diff --git a/yarrg/where-vessels b/yarrg/where-vessels
index c601375..f4fee80 100755
--- 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