Import build of Tcl/Tk 8.6.9

2018-12-13 14:51:57 -08:00
parent 4ee57ea08c
commit 86027ce3ed
282 changed files with 14926 additions and 11642 deletions
--- a/amd64/lib/tk8.6/menu.tcl
+++ b/amd64/lib/tk8.6/menu.tcl
@@ -609,7 +609,9 @@ proc ::tk::MenuButtonDown menu {
        return
    }
    if {[$menu index active] eq "none"} {
-        set Priv(window) {}
+        if {[$menu cget -type] ne "menubar" } {
+            set Priv(window) {}
+        }
        return
    }
    $menu postcascade active