summaryrefslogtreecommitdiffstats
path: root/macosx/tkMacOSXMenu.c
diff options
context:
space:
mode:
authorKevin Walzer <kw@codebykevin.com>2014-08-14 02:39:53 (GMT)
committerKevin Walzer <kw@codebykevin.com>2014-08-14 02:39:53 (GMT)
commita5927e8d5f0b12747732ed2d4a6c58ac801314b9 (patch)
tree65a73b098ee88349df2dbcf8ba2f4b2ccb68a39c /macosx/tkMacOSXMenu.c
parentacb6f7b259137644e34ba799e20432a0ced9be0a (diff)
downloadtk-a5927e8d5f0b12747732ed2d4a6c58ac801314b9.zip
tk-a5927e8d5f0b12747732ed2d4a6c58ac801314b9.tar.gz
tk-a5927e8d5f0b12747732ed2d4a6c58ac801314b9.tar.bz2
Allow Tk to post popup menus when Tk app is not frontmost
Diffstat (limited to 'macosx/tkMacOSXMenu.c')
-rw-r--r--macosx/tkMacOSXMenu.c14
1 files changed, 11 insertions, 3 deletions
diff --git a/macosx/tkMacOSXMenu.c b/macosx/tkMacOSXMenu.c
index 380d3a7..e1cdc76 100644
--- a/macosx/tkMacOSXMenu.c
+++ b/macosx/tkMacOSXMenu.c
@@ -757,11 +757,19 @@ TkpPostMenu(
* to be posted. */
int y) /* The global y-coordinate */
{
- NSWindow *win = [NSApp keyWindow];
- if (!win) {
+
+
+ /* Get the object that holds this Tk Window.*/
+ Tk_Window root;
+ root = Tk_MainWindow(interp);
+ if (root == NULL) {
return TCL_ERROR;
}
-
+
+ Drawable d = Tk_WindowId(root);
+ NSView *rootview = TkMacOSXGetRootControl(d);
+ NSWindow *win = [rootview window];
+
inPostMenu = 1;
int oldMode = Tcl_SetServiceMode(TCL_SERVICE_NONE);