diff options
| author | das <das> | 2007-02-24 09:15:07 (GMT) |
|---|---|---|
| committer | das <das> | 2007-02-24 09:15:07 (GMT) |
| commit | 33432c59af4ba34defb03b255dad42030e7db41e (patch) | |
| tree | f3af2a8683aa3f31e362afb4b816c5bddc7b5e13 | |
| parent | e74029a331aeefd4c472110e73d2a57e1e19c6a5 (diff) | |
| download | tk-33432c59af4ba34defb03b255dad42030e7db41e.zip tk-33432c59af4ba34defb03b255dad42030e7db41e.tar.gz tk-33432c59af4ba34defb03b255dad42030e7db41e.tar.bz2 | |
inverted logic in previous commit
| -rw-r--r-- | library/ttk/notebook.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/ttk/notebook.tcl b/library/ttk/notebook.tcl index 79ed741..4fe58cc 100644 --- a/library/ttk/notebook.tcl +++ b/library/ttk/notebook.tcl @@ -1,5 +1,5 @@ # -# $Id: notebook.tcl,v 1.3 2007/02/24 00:02:09 hobbs Exp $ +# $Id: notebook.tcl,v 1.4 2007/02/24 09:15:07 das Exp $ # # Bindings for TNotebook widget # @@ -108,10 +108,10 @@ proc ttk::notebook::enableTraversal {nb} { bind $top <Control-Key-ISO_Left_Tab> {+ttk::notebook::TLCycleTab %W -1} } if {[tk windowingsystem] eq "aqua"} { - bind $top <Alt-KeyPress> \ + bind $top <Option-KeyPress> \ +[list ttk::notebook::MnemonicActivation $top %K] } else { - bind $top <Option-KeyPress> \ + bind $top <Alt-KeyPress> \ +[list ttk::notebook::MnemonicActivation $top %K] } bind $top <Destroy> {+ttk::notebook::TLCleanup %W} |