diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-07-03 20:33:15 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-07-03 20:33:15 (GMT) |
| commit | fc87556a1d5397a519d3840b2ca91f54a2245360 (patch) | |
| tree | 042ff1fff74f3608dc1a1690df2eefc64d96574c /ds9/library/ds9.tcl | |
| parent | 5c755f07975554e5cfb83edb76b8383d18fc1fe0 (diff) | |
| download | blt-fc87556a1d5397a519d3840b2ca91f54a2245360.zip blt-fc87556a1d5397a519d3840b2ca91f54a2245360.tar.gz blt-fc87556a1d5397a519d3840b2ca91f54a2245360.tar.bz2 | |
GUI: lock down geometry at startup so that unneeded configure events are not generated, a problem with recent versions of linux
Diffstat (limited to 'ds9/library/ds9.tcl')
| -rw-r--r-- | ds9/library/ds9.tcl | 17 |
1 files changed, 14 insertions, 3 deletions
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 + } } + + + |