From e74029a331aeefd4c472110e73d2a57e1e19c6a5 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Sat, 24 Feb 2007 00:02:09 +0000
Subject: 	* library/ttk/notebook.tcl (ttk::notebook::enableTraversal):
 OS X 	needs Option instead of Alt binding

---
 ChangeLog                |  5 +++++
 library/ttk/notebook.tcl | 11 ++++++++---
 2 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 98ae25a..274c65e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-02-23  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* library/ttk/notebook.tcl (ttk::notebook::enableTraversal): OS X
+	needs Option instead of Alt binding
+
 2007-02-19  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* unix/tcl.m4: use SHLIB_SUFFIX=".so" on HP-UX ia64 arch.
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}
     }
 
-- 
cgit v0.12