From 186d4c1115434be1277119998a0d3a506a47f9f5 Mon Sep 17 00:00:00 2001
From: Matthias Andree <matthias.andree@gmx.de>
Date: Fri, 24 Jan 2020 23:40:42 +0000
Subject: fetchmailconf: Set window icon for window manager.

---
 fetchmailconf.py | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/fetchmailconf.py b/fetchmailconf.py
index 2d7ef19d..eebe4a82 100755
--- a/fetchmailconf.py
+++ b/fetchmailconf.py
@@ -2248,7 +2248,13 @@ COPYING in the source or documentation directory for details.""")
         rcfile = os.environ["HOME"] + "/.fetchmailrc"
 
     # OK, now run the configuration edit
-    root = MainWindow(rcfile)
+    r = Tk()
+
+    # set default icon for window manager,
+    # need to keep a reference so it doesn't get garbage collected:
+    fetchmail_icon_PI = PhotoImage(data=fetchmail_icon)
+    r.call('wm', 'iconphoto', r._w, '-default', fetchmail_icon_PI)
+    root = MainWindow(rcfile, r)
     root.mainloop()
 
 # The following sets edit modes for GNU EMACS
-- 
cgit v1.2.3