X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fwhere-vessels;h=a9c40a3e4ca3f3bb6f54be151bb9c2b5873f6414;hb=af479b7b0595881299cbc1a7aa2ffeb18f24ad9c;hp=78342db3076a63e490a13c0a050bc6e6e687c47c;hpb=803460a1d33d37939f2d23c8d3fd134d49252465;p=ypp-sc-tools.db-test.git

diff --git a/yarrg/where-vessels b/yarrg/where-vessels
index 78342db..a9c40a3 100755
--- 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 "