toolkit/workben/unodialog.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: unodialog.cxx,v $
  10  * $Revision: 1.15 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_toolkit.hxx"
  33 #include <tools/svwin.h>
  34 #include <sal/main.h>
  35 #include <com/sun/star/awt/XToolkit.hpp>
  36 #include <com/sun/star/lang/XMultiServiceFactory.hpp>
  37 #include <com/sun/star/beans/XPropertySet.hpp>
  38 #include <com/sun/star/container/XNameContainer.hpp>
  39 #include <com/sun/star/awt/XControlModel.hpp>
  40 #include <com/sun/star/awt/XControlContainer.hpp>
  41 #include <com/sun/star/awt/XControl.hpp>
  42 #include <com/sun/star/awt/XDialog.hpp>
  43
  44
  45 #include <tools/debug.hxx>
  46 #include <vcl/svapp.hxx>
  47 #include <vcl/wrkwin.hxx>
  48
  49 #include <svtools/unoiface.hxx> // InitExtToolkit
  50 #include <comphelper/processfactory.hxx>
  51
  52 #include <cppuhelper/servicefactory.hxx>
  53 #include <cppuhelper/bootstrap.hxx>
  54 #include <comphelper/regpathhelper.hxx>
  55
  56 #include <com/sun/star/lang/XInitialization.hpp>
  57 #include <com/sun/star/registry/XSimpleRegistry.hpp>
  58
  59
  60 using namespace ::com::sun::star;
  61 using namespace ::com::sun::star::connection;
  62 using namespace ::vos;
  63 using namespace ::rtl;
  64 using namespace ::com::sun::star::uno;
  65 using namespace ::com::sun::star::registry;
  66 using namespace ::com::sun::star::lang;
  67
  68
  69
  70 ::com::sun::star::uno::Reference< ::com::sun::star::lang::XMultiServiceFactory > createApplicationServiceManager()
  71 {
  72     try
  73     {
  74         ::rtl::OUString localRegistry = ::comphelper::getPathToUserRegistry();
  75         ::rtl::OUString systemRegistry = ::comphelper::getPathToSystemRegistry();
  76
  77         Reference< XSimpleRegistry > xLocalRegistry( ::cppu::createSimpleRegistry() );
  78         Reference< XSimpleRegistry > xSystemRegistry( ::cppu::createSimpleRegistry() );
  79         if ( xLocalRegistry.is() && (localRegistry.getLength() > 0) )
  80         {
  81             try
  82             {
  83                 xLocalRegistry->open( localRegistry, sal_False, sal_True);
  84             }
  85             catch ( InvalidRegistryException& )
  86             {
  87             }
  88
  89             if ( !xLocalRegistry->isValid() )
  90                 xLocalRegistry->open(localRegistry, sal_True, sal_True);
  91         }
  92
  93         if ( xSystemRegistry.is() && (systemRegistry.getLength() > 0) )
  94             xSystemRegistry->open( systemRegistry, sal_True, sal_False);
  95
  96         if ( (xLocalRegistry.is() && xLocalRegistry->isValid()) &&
  97              (xSystemRegistry.is() && xSystemRegistry->isValid()) )
  98         {
  99             Reference < XSimpleRegistry > xReg( ::cppu::createNestedRegistry() );
 100             Sequence< Any > seqAnys(2);
 101             seqAnys[0] <<= xLocalRegistry ;
 102             seqAnys[1] <<= xSystemRegistry ;
 103             Reference< XInitialization > xInit( xReg, UNO_QUERY );
 104             xInit->initialize( seqAnys );
 105
 106             Reference< XComponentContext > xContext( ::cppu::bootstrap_InitialComponentContext( xReg ) );
 107             return Reference< XMultiServiceFactory >( xContext->getServiceManager(), UNO_QUERY );
 108         }
 109     }
 110     catch( ::com::sun::star::uno::Exception& )
 111     {
 112     }
 113
 114     return ::cppu::createServiceFactory();
 115 }
 116
 117
 118 // -----------------------------------------------------------------------
 119 void Main( const ::com::sun::star::uno::Reference< ::com::sun::star::lang::XMultiServiceFactory > & );
 120
 121 SAL_IMPLEMENT_MAIN()
 122 {
 123     ::com::sun::star::uno::Reference< ::com::sun::star::lang::XMultiServiceFactory >  xMSF = createApplicationServiceManager();
 124     //SVInit( xMSF );
 125     ::Main( xMSF );
 126     //SVDeinit();
 127     return NULL;
 128 }
 129
 130 /*
 131 class MyApp : public Application
 132 {
 133 public:
 134     void        Main()
 135     {
 136         ::com::sun::star::uno::Reference< ::com::sun::star::lang::XMultiServiceFactory >  xMSF = createApplicationServiceManager();
 137         ::Main( xMSF );
 138     }
 139 };
 140
 141 MyApp aMyApp;
 142 */
 143
 144
 145 class MyWin : public WorkWindow
 146 {
 147 private:
 148     uno::Reference< awt::XView > mxView;
 149
 150 public:
 151     MyWin() : WorkWindow( NULL, WB_APP|WB_STDWORK ) {;}
 152     void        Paint( const Rectangle& r );
 153     void                SetXView(  uno::Reference< awt::XView > xV  ) { mxView = xV; }
 154 };
 155
 156
 157 // -----------------------------------------------------------------------
 158
 159 void Main( const ::com::sun::star::uno::Reference< ::com::sun::star::lang::XMultiServiceFactory > & xMSF )
 160 {
 161     ::comphelper::setProcessServiceFactory( xMSF );
 162
 163     //uno::Reference< awt::XToolkit> xToolkit( xMSF->createInstance( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.ExtToolkit" ) ) ), uno::UNO_QUERY );
 164     uno::Reference< awt::XToolkit> xToolkit( xMSF->createInstance( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.Toolkit" ) ) ), uno::UNO_QUERY );
 165
 166     // Create a DialogModel
 167     uno::Reference< container::XNameContainer > xC( xMSF->createInstance( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialogModel" ) ) ), uno::UNO_QUERY );
 168     uno::Reference< lang::XMultiServiceFactory >  xModFact( xC, uno::UNO_QUERY );
 169
 170     // Create a ButtonModel
 171     uno::Reference< awt::XControlModel > xCtrl1( xModFact->createInstance( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlButtonModel" ) ) ), uno::UNO_QUERY );
 172     uno::Reference< beans::XPropertySet > xPSet( xCtrl1, uno::UNO_QUERY );
 173     uno::Any aValue;
 174     aValue <<= (sal_Int32) 10;
 175     xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "PositionX" ) ), aValue );
 176     aValue <<= (sal_Int32) 10;
 177     xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "PositionY" ) ), aValue );
 178     aValue <<= (sal_Int32) 40;
 179     xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Width" ) ), aValue );
 180     aValue <<= (sal_Int32) 12;
 181     xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Height" ) ), aValue );
 182     aValue <<= ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Test!" ) );
 183     xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Label" ) ), aValue );
 184     uno::Any aAny;
 185     aAny <<= xCtrl1;
 186     xC->insertByName( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Control1" ) ), aAny );
 187
 188     uno::Reference< beans::XPropertySet > xDlgPSet( xC, uno::UNO_QUERY );
 189     aValue <<= ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Test-Dialog" ) );
 190     xDlgPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Title" ) ), aValue );
 191     aValue <<= (sal_Int32) 200;
 192     xDlgPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Width" ) ), aValue );
 193     aValue <<= (sal_Int32) 200;
 194     xDlgPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Height" ) ), aValue );
 195
 196     // Create a Dialog
 197     uno::Reference< awt::XControl > xDlg( xMSF->createInstance( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialog" ) ) ), uno::UNO_QUERY );
 198     uno::Reference< awt::XControlModel > xDlgMod( xC, uno::UNO_QUERY );
 199     xDlg->setModel( xDlgMod );
 200
 201      // Create a EditModel
 202     uno::Reference< awt::XControlModel > xCtrl2( xModFact->createInstance( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlEditModel" ) ) ), uno::UNO_QUERY );
 203     xPSet = uno::Reference< beans::XPropertySet >( xCtrl2, uno::UNO_QUERY );
 204     aValue <<= (sal_Int32) 10;
 205     xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "PositionX" ) ), aValue );
 206     aValue <<= (sal_Int32) 40;
 207     xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "PositionY" ) ), aValue );
 208     aValue <<= (sal_Int32) 80;
 209     xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Width" ) ), aValue );
 210     aValue <<= (sal_Int32) 12;
 211     xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Height" ) ), aValue );
 212     aValue <<= ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Text..." ) );
 213     xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Text" ) ), aValue );
 214     aAny <<= xCtrl2;
 215     xC->insertByName( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Control2" ) ), aAny );
 216
 217     // test if listener works...
 218     aValue <<= (sal_Int32) 20;
 219     xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "PositionX" ) ), aValue );
 220
 221     MyWin * pWindow;
 222     ::osl::Guard< vos::IMutex > aVclGuard( Application::GetSolarMutex() );
 223     pWindow = new MyWin();
 224     pWindow->Show();
 225
 226     xDlg->setDesignMode( sal_True );
 227
 228     uno::Reference< awt::XWindow > xWindow( xDlg, uno::UNO_QUERY );
 229     xWindow->setVisible( sal_False );
 230
 231     xDlg->createPeer( xToolkit, pWindow->GetComponentInterface() );
 232
 233     uno::Reference< awt::XView > xView( xDlg, uno::UNO_QUERY );
 234     pWindow->SetXView( xView );
 235
 236     uno::Reference< awt::XDialog > xD( xDlg, uno::UNO_QUERY );
 237
 238     //static BOOL bExecute = FALSE;
 239     //if ( bExecute )
 240         xD->execute();
 241     //Execute();
 242     Reference< XComponent > xDT( xD, uno::UNO_QUERY );
 243     xDT->dispose();
 244     delete pWindow;
 245
 246     Reference< XComponent > xT( xToolkit, uno::UNO_QUERY );
 247     xT->dispose();
 248
 249     Reference< beans::XPropertySet > xProps( ::comphelper::getProcessServiceFactory(), UNO_QUERY );
 250     if (xProps.is())
 251     {
 252         try
 253         {
 254             Reference< lang::XComponent > xComp;
 255             if (xProps->getPropertyValue( OUString( RTL_CONSTASCII_USTRINGPARAM("DefaultContext") ) ) >>= xComp)
 256             {
 257                 xComp->dispose();
 258             }
 259         }
 260         catch (beans::UnknownPropertyException &)
 261         {
 262         }
 263     }
 264 }
 265
 266 void MyWin::Paint( const Rectangle& r )
 267 {
 268     static BOOL bDraw = TRUE;
 269     if ( bDraw && mxView.is() )
 270         mxView->draw( 50, 50 );
 271 }
 272