Lines Matching refs:parent
310 set parent [winfo parent $menu]
311 if {([winfo class $parent] != "Menu")
312 || ![winfo ismapped $parent]} {
315 $parent activate none
316 $parent postcascade none
317 if {![wm overrideredirect $parent]} {
320 set menu $parent
448 && ([winfo class [winfo parent $menu]] == "Menu")
449 && [winfo ismapped [winfo parent $menu]]} {
450 set menu [winfo parent $menu]
538 if {[winfo class [winfo parent $menu]] != "Menu"} {
572 set m2 [winfo parent $menu]
577 # This code unposts any posted submenu in the parent.
593 set buttons [winfo children [winfo parent $w]]
736 set w [winfo parent $w]