From 5d053ce0d02911cb8a7176def7d377e5b412d7f1 Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Wed, 21 Jun 1995 22:06:33 +0000
Subject: [PATCH] (create): Add "Remove This List" menu item.  (update_needed):
 check to make sure window still exists before do_update.

---
 lists.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lists.tcl b/lists.tcl
index 5641bb8..b0f552d 100644
--- a/lists.tcl
+++ b/lists.tcl
@@ -162,6 +162,8 @@ widget tkinspect_list {
 	    -command "$self edit_filter"
 	$slot(menu) add command -label "Update This List" -underline 0 \
 	    -command "$self do_update_self"
+	$slot(menu) add command -label "Remove This List" -underline 0 \
+	    -command "$self remove"
     }
     method reconfig {} {
 	$self.title config -text "$slot(title):"
@@ -177,7 +179,7 @@ widget tkinspect_list {
     method update_needed {} {
 	if ![info exists slot(update_pending)] {
 	    set slot(update_pending) 1
-	    after 0 $self do_update
+	    after idle "if \[winfo exists $self\] \"$self do_update\""
 	}	
     }
     method do_update {} {
-- 
2.23.0