diff options
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. |