From fda0d11cf80a0ae79cb66b4fdcea88481ca5d901 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Thu, 10 Oct 2002 16:34:51 +0000
Subject: 	* library/tk.tcl: simplified the adding of extra
 <ISO_Left_Tab> 	and <hpBackTab> events to <<PrevWindow>>.

---
 ChangeLog      |  3 +++
 library/tk.tcl | 20 +++++++-------------
 2 files changed, 10 insertions(+), 13 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index c371403..a311622 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -9,6 +9,9 @@
 	* win/tkWinImage.c (XGetImage, XGetImageZPixmap): added support
 	for generating ps for embedded windows on canvases.
 
+	* library/tk.tcl: simplified the adding of extra <ISO_Left_Tab>
+	and <hpBackTab> events to <<PrevWindow>>.
+
 2002-10-09  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* unix/README: doc'ed --enable-symbols options.
diff --git a/library/tk.tcl b/library/tk.tcl
index cb6e662..f9abc6c 100644
--- a/library/tk.tcl
+++ b/library/tk.tcl
@@ -3,7 +3,7 @@
 # Initialization script normally executed in the interpreter for each
 # Tk-based application.  Arranges class bindings for widgets.
 #
-# RCS: @(#) $Id: tk.tcl,v 1.44 2002/09/09 23:52:02 hobbs Exp $
+# RCS: @(#) $Id: tk.tcl,v 1.45 2002/10/10 16:34:51 hobbs Exp $
 #
 # Copyright (c) 1992-1994 The Regents of the University of California.
 # Copyright (c) 1994-1996 Sun Microsystems, Inc.
@@ -350,18 +350,12 @@ switch [tk windowingsystem] {
 	# that is returned when the user presses <Shift-Tab>.  In order for
 	# tab traversal to work, we have to add these keysyms to the 
 	# PrevWindow event.
-	# The info exists is necessary, because tcl_platform(os) doesn't
-	# exist in safe interpreters.
-	if {[info exists tcl_platform(os)]} {
-	    switch $tcl_platform(os) {
-		"IRIX"  -
-		"Linux" { event add <<PrevWindow>> <ISO_Left_Tab> }
-		"HP-UX" {
-		    # This seems to be correct on *some* HP systems.
-		    catch { event add <<PrevWindow>> <hpBackTab> }
-		}
-	    }
-	}
+	# We use catch just in case the keysym isn't recognized.
+	# This is needed for XFree86 systems
+	catch { event add <<PrevWindow>> <ISO_Left_Tab> }
+	# This seems to be correct on *some* HP systems.
+	catch { event add <<PrevWindow>> <hpBackTab> }
+
 	trace variable ::tk_strictMotif w ::tk::EventMotifBindings
 	set ::tk_strictMotif $::tk_strictMotif
     }
-- 
cgit v0.12