#80699# ::createUnoPage

2 files changed, 29 insertions, 6 deletions

diff --git a/sw/inc/dpage.hxx b/sw/inc/dpage.hxx
index e865bacf36dd..c5bea91f1b2e 100644
--- a/sw/inc/dpage.hxx
+++ b/sw/inc/dpage.hxx
@@ -2,9 +2,9 @@
  *
  *  $RCSfile: dpage.hxx,v $
  *
- *  $Revision: 1.1.1.1 $
+ *  $Revision: 1.2 $
  *
- *  last change: $Author: hr $ $Date: 2000-09-18 17:14:25 $
+ *  last change: $Author: os $ $Date: 2000-11-27 07:48:38 $
  *
  *  The Contents of this file are made available subject to the terms of
  *  either of the following licenses
@@ -71,10 +71,12 @@
 
 class SdrPageGridFrameList;
 class SwDrawDocument;
+class SwDoc;
 
 class SwDPage : public FmFormPage, public SdrObjUserCall
 {
-    SdrPageGridFrameList *pGridLst;
+    SdrPageGridFrameList*   pGridLst;
+    SwDoc&                  rDoc;
 
 public:
     SwDPage(SwDrawDocument& rNewModel, BOOL bMasterPage=FALSE);
@@ -92,6 +94,8 @@ public:
     virtual void SetLinkData( const String& rLinkName, const String& rLinkData );
 
     BOOL RequestHelp( Window* pWindow, SdrView* pView, const HelpEvent& rEvt );
+
+    virtual ::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface > createUnoPage();
 };
 
 #endif     // _DPAGE_HXX
diff --git a/sw/source/core/draw/dpage.cxx b/sw/source/core/draw/dpage.cxx
index 63c735b4b323..5cbd2c28745b 100644
--- a/sw/source/core/draw/dpage.cxx
+++ b/sw/source/core/draw/dpage.cxx
@@ -2,9 +2,9 @@
  *
  *  $RCSfile: dpage.cxx,v $
  *
- *  $Revision: 1.2 $
+ *  $Revision: 1.3 $
  *
- *  last change: $Author: jp $ $Date: 2000-10-20 13:44:04 $
+ *  last change: $Author: os $ $Date: 2000-11-27 07:50:16 $
  *
  *  The Contents of this file are made available subject to the terms of
  *  either of the following licenses
@@ -92,6 +92,9 @@
 #ifndef _DOC_HXX
 #include <doc.hxx>
 #endif
+#ifndef _DOCSH_HXX
+#include <docsh.hxx>
+#endif
 #ifndef _VIEWIMP_HXX
 #include <viewimp.hxx>
 #endif
@@ -143,11 +146,18 @@
 #ifndef _GRFATR_HXX
 #include <grfatr.hxx>
 #endif
+#ifndef _COM_SUN_STAR_DRAWING_XDRAWPAGESUPPLIER_HPP_
+#include <com/sun/star/drawing/XDrawPageSupplier.hpp>
+#endif
 
+using namespace ::com::sun::star::uno;
+using namespace ::com::sun::star::drawing;
+using namespace ::com::sun::star::frame;
 
 SwDPage::SwDPage(SwDrawDocument& rNewModel, BOOL bMasterPage) :
     FmFormPage(rNewModel, 0, bMasterPage),
-    pGridLst( 0 )
+    pGridLst( 0 ),
+    rDoc(rNewModel.GetDoc())
 {
 }
 
@@ -370,6 +380,15 @@ Bug 29593: QuickHelp immer an der MausPosition anzeigen (besonders unter OS/2)
 
     return bWeiter;
 }
+/* -----------------------------27.11.00 07:35--------------------------------
+
+ ---------------------------------------------------------------------------*/
+Reference< XInterface > SwDPage::createUnoPage()
+{
+    Reference<XModel> xModel = rDoc.GetDocShell()->GetBaseModel();
+    Reference<XDrawPageSupplier> xPageSupp(xModel, UNO_QUERY);
+    return xPageSupp->getDrawPage();
+}