chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.web-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
WIP icons - new nice icon set
[ypp-sc-tools.web-live.git]
/
yarrg
/
where-vessels
diff --git
a/yarrg/where-vessels
b/yarrg/where-vessels
index 0639d4abba33ecfcc80aa02efded735072da17c6..adf76eb4d23af50e9ed0102106638aaa46c2aba0 100755
(executable)
--- a/
yarrg/where-vessels
+++ b/
yarrg/where-vessels
@@
-692,15
+692,17
@@
proc draw {} {
if {$c > 1} {
set qty [format "%2d" $c]
} else {
if {$c > 1} {
set qty [format "%2d" $c]
} else {
- set qty [format "
99
" $c]
+ set qty [format "
" $c]
}
}
+ regsub {[a-z][a-z]} $text {} text
+
set stackx $x
incr stackx 2
set tid [canvas-horiz-stack stackx $y \
text -anchor nw -font fixed -text $qty]
incr stackx -1
set stackx $x
incr stackx 2
set tid [canvas-horiz-stack stackx $y \
text -anchor nw -font fixed -text $qty]
incr stackx -1
- canvas-horiz-stack stackx [expr {$y+
1
}] \
+ canvas-horiz-stack stackx [expr {$y+
2
}] \
image -anchor nw -image ship-icon/$vc_code2abbrev([lindex [split $code _] 1])
incr stackx
canvas-horiz-stack stackx $y \
image -anchor nw -image ship-icon/$vc_code2abbrev([lindex [split $code _] 1])
incr stackx
canvas-horiz-stack stackx $y \