Lines Matching refs:cur
26 set cur $w
31 set parent $cur
32 set children [winfo children $cur]
40 set cur [lindex $children $i]
41 if {[winfo toplevel $cur] == $cur} {
52 set cur $parent
53 if {[winfo toplevel $cur] == $cur} {
58 set i [lsearch -exact $children $cur]
60 if {($cur == $w) || [tkFocusOK $cur]} {
61 return $cur
78 set cur $w
85 if {[winfo toplevel $cur] == $cur} {
86 set parent $cur
87 set children [winfo children $cur]
90 set parent [winfo parent $cur]
92 set i [lsearch -exact $children $cur]
102 set cur [lindex $children $i]
103 if {[winfo toplevel $cur] == $cur} {
106 set parent $cur
110 set cur $parent
111 if {($cur == $w) || [tkFocusOK $cur]} {
112 return $cur