From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 21 Nov 2000 22:26:20 +0000 (+0000)
Subject: (Fx_hide_tip) [USE_LUCID]: Add a hack to redisplay
X-Git-Tag: emacs-pretest-21.0.92~212
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f6c44811e2336379d64cf7dcd5611f2d928ae9f0;p=emacs.git

(Fx_hide_tip) [USE_LUCID]: Add a hack to redisplay
the menu bar when the tooltip is unmapped.
---

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);