where-vessels: make new comment section for vessel info reading etc.

[ypp-sc-tools.web-live.git] / yarrg / where-vessels

diff --git a/yarrg/where-vessels b/yarrg/where-vessels
index 78342db3076a63e490a13c0a050bc6e6e687c47c..a9c40a3e4ca3f3bb6f54be151bb9c2b5873f6414 100755 (executable)
--- a/yarrg/where-vessels
+++ b/yarrg/where-vessels
@@ -263,7 +263,7 @@ proc display-note-infos {} {
        $infodata
 }
 
-#---------- vessel properties ----------
+#---------- vessel info and icons ----------
 
 proc info-cache-update {} {
     global info_source info_cache
@@ -339,6 +339,8 @@ proc load-icon-combine {args} {
     image create bitmap icon/[join $args +] -data [exec bash -c $cmd]
 }
 
+#---------- vessel properties ----------
+
 proc code-lockown2icon {lockown} {
     manyset [split $lockown ""] lock notown
     set l "