$infodata
}
-#---------- vessel properties ----------
+#---------- vessel info and icons ----------
proc info-cache-update {} {
global info_source info_cache
image create bitmap icon/[join $args +] -data [exec bash -c $cmd]
}
+#---------- vessel properties ----------
+
proc code-lockown2icon {lockown} {
manyset [split $lockown ""] lock notown
set l "