From f6c44811e2336379d64cf7dcd5611f2d928ae9f0 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 21 Nov 2000 22:26:20 +0000 Subject: [PATCH] (Fx_hide_tip) [USE_LUCID]: Add a hack to redisplay the menu bar when the tooltip is unmapped. --- src/xfns.c | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) diff --git a/src/xfns.c b/src/xfns.c index a9750be61f7..5132cd17df5 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -10678,11 +10678,30 @@ Value is t is tooltip was open, nil otherwise.") if (tip_frame) { Lisp_Object frame; - + XSETFRAME (frame, tip_frame); Fdelete_frame (frame, Qt); tip_frame = NULL; deleted_p = 1; + +#ifdef USE_LUCID + /* Bloodcurdling hack alert: The Lucid menu bar widget's + redisplay procedure is not called when a tip frame over menu + items is unmapped. Redisplay the menu manually... */ + { + struct frame *f = SELECTED_FRAME (); + Widget w = f->output_data.x->menubar_widget; + extern void xlwmenu_redisplay P_ ((Widget)); + + if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f)->screen) + && w != None) + { + BLOCK_INPUT; + xlwmenu_redisplay (w); + UNBLOCK_INPUT; + } + } +#endif /* USE_LUCID */ } return unbind_to (count, deleted_p ? Qt : Qnil); -- 2.39.2