From: Po Lu <luangruo@yahoo.com>
Date: Mon, 17 Jan 2022 10:08:04 +0000 (+0000)
Subject: Display override redirect frames in all workspaces on Haiku
X-Git-Tag: emacs-29.0.90~3000
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2fa1eced39f0e1b5495f3c582ee938e1e1dddcaf;p=emacs.git

Display override redirect frames in all workspaces on Haiku

* src/haiku_support.cc (class EmacsWindow): New field
`pre_override_redirect_workspaces'.
(BWindow_set_override_redirect): Set window to display on all
workspaces.
---

diff --git a/src/haiku_support.cc b/src/haiku_support.cc
index 22605335c55..0f4ec2cd7c3 100644
--- a/src/haiku_support.cc
+++ b/src/haiku_support.cc
@@ -406,6 +406,7 @@ public:
   bool menu_bar_active_p = false;
   window_look pre_override_redirect_style;
   window_feel pre_override_redirect_feel;
+  uint32 pre_override_redirect_workspaces;
 
   EmacsWindow () : BWindow (BRect (0, 0, 0, 0), "", B_TITLED_WINDOW_LOOK,
 			    B_NORMAL_WINDOW_FEEL, B_NO_SERVER_SIDE_WINDOW_MODIFIERS)
@@ -3170,11 +3171,14 @@ BWindow_set_override_redirect (void *window, bool override_redirect_p)
 	  w->pre_override_redirect_style = w->Look ();
 	  w->SetFeel (kMenuWindowFeel);
 	  w->SetLook (B_NO_BORDER_WINDOW_LOOK);
+	  w->pre_override_redirect_workspaces = w->Workspaces ();
+	  w->SetWorkspaces (B_ALL_WORKSPACES);
 	}
       else
 	{
 	  w->SetFeel (w->pre_override_redirect_feel);
 	  w->SetLook (w->pre_override_redirect_style);
+	  w->SetWorkspaces (w->pre_override_redirect_workspaces);
 	}
 
       w->UnlockLooper ();