From abd929dcd5e2a82db448d3974656cd2da1cb3bf5 Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Fri, 10 Feb 1995 11:23:48 +0000
Subject: [PATCH] Remove now tells the main window that it's gone.  Also, fix
 small typo in click.

---
 lists.tcl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lists.tcl b/lists.tcl
index 3cf729c..af9670b 100644
--- a/lists.tcl
+++ b/lists.tcl
@@ -172,7 +172,7 @@ widget tkinspect_list {
 	}
     }
     method click {x y} {
-	run_command [$self.list get @$x,$y]
+	$self run_command [$self.list get @$x,$y]
     }
     method run_command {item} {
 	if [string length $slot(command)] {
@@ -183,7 +183,8 @@ widget tkinspect_list {
 	}	
     }
     method remove {} {
-	$slot(main) destroy_menu $slot(title)
+	$slot(main) delete_menu $slot(title)
+	$slot(main) delete_list $self
 	object_delete $self
     }
     method edit_filter {} {
-- 
2.23.0