From: sls <sls>
Date: Thu, 23 Mar 1995 06:57:24 +0000 (+0000)
Subject: Clean up behavoir of filter_editor buttons.
X-Git-Tag: r5_1_1~35
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=95dd972e629a0a80f36db018a9f4326a8eee4872;p=tkinspect

Clean up behavoir of filter_editor buttons.
---

diff --git a/lists.tcl b/lists.tcl
index 55fc9f3..c5afebd 100644
--- a/lists.tcl
+++ b/lists.tcl
@@ -16,7 +16,7 @@ dialog filter_editor {
         pack $self.top -side top -fill x -pady .25c
         frame $self.buttons -bd 3
         button $self.ok -text "Apply" -command "$self apply"
-        button $self.close -text "Close" -command "wm withdraw $self"
+        button $self.close -text "Cancel" -command "wm withdraw $self"
         button $self.add -text "Add Pattern" \
 	    -command "$self add_pattern"
         button $self.del -text "Delete Pattern(s)" \
@@ -50,6 +50,7 @@ dialog filter_editor {
 	$slot(list) config -patterns $slot(patterns) \
 	    -filter_type $slot(filter_type)
 	$slot(list) update_needed
+	wm withdraw $self
     }
     method add_pattern {} {
 	set pat [$self.e get]