aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEric S. Raymond <esr@thyrsus.com>1999-05-17 14:48:10 +0000
committerEric S. Raymond <esr@thyrsus.com>1999-05-17 14:48:10 +0000
commitf3180afca8b631a8b35e056814e9e2d3ef894101 (patch)
tree27c366e5a19d3088922dde34ff26eecf64374163
parent38eba430a7fa7359e539d8d435c21fd692b256c6 (diff)
downloadfetchmail-f3180afca8b631a8b35e056814e9e2d3ef894101.tar.gz
fetchmail-f3180afca8b631a8b35e056814e9e2d3ef894101.tar.bz2
fetchmail-f3180afca8b631a8b35e056814e9e2d3ef894101.zip
Fix fetchmailconf to handle window-manager destroy notifications.
svn path=/trunk/; revision=2482
-rw-r--r--NEWS1
-rwxr-xr-xfetchmailconf3
2 files changed, 2 insertions, 2 deletions
diff --git a/NEWS b/NEWS
index 6eff8b4d..c14ae3cd 100644
--- a/NEWS
+++ b/NEWS
@@ -14,6 +14,7 @@ fetchmail-5.1.0 ():
* Fix yet another annoying qmail \n bug (thanks to Paul Gilmore).
* There is now a documented return code 13 for termination on fetchlimit.
* Added qpopper 2.53 warning to the FAQ and fetchmailconf.
+* Fix fetchmailconf to handle window-manager destroy notifications.
There are 260 people on fetchmail-friends and 387 on fetchmail-announce.
diff --git a/fetchmailconf b/fetchmailconf
index daf8c220..25b88e8f 100755
--- a/fetchmailconf
+++ b/fetchmailconf
@@ -647,6 +647,7 @@ class ConfigurationEdit(Frame, MyWidget):
Frame.__init__(self, self.container)
self.master.title('fetchmail ' + self.mode + ' configurator');
self.master.iconname('fetchmail ' + self.mode + ' configurator');
+ self.master.protocol('WM_DELETE_WINDOW', self.nosave)
self.keepalive = [] # Use this to anchor the PhotoImage object
make_icon_window(self, fetchmail_gif)
Pack.config(self)
@@ -1431,8 +1432,6 @@ Or you can just select `Quit' to leave the configurator now and
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):