chiark
/
gitweb
/
~ijackson
/
ypp-sc-tools.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
where-vessels: make new comment section for vessel info reading etc.
[ypp-sc-tools.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
}
$infodata
}
-#---------- vessel
propertie
s ----------
+#---------- vessel
info and icon
s ----------
proc info-cache-update {} {
global info_source info_cache
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]
}
image create bitmap icon/[join $args +] -data [exec bash -c $cmd]
}
+#---------- vessel properties ----------
+
proc code-lockown2icon {lockown} {
manyset [split $lockown ""] lock notown
set l "
proc code-lockown2icon {lockown} {
manyset [split $lockown ""] lock notown
set l "