From 95dd972e629a0a80f36db018a9f4326a8eee4872 Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Thu, 23 Mar 1995 06:57:24 +0000
Subject: [PATCH] Clean up behavoir of filter_editor buttons.

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

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]
-- 
2.23.0