From: Po Lu <luangruo@yahoo.com>
Date: Sun, 13 Mar 2022 12:53:01 +0000 (+0000)
Subject: Fix pointer event tracking on top of Haiku scroll bars
X-Git-Tag: emacs-29.0.90~1931^2~1154
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ab04b59b14d56468fcb28a142278fb1b1666b86;p=emacs.git

Fix pointer event tracking on top of Haiku scroll bars

* src/haiku_support.cc (MouseDown): Set correct mouse event mask
in case the scroll bar widget decides to not do that.
---

diff --git a/src/haiku_support.cc b/src/haiku_support.cc
index a14600cb338..9c9aa7f35bf 100644
--- a/src/haiku_support.cc
+++ b/src/haiku_support.cc
@@ -1817,6 +1817,9 @@ public:
     rq.window = Window ();
     rq.scroll_bar = this;
 
+    SetMouseEventMask (B_POINTER_EVENTS, (B_SUSPEND_VIEW_FOCUS
+					  | B_LOCK_WINDOW_FOCUS));
+
     haiku_write (SCROLL_BAR_DRAG_EVENT, &rq);
 
   out: