From: Po Lu <luangruo@yahoo.com>
Date: Sun, 16 Jan 2022 11:02:58 +0000 (+0000)
Subject: Use kMenuWindowFeel on Haiku toolkip windows
X-Git-Tag: emacs-29.0.90~3011
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5476026119cfe35a4ff7a19f2a828152f56e0b2d;p=emacs.git

Use kMenuWindowFeel on Haiku toolkip windows

* src/haiku_support.cc (BWindow_set_tooltip_decoration): Use
kMenuWindowFeel and set flags here.
* src/haikufns.c (Fx_show_tip): Don't set_avoid_focus manually
since setting tooltip decorations already does that.
---

diff --git a/src/haiku_support.cc b/src/haiku_support.cc
index de2c798b651..22605335c55 100644
--- a/src/haiku_support.cc
+++ b/src/haiku_support.cc
@@ -2224,7 +2224,11 @@ BWindow_set_tooltip_decoration (void *window)
   if (!w->LockLooper ())
     gui_abort ("Failed to lock window while setting ttip decoration");
   w->SetLook (B_BORDERED_WINDOW_LOOK);
-  w->SetFeel (B_FLOATING_APP_WINDOW_FEEL);
+  w->SetFeel (kMenuWindowFeel);
+  w->SetFlags (B_NOT_ZOOMABLE
+	       | B_NOT_MINIMIZABLE
+	       | B_AVOID_FRONT
+	       | B_AVOID_FOCUS);
   w->UnlockLooper ();
 }
 
diff --git a/src/haikufns.c b/src/haikufns.c
index 6a5fdf55485..52bb13bc89b 100644
--- a/src/haikufns.c
+++ b/src/haikufns.c
@@ -2001,7 +2001,6 @@ DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0,
   BWindow_resize (FRAME_HAIKU_WINDOW (tip_f), width, height);
   haiku_set_offset (tip_f, root_x, root_y, 1);
   BWindow_set_tooltip_decoration (FRAME_HAIKU_WINDOW (tip_f));
-  BWindow_set_avoid_focus (FRAME_HAIKU_WINDOW (tip_f), true);
   BView_set_view_cursor (FRAME_HAIKU_VIEW (tip_f),
 			 FRAME_OUTPUT_DATA (XFRAME (frame))->current_cursor);
   SET_FRAME_VISIBLE (tip_f, 1);