diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-08-29 12:31:41 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-08-29 12:31:41 (GMT) |
commit | 8a165192c2d08763b9540f35e9f2cb4f521b5f5f (patch) | |
tree | cc57fe4b69c24d163afdafa622ef932fa87a475f /library/ttk/notebook.tcl | |
parent | 9900ef4bf9c3880f8d01968600aa70ab2897b8a6 (diff) | |
parent | d1ffebb971d9a844511bf96c8c734b96c0b75424 (diff) | |
download | tk-8a165192c2d08763b9540f35e9f2cb4f521b5f5f.zip tk-8a165192c2d08763b9540f35e9f2cb4f521b5f5f.tar.gz tk-8a165192c2d08763b9540f35e9f2cb4f521b5f5f.tar.bz2 |
rebase to core-8-6-branch.
should now work with TCL_UTF_MAX=4 and TCL_UTF_MAX=6 (not yet with TCL_UTF_MAX=3)
Diffstat (limited to 'library/ttk/notebook.tcl')
-rw-r--r-- | library/ttk/notebook.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/library/ttk/notebook.tcl b/library/ttk/notebook.tcl index 92efe40..72b85e6 100644 --- a/library/ttk/notebook.tcl +++ b/library/ttk/notebook.tcl @@ -70,7 +70,7 @@ proc ttk::notebook::CycleTab {w dir} { } # MnemonicTab $nb $key -- -# Scan all tabs in the specified notebook for one with the +# Scan all tabs in the specified notebook for one with the # specified mnemonic. If found, returns path name of tab; # otherwise returns "" # @@ -94,8 +94,8 @@ proc ttk::notebook::MnemonicTab {nb key} { # Enable keyboard traversal for a notebook widget # by adding bindings to the containing toplevel window. # -# TLNotebooks($top) keeps track of the list of all traversal-enabled -# notebooks contained in the toplevel +# TLNotebooks($top) keeps track of the list of all traversal-enabled +# notebooks contained in the toplevel # proc ttk::notebook::enableTraversal {nb} { variable TLNotebooks @@ -145,7 +145,7 @@ proc ttk::notebook::Cleanup {nb} { } } -# EnclosingNotebook $w -- +# EnclosingNotebook $w -- # Return the nearest traversal-enabled notebook widget # that contains $w. # @@ -171,7 +171,7 @@ proc ttk::notebook::EnclosingNotebook {w} { # TLCycleTab -- # toplevel binding procedure for Control-Tab / Control-Shift-Tab -# Select the next/previous tab in the nearest ancestor notebook. +# Select the next/previous tab in the nearest ancestor notebook. # proc ttk::notebook::TLCycleTab {w dir} { set nb [EnclosingNotebook $w] |