Subject: bug#70138: Do not intercept C-TAB on Haiku OS

From: Tor-björn Claesson <[email-masked]>
Date: Wed, 03 Apr 2024 11:48:55 +0300

Hi!

Thanks for the feedback!

I have updated the patch and commit message, and am happy to fix it
further if needed.

>From 3007bb534c36deacbbc667b9eb2989cadde16270 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Tor-bj=C3=B6rn=20Claesson?= <[email-masked]>
Date: Wed, 3 Apr 2024 10:25:59 +0300
Subject: [PATCH] New variable haiku-pass-control-tab-to-system

Allow passing C-TAB on to the Haiku operating system, fixing window
switching when  an Emacs frame has focus (Bug#70138).
* src/haiku_support.cc (DispatchMessage): conditionally pass message to
BWindow.
* src/haiku_support.h:
* src/haikufns.c (haiku_should_pass_control_tab_to_system):
Add variable haiku-pass-control-tab-to-system, and c function
haiku_should_pass_control_tab_to_system.

Co-authored-by: Po Lu <[email-masked]>
Copyright-paperwork-exempt: yes
---
 etc/NEWS             |  5 +++++
 src/haiku_support.cc |  7 +++++++
 src/haiku_support.h  |  2 ++
 src/haikufns.c       | 14 ++++++++++++++
 4 files changed, 28 insertions(+)

diff --git a/etc/NEWS b/etc/NEWS
index 2654d9d7995..32cec82f970 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1916,6 +1916,11 @@ The new function 'haiku-notifications-notify' provides a subset of the
 capabilities of the 'notifications-notify' function in a manner
 analogous to 'w32-notification-notify'.
 
+** New variable 'haiku-pass-control-tab-to-system'.
+This sets whether Emacs should pass C-TAB on to the system instead of
+handling it, fixing a problem where window switching would not activate
+if an Emacs frame had focus on the Haiku operation system.
+
 +++
 ** New value 'if-regular' for the REPLACE argument to 'insert-file-contents'.
 It results in 'insert-file-contents' erasing the buffer instead of
diff --git a/src/haiku_support.cc b/src/haiku_support.cc
index 1b9c5acdf14..a87ba0a08e3 100644
--- a/src/haiku_support.cc
+++ b/src/haiku_support.cc
@@ -1063,6 +1063,13 @@ class EmacsWindow : public BWindow
 
 	uint32_t mods = modifiers ();
 
+        if (haiku_should_pass_control_tab_to_system()
+            && (mods & B_CONTROL_KEY) && key == 38)
+        {
+          BWindow::DispatchMessage (msg, handler);
+          return;
+        }
+
 	if (mods & B_SHIFT_KEY)
 	  rq.modifiers |= HAIKU_MODIFIER_SHIFT;
 
diff --git a/src/haiku_support.h b/src/haiku_support.h
index e9ac7005d75..6c0e5fa7acd 100644
--- a/src/haiku_support.h
+++ b/src/haiku_support.h
@@ -691,6 +691,8 @@ extern int be_get_display_color_cells (void);
 extern bool be_is_display_grayscale (void);
 extern void be_warp_pointer (int, int);
 
+extern bool haiku_should_pass_control_tab_to_system (void);
+
 extern void EmacsView_set_up_double_buffering (void *);
 extern void EmacsView_disable_double_buffering (void *);
 extern void EmacsView_flip_and_blit (void *);
diff --git a/src/haikufns.c b/src/haikufns.c
index 173c1e369df..00293194a41 100644
--- a/src/haikufns.c
+++ b/src/haikufns.c
@@ -2194,6 +2194,12 @@ haiku_set_use_frame_synchronization (struct frame *f, Lisp_Object arg,
   be_set_use_frame_synchronization (FRAME_HAIKU_VIEW (f), !NILP (arg));
 }
 
+bool
+haiku_should_pass_control_tab_to_system (void)
+{
+  return haiku_pass_control_tab_to_system;
+}
+
 
 
 DEFUN ("haiku-set-mouse-absolute-pixel-position",
@@ -3302,6 +3308,14 @@ syms_of_haikufns (void)
 	       doc: /* SKIP: real doc in xfns.c.  */);
   Vx_sensitive_text_pointer_shape = Qnil;
 
+  DEFVAR_BOOL("haiku-pass-control-tab-to-system",
+	      haiku_pass_control_tab_to_system,
+	      doc: /*Whether or not to pass C-TAB to the system.
+Setting this variable will cause Emacs to pass C-TAB to the system
+(allowing window switching on the Haiku operating system), rather than
+intercepting it.*/);
+  haiku_pass_control_tab_to_system = true;
+
   DEFVAR_LISP ("haiku-allowed-ui-colors", Vhaiku_allowed_ui_colors,
 	       doc: /* Vector of UI colors that Emacs can look up from the system.
 If this is set up incorrectly, Emacs can crash when encountering an
-- 
2.39.2

Cheers,
Tor-björn Claesson