From: sls <sls>
Date: Fri, 10 Feb 1995 11:23:48 +0000 (+0000)
Subject: Remove now tells the main window that it's gone.  Also, fix small
X-Git-Tag: r5_1_1~60
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=abd929dcd5e2a82db448d3974656cd2da1cb3bf5;p=tkinspect

Remove now tells the main window that it's gone.  Also, fix small
typo in click.
---

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 {} {