chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
where-vessels: smash flags - set width of b string
[ypp-sc-tools.db-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]
{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 {}
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
trace add variable $vn write [list redraw-needed $vn]
}
set ix 0