mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
b5edd6bffdc4bfbe772eae4d485b98af467e0c7f
libreoffice/basic/source/classes/eventatt.cxx

656 lines
23 KiB
C++
Raw Normal View History

Implementation of XScriptEventsAttacher
2001-02-21 16:45:58 +00:00
/*************************************************************************
*
* $RCSfile: eventatt.cxx,v $
*
Exception specification corrected
2001-02-22 14:40:19 +00:00
* $Revision: 1.2 $
Implementation of XScriptEventsAttacher
2001-02-21 16:45:58 +00:00
*
Exception specification corrected
2001-02-22 14:40:19 +00:00
* last change: $Author: ab $ $Date: 2001-02-22 15:40:19 $
Implementation of XScriptEventsAttacher
2001-02-21 16:45:58 +00:00
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
*
* - GNU Lesser General Public License Version 2.1
* - Sun Industry Standards Source License Version 1.1
*
* Sun Microsystems Inc., October, 2000
*
* GNU Lesser General Public License Version 2.1
* =============================================
* Copyright 2000 by Sun Microsystems, Inc.
* 901 San Antonio Road, Palo Alto, CA 94303, USA
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License version 2.1, as published by the Free Software Foundation.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston,
* MA 02111-1307 USA
*
*
* Sun Industry Standards Source License Version 1.1
* =================================================
* The contents of this file are subject to the Sun Industry Standards
* Source License Version 1.1 (the "License"); You may not use this file
* except in compliance with the License. You may obtain a copy of the
* License at http://www.openoffice.org/license.html.
*
* Software provided under this License is provided on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
* See the License for the specific provisions governing your rights and
* obligations concerning the Software.
*
* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
*
* Copyright: 2000 by Sun Microsystems, Inc.
*
* All Rights Reserved.
*
* Contributor(s): _______________________________________
*
*
************************************************************************/
//#include <stl_queue.h>
#ifndef _OSL_MUTEX_HXX_
#include <osl/mutex.hxx>
#endif
#ifndef _COMPHELPER_PROCESSFACTORY_HXX_
#include <comphelper/processfactory.hxx>
#endif
#ifndef _COM_SUN_STAR_SCRIPT_XEVENTATTACHER_HPP_
#include <com/sun/star/script/XEventAttacher.hpp>
#endif
#ifndef _COM_SUN_STAR_SCRIPT_XALLLISTENER_HPP_
#include <com/sun/star/script/XAllListener.hpp>
#endif
#ifndef _COM_SUN_STAR_SCRIPT_XSCRIPTEVENTSSUPPLIER_HPP_
#include <com/sun/star/script/XScriptEventsSupplier.hpp>
#endif
#ifndef _COM_SUN_STAR_SCRIPT_XSCRIPTEVENTSATTACHER_HPP_
#include <com/sun/star/script/XScriptEventsAttacher.hpp>
#endif
#ifndef _COM_SUN_STAR_SCRIPT_SCRIPTEVENTDESCRIPTOR_HPP_
#include <com/sun/star/script/ScriptEventDescriptor.hpp>
#endif
#ifndef _COM_SUN_STAR_BEANS_XPROPERTYSET_HPP_
#include <com/sun/star/beans/XPropertySet.hpp>
#endif
#ifndef _COM_SUN_STAR_CONTAINER_XNAMECONTAINER_HPP_
#include <com/sun/star/container/XNameContainer.hpp>
#endif
#ifndef _COM_SUN_STAR_AWT_XCONTROLCONTAINER_HPP_
#include <com/sun/star/awt/XControlContainer.hpp>
#endif
#ifndef _COM_SUN_STAR_AWT_XCONTROLMODEL_HPP_
#include <com/sun/star/awt/XControlModel.hpp>
#endif
#ifndef _COM_SUN_STAR_AWT_XCONTROL_HPP_
#include <com/sun/star/awt/XControl.hpp>
#endif
#ifndef _COM_SUN_STAR_AWT_XDIALOG_HPP_
#include <com/sun/star/awt/XDialog.hpp>
#endif
#ifndef _COM_SUN_STAR_AWT_XWINDOW_HPP_
#include <com/sun/star/awt/XWindow.hpp>
#endif
#include <svtools/sbx.hxx>
#include <sbstar.hxx>
#include <sbmeth.hxx>
#include <cppuhelper/implbase1.hxx>
typedef ::cppu::WeakImplHelper1< ::com::sun::star::script::XScriptEventsAttacher > ScriptEventsAttacherHelper;
// Attaches dialogs
class DialogEventAttacher : public ScriptEventsAttacherHelper
{
friend class DialogAllListener_Impl;
::com::sun::star::uno::Reference< ::com::sun::star::script::XEventAttacher > mxEventAttacher;
::osl::Mutex maMutex;
public:
DialogEventAttacher( void ) {}
// Methods
virtual void SAL_CALL attachEvents( const ::com::sun::star::uno::Sequence<
::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface > >& Objects,
const ::com::sun::star::uno::Reference< ::com::sun::star::script::XScriptListener >& xListener,
const ::com::sun::star::uno::Any& Helper )
throw(::com::sun::star::lang::IllegalArgumentException,
::com::sun::star::beans::IntrospectionException,
::com::sun::star::script::CannotCreateAdapterException,
::com::sun::star::lang::ServiceNotRegisteredException,
::com::sun::star::uno::RuntimeException);
};
//===================================================================
using namespace ::com::sun::star::uno;
using namespace ::com::sun::star::lang;
using namespace ::com::sun::star::beans;
using namespace ::com::sun::star::script;
using namespace ::com::sun::star::container;
using namespace ::com::sun::star::reflection;
using namespace ::com::sun::star::awt;
using namespace ::cppu;
using namespace ::osl;
using namespace ::rtl;
//===================================================================
class BasicScriptListener_Impl : public WeakImplHelper1< XScriptListener >
{
StarBASICRef maBasicRef;
virtual void firing_impl(const ScriptEvent& aScriptEvent, Any* pRet);
public:
BasicScriptListener_Impl( StarBASIC* pBasic )
: maBasicRef( pBasic ) {}
// Methoden von XAllListener
virtual void SAL_CALL firing(const ScriptEvent& aScriptEvent)
throw( RuntimeException );
virtual Any SAL_CALL approveFiring(const ScriptEvent& aScriptEvent)
throw( InvocationTargetException, RuntimeException );
// Methoden von XEventListener
virtual void SAL_CALL disposing(const EventObject& Source)
throw( RuntimeException );
};
// Methods XAllListener
void BasicScriptListener_Impl::firing( const ScriptEvent& aScriptEvent ) throw ( RuntimeException )
{
firing_impl( aScriptEvent, NULL );
}
Exception specification corrected
2001-02-22 14:40:19 +00:00
Any BasicScriptListener_Impl::approveFiring( const ScriptEvent& aScriptEvent )
throw ( InvocationTargetException, RuntimeException )
Implementation of XScriptEventsAttacher
2001-02-21 16:45:58 +00:00
{
Any aRetAny;
firing_impl( aScriptEvent, &aRetAny );
return aRetAny;
}
// Methods XEventListener
void BasicScriptListener_Impl::disposing(const EventObject& ) throw ( RuntimeException )
{
// TODO: ???
//NAMESPACE_VOS(OGuard) guard( Application::GetSolarMutex() );
//xSbxObj.Clear();
}
void unoToSbxValue( SbxVariable* pVar, const Any& aValue );
Any sbxToUnoValue( SbxVariable* pVar );
void BasicScriptListener_Impl::firing_impl( const ScriptEvent& aScriptEvent, Any* pRet )
{
//Guard< Mutex > aGuard( Mutex::getGlobalMutex() );
//{
if( aScriptEvent.ScriptType.compareToAscii( "StarBasic" ) == 0 )
{
SbxObject* p = maBasicRef;
StarBASICRef aAppBasicRef;
while( (p = p->GetParent()) != NULL )
{
if( p->IsA( TYPE( StarBASIC ) ) )
{
aAppBasicRef = (StarBASIC*)p;
break;
}
}
// Full qualified name?
String aMacro( aScriptEvent.ScriptCode );
if( aMacro.GetTokenCount( '.' ) == 3 )
{
sal_uInt16 nLast = 0;
String aLibName = aMacro.GetToken( 0, '.', nLast );
String aModul = aMacro.GetToken( 0, '.', nLast );
aMacro.Erase( 0, nLast );
}
SbxVariable* pMethVar = maBasicRef->FindQualified( aMacro, SbxCLASS_DONTCARE );
if( (!pMethVar || !pMethVar->ISA(SbMethod)) && aAppBasicRef.Is() )
pMethVar = aAppBasicRef->FindQualified( aMacro, SbxCLASS_DONTCARE );
SbMethod* pMeth = PTR_CAST(SbMethod,pMethVar);
if( !pMeth )
return;
// Setup parameters
SbxArrayRef xArray;
String aTmp;
sal_Int32 nCnt = aScriptEvent.Arguments.getLength();
if( nCnt )
{
xArray = new SbxArray;
const Any *pArgs = aScriptEvent.Arguments.getConstArray();
for( sal_Int32 i = 0; i < nCnt; i++ )
{
SbxVariableRef xVar = new SbxVariable( SbxVARIANT );
unoToSbxValue( (SbxVariable*)xVar, pArgs[i] );
xArray->Put( xVar, i+1 );
}
}
// Call method
SbxVariableRef xValue = pRet ? new SbxVariable : 0;
if( xArray.Is() )
pMeth->SetParameters( xArray );
ErrCode nErr = pMeth->Call( xValue );
if( pRet )
*pRet = sbxToUnoValue( xValue );
}
/*
Guard< Mutex > aGuard( maMutex );
ScriptEvent aScriptEvent;
aScriptEvent.Source = (OWeakObject *)this; // get correct XInterface
aScriptEvent.ListenerType = Event.ListenerType;
aScriptEvent.MethodName = Event.MethodName;
aScriptEvent.Arguments = Event.Arguments;
aScriptEvent.Helper = Event.Helper;
aScriptEvent.Arguments = Event.Arguments;
aScriptEvent.ScriptType = maScriptType;
aScriptEvent.ScriptCode = maScriptCode;
if( pRet )
*pRet = mxScriptListener->approveFiring( aScriptEvent );
else
mxScriptListener->firing( aScriptEvent );
*/
}
//===================================================================
// Function to map from NameContainer to sequence needed
// to call XScriptEventsAttacher::attachEvents
void SAL_CALL attachDialogEvents( StarBASIC* pBasic,
const ::com::sun::star::uno::Reference< ::com::sun::star::awt::XControl >& xDialogControl )
//const ::com::sun::star::uno::Reference< ::com::sun::star::script::XScriptListener >& xListener )
{
static Reference< XScriptEventsAttacher > xEventsAttacher;
Guard< Mutex > aGuard( Mutex::getGlobalMutex() );
{
if( !xEventsAttacher.is() )
xEventsAttacher = new DialogEventAttacher();
}
if( !xDialogControl.is() )
return;
Reference< XControlContainer > xControlContainer( xDialogControl, UNO_QUERY );
if( !xControlContainer.is() )
return;
Sequence< Reference< XControl > > aControls = xControlContainer->getControls();
const Reference< XControl >* pControls = aControls.getConstArray();
sal_Int32 nControlCount = aControls.getLength();
sal_Int32 nObjectCount = nControlCount + 1;
Sequence< Reference< XInterface > > aObjectSeq( nObjectCount );
Reference< XInterface >* pObjects = aObjectSeq.getArray();
for( sal_Int32 i = 0 ; i < nControlCount ; i++ )
{
Reference< XInterface > xIface( pControls[i], UNO_QUERY );
pObjects[i] = xIface;
}
// Also take the DialogControl itself into the sequence
Reference< XInterface > xDialogIface( xDialogControl, UNO_QUERY );
pObjects[ nControlCount ] = xDialogIface;
Reference< XScriptListener > xScriptListener = new BasicScriptListener_Impl( pBasic );
Any Helper;
xEventsAttacher->attachEvents( aObjectSeq, xScriptListener, Helper );
}
//===================================================================
class DialogAllListener_Impl : public WeakImplHelper1< XAllListener >
{
Reference< XScriptListener > mxScriptListener;
OUString maScriptType;
OUString maScriptCode;
Mutex maMutex;
virtual void firing_impl(const AllEventObject& Event, Any* pRet);
public:
DialogAllListener_Impl( const Reference< XScriptListener >& xListener,
const OUString &rScriptType, const OUString & rScriptCode );
// Methoden von XAllListener
virtual void SAL_CALL firing(const AllEventObject& Event)
throw( RuntimeException );
virtual Any SAL_CALL approveFiring(const AllEventObject& Event)
throw( InvocationTargetException, RuntimeException );
// Methoden von XEventListener
virtual void SAL_CALL disposing(const EventObject& Source)
throw( RuntimeException );
};
//========================================================================
DialogAllListener_Impl::DialogAllListener_Impl( const Reference< XScriptListener >& xListener,
const OUString &rScriptType, const OUString & rScriptCode )
: mxScriptListener( xListener )
, maScriptType( rScriptType )
, maScriptCode( rScriptCode )
{
}
// Methods XAllListener
void DialogAllListener_Impl::firing( const AllEventObject& Event ) throw ( RuntimeException )
{
firing_impl( Event, NULL );
}
Exception specification corrected
2001-02-22 14:40:19 +00:00
Any DialogAllListener_Impl::approveFiring( const AllEventObject& Event )
throw ( InvocationTargetException, RuntimeException )
Implementation of XScriptEventsAttacher
2001-02-21 16:45:58 +00:00
{
Any aRetAny;
firing_impl( Event, &aRetAny );
return aRetAny;
}
// Methods XEventListener
void DialogAllListener_Impl::disposing(const EventObject& ) throw ( RuntimeException )
{
// TODO: ???
//NAMESPACE_VOS(OGuard) guard( Application::GetSolarMutex() );
//xSbxObj.Clear();
}
void DialogAllListener_Impl::firing_impl( const AllEventObject& Event, Any* pRet )
{
Guard< Mutex > aGuard( maMutex );
ScriptEvent aScriptEvent;
aScriptEvent.Source = (OWeakObject *)this; // get correct XInterface
aScriptEvent.ListenerType = Event.ListenerType;
aScriptEvent.MethodName = Event.MethodName;
aScriptEvent.Arguments = Event.Arguments;
aScriptEvent.Helper = Event.Helper;
aScriptEvent.Arguments = Event.Arguments;
aScriptEvent.ScriptType = maScriptType;
aScriptEvent.ScriptCode = maScriptCode;
if( pRet )
*pRet = mxScriptListener->approveFiring( aScriptEvent );
else
mxScriptListener->firing( aScriptEvent );
}
//===================================================================
void SAL_CALL DialogEventAttacher::attachEvents
(
const Sequence< Reference< XInterface > >& Objects,
const Reference< XScriptListener >& xListener,
const Any& Helper
)
throw( IllegalArgumentException,
IntrospectionException,
CannotCreateAdapterException,
ServiceNotRegisteredException,
RuntimeException )
{
// Get EventAttacher and Introspection (Introspection???)
{
Guard< Mutex > aGuard( maMutex );
if( !mxEventAttacher.is() )
{
// AllListenerAdapterService holen
Reference< XMultiServiceFactory > xSMgr( comphelper::getProcessServiceFactory() );
if( !xSMgr.is() )
throw RuntimeException();
Reference< XInterface > xIFace( xSMgr->createInstance(
OUString::createFromAscii("com.sun.star.script.EventAttacher") ) );
if ( xIFace.is() )
{
mxEventAttacher = Reference< XEventAttacher >::query( xIFace );
}
if( !mxEventAttacher.is() )
throw ServiceNotRegisteredException();
}
}
// Go over all objects
const Reference< XInterface >* pObjects = Objects.getConstArray();
sal_Int32 i, nObjCount = Objects.getLength();
for( i = 0 ; i < nObjCount ; i++ )
{
// We know that we have to do with instances of XControl
// Otherwise this is not the right implementation for
// XScriptEventsAttacher and we have to give up
Reference< XControl > xControl( pObjects[ i ], UNO_QUERY );
if( !xControl.is() )
throw IllegalArgumentException();
// Get XEventsSupplier from ControlModel
Reference< XControlModel > xControlModel = xControl->getModel();
Reference< XScriptEventsSupplier > xEventsSupplier( xControlModel, UNO_QUERY );
if( xEventsSupplier.is() )
{
Reference< XNameContainer > xEventCont = xEventsSupplier->getEvents();
Sequence< OUString > aNames = xEventCont->getElementNames();
const OUString* pNames = aNames.getConstArray();
sal_Int32 j, nNameCount = aNames.getLength();
for( j = 0 ; j < nNameCount ; j++ )
{
OUString aType, aMethod, aName;
ScriptEventDescriptor aDesc;
Any aElement = xEventCont->getByName( pNames[ j ] );
aElement >>= aDesc;
Reference< XAllListener > xAllListener =
new DialogAllListener_Impl( xListener, aDesc.ScriptType, aDesc.ScriptCode );
// Try first to attach event to the ControlModel
sal_Bool bSuccess = sal_False;
try
{
Reference< XEventListener > xListener = mxEventAttacher->
attachSingleEventListener( xControlModel, xAllListener, Helper,
aDesc.ListenerType, aDesc.AddListenerParam, aDesc.EventMethod );
if( xListener.is() )
bSuccess = sal_True;
}
catch( IllegalArgumentException& )
{}
catch( IntrospectionException& )
{}
catch( CannotCreateAdapterException& )
{}
catch( ServiceNotRegisteredException& )
{}
//{
//throw IntrospectionException();
//}
try
{
// If we had no success, try to attach to the Control
if( !bSuccess )
{
Reference< XEventListener > xListener; // Do we need that?!?
xListener = mxEventAttacher->attachSingleEventListener
( xControl, xAllListener, Helper, aDesc.ListenerType,
aDesc.AddListenerParam, aDesc.EventMethod );
}
}
catch( IllegalArgumentException& )
{}
catch( IntrospectionException& )
{}
catch( CannotCreateAdapterException& )
{}
catch( ServiceNotRegisteredException& )
{}
}
}
}
}
// TEST
void RTL_Impl_ExecuteDialog( StarBASIC* pBasic, SbxArray& rPar, BOOL bWrite )
{
Reference< XMultiServiceFactory > xSMgr( comphelper::getProcessServiceFactory() );
if( !xSMgr.is() )
return;
// Wir brauchen mindestens 1 Parameter
if ( rPar.Count() < 2 )
{
StarBASIC::Error( SbERR_BAD_ARGUMENT );
return;
}
sal_Bool bExecute = rPar.Get(1)->GetBool();
Reference< XToolkit > xToolkit( xSMgr->createInstance( OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.ExtToolkit" ) ) ), UNO_QUERY );
// Create a DialogModel
Reference< XNameContainer > xC( xSMgr->createInstance( OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialogModel" ) ) ), UNO_QUERY );
Reference< XMultiServiceFactory > xModFact( xC, UNO_QUERY );
// Create a ButtonModel
Reference< XControlModel > xCtrl1( xModFact->createInstance( OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlButtonModel" ) ) ), UNO_QUERY );
Reference< XPropertySet > xPSet( xCtrl1, UNO_QUERY );
// EventContainer
Reference< XScriptEventsSupplier > xEventsSupplier( xCtrl1, UNO_QUERY );
if( xEventsSupplier.is() )
{
Reference< XNameContainer > xEventCont = xEventsSupplier->getEvents();
ScriptEventDescriptor aDesc;
OUString aType( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.XActionListener" ) );
OUString aMethod( RTL_CONSTASCII_USTRINGPARAM( "actionPerformed" ) );
OUString aName = aType;
aName += OUString(RTL_CONSTASCII_USTRINGPARAM( "::" ) );
aName += aMethod;
aDesc.ListenerType = aType;
aDesc.EventMethod = aMethod;
aDesc.ScriptType = OUString( RTL_CONSTASCII_USTRINGPARAM( "StarBasic" ) );
aDesc.ScriptCode = OUString( RTL_CONSTASCII_USTRINGPARAM( "standard.module1.doit" ) );
Any aEventAny;
aEventAny <<= aDesc;
xEventCont->insertByName( aName, aEventAny );
}
Any aValue;
aValue <<= (sal_Int32) 10;
xPSet->setPropertyValue( OUString(RTL_CONSTASCII_USTRINGPARAM( "PositionX" ) ), aValue );
aValue <<= (sal_Int32) 10;
xPSet->setPropertyValue( OUString(RTL_CONSTASCII_USTRINGPARAM( "PositionY" ) ), aValue );
aValue <<= (sal_Int32) 40;
xPSet->setPropertyValue( OUString(RTL_CONSTASCII_USTRINGPARAM( "Width" ) ), aValue );
aValue <<= (sal_Int32) 12;
xPSet->setPropertyValue( OUString(RTL_CONSTASCII_USTRINGPARAM( "Height" ) ), aValue );
aValue <<= OUString(RTL_CONSTASCII_USTRINGPARAM( "Test!" ) );
xPSet->setPropertyValue( OUString(RTL_CONSTASCII_USTRINGPARAM( "Label" ) ), aValue );
Any aAny;
aAny <<= xCtrl1;
xC->insertByName( OUString(RTL_CONSTASCII_USTRINGPARAM("Control1" ) ), aAny );
Reference< XPropertySet > xDlgPSet( xC, UNO_QUERY );
aValue <<= OUString(RTL_CONSTASCII_USTRINGPARAM( "Test-Dialog" ) );
xDlgPSet->setPropertyValue( OUString(RTL_CONSTASCII_USTRINGPARAM( "Title" ) ), aValue );
aValue <<= (sal_Int32) 200;
xDlgPSet->setPropertyValue( OUString(RTL_CONSTASCII_USTRINGPARAM( "Width" ) ), aValue );
aValue <<= (sal_Int32) 200;
xDlgPSet->setPropertyValue( OUString(RTL_CONSTASCII_USTRINGPARAM( "Height" ) ), aValue );
// Create a Dialog
Reference< XControl > xDlg( xSMgr->createInstance( OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialog" ) ) ), UNO_QUERY );
Reference< XControlModel > xDlgMod( xC, UNO_QUERY );
xDlg->setModel( xDlgMod );
// Create a EditModel
Reference< XControlModel > xCtrl2( xModFact->createInstance( OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlEditModel" ) ) ), UNO_QUERY );
xPSet = Reference< XPropertySet >( xCtrl2, UNO_QUERY );
aValue <<= (sal_Int32) 10;
xPSet->setPropertyValue( OUString(RTL_CONSTASCII_USTRINGPARAM( "PositionX" ) ), aValue );
aValue <<= (sal_Int32) 40;
xPSet->setPropertyValue( OUString(RTL_CONSTASCII_USTRINGPARAM( "PositionY" ) ), aValue );
aValue <<= (sal_Int32) 80;
xPSet->setPropertyValue( OUString(RTL_CONSTASCII_USTRINGPARAM( "Width" ) ), aValue );
aValue <<= (sal_Int32) 12;
xPSet->setPropertyValue( OUString(RTL_CONSTASCII_USTRINGPARAM( "Height" ) ), aValue );
aValue <<= OUString(RTL_CONSTASCII_USTRINGPARAM( "Text..." ) );
xPSet->setPropertyValue( OUString(RTL_CONSTASCII_USTRINGPARAM( "Text" ) ), aValue );
aAny <<= xCtrl2;
xC->insertByName( OUString(RTL_CONSTASCII_USTRINGPARAM("Control2" ) ), aAny );
// test if listener works...
aValue <<= (sal_Int32) 20;
xPSet->setPropertyValue( OUString(RTL_CONSTASCII_USTRINGPARAM( "PositionX" ) ), aValue );
xDlg->createPeer( xToolkit, NULL );
attachDialogEvents( pBasic, xDlg );
if( bExecute )
{
Reference< XDialog > xD( xDlg, UNO_QUERY );
xD->execute();
}
else
{
Reference< XWindow > xW( xDlg, UNO_QUERY );
xW->setVisible( sal_True );
}
// Return dialog
aValue <<= xDlg;
SbxVariableRef refVar = rPar.Get(0);
unoToSbxValue( (SbxVariable*)refVar, aValue );
}
//===================================================================
Reference in New Issue Copy Permalink