From 38eba430a7fa7359e539d8d435c21fd692b256c6 Mon Sep 17 00:00:00 2001
From: "Eric S. Raymond" <esr@thyrsus.com>
Date: Mon, 17 May 1999 00:39:03 +0000
Subject: Attempt destroy interception.

svn path=/trunk/; revision=2481
---
 fetchmailconf | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'fetchmailconf')

diff --git a/fetchmailconf b/fetchmailconf
index 7bfefe51..daf8c220 100755
--- a/fetchmailconf
+++ b/fetchmailconf
@@ -1432,6 +1432,9 @@ return to the main panel.
 """, width=600).pack(side=TOP)
 	Button(self, text='Quit', fg='blue', command=self.leave).pack()
 
+        # FIXME: This should intercept window-destruction requests.
+        master.protocol("WM_DELETE_WINDOW", self.leave)
+
     def novice(self):
 	self.master.destroy()
 	ConfigurationEdit(Fetchmailrc, self.outfile, Toplevel(), self.onexit).edit('novice')
-- 
cgit v1.2.3