chiark / gitweb /
WIP icons - new nice icon set
[ypp-sc-tools.db-test.git] / yarrg / where-vessels
index 0639d4a..adf76eb 100755 (executable)
@@ -692,15 +692,17 @@ proc draw {} {
        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
-       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 \