Mercurial > emacs
changeset 12656:5beb1d2be5c1
(x_menubar_window_to_frame): New function.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 25 Jul 1995 20:10:03 +0000 |
| parents | 3469b3194164 |
| children | 05b7a5d25df6 |
| files | src/xfns.c |
| diffstat | 1 files changed, 27 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xfns.c Tue Jul 25 19:57:02 1995 +0000 +++ b/src/xfns.c Tue Jul 25 20:10:03 1995 +0000 @@ -358,6 +358,33 @@ 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. */