master 2fa1eced39: Display override redirect frames in all workspaces on Haiku

[Po Lu]

branch: master
commit 2fa1eced39f0e1b5495f3c582ee938e1e1dddcaf
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    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.
---
 src/haiku_support.cc | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/haiku_support.cc b/src/haiku_support.cc
index 22605335c5..0f4ec2cd7c 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 ();