diff options
| -rw-r--r-- | ds9/doc/release/r8.1.html | 1 | ||||
| -rw-r--r-- | 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 + } } + + + |