vcl: add Window::SetClipboard()

Change-Id: I385f64b7d5015c9a34f34a436b0ee2ce6b3a83d3

include/vcl/window.hxx

@@ -1387,6 +1387,8 @@ public:
 
     // Clipboard/Selection interfaces
     ::com::sun::star::uno::Reference< ::com::sun::star::datatransfer::clipboard::XClipboard > GetClipboard();
+    /// Sets a custom clipboard for the window's frame, instead of creating it on-demand using css::datatransfer::clipboard::SystemClipboard.
+    void SetClipboard(css::uno::Reference<css::datatransfer::clipboard::XClipboard> xClipboard);
     ::com::sun::star::uno::Reference< ::com::sun::star::datatransfer::clipboard::XClipboard > GetPrimarySelection();
 
     /*

vcl/source/window/window.cxx

@@ -3376,6 +3376,12 @@ void Window::ImplCallActivateListeners( vcl::Window *pOld )
     }
 }
 
+void Window::SetClipboard(Reference<XClipboard> xClipboard)
+{
+    if (mpWindowImpl->mpFrameData)
+        mpWindowImpl->mpFrameData->mxClipboard = xClipboard;
+}
+
 Reference< XClipboard > Window::GetClipboard()
 {