diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-03-17 14:38:38 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-03-17 14:38:38 (GMT) |
| commit | 5e6f3c98c6c205a892d9937e3cae41afbfeb8ed7 (patch) | |
| tree | d271e7435c81d56031a86ef72b5e9eeb7bc78c4b | |
| parent | 73d7b5a4a33feff5320dd0cd0f8a0fb618099b23 (diff) | |
| parent | 8201f9a9e37a538a0292247b524c7db7bb8115cd (diff) | |
| download | tk-bug_3216070.zip tk-bug_3216070.tar.gz tk-bug_3216070.tar.bz2 | |
merge core-8-5-branchbug_3216070
| -rw-r--r-- | library/tearoff.tcl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/library/tearoff.tcl b/library/tearoff.tcl index e5ab02d..8f166ce 100644 --- a/library/tearoff.tcl +++ b/library/tearoff.tcl @@ -81,6 +81,11 @@ proc ::tk::TearOffMenu {w {x 0} {y 0}} { } if {[tk windowingsystem] eq "win32"} { + # [Bug 3181181]: Find the toplevel window for the menu + set parent [winfo toplevel $parent] + while {[winfo class $parent] eq "Menu"} { + set parent [winfo toplevel [winfo parent $parent]] + } wm transient $menu [winfo toplevel $parent] wm attributes $menu -toolwindow 1 } |