Remove now tells the main window that it's gone. Also, fix small
authorsls <sls>
Fri, 10 Feb 1995 11:23:48 +0000 (11:23 +0000)
committersls <sls>
Fri, 10 Feb 1995 11:23:48 +0000 (11:23 +0000)
typo in click.

lists.tcl

index 3cf729c3214d1888f873b750baafb63102955f6f..af9670b7a9e4f856fba45ade2ed68dba86f92f17 100644 (file)
--- 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 {} {