summaryrefslogtreecommitdiffstats
path: root/library/tk.tcl
diff options
context:
space:
mode:
authorhobbs <hobbs>2002-10-10 16:34:51 (GMT)
committerhobbs <hobbs>2002-10-10 16:34:51 (GMT)
commitc17e2a7050b97b75517017f4ae70ca0a73c336d0 (patch)
tree2504a75b5909f201990d3b9c31ceea120bb537e7 /library/tk.tcl
parent07bae53a89026d0bc2c8f6635c8586648a52b32e (diff)
downloadtk-c17e2a7050b97b75517017f4ae70ca0a73c336d0.zip
tk-c17e2a7050b97b75517017f4ae70ca0a73c336d0.tar.gz
tk-c17e2a7050b97b75517017f4ae70ca0a73c336d0.tar.bz2
* library/tk.tcl: simplified the adding of extra <ISO_Left_Tab>
and <hpBackTab> events to <<PrevWindow>>.
Diffstat (limited to 'library/tk.tcl')
-rw-r--r--library/tk.tcl20
1 files changed, 7 insertions, 13 deletions
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
}