From fc87556a1d5397a519d3840b2ca91f54a2245360 Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Wed, 3 Jul 2019 16:33:15 -0400
Subject: GUI: lock down geometry at startup so that unneeded configure events
 are not generated, a problem with recent versions of linux

---
 ds9/doc/release/r8.1.html |  1 +
 ds9/library/ds9.tcl       | 17 ++++++++++++++---
 2 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/ds9/doc/release/r8.1.html b/ds9/doc/release/r8.1.html
index 90e4cc2..bf0a72f 100644
--- a/ds9/doc/release/r8.1.html
+++ b/ds9/doc/release/r8.1.html
@@ -86,6 +86,7 @@
 <li><tt>06.19.2019 PREFS: screen for old pbuttons vars which may have been passed along from previous prefs files before processing the buttons.</tt></li>
 <li><tt>07.01.2019 SKYBOT: fixed an issue with keyword EXPTIME/EXP_TIME if present.</tt></li>
 <li><tt>07.01.2019 PLOT3D: simplify code for generating plot3d cursor.</tt></li>
+<li><tt>07.03.2019 GUI: lock down geometry at startup so that unneeded configure events are not generated, a problem with recent versions of linux.</tt></li>
 <li><tt><b>xx.xx.2019 RELEASE version 8.1b2</b></tt></li>
 </ol>
 </div>
diff --git a/ds9/library/ds9.tcl b/ds9/library/ds9.tcl
index 5e4b207..61e3bad 100644
--- a/ds9/library/ds9.tcl
+++ b/ds9/library/ds9.tcl
@@ -578,9 +578,20 @@ after $ds9(msg,timeout) [list ErrorTimer]
 # ok, we're done
 set ds9(init) 0
 
-# major kludge- jump start keyevents for windows
+# major kludges
 switch $ds9(wm) {
-    x11 -
+    x11 {
+	# lock down geometry at statup
+	# so unneeded configure events are not generated
+	# a problem with recent versions of linux
+	wm geometry $ds9(top) "[winfo width $ds9(top)]x[winfo height $ds9(top)]"
+    }
     aqua {}
-    win32 {event generate $ds9(canvas) <Tab> -x 0 -y 0}
+    win32 {
+	# jump start keyevents for windows
+	event generate $ds9(canvas) <Tab> -x 0 -y 0
+    }
 }
+
+
+
-- 
cgit v0.12