From af479b7b0595881299cbc1a7aa2ffeb18f24ad9c Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 8 Aug 2010 20:08:06 +0100
Subject: [PATCH 1/1] where-vessels: make new comment section for vessel info
 reading etc.

---
 yarrg/where-vessels | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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 "
-- 
2.30.2