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(+)
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