Update to tk 8.5.19
This commit is contained in:
@@ -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);
|
||||
|
||||
Reference in New Issue
Block a user