Imported Tk 8.6.9

2018-12-11 10:05:28 -08:00
parent 753ac6b037
commit 5ba5cbc9af
184 changed files with 6223 additions and 1994 deletions
--- a/library/menu.tcl
+++ b/library/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