summaryrefslogtreecommitdiffstats
path: root/library/tk.tcl
diff options
context:
space:
mode:
authorericm <ericm>2000-01-20 02:32:52 (GMT)
committerericm <ericm>2000-01-20 02:32:52 (GMT)
commit028293934889d9f696d2315b98e902adb757bd68 (patch)
treec226e1c96528c01c0d44dd63e0384e222e79159f /library/tk.tcl
parent595e77e3aea194b7bbbcff1cb6d38f99dcb48007 (diff)
downloadtk-028293934889d9f696d2315b98e902adb757bd68.zip
tk-028293934889d9f696d2315b98e902adb757bd68.tar.gz
tk-028293934889d9f696d2315b98e902adb757bd68.tar.bz2
* library/tk.tcl: Created a virtual event <<PrevWindow>> for
reverse tab traversals, with one default binding <Shift-Tab>, and OS specific bindings for Linux, HP-UX, and IRIX. (bug #3163)
Diffstat (limited to 'library/tk.tcl')
-rw-r--r--library/tk.tcl18
1 files changed, 16 insertions, 2 deletions
diff --git a/library/tk.tcl b/library/tk.tcl
index dc793e8..5c8e5cc 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.15 1999/12/03 07:15:02 hobbs Exp $
+# RCS: @(#) $Id: tk.tcl,v 1.16 2000/01/20 02:32:52 ericm Exp $
#
# Copyright (c) 1992-1994 The Regents of the University of California.
# Copyright (c) 1994-1996 Sun Microsystems, Inc.
@@ -265,6 +265,19 @@ switch $tcl_platform(platform) {
event add <<Copy>> <Control-Key-c> <Key-F16>
event add <<Paste>> <Control-Key-v> <Key-F18>
event add <<PasteSelection>> <ButtonRelease-2>
+ # Some OS's define a goofy (as in, not <Shift-Tab>) keysym
+ # 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.
+ switch $tcl_platform(os) {
+ "IRIX" -
+ "Linux" {
+ event add <<PrevWindow>> <ISO_Left_Tab>
+ }
+ "HP-UX" {
+ event add <<PrevWindow>> <hpBackTab>
+ }
+ }
trace variable tk_strictMotif w tkEventMotifBindings
set tk_strictMotif $tk_strictMotif
}
@@ -302,8 +315,9 @@ if {[string compare $tcl_platform(platform) "macintosh"] && \
# Default bindings for keyboard traversal.
# ----------------------------------------------------------------------
+event add <<PrevWindow>> <Shift-Tab>
bind all <Tab> {tkTabToWindow [tk_focusNext %W]}
-bind all <Shift-Tab> {tkTabToWindow [tk_focusPrev %W]}
+bind all <<PrevWindow>> {tkTabToWindow [tk_focusPrev %W]}
# tkCancelRepeat --
# This procedure is invoked to cancel an auto-repeat action described