Cross Reference: /ast/src/lib/libtk/library/focus.tcl

Lines Matching refs:children

32 	set children [winfo children $cur]
39 	    if {$i < [llength $children]} {
40 		set cur [lindex $children $i]
57 	    set children [winfo children $parent]
58 	    set i [lsearch -exact $children $cur]
87 	    set children [winfo children $cur]
88 	    set i [llength $children]
91 	    set children [winfo children $parent]
92 	    set i [lsearch -exact $children $cur]
102 	    set cur [lindex $children $i]
107 	    set children [winfo children $parent]
108 	    set i [llength $children]