From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 8 Aug 2010 19:08:06 +0000 (+0100)
Subject: where-vessels: make new comment section for vessel info reading etc.
X-Git-Tag: 6.6.2~10
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=commitdiff_plain;h=af479b7b0595881299cbc1a7aa2ffeb18f24ad9c

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

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 "