From 6c9a152ce924835192b2877fbba36071b5e69032 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 8 Aug 2010 13:05:42 +0100
Subject: [PATCH 1/1] where-vessels: control for smash owner

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

diff --git a/yarrg/where-vessels b/yarrg/where-vessels
index b6ca822..f98b0c3 100755
--- a/yarrg/where-vessels
+++ b/yarrg/where-vessels
@@ -439,6 +439,7 @@ proc show-report-decode {code} {
 #---------- smashing ----------
 
 set smash_subclass 0
+set smash_owner 0
 
 proc smash-code {code} {
     manyset [split $code _] inport class subclass lockown xabbrev
@@ -1081,6 +1082,9 @@ proc widgets-setup {} {
     make-radio-smasher subclass Subclass smash_subclass \
 	{Show Normal/LE Hide}
 
+    make-radio-smasher owner Owner smash_owner \
+	{Show Me Lock Hide}
+
     set filterstyle 1
     trace add variable filterstyle write filterstyle-changed
 
-- 
2.30.2