diff options
| author | ericm <ericm> | 2000-01-20 02:32:52 (GMT) |
|---|---|---|
| committer | ericm <ericm> | 2000-01-20 02:32:52 (GMT) |
| commit | 028293934889d9f696d2315b98e902adb757bd68 (patch) | |
| tree | c226e1c96528c01c0d44dd63e0384e222e79159f /library/tk.tcl | |
| parent | 595e77e3aea194b7bbbcff1cb6d38f99dcb48007 (diff) | |
| download | tk-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.tcl | 18 |
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 |