From: Po Lu <luangruo@yahoo.com>
Date: Sat, 26 Feb 2022 07:06:55 +0000 (+0000)
Subject: Fix reporting of horizontal scroll bar buttons on Haiku
X-Git-Tag: emacs-29.0.90~2102
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3e9c36e7999356d5d14bd587ce74083c5a2c6512;p=emacs.git

Fix reporting of horizontal scroll bar buttons on Haiku

* haikuterm.c (haiku_read_socket): Use correct values for scroll
bar buttons when the scroll bar is horizontal.
---

diff --git a/src/haikuterm.c b/src/haikuterm.c
index badc3f5801d..357ec8239c5 100644
--- a/src/haikuterm.c
+++ b/src/haikuterm.c
@@ -3163,10 +3163,14 @@ haiku_read_socket (struct terminal *terminal, struct input_event *hold_quit)
 	    switch (b->part)
 	      {
 	      case HAIKU_SCROLL_BAR_UP_BUTTON:
-		inev.part = scroll_bar_up_arrow;
+		inev.part = (bar->horizontal
+			     ? scroll_bar_left_arrow
+			     : scroll_bar_up_arrow);
 		break;
 	      case HAIKU_SCROLL_BAR_DOWN_BUTTON:
-		inev.part = scroll_bar_down_arrow;
+		inev.part = (bar->horizontal
+			     ? scroll_bar_right_arrow
+			     : scroll_bar_down_arrow);
 		break;
 	      }