From fd3a302261f7250696b177cc7cacfd6d729583f7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 25 Jul 1995 20:10:03 +0000 Subject: [PATCH] (x_menubar_window_to_frame): New function. --- src/xfns.c | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) diff --git a/src/xfns.c b/src/xfns.c index 6ad4ed9683..235d6027e2 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -358,6 +358,33 @@ x_non_menubar_window_to_frame (dpyinfo, wdesc) return 0; } +/* Likewise, but consider only the menu bar widget. */ + +struct frame * +x_menubar_window_to_frame (dpyinfo, wdesc) + struct x_display_info *dpyinfo; + int wdesc; +{ + Lisp_Object tail, frame; + struct frame *f; + struct x_display *x; + + for (tail = Vframe_list; GC_CONSP (tail); tail = XCONS (tail)->cdr) + { + frame = XCONS (tail)->car; + if (!GC_FRAMEP (frame)) + continue; + f = XFRAME (frame); + if (f->display.nothing == 1 || FRAME_X_DISPLAY_INFO (f) != dpyinfo) + continue; + x = f->display.x; + /* Match if the window is this frame's menubar. */ + if (lw_window_is_in_menubar (wdesc, x->menubar_widget)) + return f; + } + return 0; +} + /* Return the frame whose principal (outermost) window is WDESC. If WDESC is some other (smaller) window, we return 0. */ -- 2.20.1