From: sls <sls>
Date: Wed, 21 Jun 1995 22:06:33 +0000 (+0000)
Subject: (create): Add "Remove This List" menu item.  (update_needed): check to make
X-Git-Tag: r_5_1_4~20
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=5d053ce0d02911cb8a7176def7d377e5b412d7f1;p=tkinspect

(create): Add "Remove This List" menu item.  (update_needed): check to make
sure window still exists before do_update.
---

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