summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorhobbs <hobbs>2007-02-24 00:02:09 (GMT)
committerhobbs <hobbs>2007-02-24 00:02:09 (GMT)
commite74029a331aeefd4c472110e73d2a57e1e19c6a5 (patch)
tree986deef35f0c410b8e6e86a5da9ccf4b9a291698 /library
parentc5ef317e991e1a3d1c08be0768d640881660b583 (diff)
downloadtk-e74029a331aeefd4c472110e73d2a57e1e19c6a5.zip
tk-e74029a331aeefd4c472110e73d2a57e1e19c6a5.tar.gz
tk-e74029a331aeefd4c472110e73d2a57e1e19c6a5.tar.bz2
* library/ttk/notebook.tcl (ttk::notebook::enableTraversal): OS X
needs Option instead of Alt binding
Diffstat (limited to 'library')
-rw-r--r--library/ttk/notebook.tcl11
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}
}