Lines Matching refs:parent
26 # the parent of the new menu. This guarantees that the torn off
32 set parent [winfo parent $w]
33 while {([winfo toplevel $parent] != $parent)
34 || ([winfo class $parent] == "Menu")} {
35 set parent [winfo parent $parent]
37 if {$parent == "."} {
38 set parent ""
41 set menu $parent.tearoff$i
50 # Pick a title for the new menu by looking at the parent of the
51 # original: if the parent is a menu, then use the text of the active
54 set parent [winfo parent $w]
55 switch [winfo class $parent] {
57 wm title $menu [$parent cget -text]
60 wm title $menu [$parent entrycget active -label]