From 329fa52f992d17b7af03840eaaa5932ff4763c28 Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Tue, 27 Jun 2017 17:08:37 -0400
Subject: jump start processing keyevents for windows

---
 ds9/library/ds9.tcl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/ds9/library/ds9.tcl b/ds9/library/ds9.tcl
index b9a7ca1..f93aced 100644
--- a/ds9/library/ds9.tcl
+++ b/ds9/library/ds9.tcl
@@ -31,7 +31,6 @@ proc DS9Def {} {
 	aqua {set ds9(times) times}
 	win32 {set ds9(times) times}
     }
-
     set ds9(main) {}
     set ds9(image) {}
     set ds9(canvas) {}
@@ -610,3 +609,9 @@ after $ds9(msg,timeout) [list ErrorTimer]
 # ok, we're done
 set ds9(init) 0
 
+# major kludge- jump start keyevents for windows
+switch $ds9(wm) {
+    x11 -
+    aqua {}
+    win32 {event generate $ds9(canvas) <Tab> -x 0 -y 0}
+}
-- 
cgit v0.12