diff options
| author | hobbs <hobbs@noemail.net> | 2007-02-24 00:02:08 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2007-02-24 00:02:08 (GMT) |
| commit | 919474c24b079dacb0b4e17a0a3d927592b9fc15 (patch) | |
| tree | 986deef35f0c410b8e6e86a5da9ccf4b9a291698 /library | |
| parent | b296abcd1070a424dce93fcab1c4f5a59459f0bb (diff) | |
| download | tk-919474c24b079dacb0b4e17a0a3d927592b9fc15.zip tk-919474c24b079dacb0b4e17a0a3d927592b9fc15.tar.gz tk-919474c24b079dacb0b4e17a0a3d927592b9fc15.tar.bz2 | |
* library/ttk/notebook.tcl (ttk::notebook::enableTraversal): OS X
needs Option instead of Alt binding
FossilOrigin-Name: e02327e3c9eb9a5be4250a2e0764989581972826
Diffstat (limited to 'library')
| -rw-r--r-- | library/ttk/notebook.tcl | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/library/ttk/notebook.tcl b/library/ttk/notebook.tcl index 9ad6d01..79ed741 100644 --- a/library/ttk/notebook.tcl +++ b/library/ttk/notebook.tcl @@ -1,5 +1,5 @@ # -# $Id: notebook.tcl,v 1.2 2006/11/07 03:45:28 jenglish Exp $ +# $Id: notebook.tcl,v 1.3 2007/02/24 00:02:09 hobbs Exp $ # # Bindings for TNotebook widget # @@ -107,8 +107,13 @@ proc ttk::notebook::enableTraversal {nb} { catch { bind $top <Control-Key-ISO_Left_Tab> {+ttk::notebook::TLCycleTab %W -1} } - bind $top <Alt-KeyPress> \ - +[list ttk::notebook::MnemonicActivation $top %K] + if {[tk windowingsystem] eq "aqua"} { + bind $top <Alt-KeyPress> \ + +[list ttk::notebook::MnemonicActivation $top %K] + } else { + bind $top <Option-KeyPress> \ + +[list ttk::notebook::MnemonicActivation $top %K] + } bind $top <Destroy> {+ttk::notebook::TLCleanup %W} } |