Update to tk 8.5.19

This commit is contained in:
Zachary Ware
2017-11-24 17:53:51 -06:00
parent 27e7dfc7da
commit c67b328f06
325 changed files with 12511 additions and 12047 deletions

View File

@@ -934,9 +934,14 @@ MenuWidgetObjCmd(
* Tearoff menus are posted differently on Mac and Windows than
* non-tearoffs. TkpPostMenu does not actually map the menu's window
* on those platforms, and popup menus have to be handled specially.
* Also, menubar menues are not intended to be posted (bug 1567681,
* 2160206).
*/
if (menuPtr->menuType != TEAROFF_MENU) {
if (menuPtr->menuType == MENUBAR) {
Tcl_AppendResult(interp, "a menubar menu cannot be posted", NULL);
return TCL_ERROR;
} else if (menuPtr->menuType != TEAROFF_MENU) {
result = TkpPostMenu(interp, menuPtr, x, y);
} else {
result = TkPostTearoffMenu(interp, menuPtr, x, y);
@@ -1461,13 +1466,14 @@ DestroyMenuEntry(
}
}
UnhookCascadeEntry(mePtr);
menuRefPtr = mePtr->childMenuRefPtr;
if (menuRefPtr != NULL) {
if (menuRefPtr->menuPtr == destroyThis) {
menuRefPtr->menuPtr = NULL;
}
if (destroyThis != NULL) {
TkDestroyMenu(destroyThis);
}
}
if (destroyThis != NULL) {
TkDestroyMenu(destroyThis);
}
} else {
UnhookCascadeEntry(mePtr);