diff options
| author | jenglish <jenglish@flightlab.com> | 2006-11-07 03:45:27 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2006-11-07 03:45:27 (GMT) |
| commit | 643b19451d3b2bd1e080733c4c93c5a9daaad63a (patch) | |
| tree | 8067b063a85bcd662fa0771dc6b6ab068aa3f9f3 /library/ttk/notebook.tcl | |
| parent | 4e674e6b1ec465975a7138542ed175cc6f9acda3 (diff) | |
| download | tk-643b19451d3b2bd1e080733c4c93c5a9daaad63a.zip tk-643b19451d3b2bd1e080733c4c93c5a9daaad63a.tar.gz tk-643b19451d3b2bd1e080733c4c93c5a9daaad63a.tar.bz2 | |
Miscellaneous minor changes to re-sync Ttk codebase with Tile CVS:
fix comments damaged by overzealous search-and-destroy;
removed obsolete [style default] synonym for [ttk::style configure];
removed other dead code.
Diffstat (limited to 'library/ttk/notebook.tcl')
| -rw-r--r-- | library/ttk/notebook.tcl | 20 |
1 files changed, 1 insertions, 19 deletions
diff --git a/library/ttk/notebook.tcl b/library/ttk/notebook.tcl index d2edddc..9ad6d01 100644 --- a/library/ttk/notebook.tcl +++ b/library/ttk/notebook.tcl @@ -1,5 +1,5 @@ # -# $Id: notebook.tcl,v 1.1 2006/10/31 01:42:27 hobbs Exp $ +# $Id: notebook.tcl,v 1.2 2006/11/07 03:45:28 jenglish Exp $ # # Bindings for TNotebook widget # @@ -39,24 +39,6 @@ proc ttk::notebook::ActivateTab {w tab} { } } -# ttk::focusFirst $w -- -# Return the first descendant of $w, in preorder traversal order, -# that can take keyboard focus, "" if none do. -# -# See also: tk_focusNext -# -proc ttk::focusFirst {w} { - if {[ttk::takesFocus $w]} { - return $w - } - foreach child [winfo children $w] { - if {[set c [ttk::focusFirst $child]] ne ""} { - return $c - } - } - return "" -} - # Press $nb $x $y -- # ButtonPress-1 binding for notebook widgets. # Activate the tab under the mouse cursor, if any. |