diff options
Diffstat (limited to 'basctl/source')
109 files changed, 37256 insertions, 0 deletions
diff --git a/basctl/source/accessibility/accessibledialogcontrolshape.cxx b/basctl/source/accessibility/accessibledialogcontrolshape.cxx new file mode 100644 index 000000000000..8c7fdcfa324e --- /dev/null +++ b/basctl/source/accessibility/accessibledialogcontrolshape.cxx @@ -0,0 +1,621 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" +#include <accessibledialogcontrolshape.hxx> +#include <baside3.hxx> +#include <dlgeddef.hxx> +#include <dlgedview.hxx> +#include <dlgedobj.hxx> +#include <com/sun/star/accessibility/AccessibleEventId.hpp> +#include <com/sun/star/accessibility/AccessibleRole.hpp> +#include <com/sun/star/accessibility/AccessibleStateType.hpp> +#include <unotools/accessiblestatesethelper.hxx> +#include <unotools/accessiblerelationsethelper.hxx> +#include <toolkit/awt/vclxfont.hxx> +#include <toolkit/helper/externallock.hxx> +#include <toolkit/helper/convert.hxx> +#include <toolkit/helper/vclunohelper.hxx> +#include <vcl/svapp.hxx> + +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::lang; +using namespace ::com::sun::star::beans; +using namespace ::com::sun::star::accessibility; +using namespace ::comphelper; + + +// ----------------------------------------------------------------------------- +// class AccessibleDialogControlShape +// ----------------------------------------------------------------------------- + +AccessibleDialogControlShape::AccessibleDialogControlShape( DialogWindow* pDialogWindow, DlgEdObj* pDlgEdObj ) + :AccessibleExtendedComponentHelper_BASE( new VCLExternalSolarLock() ) + ,m_pDialogWindow( pDialogWindow ) + ,m_pDlgEdObj( pDlgEdObj ) +{ + m_pExternalLock = static_cast< VCLExternalSolarLock* >( getExternalLock() ); + + if ( m_pDlgEdObj ) + m_xControlModel = Reference< XPropertySet >( m_pDlgEdObj->GetUnoControlModel(), UNO_QUERY ); + + if ( m_xControlModel.is() ) + m_xControlModel->addPropertyChangeListener( ::rtl::OUString(), static_cast< beans::XPropertyChangeListener* >( this ) ); + + m_bFocused = IsFocused(); + m_bSelected = IsSelected(); + m_aBounds = GetBounds(); +} + +// ----------------------------------------------------------------------------- + +AccessibleDialogControlShape::~AccessibleDialogControlShape() +{ + if ( m_xControlModel.is() ) + m_xControlModel->removePropertyChangeListener( ::rtl::OUString(), static_cast< beans::XPropertyChangeListener* >( this ) ); + + delete m_pExternalLock; + m_pExternalLock = NULL; +} + +// ----------------------------------------------------------------------------- + +sal_Bool AccessibleDialogControlShape::IsFocused() +{ + sal_Bool bFocused = sal_False; + if ( m_pDialogWindow ) + { + SdrView* pSdrView = m_pDialogWindow->GetView(); + if ( pSdrView && pSdrView->IsObjMarked( m_pDlgEdObj ) && pSdrView->GetMarkedObjectList().GetMarkCount() == 1 ) + bFocused = sal_True; + } + + return bFocused; +} + +// ----------------------------------------------------------------------------- + +sal_Bool AccessibleDialogControlShape::IsSelected() +{ + sal_Bool bSelected = sal_False; + if ( m_pDialogWindow ) + { + SdrView* pSdrView = m_pDialogWindow->GetView(); + if ( pSdrView ) + bSelected = pSdrView->IsObjMarked( m_pDlgEdObj ); + } + + return bSelected; +} + +// ----------------------------------------------------------------------------- + +void AccessibleDialogControlShape::SetFocused( sal_Bool bFocused ) +{ + if ( m_bFocused != bFocused ) + { + Any aOldValue, aNewValue; + if ( m_bFocused ) + aOldValue <<= AccessibleStateType::FOCUSED; + else + aNewValue <<= AccessibleStateType::FOCUSED; + m_bFocused = bFocused; + NotifyAccessibleEvent( AccessibleEventId::STATE_CHANGED, aOldValue, aNewValue ); + } +} + +// ----------------------------------------------------------------------------- + +void AccessibleDialogControlShape::SetSelected( sal_Bool bSelected ) +{ + if ( m_bSelected != bSelected ) + { + Any aOldValue, aNewValue; + if ( m_bSelected ) + aOldValue <<= AccessibleStateType::SELECTED; + else + aNewValue <<= AccessibleStateType::SELECTED; + m_bSelected = bSelected; + NotifyAccessibleEvent( AccessibleEventId::STATE_CHANGED, aOldValue, aNewValue ); + } +} + +// ----------------------------------------------------------------------------- + +awt::Rectangle AccessibleDialogControlShape::GetBounds() +{ + awt::Rectangle aBounds( 0, 0, 0, 0 ); + if ( m_pDlgEdObj ) + { + // get the bounding box of the shape in logic units + Rectangle aRect = m_pDlgEdObj->GetSnapRect(); + + if ( m_pDialogWindow ) + { + // transform coordinates relative to the parent + MapMode aMap = m_pDialogWindow->GetMapMode(); + Point aOrg = aMap.GetOrigin(); + aRect.Move( aOrg.X(), aOrg.Y() ); + + // convert logic units to pixel + aRect = m_pDialogWindow->LogicToPixel( aRect, MapMode(MAP_100TH_MM) ); + + // clip the shape's bounding box with the bounding box of its parent + Rectangle aParentRect( Point( 0, 0 ), m_pDialogWindow->GetSizePixel() ); + aRect = aRect.GetIntersection( aParentRect ); + aBounds = AWTRectangle( aRect ); + } + } + + return aBounds; +} + +// ----------------------------------------------------------------------------- + +void AccessibleDialogControlShape::SetBounds( const awt::Rectangle& aBounds ) +{ + if ( m_aBounds.X != aBounds.X || m_aBounds.Y != aBounds.Y || m_aBounds.Width != aBounds.Width || m_aBounds.Height != aBounds.Height ) + { + m_aBounds = aBounds; + NotifyAccessibleEvent( AccessibleEventId::BOUNDRECT_CHANGED, Any(), Any() ); + } +} + +// ----------------------------------------------------------------------------- + +Window* AccessibleDialogControlShape::GetWindow() const +{ + Window* pWindow = NULL; + if ( m_pDlgEdObj ) + { + Reference< awt::XControl > xControl( m_pDlgEdObj->GetControl(), UNO_QUERY ); + if ( xControl.is() ) + pWindow = VCLUnoHelper::GetWindow( xControl->getPeer() ); + } + + return pWindow; +} + +// ----------------------------------------------------------------------------- + +::rtl::OUString AccessibleDialogControlShape::GetModelStringProperty( const sal_Char* pPropertyName ) +{ + ::rtl::OUString sReturn; + + try + { + if ( m_xControlModel.is() ) + { + ::rtl::OUString sPropertyName( ::rtl::OUString::createFromAscii( pPropertyName ) ); + Reference< XPropertySetInfo > xInfo = m_xControlModel->getPropertySetInfo(); + if ( xInfo.is() && xInfo->hasPropertyByName( sPropertyName ) ) + m_xControlModel->getPropertyValue( sPropertyName ) >>= sReturn; + } + } + catch ( const Exception& ) + { + OSL_FAIL( "AccessibleDialogControlShape::GetModelStringProperty: caught an exception!" ); + } + + return sReturn; +} + +// ----------------------------------------------------------------------------- + +void AccessibleDialogControlShape::FillAccessibleStateSet( utl::AccessibleStateSetHelper& rStateSet ) +{ + rStateSet.AddState( AccessibleStateType::ENABLED ); + + rStateSet.AddState( AccessibleStateType::VISIBLE ); + + rStateSet.AddState( AccessibleStateType::SHOWING ); + + rStateSet.AddState( AccessibleStateType::FOCUSABLE ); + + if ( IsFocused() ) + rStateSet.AddState( AccessibleStateType::FOCUSED ); + + rStateSet.AddState( AccessibleStateType::SELECTABLE ); + + if ( IsSelected() ) + rStateSet.AddState( AccessibleStateType::SELECTED ); + + rStateSet.AddState( AccessibleStateType::RESIZABLE ); +} + +// ----------------------------------------------------------------------------- +// OCommonAccessibleComponent +// ----------------------------------------------------------------------------- + +awt::Rectangle AccessibleDialogControlShape::implGetBounds() throw (RuntimeException) +{ + return GetBounds(); +} + +// ----------------------------------------------------------------------------- +// XInterface +// ----------------------------------------------------------------------------- + +IMPLEMENT_FORWARD_XINTERFACE2( AccessibleDialogControlShape, AccessibleExtendedComponentHelper_BASE, AccessibleDialogControlShape_BASE ) + +// ----------------------------------------------------------------------------- +// XTypeProvider +// ----------------------------------------------------------------------------- + +IMPLEMENT_FORWARD_XTYPEPROVIDER2( AccessibleDialogControlShape, AccessibleExtendedComponentHelper_BASE, AccessibleDialogControlShape_BASE ) + +// ----------------------------------------------------------------------------- +// XComponent +// ----------------------------------------------------------------------------- + +void AccessibleDialogControlShape::disposing() +{ + AccessibleExtendedComponentHelper_BASE::disposing(); + + m_pDialogWindow = NULL; + m_pDlgEdObj = NULL; + + if ( m_xControlModel.is() ) + m_xControlModel->removePropertyChangeListener( ::rtl::OUString(), static_cast< beans::XPropertyChangeListener* >( this ) ); + m_xControlModel.clear(); +} + +// ----------------------------------------------------------------------------- +// XEventListener +// ----------------------------------------------------------------------------- + +void AccessibleDialogControlShape::disposing( const lang::EventObject& ) throw (RuntimeException) +{ + if ( m_xControlModel.is() ) + m_xControlModel->removePropertyChangeListener( ::rtl::OUString(), static_cast< beans::XPropertyChangeListener* >( this ) ); + m_xControlModel.clear(); +} + +// ----------------------------------------------------------------------------- +// XPropertyChangeListener +// ----------------------------------------------------------------------------- + +void AccessibleDialogControlShape::propertyChange( const beans::PropertyChangeEvent& rEvent ) throw (RuntimeException) +{ + if ( rEvent.PropertyName == DLGED_PROP_NAME ) + { + NotifyAccessibleEvent( AccessibleEventId::NAME_CHANGED, rEvent.OldValue, rEvent.NewValue ); + } + else if ( rEvent.PropertyName == DLGED_PROP_POSITIONX || + rEvent.PropertyName == DLGED_PROP_POSITIONY || + rEvent.PropertyName == DLGED_PROP_WIDTH || + rEvent.PropertyName == DLGED_PROP_HEIGHT ) + { + SetBounds( GetBounds() ); + } + else if ( rEvent.PropertyName == DLGED_PROP_BACKGROUNDCOLOR || + rEvent.PropertyName == DLGED_PROP_TEXTCOLOR || + rEvent.PropertyName == DLGED_PROP_TEXTLINECOLOR ) + { + NotifyAccessibleEvent( AccessibleEventId::VISIBLE_DATA_CHANGED, Any(), Any() ); + } +} + +// ----------------------------------------------------------------------------- +// XServiceInfo +// ----------------------------------------------------------------------------- + +::rtl::OUString AccessibleDialogControlShape::getImplementationName() throw (RuntimeException) +{ + return ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.comp.basctl.AccessibleShape" )); +} + +// ----------------------------------------------------------------------------- + +sal_Bool AccessibleDialogControlShape::supportsService( const ::rtl::OUString& rServiceName ) throw (RuntimeException) +{ + Sequence< ::rtl::OUString > aNames( getSupportedServiceNames() ); + const ::rtl::OUString* pNames = aNames.getConstArray(); + const ::rtl::OUString* pEnd = pNames + aNames.getLength(); + for ( ; pNames != pEnd && !pNames->equals( rServiceName ); ++pNames ) + ; + + return pNames != pEnd; +} + +// ----------------------------------------------------------------------------- + +Sequence< ::rtl::OUString > AccessibleDialogControlShape::getSupportedServiceNames() throw (RuntimeException) +{ + Sequence< ::rtl::OUString > aNames(1); + aNames[0] = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.drawing.AccessibleShape" )); + return aNames; +} + +// ----------------------------------------------------------------------------- +// XAccessible +// ----------------------------------------------------------------------------- + +Reference< XAccessibleContext > AccessibleDialogControlShape::getAccessibleContext( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + return this; +} + +// ----------------------------------------------------------------------------- +// XAccessibleContext +// ----------------------------------------------------------------------------- + +sal_Int32 AccessibleDialogControlShape::getAccessibleChildCount() throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + return 0; +} + +// ----------------------------------------------------------------------------- + +Reference< XAccessible > AccessibleDialogControlShape::getAccessibleChild( sal_Int32 i ) throw (IndexOutOfBoundsException, RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + if ( i < 0 || i >= getAccessibleChildCount() ) + throw IndexOutOfBoundsException(); + + return Reference< XAccessible >(); +} + +// ----------------------------------------------------------------------------- + +Reference< XAccessible > AccessibleDialogControlShape::getAccessibleParent( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + Reference< XAccessible > xParent; + if ( m_pDialogWindow ) + xParent = m_pDialogWindow->GetAccessible(); + + return xParent; +} + +// ----------------------------------------------------------------------------- + +sal_Int32 AccessibleDialogControlShape::getAccessibleIndexInParent( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + sal_Int32 nIndexInParent = -1; + Reference< XAccessible > xParent( getAccessibleParent() ); + if ( xParent.is() ) + { + Reference< XAccessibleContext > xParentContext( xParent->getAccessibleContext() ); + if ( xParentContext.is() ) + { + for ( sal_Int32 i = 0, nCount = xParentContext->getAccessibleChildCount(); i < nCount; ++i ) + { + Reference< XAccessible > xChild( xParentContext->getAccessibleChild( i ) ); + if ( xChild.is() ) + { + Reference< XAccessibleContext > xChildContext = xChild->getAccessibleContext(); + if ( xChildContext == (XAccessibleContext*)this ) + { + nIndexInParent = i; + break; + } + } + } + } + } + + return nIndexInParent; +} + +// ----------------------------------------------------------------------------- + +sal_Int16 AccessibleDialogControlShape::getAccessibleRole( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + return AccessibleRole::SHAPE; +} + +// ----------------------------------------------------------------------------- + +::rtl::OUString AccessibleDialogControlShape::getAccessibleDescription( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + return GetModelStringProperty( "HelpText" ); +} + +// ----------------------------------------------------------------------------- + +::rtl::OUString AccessibleDialogControlShape::getAccessibleName( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + return GetModelStringProperty( "Name" ); +} + +// ----------------------------------------------------------------------------- + +Reference< XAccessibleRelationSet > AccessibleDialogControlShape::getAccessibleRelationSet( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + utl::AccessibleRelationSetHelper* pRelationSetHelper = new utl::AccessibleRelationSetHelper; + Reference< XAccessibleRelationSet > xSet = pRelationSetHelper; + return xSet; +} + +// ----------------------------------------------------------------------------- + +Reference< XAccessibleStateSet > AccessibleDialogControlShape::getAccessibleStateSet( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + utl::AccessibleStateSetHelper* pStateSetHelper = new utl::AccessibleStateSetHelper; + Reference< XAccessibleStateSet > xSet = pStateSetHelper; + + if ( !rBHelper.bDisposed && !rBHelper.bInDispose ) + { + FillAccessibleStateSet( *pStateSetHelper ); + } + else + { + pStateSetHelper->AddState( AccessibleStateType::DEFUNC ); + } + + return xSet; +} + +// ----------------------------------------------------------------------------- + +Locale AccessibleDialogControlShape::getLocale( ) throw (IllegalAccessibleComponentStateException, RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + return Application::GetSettings().GetLocale(); +} + +// ----------------------------------------------------------------------------- +// XAccessibleComponent +// ----------------------------------------------------------------------------- + +Reference< XAccessible > AccessibleDialogControlShape::getAccessibleAtPoint( const awt::Point& ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + return Reference< XAccessible >(); +} + +// ----------------------------------------------------------------------------- + +void AccessibleDialogControlShape::grabFocus( ) throw (RuntimeException) +{ + // no focus for shapes +} + +// ----------------------------------------------------------------------------- + +sal_Int32 AccessibleDialogControlShape::getForeground( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + sal_Int32 nColor = 0; + Window* pWindow = GetWindow(); + if ( pWindow ) + { + if ( pWindow->IsControlForeground() ) + nColor = pWindow->GetControlForeground().GetColor(); + else + { + Font aFont; + if ( pWindow->IsControlFont() ) + aFont = pWindow->GetControlFont(); + else + aFont = pWindow->GetFont(); + nColor = aFont.GetColor().GetColor(); + } + } + + return nColor; +} + +// ----------------------------------------------------------------------------- + +sal_Int32 AccessibleDialogControlShape::getBackground( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + sal_Int32 nColor = 0; + Window* pWindow = GetWindow(); + if ( pWindow ) + { + if ( pWindow->IsControlBackground() ) + nColor = pWindow->GetControlBackground().GetColor(); + else + nColor = pWindow->GetBackground().GetColor().GetColor(); + } + + return nColor; +} + +// ----------------------------------------------------------------------------- +// XAccessibleExtendedComponent +// ----------------------------------------------------------------------------- + +Reference< awt::XFont > AccessibleDialogControlShape::getFont( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + Reference< awt::XFont > xFont; + Window* pWindow = GetWindow(); + if ( pWindow ) + { + Reference< awt::XDevice > xDev( pWindow->GetComponentInterface(), UNO_QUERY ); + if ( xDev.is() ) + { + Font aFont; + if ( pWindow->IsControlFont() ) + aFont = pWindow->GetControlFont(); + else + aFont = pWindow->GetFont(); + VCLXFont* pVCLXFont = new VCLXFont; + pVCLXFont->Init( *xDev.get(), aFont ); + xFont = pVCLXFont; + } + } + + return xFont; +} + +// ----------------------------------------------------------------------------- + +::rtl::OUString AccessibleDialogControlShape::getTitledBorderText( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + return ::rtl::OUString(); +} + +// ----------------------------------------------------------------------------- + +::rtl::OUString AccessibleDialogControlShape::getToolTipText( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + ::rtl::OUString sText; + Window* pWindow = GetWindow(); + if ( pWindow ) + sText = pWindow->GetQuickHelpText(); + + return sText; +} + +// ----------------------------------------------------------------------------- + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/accessibility/accessibledialogwindow.cxx b/basctl/source/accessibility/accessibledialogwindow.cxx new file mode 100644 index 000000000000..70677e4ef4d2 --- /dev/null +++ b/basctl/source/accessibility/accessibledialogwindow.cxx @@ -0,0 +1,1126 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" +#include <accessibledialogwindow.hxx> +#include <accessibledialogcontrolshape.hxx> +#include <baside3.hxx> +#include <dlged.hxx> +#include <dlgedmod.hxx> +#include <dlgedpage.hxx> +#include <dlgedview.hxx> +#include <dlgedobj.hxx> +#include <com/sun/star/accessibility/AccessibleEventId.hpp> +#include <com/sun/star/accessibility/AccessibleRole.hpp> +#include <com/sun/star/accessibility/AccessibleStateType.hpp> +#include <unotools/accessiblestatesethelper.hxx> +#include <unotools/accessiblerelationsethelper.hxx> +#include <toolkit/awt/vclxfont.hxx> +#include <toolkit/helper/externallock.hxx> +#include <toolkit/helper/convert.hxx> +#include <vcl/svapp.hxx> + +#include <vector> +#include <algorithm> + + +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::lang; +using namespace ::com::sun::star::accessibility; +using namespace ::comphelper; + +DBG_NAME( AccessibleDialogWindow ) + + +// ----------------------------------------------------------------------------- +// class ChildDescriptor +// ----------------------------------------------------------------------------- + +AccessibleDialogWindow::ChildDescriptor::ChildDescriptor( DlgEdObj* _pDlgEdObj ) + :pDlgEdObj( _pDlgEdObj ) + ,rxAccessible( 0 ) +{ +} + +// ----------------------------------------------------------------------------- + +AccessibleDialogWindow::ChildDescriptor::~ChildDescriptor() +{ +} + +// ----------------------------------------------------------------------------- + +AccessibleDialogWindow::ChildDescriptor::ChildDescriptor( const ChildDescriptor& rDesc ) + :pDlgEdObj( rDesc.pDlgEdObj ) + ,rxAccessible( rDesc.rxAccessible ) +{ +} + +// ----------------------------------------------------------------------------- + +AccessibleDialogWindow::ChildDescriptor& AccessibleDialogWindow::ChildDescriptor::operator=( const ChildDescriptor& rDesc ) +{ + pDlgEdObj = rDesc.pDlgEdObj; + rxAccessible = rDesc.rxAccessible; + + return *this; +} + +// ----------------------------------------------------------------------------- + +bool AccessibleDialogWindow::ChildDescriptor::operator==( const ChildDescriptor& rDesc ) +{ + bool bRet = false; + if ( pDlgEdObj == rDesc.pDlgEdObj ) + bRet = true; + + return bRet; +} + +// ----------------------------------------------------------------------------- + +bool AccessibleDialogWindow::ChildDescriptor::operator<( const ChildDescriptor& rDesc ) const +{ + bool bRet = false; + if ( pDlgEdObj && rDesc.pDlgEdObj && pDlgEdObj->GetOrdNum() < rDesc.pDlgEdObj->GetOrdNum() ) + bRet = true; + + return bRet; +} + +// ----------------------------------------------------------------------------- +// class AccessibleDialogWindow +// ----------------------------------------------------------------------------- + +AccessibleDialogWindow::AccessibleDialogWindow( DialogWindow* pDialogWindow ) + :AccessibleExtendedComponentHelper_BASE( new VCLExternalSolarLock() ) + ,m_pDialogWindow( pDialogWindow ) +{ + DBG_CTOR( AccessibleDialogWindow, NULL ); + m_pExternalLock = static_cast< VCLExternalSolarLock* >( getExternalLock() ); + + if ( m_pDialogWindow ) + { + SdrPage* pSdrPage = m_pDialogWindow->GetPage(); + if ( pSdrPage ) + { + sal_uLong nCount = pSdrPage->GetObjCount(); + + for ( sal_uLong i = 0; i < nCount; ++i ) + { + SdrObject* pObj = pSdrPage->GetObj( i ); + DlgEdObj* pDlgEdObj = PTR_CAST( DlgEdObj, pObj ); + if ( pDlgEdObj ) + { + ChildDescriptor aDesc( pDlgEdObj ); + if ( IsChildVisible( aDesc ) ) + m_aAccessibleChildren.push_back( aDesc ); + } + } + } + + m_pDialogWindow->AddEventListener( LINK( this, AccessibleDialogWindow, WindowEventListener ) ); + + m_pDlgEditor = m_pDialogWindow->GetEditor(); + if ( m_pDlgEditor ) + StartListening( *m_pDlgEditor ); + + m_pDlgEdModel = m_pDialogWindow->GetModel(); + if ( m_pDlgEdModel ) + StartListening( *m_pDlgEdModel ); + } +} + +// ----------------------------------------------------------------------------- + +AccessibleDialogWindow::~AccessibleDialogWindow() +{ + DBG_DTOR( AccessibleDialogWindow, NULL ); + if ( m_pDialogWindow ) + m_pDialogWindow->RemoveEventListener( LINK( this, AccessibleDialogWindow, WindowEventListener ) ); + + if ( m_pDlgEditor ) + EndListening( *m_pDlgEditor ); + + if ( m_pDlgEdModel ) + EndListening( *m_pDlgEdModel ); + + delete m_pExternalLock; + m_pExternalLock = NULL; +} + +// ----------------------------------------------------------------------------- + +void AccessibleDialogWindow::UpdateFocused() +{ + for ( sal_uInt32 i = 0; i < m_aAccessibleChildren.size(); ++i ) + { + Reference< XAccessible > xChild( m_aAccessibleChildren[i].rxAccessible ); + if ( xChild.is() ) + { + AccessibleDialogControlShape* pShape = static_cast< AccessibleDialogControlShape* >( xChild.get() ); + if ( pShape ) + pShape->SetFocused( pShape->IsFocused() ); + } + } +} + +// ----------------------------------------------------------------------------- + +void AccessibleDialogWindow::UpdateSelected() +{ + NotifyAccessibleEvent( AccessibleEventId::SELECTION_CHANGED, Any(), Any() ); + + for ( sal_uInt32 i = 0; i < m_aAccessibleChildren.size(); ++i ) + { + Reference< XAccessible > xChild( m_aAccessibleChildren[i].rxAccessible ); + if ( xChild.is() ) + { + AccessibleDialogControlShape* pShape = static_cast< AccessibleDialogControlShape* >( xChild.get() ); + if ( pShape ) + pShape->SetSelected( pShape->IsSelected() ); + } + } +} + +// ----------------------------------------------------------------------------- + +void AccessibleDialogWindow::UpdateBounds() +{ + for ( sal_uInt32 i = 0; i < m_aAccessibleChildren.size(); ++i ) + { + Reference< XAccessible > xChild( m_aAccessibleChildren[i].rxAccessible ); + if ( xChild.is() ) + { + AccessibleDialogControlShape* pShape = static_cast< AccessibleDialogControlShape* >( xChild.get() ); + if ( pShape ) + pShape->SetBounds( pShape->GetBounds() ); + } + } +} + +// ----------------------------------------------------------------------------- + +sal_Bool AccessibleDialogWindow::IsChildVisible( const ChildDescriptor& rDesc ) +{ + sal_Bool bVisible = sal_False; + + if ( m_pDialogWindow ) + { + // first check, if the shape is in a visible layer + SdrModel* pSdrModel = m_pDialogWindow->GetModel(); + if ( pSdrModel ) + { + SdrLayerAdmin& rLayerAdmin = pSdrModel->GetLayerAdmin(); + DlgEdObj* pDlgEdObj = rDesc.pDlgEdObj; + if ( pDlgEdObj ) + { + SdrLayerID nLayerId = pDlgEdObj->GetLayer(); + const SdrLayer* pSdrLayer = rLayerAdmin.GetLayerPerID( nLayerId ); + if ( pSdrLayer ) + { + String aLayerName = pSdrLayer->GetName(); + SdrView* pSdrView = m_pDialogWindow->GetView(); + if ( pSdrView && pSdrView->IsLayerVisible( aLayerName ) ) + { + // get the bounding box of the shape in logic units + Rectangle aRect = pDlgEdObj->GetSnapRect(); + + // transform coordinates relative to the parent + MapMode aMap = m_pDialogWindow->GetMapMode(); + Point aOrg = aMap.GetOrigin(); + aRect.Move( aOrg.X(), aOrg.Y() ); + + // convert logic units to pixel + aRect = m_pDialogWindow->LogicToPixel( aRect, MapMode(MAP_100TH_MM) ); + + // check, if the shape's bounding box intersects with the bounding box of its parent + Rectangle aParentRect( Point( 0, 0 ), m_pDialogWindow->GetSizePixel() ); + if ( aParentRect.IsOver( aRect ) ) + bVisible = sal_True; + } + } + } + } + } + + return bVisible; +} + +// ----------------------------------------------------------------------------- + +void AccessibleDialogWindow::InsertChild( const ChildDescriptor& rDesc ) +{ + // check, if object is already in child list + AccessibleChildren::iterator aIter = ::std::find( m_aAccessibleChildren.begin(), m_aAccessibleChildren.end(), rDesc ); + + // if not found, insert in child list + if ( aIter == m_aAccessibleChildren.end() ) + { + // insert entry in child list + m_aAccessibleChildren.push_back( rDesc ); + + // get the accessible of the inserted child + Reference< XAccessible > xChild( getAccessibleChild( m_aAccessibleChildren.size() - 1 ) ); + + // sort child list + SortChildren(); + + // send accessible child event + if ( xChild.is() ) + { + Any aOldValue, aNewValue; + aNewValue <<= xChild; + NotifyAccessibleEvent( AccessibleEventId::CHILD, aOldValue, aNewValue ); + } + } +} + +// ----------------------------------------------------------------------------- + +void AccessibleDialogWindow::RemoveChild( const ChildDescriptor& rDesc ) +{ + // find object in child list + AccessibleChildren::iterator aIter = ::std::find( m_aAccessibleChildren.begin(), m_aAccessibleChildren.end(), rDesc ); + + // if found, remove from child list + if ( aIter != m_aAccessibleChildren.end() ) + { + // get the accessible of the removed child + Reference< XAccessible > xChild( aIter->rxAccessible ); + + // remove entry from child list + m_aAccessibleChildren.erase( aIter ); + + // send accessible child event + if ( xChild.is() ) + { + Any aOldValue, aNewValue; + aOldValue <<= xChild; + NotifyAccessibleEvent( AccessibleEventId::CHILD, aOldValue, aNewValue ); + + Reference< XComponent > xComponent( xChild, UNO_QUERY ); + if ( xComponent.is() ) + xComponent->dispose(); + } + } +} + +// ----------------------------------------------------------------------------- + +void AccessibleDialogWindow::UpdateChild( const ChildDescriptor& rDesc ) +{ + if ( IsChildVisible( rDesc ) ) + { + // if the object is not in the child list, insert child + InsertChild( rDesc ); + } + else + { + // if the object is in the child list, remove child + RemoveChild( rDesc ); + } +} + +// ----------------------------------------------------------------------------- + +void AccessibleDialogWindow::UpdateChildren() +{ + if ( m_pDialogWindow ) + { + SdrPage* pSdrPage = m_pDialogWindow->GetPage(); + if ( pSdrPage ) + { + for ( sal_uLong i = 0, nCount = pSdrPage->GetObjCount(); i < nCount; ++i ) + { + SdrObject* pObj = pSdrPage->GetObj( i ); + DlgEdObj* pDlgEdObj = PTR_CAST( DlgEdObj, pObj ); + if ( pDlgEdObj ) + UpdateChild( ChildDescriptor( pDlgEdObj ) ); + } + } + } +} + +// ----------------------------------------------------------------------------- + +void AccessibleDialogWindow::SortChildren() +{ + // sort child list + ::std::sort( m_aAccessibleChildren.begin(), m_aAccessibleChildren.end() ); +} + +// ----------------------------------------------------------------------------- + +IMPL_LINK( AccessibleDialogWindow, WindowEventListener, VclSimpleEvent*, pEvent ) +{ + DBG_CHKTHIS( AccessibleDialogWindow, 0 ); + DBG_ASSERT( pEvent && pEvent->ISA( VclWindowEvent ), "AccessibleDialogWindow::WindowEventListener: unknown window event!" ); + + if ( pEvent && pEvent->ISA( VclWindowEvent ) ) + { + DBG_ASSERT( ((VclWindowEvent*)pEvent)->GetWindow(), "AccessibleDialogWindow::WindowEventListener: no window!" ); + if ( !((VclWindowEvent*)pEvent)->GetWindow()->IsAccessibilityEventsSuppressed() || ( pEvent->GetId() == VCLEVENT_OBJECT_DYING ) ) + { + ProcessWindowEvent( *(VclWindowEvent*)pEvent ); + } + } + + return 0; +} + +// ----------------------------------------------------------------------------- + +void AccessibleDialogWindow::ProcessWindowEvent( const VclWindowEvent& rVclWindowEvent ) +{ + Any aOldValue, aNewValue; + + switch ( rVclWindowEvent.GetId() ) + { + case VCLEVENT_WINDOW_ENABLED: + { + aNewValue <<= AccessibleStateType::ENABLED; + NotifyAccessibleEvent( AccessibleEventId::STATE_CHANGED, aOldValue, aNewValue ); + } + break; + case VCLEVENT_WINDOW_DISABLED: + { + aOldValue <<= AccessibleStateType::ENABLED; + NotifyAccessibleEvent( AccessibleEventId::STATE_CHANGED, aOldValue, aNewValue ); + } + break; + case VCLEVENT_WINDOW_ACTIVATE: + { + aNewValue <<= AccessibleStateType::ACTIVE; + NotifyAccessibleEvent( AccessibleEventId::STATE_CHANGED, aOldValue, aNewValue ); + } + break; + case VCLEVENT_WINDOW_DEACTIVATE: + { + aOldValue <<= AccessibleStateType::ACTIVE; + NotifyAccessibleEvent( AccessibleEventId::STATE_CHANGED, aOldValue, aNewValue ); + } + break; + case VCLEVENT_WINDOW_GETFOCUS: + { + aNewValue <<= AccessibleStateType::FOCUSED; + NotifyAccessibleEvent( AccessibleEventId::STATE_CHANGED, aOldValue, aNewValue ); + } + break; + case VCLEVENT_WINDOW_LOSEFOCUS: + { + aOldValue <<= AccessibleStateType::FOCUSED; + NotifyAccessibleEvent( AccessibleEventId::STATE_CHANGED, aOldValue, aNewValue ); + } + break; + case VCLEVENT_WINDOW_SHOW: + { + aNewValue <<= AccessibleStateType::SHOWING; + NotifyAccessibleEvent( AccessibleEventId::STATE_CHANGED, aOldValue, aNewValue ); + } + break; + case VCLEVENT_WINDOW_HIDE: + { + aOldValue <<= AccessibleStateType::SHOWING; + NotifyAccessibleEvent( AccessibleEventId::STATE_CHANGED, aOldValue, aNewValue ); + } + break; + case VCLEVENT_WINDOW_RESIZE: + { + NotifyAccessibleEvent( AccessibleEventId::BOUNDRECT_CHANGED, aOldValue, aNewValue ); + UpdateChildren(); + UpdateBounds(); + } + break; + case VCLEVENT_OBJECT_DYING: + { + if ( m_pDialogWindow ) + { + m_pDialogWindow->RemoveEventListener( LINK( this, AccessibleDialogWindow, WindowEventListener ) ); + m_pDialogWindow = NULL; + + if ( m_pDlgEditor ) + EndListening( *m_pDlgEditor ); + m_pDlgEditor = NULL; + + if ( m_pDlgEdModel ) + EndListening( *m_pDlgEdModel ); + m_pDlgEdModel = NULL; + + // dispose all children + for ( sal_uInt32 i = 0; i < m_aAccessibleChildren.size(); ++i ) + { + Reference< XComponent > xComponent( m_aAccessibleChildren[i].rxAccessible, UNO_QUERY ); + if ( xComponent.is() ) + xComponent->dispose(); + } + m_aAccessibleChildren.clear(); + } + } + break; + default: + { + } + break; + } +} + +// ----------------------------------------------------------------------------- + +void AccessibleDialogWindow::FillAccessibleStateSet( utl::AccessibleStateSetHelper& rStateSet ) +{ + if ( m_pDialogWindow ) + { + if ( m_pDialogWindow->IsEnabled() ) + rStateSet.AddState( AccessibleStateType::ENABLED ); + + rStateSet.AddState( AccessibleStateType::FOCUSABLE ); + + if ( m_pDialogWindow->HasFocus() ) + rStateSet.AddState( AccessibleStateType::FOCUSED ); + + rStateSet.AddState( AccessibleStateType::VISIBLE ); + + if ( m_pDialogWindow->IsVisible() ) + rStateSet.AddState( AccessibleStateType::SHOWING ); + + rStateSet.AddState( AccessibleStateType::OPAQUE ); + + rStateSet.AddState( AccessibleStateType::RESIZABLE ); + } +} + +// ----------------------------------------------------------------------------- +// OCommonAccessibleComponent +// ----------------------------------------------------------------------------- + +awt::Rectangle AccessibleDialogWindow::implGetBounds() throw (RuntimeException) +{ + awt::Rectangle aBounds; + if ( m_pDialogWindow ) + aBounds = AWTRectangle( Rectangle( m_pDialogWindow->GetPosPixel(), m_pDialogWindow->GetSizePixel() ) ); + + return aBounds; +} + +// ----------------------------------------------------------------------------- +// SfxListener +// ----------------------------------------------------------------------------- + +void AccessibleDialogWindow::Notify( SfxBroadcaster&, const SfxHint& rHint ) +{ + if ( rHint.ISA( SdrHint ) ) + { + SdrHint* pSdrHint = (SdrHint*)&rHint; + switch ( pSdrHint->GetKind() ) + { + case HINT_OBJINSERTED: + { + SdrObject* pObj = (SdrObject*)pSdrHint->GetObject(); + DlgEdObj* pDlgEdObj = PTR_CAST( DlgEdObj, pObj ); + if ( pDlgEdObj ) + { + ChildDescriptor aDesc( pDlgEdObj ); + if ( IsChildVisible( aDesc ) ) + InsertChild( aDesc ); + } + } + break; + case HINT_OBJREMOVED: + { + SdrObject* pObj = (SdrObject*)pSdrHint->GetObject(); + DlgEdObj* pDlgEdObj = PTR_CAST( DlgEdObj, pObj ); + if ( pDlgEdObj ) + RemoveChild( ChildDescriptor( pDlgEdObj ) ); + } + break; + default: ; + } + } + else if ( rHint.ISA( DlgEdHint ) ) + { + DlgEdHint* pDlgEdHint = (DlgEdHint*)&rHint; + switch ( pDlgEdHint->GetKind() ) + { + case DLGED_HINT_WINDOWSCROLLED: + { + UpdateChildren(); + UpdateBounds(); + } + break; + case DLGED_HINT_LAYERCHANGED: + { + DlgEdObj* pDlgEdObj = pDlgEdHint->GetObject(); + if ( pDlgEdObj ) + UpdateChild( ChildDescriptor( pDlgEdObj ) ); + } + break; + case DLGED_HINT_OBJORDERCHANGED: + { + SortChildren(); + } + break; + case DLGED_HINT_SELECTIONCHANGED: + { + UpdateFocused(); + UpdateSelected(); + } + break; + default: ; + } + } +} + +// ----------------------------------------------------------------------------- +// XInterface +// ----------------------------------------------------------------------------- + +IMPLEMENT_FORWARD_XINTERFACE2( AccessibleDialogWindow, AccessibleExtendedComponentHelper_BASE, AccessibleDialogWindow_BASE ) + +// ----------------------------------------------------------------------------- +// XTypeProvider +// ----------------------------------------------------------------------------- + +IMPLEMENT_FORWARD_XTYPEPROVIDER2( AccessibleDialogWindow, AccessibleExtendedComponentHelper_BASE, AccessibleDialogWindow_BASE ) + +// ----------------------------------------------------------------------------- +// XComponent +// ----------------------------------------------------------------------------- + +void AccessibleDialogWindow::disposing() +{ + AccessibleExtendedComponentHelper_BASE::disposing(); + + if ( m_pDialogWindow ) + { + m_pDialogWindow->RemoveEventListener( LINK( this, AccessibleDialogWindow, WindowEventListener ) ); + m_pDialogWindow = NULL; + + if ( m_pDlgEditor ) + EndListening( *m_pDlgEditor ); + m_pDlgEditor = NULL; + + if ( m_pDlgEdModel ) + EndListening( *m_pDlgEdModel ); + m_pDlgEdModel = NULL; + + // dispose all children + for ( sal_uInt32 i = 0; i < m_aAccessibleChildren.size(); ++i ) + { + Reference< XComponent > xComponent( m_aAccessibleChildren[i].rxAccessible, UNO_QUERY ); + if ( xComponent.is() ) + xComponent->dispose(); + } + m_aAccessibleChildren.clear(); + } +} + +// ----------------------------------------------------------------------------- +// XServiceInfo +// ----------------------------------------------------------------------------- + +::rtl::OUString AccessibleDialogWindow::getImplementationName() throw (RuntimeException) +{ + return ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.comp.basctl.AccessibleWindow" )); +} + +// ----------------------------------------------------------------------------- + +sal_Bool AccessibleDialogWindow::supportsService( const ::rtl::OUString& rServiceName ) throw (RuntimeException) +{ + Sequence< ::rtl::OUString > aNames( getSupportedServiceNames() ); + const ::rtl::OUString* pNames = aNames.getConstArray(); + const ::rtl::OUString* pEnd = pNames + aNames.getLength(); + for ( ; pNames != pEnd && !pNames->equals( rServiceName ); ++pNames ) + ; + + return pNames != pEnd; +} + +// ----------------------------------------------------------------------------- + +Sequence< ::rtl::OUString > AccessibleDialogWindow::getSupportedServiceNames() throw (RuntimeException) +{ + Sequence< ::rtl::OUString > aNames(1); + aNames[0] = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.AccessibleWindow" )); + return aNames; +} + +// ----------------------------------------------------------------------------- +// XAccessible +// ----------------------------------------------------------------------------- + +Reference< XAccessibleContext > AccessibleDialogWindow::getAccessibleContext( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + return this; +} + +// ----------------------------------------------------------------------------- +// XAccessibleContext +// ----------------------------------------------------------------------------- + +sal_Int32 AccessibleDialogWindow::getAccessibleChildCount() throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + return m_aAccessibleChildren.size(); +} + +// ----------------------------------------------------------------------------- + +Reference< XAccessible > AccessibleDialogWindow::getAccessibleChild( sal_Int32 i ) throw (IndexOutOfBoundsException, RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + if ( i < 0 || i >= getAccessibleChildCount() ) + throw IndexOutOfBoundsException(); + + Reference< XAccessible > xChild = m_aAccessibleChildren[i].rxAccessible; + if ( !xChild.is() ) + { + if ( m_pDialogWindow ) + { + DlgEdObj* pDlgEdObj = m_aAccessibleChildren[i].pDlgEdObj; + if ( pDlgEdObj ) + { + xChild = new AccessibleDialogControlShape( m_pDialogWindow, pDlgEdObj ); + + // insert into child list + m_aAccessibleChildren[i].rxAccessible = xChild; + } + } + } + + return xChild; +} + +// ----------------------------------------------------------------------------- + +Reference< XAccessible > AccessibleDialogWindow::getAccessibleParent( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + Reference< XAccessible > xParent; + if ( m_pDialogWindow ) + { + Window* pParent = m_pDialogWindow->GetAccessibleParentWindow(); + if ( pParent ) + xParent = pParent->GetAccessible(); + } + + return xParent; +} + +// ----------------------------------------------------------------------------- + +sal_Int32 AccessibleDialogWindow::getAccessibleIndexInParent( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + sal_Int32 nIndexInParent = -1; + if ( m_pDialogWindow ) + { + Window* pParent = m_pDialogWindow->GetAccessibleParentWindow(); + if ( pParent ) + { + for ( sal_uInt16 i = 0, nCount = pParent->GetAccessibleChildWindowCount(); i < nCount; ++i ) + { + Window* pChild = pParent->GetAccessibleChildWindow( i ); + if ( pChild == static_cast< Window* >( m_pDialogWindow ) ) + { + nIndexInParent = i; + break; + } + } + } + } + + return nIndexInParent; +} + +// ----------------------------------------------------------------------------- + +sal_Int16 AccessibleDialogWindow::getAccessibleRole( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + return AccessibleRole::PANEL; +} + +// ----------------------------------------------------------------------------- + +::rtl::OUString AccessibleDialogWindow::getAccessibleDescription( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + ::rtl::OUString sDescription; + if ( m_pDialogWindow ) + sDescription = m_pDialogWindow->GetAccessibleDescription(); + + return sDescription; +} + +// ----------------------------------------------------------------------------- + +::rtl::OUString AccessibleDialogWindow::getAccessibleName( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + ::rtl::OUString sName; + if ( m_pDialogWindow ) + sName = m_pDialogWindow->GetAccessibleName(); + + return sName; +} + +// ----------------------------------------------------------------------------- + +Reference< XAccessibleRelationSet > AccessibleDialogWindow::getAccessibleRelationSet( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + utl::AccessibleRelationSetHelper* pRelationSetHelper = new utl::AccessibleRelationSetHelper; + Reference< XAccessibleRelationSet > xSet = pRelationSetHelper; + return xSet; +} + +// ----------------------------------------------------------------------------- + +Reference< XAccessibleStateSet > AccessibleDialogWindow::getAccessibleStateSet( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + utl::AccessibleStateSetHelper* pStateSetHelper = new utl::AccessibleStateSetHelper; + Reference< XAccessibleStateSet > xSet = pStateSetHelper; + + if ( !rBHelper.bDisposed && !rBHelper.bInDispose ) + { + FillAccessibleStateSet( *pStateSetHelper ); + } + else + { + pStateSetHelper->AddState( AccessibleStateType::DEFUNC ); + } + + return xSet; +} + +// ----------------------------------------------------------------------------- + +Locale AccessibleDialogWindow::getLocale( ) throw (IllegalAccessibleComponentStateException, RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + return Application::GetSettings().GetLocale(); +} + +// ----------------------------------------------------------------------------- +// XAccessibleComponent +// ----------------------------------------------------------------------------- + +Reference< XAccessible > AccessibleDialogWindow::getAccessibleAtPoint( const awt::Point& rPoint ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + Reference< XAccessible > xChild; + for ( sal_uInt32 i = 0; i < m_aAccessibleChildren.size(); ++i ) + { + Reference< XAccessible > xAcc = getAccessibleChild( i ); + if ( xAcc.is() ) + { + Reference< XAccessibleComponent > xComp( xAcc->getAccessibleContext(), UNO_QUERY ); + if ( xComp.is() ) + { + Rectangle aRect = VCLRectangle( xComp->getBounds() ); + Point aPos = VCLPoint( rPoint ); + if ( aRect.IsInside( aPos ) ) + { + xChild = xAcc; + break; + } + } + } + } + + return xChild; +} + +// ----------------------------------------------------------------------------- + +void AccessibleDialogWindow::grabFocus( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + if ( m_pDialogWindow ) + m_pDialogWindow->GrabFocus(); +} + +// ----------------------------------------------------------------------------- + +sal_Int32 AccessibleDialogWindow::getForeground( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + sal_Int32 nColor = 0; + if ( m_pDialogWindow ) + { + if ( m_pDialogWindow->IsControlForeground() ) + nColor = m_pDialogWindow->GetControlForeground().GetColor(); + else + { + Font aFont; + if ( m_pDialogWindow->IsControlFont() ) + aFont = m_pDialogWindow->GetControlFont(); + else + aFont = m_pDialogWindow->GetFont(); + nColor = aFont.GetColor().GetColor(); + } + } + + return nColor; +} + +// ----------------------------------------------------------------------------- + +sal_Int32 AccessibleDialogWindow::getBackground( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + sal_Int32 nColor = 0; + if ( m_pDialogWindow ) + { + if ( m_pDialogWindow->IsControlBackground() ) + nColor = m_pDialogWindow->GetControlBackground().GetColor(); + else + nColor = m_pDialogWindow->GetBackground().GetColor().GetColor(); + } + + return nColor; +} + +// ----------------------------------------------------------------------------- +// XAccessibleExtendedComponent +// ----------------------------------------------------------------------------- + +Reference< awt::XFont > AccessibleDialogWindow::getFont( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + Reference< awt::XFont > xFont; + if ( m_pDialogWindow ) + { + Reference< awt::XDevice > xDev( m_pDialogWindow->GetComponentInterface(), UNO_QUERY ); + if ( xDev.is() ) + { + Font aFont; + if ( m_pDialogWindow->IsControlFont() ) + aFont = m_pDialogWindow->GetControlFont(); + else + aFont = m_pDialogWindow->GetFont(); + VCLXFont* pVCLXFont = new VCLXFont; + pVCLXFont->Init( *xDev.get(), aFont ); + xFont = pVCLXFont; + } + } + + return xFont; +} + +// ----------------------------------------------------------------------------- + +::rtl::OUString AccessibleDialogWindow::getTitledBorderText( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + return ::rtl::OUString(); +} + +// ----------------------------------------------------------------------------- + +::rtl::OUString AccessibleDialogWindow::getToolTipText( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + ::rtl::OUString sText; + if ( m_pDialogWindow ) + sText = m_pDialogWindow->GetQuickHelpText(); + + return sText; +} + +// ----------------------------------------------------------------------------- +// XAccessibleSelection +// ----------------------------------------------------------------------------- + +void AccessibleDialogWindow::selectAccessibleChild( sal_Int32 nChildIndex ) throw (IndexOutOfBoundsException, RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + if ( nChildIndex < 0 || nChildIndex >= getAccessibleChildCount() ) + throw IndexOutOfBoundsException(); + + if ( m_pDialogWindow ) + { + DlgEdObj* pDlgEdObj = m_aAccessibleChildren[nChildIndex].pDlgEdObj; + if ( pDlgEdObj ) + { + SdrView* pSdrView = m_pDialogWindow->GetView(); + if ( pSdrView ) + { + SdrPageView* pPgView = pSdrView->GetSdrPageView(); + if ( pPgView ) + pSdrView->MarkObj( pDlgEdObj, pPgView ); + } + } + } +} + +// ----------------------------------------------------------------------------- + +sal_Bool AccessibleDialogWindow::isAccessibleChildSelected( sal_Int32 nChildIndex ) throw (IndexOutOfBoundsException, RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + if ( nChildIndex < 0 || nChildIndex >= getAccessibleChildCount() ) + throw IndexOutOfBoundsException(); + + sal_Bool bSelected = sal_False; + if ( m_pDialogWindow ) + { + DlgEdObj* pDlgEdObj = m_aAccessibleChildren[nChildIndex].pDlgEdObj; + if ( pDlgEdObj ) + { + SdrView* pSdrView = m_pDialogWindow->GetView(); + if ( pSdrView ) + bSelected = pSdrView->IsObjMarked( pDlgEdObj ); + } + } + + return bSelected; +} + +// ----------------------------------------------------------------------------- + +void AccessibleDialogWindow::clearAccessibleSelection( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + if ( m_pDialogWindow ) + { + SdrView* pSdrView = m_pDialogWindow->GetView(); + if ( pSdrView ) + pSdrView->UnmarkAll(); + } +} + +// ----------------------------------------------------------------------------- + +void AccessibleDialogWindow::selectAllAccessibleChildren( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + if ( m_pDialogWindow ) + { + SdrView* pSdrView = m_pDialogWindow->GetView(); + if ( pSdrView ) + pSdrView->MarkAll(); + } +} + +// ----------------------------------------------------------------------------- + +sal_Int32 AccessibleDialogWindow::getSelectedAccessibleChildCount( ) throw (RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + sal_Int32 nRet = 0; + + for ( sal_Int32 i = 0, nCount = getAccessibleChildCount(); i < nCount; ++i ) + { + if ( isAccessibleChildSelected( i ) ) + ++nRet; + } + + return nRet; +} + +// ----------------------------------------------------------------------------- + +Reference< XAccessible > AccessibleDialogWindow::getSelectedAccessibleChild( sal_Int32 nSelectedChildIndex ) throw (IndexOutOfBoundsException, RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + if ( nSelectedChildIndex < 0 || nSelectedChildIndex >= getSelectedAccessibleChildCount() ) + throw IndexOutOfBoundsException(); + + Reference< XAccessible > xChild; + + for ( sal_Int32 i = 0, j = 0, nCount = getAccessibleChildCount(); i < nCount; ++i ) + { + if ( isAccessibleChildSelected( i ) && ( j++ == nSelectedChildIndex ) ) + { + xChild = getAccessibleChild( i ); + break; + } + } + + return xChild; +} + +// ----------------------------------------------------------------------------- + +void AccessibleDialogWindow::deselectAccessibleChild( sal_Int32 nChildIndex ) throw (IndexOutOfBoundsException, RuntimeException) +{ + OExternalLockGuard aGuard( this ); + + if ( nChildIndex < 0 || nChildIndex >= getAccessibleChildCount() ) + throw IndexOutOfBoundsException(); + + if ( m_pDialogWindow ) + { + DlgEdObj* pDlgEdObj = m_aAccessibleChildren[nChildIndex].pDlgEdObj; + if ( pDlgEdObj ) + { + SdrView* pSdrView = m_pDialogWindow->GetView(); + if ( pSdrView ) + { + SdrPageView* pPgView = pSdrView->GetSdrPageView(); + if ( pPgView ) + pSdrView->MarkObj( pDlgEdObj, pPgView, sal_True ); + } + } + } +} + +// ----------------------------------------------------------------------------- + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/accessibility/makefile.mk b/basctl/source/accessibility/makefile.mk new file mode 100644 index 000000000000..ec899b893944 --- /dev/null +++ b/basctl/source/accessibility/makefile.mk @@ -0,0 +1,48 @@ +#************************************************************************* +# +# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +# +# Copyright 2000, 2010 Oracle and/or its affiliates. +# +# OpenOffice.org - a multi-platform office productivity suite +# +# This file is part of OpenOffice.org. +# +# OpenOffice.org is free software: you can redistribute it and/or modify +# it under the terms of the GNU Lesser General Public License version 3 +# only, as published by the Free Software Foundation. +# +# OpenOffice.org 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 version 3 for more details +# (a copy is included in the LICENSE file that accompanied this code). +# +# You should have received a copy of the GNU Lesser General Public License +# version 3 along with OpenOffice.org. If not, see +# <http://www.openoffice.org/license.html> +# for a copy of the LGPLv3 License. +# +#************************************************************************* + +PRJ=..$/.. + +PRJNAME=basctl +TARGET=accessibility +ENABLE_EXCEPTIONS=TRUE +VISIBILITY_HIDDEN=TRUE + +# --- Settings ----------------------------------------------------- + +.INCLUDE : settings.mk + +# --- Files -------------------------------------------------------- + +SLOFILES=\ + $(SLO)$/accessibledialogwindow.obj \ + $(SLO)$/accessibledialogcontrolshape.obj + +# --- Targets ------------------------------------------------------- + +.INCLUDE : target.mk + diff --git a/basctl/source/basicide/basdoc.cxx b/basctl/source/basicide/basdoc.cxx new file mode 100644 index 000000000000..00e67979ef58 --- /dev/null +++ b/basctl/source/basicide/basdoc.cxx @@ -0,0 +1,101 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + + +#include <ide_pch.hxx> +#include <svx/svxids.hrc> + +#define GLOBALOVERFLOW2 + +#include <sfx2/docfac.hxx> +#include <sfx2/sfxmodelfactory.hxx> +#include <vcl/status.hxx> + +#include <svx/xmlsecctrl.hxx> + +#include <basdoc.hxx> + +#define BasicDocShell +#include <basslots.hxx> + +#include "basicmod.hxx" +#include "unomodel.hxx" + +TYPEINIT1(BasicDocShell, SfxObjectShell); +DBG_NAME(BasicDocShell); + +SFX_IMPL_OBJECTFACTORY( BasicDocShell, SvGlobalName(), SFXOBJECTSHELL_STD_NORMAL, "sbasic" ) + +SFX_IMPL_INTERFACE( BasicDocShell, SfxObjectShell, IDEResId( 0 ) ) +{ + SFX_STATUSBAR_REGISTRATION( IDEResId( SID_BASICIDE_STATUSBAR ) ); +} + +BasicDocShell::BasicDocShell() + :SfxObjectShell( SFXMODEL_DISABLE_EMBEDDED_SCRIPTS | SFXMODEL_DISABLE_DOCUMENT_RECOVERY ) +{ + pPrinter = 0; + SetPool( &SFX_APP()->GetPool() ); + SetBaseModel( new SIDEModel(this) ); +} + +BasicDocShell::~BasicDocShell() +{ + delete pPrinter; +} + +SfxPrinter* BasicDocShell::GetPrinter( sal_Bool bCreate ) +{ + if ( !pPrinter && bCreate ) + pPrinter = new SfxPrinter( new SfxItemSet( GetPool(), SID_PRINTER_NOTFOUND_WARN , SID_PRINTER_NOTFOUND_WARN ) ); + + return pPrinter; +} + +void BasicDocShell::SetPrinter( SfxPrinter* pPr ) +{ + if ( pPr != pPrinter ) + { + delete pPrinter; + pPrinter = pPr; + } +} + +void BasicDocShell::FillClass( SvGlobalName*, sal_uInt32*, String*, String*, String*, sal_Int32, sal_Bool bTemplate) const +{ + (void)bTemplate; + DBG_ASSERT( bTemplate == sal_False, "No template for Basic" ); +} + +void BasicDocShell::Draw( OutputDevice *, const JobSetup &, sal_uInt16 ) +{} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/basdoc.hxx b/basctl/source/basicide/basdoc.hxx new file mode 100644 index 000000000000..848a7f9b7df9 --- /dev/null +++ b/basctl/source/basicide/basdoc.hxx @@ -0,0 +1,68 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _BASDOC_HXX +#define _BASDOC_HXX + +#include <svx/ifaceids.hxx> +#include <iderid.hxx> +#include <sfx2/objsh.hxx> + +class SfxPrinter; + +class BasicDocShell: public SfxObjectShell +{ + SfxPrinter* pPrinter; + +protected: + virtual void Draw( OutputDevice *, const JobSetup & rSetup, + sal_uInt16 nAspect = ASPECT_CONTENT ); + virtual void FillClass( SvGlobalName * pClassName, + sal_uInt32 * pFormat, + String * pAppName, + String * pFullTypeName, + String * pShortTypeName, + sal_Int32 nVersion, + sal_Bool bTemplate = sal_False ) const; + +public: + TYPEINFO(); + + using SotObject::GetInterface; + SFX_DECL_OBJECTFACTORY(); + SFX_DECL_INTERFACE( SVX_INTERFACE_BASIDE_DOCSH ) + BasicDocShell(); + ~BasicDocShell(); + + SfxPrinter* GetPrinter( sal_Bool bCreate ); + void SetPrinter( SfxPrinter* pPrinter ); +}; + +#endif // _BASDOC_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/basicbox.cxx b/basctl/source/basicide/basicbox.cxx new file mode 100644 index 000000000000..6eda4be217e9 --- /dev/null +++ b/basctl/source/basicide/basicbox.cxx @@ -0,0 +1,546 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include <ide_pch.hxx> + + +#include <basidesh.hrc> +#include <basidesh.hxx> +#include <basobj.hxx> + +#include <basicbox.hxx> +#include <iderid.hxx> +#include <iderdll.hxx> +#include <bastypes.hxx> +#include "bastype2.hxx" +#include "basdoc.hxx" + +#include "localizationmgr.hxx" +#include "managelang.hxx" +#include "dlgresid.hrc" +#include <editeng/unolingu.hxx> + +#include <svtools/langtab.hxx> + + +using namespace ::com::sun::star; +using namespace ::com::sun::star::lang; +using namespace ::com::sun::star::uno; + +SFX_IMPL_TOOLBOX_CONTROL( LibBoxControl, SfxStringItem ); + +LibBoxControl::LibBoxControl( sal_uInt16 nSlotId, sal_uInt16 nId, ToolBox& rTbx ) + : SfxToolBoxControl( nSlotId, nId, rTbx ) +{ +} + + + +LibBoxControl::~LibBoxControl() +{ +} + + + +void LibBoxControl::StateChanged( sal_uInt16, SfxItemState eState, const SfxPoolItem* pState ) +{ + BasicLibBox* pBox = (BasicLibBox*) GetToolBox().GetItemWindow( GetId() ); + + DBG_ASSERT( pBox, "Box not found" ); + if ( !pBox ) + return; + + if ( eState != SFX_ITEM_AVAILABLE ) + pBox->Disable(); + else + { + pBox->Enable(); + + if ( pState->ISA(SfxStringItem) ) + pBox->Update( (const SfxStringItem*)pState ); + else + pBox->Update( NULL ); + } +} + + + +Window* LibBoxControl::CreateItemWindow( Window *pParent ) +{ + return new BasicLibBox( pParent, m_xFrame ); +} + +//============================================================================= +//= DocListenerBox +//============================================================================= + +DocListenerBox::DocListenerBox( Window* pParent ) + :ListBox( pParent, WinBits( WB_BORDER | WB_DROPDOWN ) ) + ,m_aNotifier( *this ) +{ +} + +DocListenerBox::~DocListenerBox() +{ + m_aNotifier.dispose(); +} + +void DocListenerBox::onDocumentCreated( const ScriptDocument& /*_rDocument*/ ) +{ + FillBox(); +} + +void DocListenerBox::onDocumentOpened( const ScriptDocument& /*_rDocument*/ ) +{ + FillBox(); +} + +void DocListenerBox::onDocumentSave( const ScriptDocument& /*_rDocument*/ ) +{ + // not interested in +} + +void DocListenerBox::onDocumentSaveDone( const ScriptDocument& /*_rDocument*/ ) +{ + // not interested in +} + +void DocListenerBox::onDocumentSaveAs( const ScriptDocument& /*_rDocument*/ ) +{ + // not interested in +} + +void DocListenerBox::onDocumentSaveAsDone( const ScriptDocument& /*_rDocument*/ ) +{ + FillBox(); +} + +void DocListenerBox::onDocumentClosed( const ScriptDocument& /*_rDocument*/ ) +{ + FillBox(); +} + +void DocListenerBox::onDocumentTitleChanged( const ScriptDocument& /*_rDocument*/ ) +{ + // not interested in +} + +void DocListenerBox::onDocumentModeChanged( const ScriptDocument& /*_rDocument*/ ) +{ + // not interested in +} + +//============================================================================= +//= BasicLibBox +//============================================================================= +BasicLibBox::BasicLibBox( Window* pParent, const uno::Reference< frame::XFrame >& rFrame ) : + DocListenerBox( pParent ), + m_xFrame( rFrame ) +{ + FillBox(); + bIgnoreSelect = sal_True; // Select von 0 noch nicht weiterleiten + bFillBox = sal_True; + SelectEntryPos( 0 ); + aCurText = GetEntry( 0 ); + SetSizePixel( Size( 250, 200 ) ); + bIgnoreSelect = sal_False; +} + + + +BasicLibBox::~BasicLibBox() +{ + ClearBox(); +} + +void BasicLibBox::Update( const SfxStringItem* pItem ) +{ + // Immer auf dem laufenden sein... +// if ( !pItem || !pItem->GetValue().Len() ) + FillBox(); + + if ( pItem ) + { + aCurText = pItem->GetValue(); + if ( aCurText.Len() == 0 ) + aCurText = String( IDEResId( RID_STR_ALL ) ); + } + + if ( GetSelectEntry() != aCurText ) + SelectEntry( aCurText ); +} + +void BasicLibBox::ReleaseFocus() +{ + SfxViewShell* pCurSh = SfxViewShell::Current(); + DBG_ASSERT( pCurSh, "Current ViewShell not found!" ); + + if ( pCurSh ) + { + Window* pShellWin = pCurSh->GetWindow(); + if ( !pShellWin ) // sonst werde ich ihn nicht los + pShellWin = Application::GetDefDialogParent(); + + pShellWin->GrabFocus(); + } +} + +void BasicLibBox::FillBox() +{ + SetUpdateMode( sal_False ); + bIgnoreSelect = sal_True; + + aCurText = GetSelectEntry(); + + SelectEntryPos( 0 ); + ClearBox(); + + // create list box entries + sal_uInt16 nPos = InsertEntry( String( IDEResId( RID_STR_ALL ) ), LISTBOX_APPEND ); + SetEntryData( nPos, new BasicLibEntry( ScriptDocument::getApplicationScriptDocument(), LIBRARY_LOCATION_UNKNOWN, String() ) ); + InsertEntries( ScriptDocument::getApplicationScriptDocument(), LIBRARY_LOCATION_USER ); + InsertEntries( ScriptDocument::getApplicationScriptDocument(), LIBRARY_LOCATION_SHARE ); + + ScriptDocuments aDocuments( ScriptDocument::getAllScriptDocuments( ScriptDocument::DocumentsSorted ) ); + for ( ScriptDocuments::const_iterator doc = aDocuments.begin(); + doc != aDocuments.end(); + ++doc + ) + { + InsertEntries( *doc, LIBRARY_LOCATION_DOCUMENT ); + } + + SetUpdateMode( sal_True ); + + SelectEntry( aCurText ); + if ( !GetSelectEntryCount() ) + { + SelectEntryPos( GetEntryCount() ); // gibst es nicht => leer? + aCurText = GetSelectEntry(); + } + bIgnoreSelect = sal_False; +} + +void BasicLibBox::InsertEntries( const ScriptDocument& rDocument, LibraryLocation eLocation ) +{ + // get a sorted list of library names + Sequence< ::rtl::OUString > aLibNames = rDocument.getLibraryNames(); + sal_Int32 nLibCount = aLibNames.getLength(); + const ::rtl::OUString* pLibNames = aLibNames.getConstArray(); + + for ( sal_Int32 i = 0 ; i < nLibCount ; ++i ) + { + String aLibName = pLibNames[ i ]; + if ( eLocation == rDocument.getLibraryLocation( aLibName ) ) + { + String aName( rDocument.getTitle( eLocation ) ); + String aEntryText( CreateMgrAndLibStr( aName, aLibName ) ); + sal_uInt16 nPos = InsertEntry( aEntryText, LISTBOX_APPEND ); + SetEntryData( nPos, new BasicLibEntry( rDocument, eLocation, aLibName ) ); + } + } +} + +long BasicLibBox::PreNotify( NotifyEvent& rNEvt ) +{ + long nDone = 0; + if( rNEvt.GetType() == EVENT_KEYINPUT ) + { + KeyEvent aKeyEvt = *rNEvt.GetKeyEvent(); + sal_uInt16 nKeyCode = aKeyEvt.GetKeyCode().GetCode(); + switch( nKeyCode ) + { + case KEY_RETURN: + { + NotifyIDE(); + nDone = 1; + } + break; + + case KEY_ESCAPE: + { + SelectEntry( aCurText ); + ReleaseFocus(); + nDone = 1; + } + break; + } + } + else if( rNEvt.GetType() == EVENT_GETFOCUS ) + { + if ( bFillBox ) + { + FillBox(); + bFillBox = sal_False; + } + } + else if( rNEvt.GetType() == EVENT_LOSEFOCUS ) + { + if ( !HasChildPathFocus( sal_True ) ) + { + bIgnoreSelect = sal_True; + bFillBox = sal_True; + } + } + + return nDone ? nDone : ListBox::PreNotify( rNEvt ); +} + +void BasicLibBox::Select() +{ + if ( !IsTravelSelect() ) + { + if ( !bIgnoreSelect ) + NotifyIDE(); + else + SelectEntry( aCurText ); // Seit 306... (Select nach Escape) + } +} + +void BasicLibBox::NotifyIDE() +{ + sal_uInt16 nSelPos = GetSelectEntryPos(); + BasicLibEntry* pEntry = (BasicLibEntry*)GetEntryData( nSelPos ); + if ( pEntry ) + { + ScriptDocument aDocument( pEntry->GetDocument() ); + SfxUsrAnyItem aDocumentItem( SID_BASICIDE_ARG_DOCUMENT_MODEL, uno::makeAny( aDocument.getDocumentOrNull() ) ); + String aLibName = pEntry->GetLibName(); + SfxStringItem aLibNameItem( SID_BASICIDE_ARG_LIBNAME, aLibName ); + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if ( pDispatcher ) + { + pDispatcher->Execute( SID_BASICIDE_LIBSELECTED, + SFX_CALLMODE_SYNCHRON, &aDocumentItem, &aLibNameItem, 0L ); + } + } + ReleaseFocus(); +} + +void BasicLibBox::ClearBox() +{ + sal_uInt16 nCount = GetEntryCount(); + for ( sal_uInt16 i = 0; i < nCount; ++i ) + { + BasicLibEntry* pEntry = (BasicLibEntry*)GetEntryData( i ); + delete pEntry; + } + ListBox::Clear(); +} + +// class LanguageBoxControl ---------------------------------------------- + +SFX_IMPL_TOOLBOX_CONTROL( LanguageBoxControl, SfxStringItem ); + +LanguageBoxControl::LanguageBoxControl( sal_uInt16 nSlotId, sal_uInt16 nId, ToolBox& rTbx ) + : SfxToolBoxControl( nSlotId, nId, rTbx ) +{ +} + +LanguageBoxControl::~LanguageBoxControl() +{ +} + +void LanguageBoxControl::StateChanged( sal_uInt16 _nID, SfxItemState _eState, const SfxPoolItem* _pItem ) +{ + (void)_nID; + + BasicLanguageBox* pBox = (BasicLanguageBox*)( GetToolBox().GetItemWindow( GetId() ) ); + + if ( pBox ) + { + if ( _eState != SFX_ITEM_AVAILABLE ) + pBox->Disable(); + else + { + pBox->Enable(); + if ( _pItem->ISA(SfxStringItem) ) + pBox->Update( (const SfxStringItem*)_pItem ); + else + pBox->Update( NULL ); + } + } +} + +Window* LanguageBoxControl::CreateItemWindow( Window *pParent ) +{ + return new BasicLanguageBox( pParent ); +} + +// class BasicLanguageBox ------------------------------------------------ + +BasicLanguageBox::BasicLanguageBox( Window* pParent ) : + + DocListenerBox( pParent ), + + m_sNotLocalizedStr( IDEResId( RID_STR_TRANSLATION_NOTLOCALIZED ) ), + m_sDefaultLanguageStr( IDEResId( RID_STR_TRANSLATION_DEFAULT ) ), + + m_bIgnoreSelect( false ) + +{ + SetSizePixel( Size( 210, 200 ) ); + + FillBox(); +} + +BasicLanguageBox::~BasicLanguageBox() +{ + ClearBox(); +} + +void BasicLanguageBox::FillBox() +{ + SetUpdateMode( sal_False ); + m_bIgnoreSelect = true; + m_sCurrentText = GetSelectEntry(); + ClearBox(); + + LocalizationMgr* pCurMgr = IDE_DLL()->GetShell()->GetCurLocalizationMgr(); + if ( pCurMgr->isLibraryLocalized() ) + { + Enable(); + SvtLanguageTable aLangTable; + Locale aDefaultLocale = pCurMgr->getStringResourceManager()->getDefaultLocale(); + Locale aCurrentLocale = pCurMgr->getStringResourceManager()->getCurrentLocale(); + Sequence< Locale > aLocaleSeq = pCurMgr->getStringResourceManager()->getLocales(); + const Locale* pLocale = aLocaleSeq.getConstArray(); + sal_Int32 i, nCount = aLocaleSeq.getLength(); + sal_uInt16 nSelPos = LISTBOX_ENTRY_NOTFOUND; + for ( i = 0; i < nCount; ++i ) + { + bool bIsDefault = localesAreEqual( aDefaultLocale, pLocale[i] ); + bool bIsCurrent = localesAreEqual( aCurrentLocale, pLocale[i] ); + LanguageType eLangType = SvxLocaleToLanguage( pLocale[i] ); + String sLanguage = aLangTable.GetString( eLangType ); + if ( bIsDefault ) + { + sLanguage += ' '; + sLanguage += m_sDefaultLanguageStr; + } + sal_uInt16 nPos = InsertEntry( sLanguage ); + SetEntryData( nPos, new LanguageEntry( sLanguage, pLocale[i], bIsDefault ) ); + + if ( bIsCurrent ) + nSelPos = nPos; + } + + if ( nSelPos != LISTBOX_ENTRY_NOTFOUND ) + { + SelectEntryPos( nSelPos ); + m_sCurrentText = GetSelectEntry(); + } + } + else + { + InsertEntry( m_sNotLocalizedStr ); + SelectEntryPos(0); + Disable(); + } + + SetUpdateMode( sal_True ); + m_bIgnoreSelect = false; +} + +void BasicLanguageBox::ClearBox() +{ + sal_uInt16 nCount = GetEntryCount(); + for ( sal_uInt16 i = 0; i < nCount; ++i ) + { + LanguageEntry* pEntry = (LanguageEntry*)GetEntryData(i); + delete pEntry; + } + ListBox::Clear(); +} + +void BasicLanguageBox::SetLanguage() +{ + LanguageEntry* pEntry = (LanguageEntry*)GetEntryData( GetSelectEntryPos() ); + if ( pEntry ) + IDE_DLL()->GetShell()->GetCurLocalizationMgr()->handleSetCurrentLocale( pEntry->m_aLocale ); +} + +void BasicLanguageBox::Select() +{ + if ( !m_bIgnoreSelect ) + SetLanguage(); + else + SelectEntry( m_sCurrentText ); // Select after Escape +} + +long BasicLanguageBox::PreNotify( NotifyEvent& rNEvt ) +{ + long nDone = 0; + if( rNEvt.GetType() == EVENT_KEYINPUT ) + { + sal_uInt16 nKeyCode = rNEvt.GetKeyEvent()->GetKeyCode().GetCode(); + switch( nKeyCode ) + { + case KEY_RETURN: + { + SetLanguage(); + nDone = 1; + } + break; + + case KEY_ESCAPE: + { + SelectEntry( m_sCurrentText ); + nDone = 1; + } + break; + } + } + else if( rNEvt.GetType() == EVENT_GETFOCUS ) + { + } + else if( rNEvt.GetType() == EVENT_LOSEFOCUS ) + { + } + + return nDone ? nDone : ListBox::PreNotify( rNEvt ); +} + +void BasicLanguageBox::Update( const SfxStringItem* pItem ) +{ + FillBox(); + + if ( pItem && pItem->GetValue().Len() > 0 ) + { + m_sCurrentText = pItem->GetValue(); + if ( GetSelectEntry() != m_sCurrentText ) + SelectEntry( m_sCurrentText ); + } +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/basicbox.hxx b/basctl/source/basicide/basicbox.hxx new file mode 100644 index 000000000000..8acf6926c204 --- /dev/null +++ b/basctl/source/basicide/basicbox.hxx @@ -0,0 +1,154 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +// +#ifndef _BASICBOX_HXX +#define _BASICBOX_HXX + +#include "doceventnotifier.hxx" +#include <svl/stritem.hxx> +#include <svheader.hxx> +#include <sfx2/tbxctrl.hxx> +#include <vcl/lstbox.hxx> + + +class LibBoxControl: public SfxToolBoxControl +{ +public: + SFX_DECL_TOOLBOX_CONTROL(); + + LibBoxControl( sal_uInt16 nSlotId, sal_uInt16 nId, ToolBox& rTbx ); + ~LibBoxControl(); + + virtual void StateChanged( sal_uInt16 nSID, SfxItemState eState, + const SfxPoolItem* pState ); + virtual Window* CreateItemWindow( Window *pParent ); +}; + +/** base class for list boxes which need to update their content according to the list + of open documents +*/ +class DocListenerBox :public ListBox + ,public ::basctl::DocumentEventListener +{ +protected: + DocListenerBox( Window* pParent ); + ~DocListenerBox(); + +protected: + virtual void FillBox() = 0; + +private: + // DocumentEventListener + virtual void onDocumentCreated( const ScriptDocument& _rDocument ); + virtual void onDocumentOpened( const ScriptDocument& _rDocument ); + virtual void onDocumentSave( const ScriptDocument& _rDocument ); + virtual void onDocumentSaveDone( const ScriptDocument& _rDocument ); + virtual void onDocumentSaveAs( const ScriptDocument& _rDocument ); + virtual void onDocumentSaveAsDone( const ScriptDocument& _rDocument ); + virtual void onDocumentClosed( const ScriptDocument& _rDocument ); + virtual void onDocumentTitleChanged( const ScriptDocument& _rDocument ); + virtual void onDocumentModeChanged( const ScriptDocument& _rDocument ); + +private: + ::basctl::DocumentEventNotifier m_aNotifier; +}; + +// + +class BasicLibBox : public DocListenerBox +{ +private: + String aCurText; + sal_Bool bIgnoreSelect; + sal_Bool bFillBox; + com::sun::star::uno::Reference< ::com::sun::star::frame::XFrame > m_xFrame; + + void ReleaseFocus(); + void InsertEntries( const ScriptDocument& rDocument, LibraryLocation eLocation ); + + void ClearBox(); + void NotifyIDE(); + + // DocListenerBox + virtual void FillBox(); + +protected: + virtual void Select(); + virtual long PreNotify( NotifyEvent& rNEvt ); + +public: + BasicLibBox( Window* pParent, + const com::sun::star::uno::Reference< ::com::sun::star::frame::XFrame >& rFrame ); + ~BasicLibBox(); + + using Window::Update; + void Update( const SfxStringItem* pItem ); +}; + +class LanguageBoxControl: public SfxToolBoxControl +{ +public: + SFX_DECL_TOOLBOX_CONTROL(); + + LanguageBoxControl( sal_uInt16 nSlotId, sal_uInt16 nId, ToolBox& rTbx ); + ~LanguageBoxControl(); + + virtual void StateChanged( sal_uInt16 nSID, SfxItemState eState, const SfxPoolItem* pState ); + virtual Window* CreateItemWindow( Window *pParent ); +}; + +class BasicLanguageBox : public DocListenerBox +{ +private: + String m_sNotLocalizedStr; + String m_sDefaultLanguageStr; + String m_sCurrentText; + + bool m_bIgnoreSelect; + + void ClearBox(); + void SetLanguage(); + + // DocListenerBox + virtual void FillBox(); + +protected: + virtual void Select(); + virtual long PreNotify( NotifyEvent& rNEvt ); + +public: + BasicLanguageBox( Window* pParent ); + ~BasicLanguageBox(); + + using Window::Update; + void Update( const SfxStringItem* pItem ); +}; + +#endif // _BASICBOX_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/basicmod.hxx b/basctl/source/basicide/basicmod.hxx new file mode 100644 index 000000000000..55ea4b0ac5bc --- /dev/null +++ b/basctl/source/basicide/basicmod.hxx @@ -0,0 +1,49 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + + +#ifndef BASICMOD_HXX +#define BASICMOD_HXX + +#include <sfx2/module.hxx> +#include <tools/shl.hxx> + +class BasicIDEModule : public SfxModule +{ +public: + BasicIDEModule( ResMgr *pMgr, SfxObjectFactory *pObjFact) : + SfxModule( pMgr, sal_False, pObjFact, NULL ) + {} +}; + + +#define BASIC_MOD() ( *(BasicIDEModule**) GetAppData(SHL_IDE) ) + +#endif + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/basicprint.src b/basctl/source/basicide/basicprint.src new file mode 100644 index 000000000000..06bb6b057150 --- /dev/null +++ b/basctl/source/basicide/basicprint.src @@ -0,0 +1,38 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#include <basidesh.hrc> + +StringArray RID_PRINTDLG_STRLIST +{ + ItemList [en-US] = + { + < "Print range"; >; + < "All ~Pages"; >; + < "Pa~ges"; >; + }; +}; diff --git a/basctl/source/basicide/basicrenderable.cxx b/basctl/source/basicide/basicrenderable.cxx new file mode 100644 index 000000000000..16712383ab3d --- /dev/null +++ b/basctl/source/basicide/basicrenderable.cxx @@ -0,0 +1,196 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#include "precompiled_basctl.hxx" + +#include "basicrenderable.hxx" +#include "bastypes.hxx" +#include "basidesh.hrc" + +#include "com/sun/star/awt/XDevice.hpp" +#include "toolkit/awt/vclxdevice.hxx" +#include "vcl/print.hxx" +#include "tools/multisel.hxx" +#include "tools/resary.hxx" + +using namespace com::sun::star; +using namespace com::sun::star::uno; +using namespace basicide; + +BasicRenderable::BasicRenderable( IDEBaseWindow* pWin ) +: cppu::WeakComponentImplHelper1< com::sun::star::view::XRenderable >( maMutex ) +, mpWindow( pWin ) +{ + ResStringArray aStrings( IDEResId( RID_PRINTDLG_STRLIST ) ); + DBG_ASSERT( aStrings.Count() >= 3, "resource incomplete" ); + if( aStrings.Count() < 3 ) // bad resource ? + return; + + m_aUIProperties.realloc( 3 ); + + // create Subgroup for print range + vcl::PrinterOptionsHelper::UIControlOptions aPrintRangeOpt; + aPrintRangeOpt.maGroupHint = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "PrintRange" ) ); + aPrintRangeOpt.mbInternalOnly = sal_True; + m_aUIProperties[0].Value = getSubgroupControlOpt( rtl::OUString( aStrings.GetString( 0 ) ), + rtl::OUString(), + aPrintRangeOpt + ); + + // create a choice for the range to print + rtl::OUString aPrintContentName( RTL_CONSTASCII_USTRINGPARAM( "PrintContent" ) ); + Sequence< rtl::OUString > aChoices( 2 ); + Sequence< rtl::OUString > aHelpIds( 2 ); + aChoices[0] = aStrings.GetString( 1 ); + aHelpIds[0] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".HelpID:vcl:PrintDialog:PrintContent:RadioButton:0" ) ); + aChoices[1] = aStrings.GetString( 2 ); + aHelpIds[1] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".HelpID:vcl:PrintDialog:PrintContent:RadioButton:1" ) ); + m_aUIProperties[1].Value = getChoiceControlOpt( rtl::OUString(), + aHelpIds, + aPrintContentName, + aChoices, + 0 ); + + // create a an Edit dependent on "Pages" selected + vcl::PrinterOptionsHelper::UIControlOptions aPageRangeOpt( aPrintContentName, 1, sal_True ); + m_aUIProperties[2].Value = getEditControlOpt( rtl::OUString(), + rtl::OUString(), + rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "PageRange" ) ), + rtl::OUString(), + aPageRangeOpt + ); +} + +BasicRenderable::~BasicRenderable() +{ +} + +Printer* BasicRenderable::getPrinter() +{ + Printer* pPrinter = NULL; + Any aValue( getValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "RenderDevice" ) ) ) ); + Reference<awt::XDevice> xRenderDevice; + + if( aValue >>= xRenderDevice ) + { + VCLXDevice* pDevice = VCLXDevice::GetImplementation(xRenderDevice); + OutputDevice* pOut = pDevice ? pDevice->GetOutputDevice() : NULL; + pPrinter = dynamic_cast<Printer*>(pOut); + } + return pPrinter; +} + +sal_Int32 SAL_CALL BasicRenderable::getRendererCount ( + const Any&, const Sequence<beans::PropertyValue >& i_xOptions + ) throw (lang::IllegalArgumentException, RuntimeException) +{ + processProperties( i_xOptions ); + + sal_Int32 nCount = 0; + if( mpWindow ) + { + Printer* pPrinter = getPrinter(); + if( pPrinter ) + { + nCount = mpWindow->countPages( pPrinter ); + sal_Int64 nContent = getIntValue( "PrintContent", -1 ); + if( nContent == 1 ) + { + rtl::OUString aPageRange( getStringValue( "PageRange" ) ); + MultiSelection aSel( aPageRange ); + long nSelCount = aSel.GetSelectCount(); + if( nSelCount >= 0 && nSelCount < nCount ) + nCount = nSelCount; + } + } + else + throw lang::IllegalArgumentException(); + } + + return nCount; +} + +Sequence<beans::PropertyValue> SAL_CALL BasicRenderable::getRenderer ( + sal_Int32, const Any&, const Sequence<beans::PropertyValue>& i_xOptions + ) throw (lang::IllegalArgumentException, RuntimeException) +{ + processProperties( i_xOptions ); + + Sequence< beans::PropertyValue > aVals; + // insert page size here + Printer* pPrinter = getPrinter(); + // no renderdevice is legal; the first call is to get our print ui options + if( pPrinter ) + { + Size aPageSize( pPrinter->PixelToLogic( pPrinter->GetPaperSizePixel(), MapMode( MAP_100TH_MM ) ) ); + + aVals.realloc( 1 ); + aVals[0].Name = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "PageSize" ) ); + awt::Size aSize; + aSize.Width = aPageSize.Width(); + aSize.Height = aPageSize.Height(); + aVals[0].Value <<= aSize; + } + + appendPrintUIOptions( aVals ); + + return aVals; +} + +void SAL_CALL BasicRenderable::render ( + sal_Int32 nRenderer, const Any&, + const Sequence<beans::PropertyValue>& i_xOptions + ) throw (lang::IllegalArgumentException, RuntimeException) +{ + processProperties( i_xOptions ); + + if( mpWindow ) + { + Printer* pPrinter = getPrinter(); + if( pPrinter ) + { + sal_Int64 nContent = getIntValue( "PrintContent", -1 ); + if( nContent == 1 ) + { + rtl::OUString aPageRange( getStringValue( "PageRange" ) ); + MultiSelection aSel( aPageRange ); + long nSelect = aSel.FirstSelected(); + while( nSelect != long(SFX_ENDOFSELECTION) && nRenderer-- ) + nSelect = aSel.NextSelected(); + if( nSelect != long(SFX_ENDOFSELECTION) ) + mpWindow->printPage( sal_Int32(nSelect-1), pPrinter ); + } + else + mpWindow->printPage( nRenderer, pPrinter ); + } + else + throw lang::IllegalArgumentException(); + } +} + + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/basicrenderable.hxx b/basctl/source/basicide/basicrenderable.hxx new file mode 100644 index 000000000000..aadddae90ed0 --- /dev/null +++ b/basctl/source/basicide/basicrenderable.hxx @@ -0,0 +1,76 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#ifndef _BASICRENDERABLE_HXX +#define _BASICRENDERABLE_HXX + +#include "com/sun/star/view/XRenderable.hpp" +#include "cppuhelper/compbase1.hxx" + +#include "vcl/print.hxx" + +class IDEBaseWindow; + +namespace basicide +{ +class BasicRenderable : + public cppu::WeakComponentImplHelper1< com::sun::star::view::XRenderable >, + public vcl::PrinterOptionsHelper +{ + IDEBaseWindow* mpWindow; + osl::Mutex maMutex; + + Printer* getPrinter(); +public: + BasicRenderable( IDEBaseWindow* pWin ); + virtual ~BasicRenderable(); + + // XRenderable + virtual sal_Int32 SAL_CALL getRendererCount ( + const com::sun::star::uno::Any& aSelection, + const com::sun::star::uno::Sequence<com::sun::star::beans::PropertyValue >& xOptions) + throw (com::sun::star::lang::IllegalArgumentException, com::sun::star::uno::RuntimeException); + + virtual com::sun::star::uno::Sequence<com::sun::star::beans::PropertyValue> SAL_CALL getRenderer ( + sal_Int32 nRenderer, + const com::sun::star::uno::Any& rSelection, + const com::sun::star::uno::Sequence<com::sun::star::beans::PropertyValue>& rxOptions) + throw (com::sun::star::lang::IllegalArgumentException, com::sun::star::uno::RuntimeException); + + virtual void SAL_CALL render ( + sal_Int32 nRenderer, + const com::sun::star::uno::Any& rSelection, + const com::sun::star::uno::Sequence<com::sun::star::beans::PropertyValue>& rxOptions) + throw (com::sun::star::lang::IllegalArgumentException, com::sun::star::uno::RuntimeException); + +}; + +} // namespace + +#endif + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/baside2.cxx b/basctl/source/basicide/baside2.cxx new file mode 100644 index 000000000000..aa1dd1ecd25e --- /dev/null +++ b/basctl/source/basicide/baside2.cxx @@ -0,0 +1,1743 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include <ide_pch.hxx> + +#include <svtools/texteng.hxx> +#include <svtools/textview.hxx> +#include <svtools/xtextedt.hxx> +#include <basic/sbx.hxx> +#include <comphelper/processfactory.hxx> +#include <com/sun/star/ui/dialogs/XFilePicker.hpp> +#include <com/sun/star/ui/dialogs/XFilePickerControlAccess.hpp> +#include <com/sun/star/ui/dialogs/XFilterManager.hpp> +#include <com/sun/star/ui/dialogs/TemplateDescription.hpp> +#include <com/sun/star/ui/dialogs/ExtendedFilePickerElementIds.hpp> +#include <com/sun/star/script/XLibraryContainer2.hpp> +#include <com/sun/star/document/MacroExecMode.hpp> +#include <com/sun/star/script/ModuleType.hpp> +#include <toolkit/helper/vclunohelper.hxx> +#include <sfx2/docfile.hxx> +#include <basic/basrdll.hxx> + +#include <baside2.hrc> +#include <baside2.hxx> +#include <objdlg.hxx> +#include <iderdll.hxx> +#include <iderdll2.hxx> + +#include <basobj.hxx> +#include <brkdlg.hxx> + +#include <svx/srchdlg.hxx> + +#include <vcl/sound.hxx> + +#include <unotools/textsearch.hxx> +#include <tools/diagnose_ex.h> + +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; + + +#define SPLIT_MARGIN 5 +#define SPLIT_HEIGHT 2 + +#define LMARGPRN 1700 +#define RMARGPRN 900 +#define TMARGPRN 2000 +#define BMARGPRN 1000 +#define BORDERPRN 300 + +#define APPWAIT_START 100 + +#define VALIDWINDOW 0x1234 + +#if defined(OW) || defined(MTF) +#define FILTERMASK_ALL "*" +#elif defined(PM2) +#define FILTERMASK_ALL "" +#else +#define FILTERMASK_ALL "*.*" +#endif + +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::ui::dialogs; +using namespace utl; +using namespace comphelper; + + +DBG_NAME( ModulWindow ) + +TYPEINIT1( ModulWindow , IDEBaseWindow ); + +void lcl_PrintHeader( Printer* pPrinter, sal_uInt16 nPages, sal_uInt16 nCurPage, const String& rTitle, bool bOutput ) +{ + short nLeftMargin = LMARGPRN; + Size aSz = pPrinter->GetOutputSize(); + short nBorder = BORDERPRN; + + const Color aOldLineColor( pPrinter->GetLineColor() ); + const Color aOldFillColor( pPrinter->GetFillColor() ); + const Font aOldFont( pPrinter->GetFont() ); + + pPrinter->SetLineColor( Color( COL_BLACK ) ); + pPrinter->SetFillColor(); + + Font aFont( aOldFont ); + aFont.SetWeight( WEIGHT_BOLD ); + aFont.SetAlign( ALIGN_BOTTOM ); + pPrinter->SetFont( aFont ); + + long nFontHeight = pPrinter->GetTextHeight(); + + // 1.Border => Strich, 2+3 Border = Freiraum. + long nYTop = TMARGPRN-3*nBorder-nFontHeight; + + long nXLeft = nLeftMargin-nBorder; + long nXRight = aSz.Width()-RMARGPRN+nBorder; + + if( bOutput ) + pPrinter->DrawRect( Rectangle( + Point( nXLeft, nYTop ), + Size( nXRight-nXLeft, aSz.Height() - nYTop - BMARGPRN + nBorder ) ) ); + + + long nY = TMARGPRN-2*nBorder; + Point aPos( nLeftMargin, nY ); + if( bOutput ) + pPrinter->DrawText( aPos, rTitle ); + if ( nPages != 1 ) + { + aFont.SetWeight( WEIGHT_NORMAL ); + pPrinter->SetFont( aFont ); + String aPageStr( RTL_CONSTASCII_USTRINGPARAM( " [" ) ); + aPageStr += String( IDEResId( RID_STR_PAGE ) ); + aPageStr += ' '; + aPageStr += String::CreateFromInt32( nCurPage ); + aPageStr += ']'; + aPos.X() += pPrinter->GetTextWidth( rTitle ); + if( bOutput ) + pPrinter->DrawText( aPos, aPageStr ); + } + + + nY = TMARGPRN-nBorder; + + if( bOutput ) + pPrinter->DrawLine( Point( nXLeft, nY ), Point( nXRight, nY ) ); + + pPrinter->SetFont( aOldFont ); + pPrinter->SetFillColor( aOldFillColor ); + pPrinter->SetLineColor( aOldLineColor ); +} + +void lcl_ConvertTabsToSpaces( String& rLine ) +{ + if ( rLine.Len() ) + { + sal_uInt16 nPos = 0; + sal_uInt16 nMax = rLine.Len(); + while ( nPos < nMax ) + { + if ( rLine.GetChar( nPos ) == '\t' ) + { + // Nicht 4 Blanks, sondern an 4er TabPos: + String aBlanker; + aBlanker.Fill( ( 4 - ( nPos % 4 ) ), ' ' ); + rLine.Erase( nPos, 1 ); + rLine.Insert( aBlanker, nPos ); + nMax = rLine.Len(); + } + nPos++; // Nicht optimal, falls Tab, aber auch nicht verkehrt... + } + } +} + + +ModulWindow::ModulWindow( ModulWindowLayout* pParent, const ScriptDocument& rDocument, String aLibName, + String aName, ::rtl::OUString& aModule ) + :IDEBaseWindow( pParent, rDocument, aLibName, aName ) + ,aXEditorWindow( this ) + ,m_aModule( aModule ) +{ + DBG_CTOR( ModulWindow, 0 ); + nValid = VALIDWINDOW; + pLayout = pParent; + aXEditorWindow.Show(); + + SetBackground(); +} + +SbModuleRef ModulWindow::XModule() +{ + // ModuleWindows can now be created as a result of the + // modules getting created via the api. This is a result of an + // elementInserted event from the BasicLibrary container. + // However the SbModule is also created from a different listener to + // the same event ( in basmgr ) Therefore it is possible when we look + // for xModule it may not yet be available, here we keep tring to access + // the module until such time as it exists + + if ( !xModule.Is() ) + { + BasicManager* pBasMgr = GetDocument().getBasicManager(); + if ( pBasMgr ) + { + StarBASIC* pBasic = pBasMgr->GetLib( GetLibName() ); + if ( pBasic ) + { + xBasic = pBasic; + xModule = (SbModule*)pBasic->FindModule( GetName() ); + } + } + } + return xModule; +} + +ModulWindow::~ModulWindow() +{ + DBG_DTOR( ModulWindow, 0 ); + nValid = 0; + + StarBASIC::Stop(); +} + + +void ModulWindow::GetFocus() +{ + if ( nValid != VALIDWINDOW ) + return; + DBG_CHKTHIS( ModulWindow, 0 ); + aXEditorWindow.GetEdtWindow().GrabFocus(); + // Basisklasse nicht rufen, weil Focus jetzt woanders... +} + +void ModulWindow::DoInit() +{ + DBG_CHKTHIS( ModulWindow, 0 ); + // Wird beim Umschalten der Fenster gerufen... + if ( GetVScrollBar() ) + GetVScrollBar()->Hide(); + GetHScrollBar()->Show(); + GetEditorWindow().InitScrollBars(); +} + + +void ModulWindow::Paint( const Rectangle& ) +{ +} + +void ModulWindow::Resize() +{ + aXEditorWindow.SetPosSizePixel( Point( 0, 0 ), + Size( GetOutputSizePixel() ) ); +} + + +// "Import" von baside4.cxx +void CreateEngineForBasic( StarBASIC* pBasic ); + +void ModulWindow::CheckCompileBasic() +{ + DBG_CHKTHIS( ModulWindow, 0 ); + + if ( XModule().Is() ) + { + // Zur Laufzeit wird niemals compiliert! + sal_Bool bRunning = StarBASIC::IsRunning(); + sal_Bool bModified = ( !xModule->IsCompiled() || + ( GetEditEngine() && GetEditEngine()->IsModified() ) ); + + if ( !bRunning && bModified ) + { + sal_Bool bDone = sal_False; + + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + pIDEShell->GetViewFrame()->GetWindow().EnterWait(); + + if( bModified ) + { + AssertValidEditEngine(); + GetEditorWindow().SetSourceInBasic( sal_False ); + } + + sal_Bool bWasModified = GetBasic()->IsModified(); + + bDone = GetBasic()->Compile( xModule ); + if ( !bWasModified ) + GetBasic()->SetModified( sal_False ); + + if ( bDone ) + { + GetBreakPoints().SetBreakPointsInBasic( xModule ); + } + + pIDEShell->GetViewFrame()->GetWindow().LeaveWait(); + + aStatus.bError = !bDone; + aStatus.bIsRunning = sal_False; + } + } +} + +sal_Bool ModulWindow::BasicExecute() +{ + DBG_CHKTHIS( ModulWindow, 0 ); + + // #116444# check security settings before macro execution + ScriptDocument aDocument( GetDocument() ); + if ( aDocument.isDocument() ) + { + if ( !aDocument.allowMacros() ) + { + WarningBox( this, WB_OK, String( IDEResId( RID_STR_CANNOTRUNMACRO ) ) ).Execute(); + return sal_False; + } + } + + CheckCompileBasic(); + + if ( XModule().Is() && xModule->IsCompiled() && !aStatus.bError ) + { + if ( GetBreakPoints().size() ) + aStatus.nBasicFlags = aStatus.nBasicFlags | SbDEBUG_BREAK; + + if ( !aStatus.bIsRunning ) + { + DBG_ASSERT( xModule.Is(), "Kein Modul!" ); + AddStatus( BASWIN_RUNNINGBASIC ); + sal_uInt16 nStart, nEnd, nCurMethodStart = 0; + TextSelection aSel = GetEditView()->GetSelection(); + // Init cursor to top + nCurMethodStart = ( aSel.GetStart().GetPara() + 1 ); + SbMethod* pMethod = 0; + // erstes Macro, sonst blind "Main" (ExtSearch?) + for ( sal_uInt16 nMacro = 0; nMacro < xModule->GetMethods()->Count(); nMacro++ ) + { + SbMethod* pM = (SbMethod*)xModule->GetMethods()->Get( nMacro ); + DBG_ASSERT( pM, "Method?" ); + pM->GetLineRange( nStart, nEnd ); + if ( nCurMethodStart >= nStart && nCurMethodStart <= nEnd ) + { + // matched a method to the cursor position + pMethod = pM; + break; + } + } + if ( !pMethod ) + { + // If not in a method then prompt the user + return ( BasicIDE::ChooseMacro( uno::Reference< frame::XModel >(), sal_False, rtl::OUString() ).getLength() > 0 ) ? sal_True : sal_False; + } + if ( pMethod ) + { + pMethod->SetDebugFlags( aStatus.nBasicFlags ); + BasicDLL::SetDebugMode( sal_True ); + BasicIDE::RunMethod( pMethod ); + BasicDLL::SetDebugMode( sal_False ); + // Falls waehrend Interactive=sal_False abgebrochen + BasicDLL::EnableBreak( sal_True ); + } + ClearStatus( BASWIN_RUNNINGBASIC ); + } + else + aStatus.bIsRunning = sal_False; // Abbruch von Reschedule() + } + + sal_Bool bDone = !aStatus.bError; + + return bDone; +} + +sal_Bool ModulWindow::CompileBasic() +{ + DBG_CHKTHIS( ModulWindow, 0 ); + CheckCompileBasic(); + + sal_Bool bIsCompiled = sal_False; + if ( XModule().Is() ) + bIsCompiled = xModule->IsCompiled(); + + return bIsCompiled; +} + +sal_Bool ModulWindow::BasicRun() +{ + DBG_CHKTHIS( ModulWindow, 0 ); + + aStatus.nBasicFlags = 0; + sal_Bool bDone = BasicExecute(); + return bDone; +} + +sal_Bool ModulWindow::BasicStepOver() +{ + DBG_CHKTHIS( ModulWindow, 0 ); + aStatus.nBasicFlags = SbDEBUG_STEPINTO | SbDEBUG_STEPOVER; + sal_Bool bDone = BasicExecute(); + return bDone; +} + + +sal_Bool ModulWindow::BasicStepInto() +{ + DBG_CHKTHIS( ModulWindow, 0 ); + + aStatus.nBasicFlags = SbDEBUG_STEPINTO; + sal_Bool bDone = BasicExecute(); + return bDone; +} + +sal_Bool ModulWindow::BasicStepOut() +{ + DBG_CHKTHIS( ModulWindow, 0 ); + + aStatus.nBasicFlags = SbDEBUG_STEPOUT; + sal_Bool bDone = BasicExecute(); + return bDone; +} + + + +void ModulWindow::BasicStop() +{ + DBG_CHKTHIS( ModulWindow, 0 ); + + GetBasic()->Stop(); + aStatus.bIsRunning = sal_False; +} + +sal_Bool ModulWindow::LoadBasic() +{ + DBG_CHKTHIS( ModulWindow, 0 ); + sal_Bool bDone = sal_False; + + Reference< lang::XMultiServiceFactory > xMSF( ::comphelper::getProcessServiceFactory() ); + Reference < XFilePicker > xFP; + if( xMSF.is() ) + { + Sequence <Any> aServiceType(1); + aServiceType[0] <<= TemplateDescription::FILEOPEN_SIMPLE; + xFP = Reference< XFilePicker >( xMSF->createInstanceWithArguments( + ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ui.dialogs.FilePicker" ) ), aServiceType ), UNO_QUERY ); + } + + if ( aCurPath.Len() ) + xFP->setDisplayDirectory ( aCurPath ); + + Reference< XFilterManager > xFltMgr(xFP, UNO_QUERY); + xFltMgr->appendFilter( String( RTL_CONSTASCII_USTRINGPARAM( "BASIC" ) ), String( RTL_CONSTASCII_USTRINGPARAM( "*.bas" ) ) ); + xFltMgr->appendFilter( String( IDEResId( RID_STR_FILTER_ALLFILES ) ), String( RTL_CONSTASCII_USTRINGPARAM( FILTERMASK_ALL ) ) ); + xFltMgr->setCurrentFilter( String( RTL_CONSTASCII_USTRINGPARAM( "BASIC" ) ) ); + + if( xFP->execute() == RET_OK ) + { + Sequence< ::rtl::OUString > aPaths = xFP->getFiles(); + aCurPath = aPaths[0]; + SfxMedium aMedium( aCurPath, STREAM_READ | STREAM_SHARE_DENYWRITE | STREAM_NOCREATE, sal_True ); + SvStream* pStream = aMedium.GetInStream(); + if ( pStream ) + { + AssertValidEditEngine(); + sal_uLong nLines = CalcLineCount( *pStream ); + // nLines*4: ReadText/Formatting/Highlighting/Formatting + GetEditorWindow().CreateProgress( String( IDEResId( RID_STR_GENERATESOURCE ) ), nLines*4 ); + GetEditEngine()->SetUpdateMode( sal_False ); + GetEditView()->Read( *pStream ); + GetEditEngine()->SetUpdateMode( sal_True ); + GetEditorWindow().Update(); // Es wurde bei UpdateMode = sal_True nur Invalidiert + GetEditorWindow().ForceSyntaxTimeout(); + GetEditorWindow().DestroyProgress(); + sal_uLong nError = aMedium.GetError(); + if ( nError ) + ErrorHandler::HandleError( nError ); + else + bDone = sal_True; + } + else + ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_COULDNTREAD ) ) ).Execute(); + } + return bDone; +} + + +sal_Bool ModulWindow::SaveBasicSource() +{ + DBG_CHKTHIS( ModulWindow, 0 ); + sal_Bool bDone = sal_False; + + Reference< lang::XMultiServiceFactory > xMSF( ::comphelper::getProcessServiceFactory() ); + Reference < XFilePicker > xFP; + if( xMSF.is() ) + { + Sequence <Any> aServiceType(1); + aServiceType[0] <<= TemplateDescription::FILESAVE_AUTOEXTENSION_PASSWORD; + xFP = Reference< XFilePicker >( xMSF->createInstanceWithArguments( + ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ui.dialogs.FilePicker" ) ), aServiceType ), UNO_QUERY ); + } + + Reference< XFilePickerControlAccess > xFPControl(xFP, UNO_QUERY); + xFPControl->enableControl(ExtendedFilePickerElementIds::CHECKBOX_PASSWORD, sal_False); + Any aValue; + aValue <<= (sal_Bool) sal_True; + xFPControl->setValue(ExtendedFilePickerElementIds::CHECKBOX_AUTOEXTENSION, 0, aValue); + + if ( aCurPath.Len() ) + xFP->setDisplayDirectory ( aCurPath ); + + Reference< XFilterManager > xFltMgr(xFP, UNO_QUERY); + xFltMgr->appendFilter( String( RTL_CONSTASCII_USTRINGPARAM( "BASIC" ) ), String( RTL_CONSTASCII_USTRINGPARAM( "*.bas" ) ) ); + xFltMgr->appendFilter( String( IDEResId( RID_STR_FILTER_ALLFILES ) ), String( RTL_CONSTASCII_USTRINGPARAM( FILTERMASK_ALL ) ) ); + xFltMgr->setCurrentFilter( String( RTL_CONSTASCII_USTRINGPARAM( "BASIC" ) ) ); + + if( xFP->execute() == RET_OK ) + { + Sequence< ::rtl::OUString > aPaths = xFP->getFiles(); + aCurPath = aPaths[0]; + SfxMedium aMedium( aCurPath, STREAM_WRITE | STREAM_SHARE_DENYWRITE | STREAM_TRUNC, sal_True, sal_False ); + SvStream* pStream = aMedium.GetOutStream(); + if ( pStream ) + { + EnterWait(); + AssertValidEditEngine(); + GetEditEngine()->Write( *pStream ); + aMedium.Commit(); + LeaveWait(); + sal_uLong nError = aMedium.GetError(); + if ( nError ) + ErrorHandler::HandleError( nError ); + else + bDone = sal_True; + } + else + ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_COULDNTWRITE) ) ).Execute(); + } + + return bDone; +} + +sal_Bool implImportDialog( Window* pWin, const String& rCurPath, const ScriptDocument& rDocument, const String& aLibName ); + +sal_Bool ModulWindow::ImportDialog() +{ + const ScriptDocument& rDocument = GetDocument(); + String aLibName = GetLibName(); + sal_Bool bRet = implImportDialog( this, aCurPath, rDocument, aLibName ); + return bRet; +} + +sal_Bool ModulWindow::ToggleBreakPoint( sal_uLong nLine ) +{ + DBG_ASSERT( XModule().Is(), "Kein Modul!" ); + + sal_Bool bNewBreakPoint = sal_False; + + if ( XModule().Is() ) + { + CheckCompileBasic(); + if ( aStatus.bError ) + { + Sound::Beep(); + return sal_False; + } + + BreakPoint* pBrk = GetBreakPoints().FindBreakPoint( nLine ); + if ( pBrk ) // entfernen + { + xModule->ClearBP( (sal_uInt16)nLine ); + delete GetBreakPoints().remove( pBrk ); + } + else // einen erzeugen + { + if ( xModule->SetBP( (sal_uInt16)nLine) ) + { + GetBreakPoints().InsertSorted( new BreakPoint( nLine ) ); + bNewBreakPoint = sal_True; + if ( StarBASIC::IsRunning() ) + { + for ( sal_uInt16 nMethod = 0; nMethod < xModule->GetMethods()->Count(); nMethod++ ) + { + SbMethod* pMethod = (SbMethod*)xModule->GetMethods()->Get( nMethod ); + DBG_ASSERT( pMethod, "Methode nicht gefunden! (NULL)" ); + pMethod->SetDebugFlags( pMethod->GetDebugFlags() | SbDEBUG_BREAK ); + } + } + } + + if ( !bNewBreakPoint ) + Sound::Beep(); + } + } + + return bNewBreakPoint; +} + +void ModulWindow::UpdateBreakPoint( const BreakPoint& rBrk ) +{ + DBG_ASSERT( XModule().Is(), "Kein Modul!" ); + + if ( XModule().Is() ) + { + CheckCompileBasic(); + + if ( rBrk.bEnabled ) + xModule->SetBP( (sal_uInt16)rBrk.nLine ); + else + xModule->ClearBP( (sal_uInt16)rBrk.nLine ); + } +} + + +sal_Bool ModulWindow::BasicToggleBreakPoint() +{ + DBG_CHKTHIS( ModulWindow, 0 ); + AssertValidEditEngine(); + + TextSelection aSel = GetEditView()->GetSelection(); + aSel.GetStart().GetPara()++; // Basic-Zeilen beginnen bei 1! + aSel.GetEnd().GetPara()++; + + sal_Bool bNewBreakPoint = sal_False; + + for ( sal_uLong nLine = aSel.GetStart().GetPara(); nLine <= aSel.GetEnd().GetPara(); nLine++ ) + { + if ( ToggleBreakPoint( nLine ) ) + bNewBreakPoint = sal_True; + } + + aXEditorWindow.GetBrkWindow().Invalidate(); + return bNewBreakPoint; +} + + +void ModulWindow::BasicToggleBreakPointEnabled() +{ + DBG_CHKTHIS( ModulWindow, 0 ); + AssertValidEditEngine(); + + ExtTextView* pView = GetEditView(); + if ( pView ) + { + TextSelection aSel = pView->GetSelection(); + BreakPointList& rList = GetBreakPoints(); + + for ( sal_uLong nLine = ++aSel.GetStart().GetPara(), nEnd = ++aSel.GetEnd().GetPara(); nLine <= nEnd; ++nLine ) + { + BreakPoint* pBrk = rList.FindBreakPoint( nLine ); + if ( pBrk ) + { + pBrk->bEnabled = pBrk->bEnabled ? sal_False : sal_True; + UpdateBreakPoint( *pBrk ); + } + } + + GetBreakPointWindow().Invalidate(); + } +} + + +void ModulWindow::ManageBreakPoints() +{ + BreakPointWindow& rBrkWin = GetBreakPointWindow(); + BreakPointDialog aBrkDlg( &rBrkWin, GetBreakPoints() ); + aBrkDlg.Execute(); + rBrkWin.Invalidate(); +} + + +IMPL_LINK( ModulWindow, BasicErrorHdl, StarBASIC *, pBasic ) +{ + DBG_CHKTHIS( ModulWindow, 0 ); + GoOnTop(); + + // ReturnWert: BOOL + // FALSE: Abbrechen + // TRUE: Weiter.... + String aErrorText( pBasic->GetErrorText() ); + sal_uInt16 nErrorLine = pBasic->GetLine() - 1; + sal_uInt16 nErrCol1 = pBasic->GetCol1(); + sal_uInt16 nErrCol2 = pBasic->GetCol2(); + if ( nErrCol2 != 0xFFFF ) + nErrCol2++; + + AssertValidEditEngine(); + GetEditView()->SetSelection( TextSelection( TextPaM( nErrorLine, nErrCol1 ), TextPaM( nErrorLine, nErrCol2 ) ) ); + + String aErrorTextPrefix; + if( pBasic->IsCompilerError() ) + { + aErrorTextPrefix = String( IDEResId( RID_STR_COMPILEERROR ) ); + } + else + { + aErrorTextPrefix = String( IDEResId( RID_STR_RUNTIMEERROR ) ); + aErrorTextPrefix += StarBASIC::GetVBErrorCode( pBasic->GetErrorCode() ); + aErrorTextPrefix += ' '; + pLayout->GetStackWindow().UpdateCalls(); + } + // Wenn anderes Basic, dan sollte die IDE versuchen, da richtige + // Modul anzuzeigen... + sal_Bool bMarkError = ( pBasic == GetBasic() ) ? sal_True : sal_False; + if ( bMarkError ) + aXEditorWindow.GetBrkWindow().SetMarkerPos( nErrorLine, sal_True ); + + // #i47002# + Reference< awt::XWindow > xWindow = VCLUnoHelper::GetInterface( this ); + + ErrorHandler::HandleError( StarBASIC::GetErrorCode() ); + + // #i47002# + Window* pWindow = VCLUnoHelper::GetWindow( xWindow ); + if ( !pWindow ) + return sal_False; + + if ( bMarkError ) + aXEditorWindow.GetBrkWindow().SetMarkerPos( MARKER_NOMARKER ); + return sal_False; +} + +long ModulWindow::BasicBreakHdl( StarBASIC* pBasic ) +{ + DBG_CHKTHIS( ModulWindow, 0 ); + + // #i69280 Required in Window despite normal usage in next command! + (void)pBasic; + + // ReturnWert: sal_uInt16 => siehe SB-Debug-Flags + sal_uInt16 nErrorLine = pBasic->GetLine(); + + // Gibt es hier einen BreakPoint? + BreakPoint* pBrk = GetBreakPoints().FindBreakPoint( nErrorLine ); + if ( pBrk ) + { + pBrk->nHitCount++; + if ( pBrk->nHitCount < pBrk->nStopAfter && GetBasic()->IsBreak() ) + return aStatus.nBasicFlags; // weiterlaufen... + } + + nErrorLine--; // EditEngine begint bei 0, Basic bei 1 + // Alleine schon damit gescrollt wird... + AssertValidEditEngine(); + GetEditView()->SetSelection( TextSelection( TextPaM( nErrorLine, 0 ), TextPaM( nErrorLine, 0 ) ) ); + aXEditorWindow.GetBrkWindow().SetMarkerPos( nErrorLine ); + + pLayout->GetWatchWindow().UpdateWatches(); + pLayout->GetStackWindow().UpdateCalls(); + + aStatus.bIsInReschedule = sal_True; + aStatus.bIsRunning = sal_True; + + AddStatus( BASWIN_INRESCHEDULE ); + + BasicIDE::InvalidateDebuggerSlots(); + + while( aStatus.bIsRunning ) + Application::Yield(); + + aStatus.bIsInReschedule = sal_False; + aXEditorWindow.GetBrkWindow().SetMarkerPos( MARKER_NOMARKER ); + + ClearStatus( BASWIN_INRESCHEDULE ); + + return aStatus.nBasicFlags; +} + +void ModulWindow::BasicAddWatch() +{ + DBG_CHKTHIS( ModulWindow, 0 ); + String aWatchStr; + sal_Bool bInserted = sal_False; + AssertValidEditEngine(); + sal_Bool bAdd = sal_True; + if ( !GetEditView()->HasSelection() ) + { + TextPaM aWordStart; + String aWord = GetEditEngine()->GetWord( GetEditView()->GetSelection().GetEnd(), &aWordStart ); + if ( aWord.Len() ) + { + TextSelection aSel( aWordStart ); + sal_uInt16& rIndex = aSel.GetEnd().GetIndex(); + rIndex = rIndex + aWord.Len(); + GetEditView()->SetSelection( aSel ); + bAdd = sal_True; + } + } + if ( bAdd ) + { + TextSelection aSel = GetEditView()->GetSelection(); + if ( aSel.GetStart().GetPara() == aSel.GetEnd().GetPara() ) + { + aWatchStr = GetEditView()->GetSelected(); + pLayout->GetWatchWindow().AddWatch( aWatchStr ); + pLayout->GetWatchWindow().UpdateWatches(); + bInserted = sal_True; + } + } + + if ( !bInserted ) + Sound::Beep(); +} + + + +void ModulWindow::BasicRemoveWatch() +{ + DBG_CHKTHIS( ModulWindow, 0 ); + sal_Bool bRemoved = pLayout->GetWatchWindow().RemoveSelectedWatch(); + + if ( !bRemoved ) + Sound::Beep(); +} + + +void ModulWindow::EditMacro( const String& rMacroName ) +{ + DBG_CHKTHIS( ModulWindow, 0 ); + DBG_ASSERT( XModule().Is(), "Kein Modul!" ); + + if ( XModule().Is() ) + { + CheckCompileBasic(); + + if ( !aStatus.bError ) + { + sal_uInt16 nStart, nEnd; + SbMethod* pMethod = (SbMethod*)xModule->Find( rMacroName, SbxCLASS_METHOD ); + if ( pMethod ) + { + pMethod->GetLineRange( nStart, nEnd ); + if ( nStart ) + { + // Basic beginnt bei 1 + nStart--; + nEnd--; + } + TextSelection aSel( TextPaM( nStart, 0 ), TextPaM( nStart, 0 ) ); + AssertValidEditEngine(); + TextView * pView = GetEditView(); + // ggf. hinscrollen, so dass erste Zeile oben... + long nVisHeight = GetOutputSizePixel().Height(); + if ( (long)pView->GetTextEngine()->GetTextHeight() > nVisHeight ) + { + long nMaxY = pView->GetTextEngine()->GetTextHeight() - nVisHeight; + long nOldStartY = pView->GetStartDocPos().Y(); + long nNewStartY = nStart * pView->GetTextEngine()->GetCharHeight(); + nNewStartY = Min( nNewStartY, nMaxY ); + pView->Scroll( 0, -(nNewStartY-nOldStartY) ); + pView->ShowCursor( sal_False, sal_True ); + GetEditVScrollBar().SetThumbPos( pView->GetStartDocPos().Y() ); + } + pView->SetSelection( aSel ); + pView->ShowCursor(); + pView->GetWindow()->GrabFocus(); + } + } + } +} + + +void ModulWindow::StoreData() +{ + DBG_CHKTHIS( ModulWindow, 0 ); + // StoreData wird gerufen, wenn der BasicManager zerstoert oder + // dieses Fenster beendet wird. + // => Keine Unterbrechungen erwuenscht! + // Und bei SAVE, wenn AppBasic... + GetEditorWindow().SetSourceInBasic( sal_True ); +} + +sal_Bool ModulWindow::CanClose() +{ + DBG_CHKTHIS( ModulWindow, 0 ); + return sal_True; +} + + +sal_Bool ModulWindow::AllowUndo() +{ + return GetEditorWindow().CanModify(); +} + + +void ModulWindow::UpdateData() +{ + DBG_CHKTHIS( ModulWindow, 0 ); + DBG_ASSERT( XModule().Is(), "Kein Modul!" ); + // UpdateData wird gerufen, wenn sich der Source von aussen + // geaendert hat. + // => Keine Unterbrechungen erwuenscht! + + if ( XModule().Is() ) + { + SetModule( xModule->GetSource32() ); + + if ( GetEditView() ) + { + TextSelection aSel = GetEditView()->GetSelection(); + setTextEngineText( GetEditEngine(), xModule->GetSource32() ); + GetEditView()->SetSelection( aSel ); + GetEditEngine()->SetModified( sal_False ); + BasicIDE::MarkDocumentModified( GetDocument() ); + } + } +} + +sal_Int32 ModulWindow::countPages( Printer* pPrinter ) +{ + return FormatAndPrint( pPrinter, -1 ); +} + +void ModulWindow::printPage( sal_Int32 nPage, Printer* pPrinter ) +{ + FormatAndPrint( pPrinter, nPage ); +} + +/* implementation note: this is totally inefficient for the XRenderable interface + usage since the whole "document" will be format for every page. Should this ever + become a problem we should + - format only once for every new printer + - keep an index list for each page which is the starting paragraph +*/ +sal_Int32 ModulWindow::FormatAndPrint( Printer* pPrinter, sal_Int32 nPrintPage ) +{ + DBG_CHKTHIS( ModulWindow, 0 ); + + AssertValidEditEngine(); + + MapMode eOldMapMode( pPrinter->GetMapMode() ); + Font aOldFont( pPrinter->GetFont() ); + + Font aFont( GetEditEngine()->GetFont() ); + aFont.SetAlign( ALIGN_BOTTOM ); + aFont.SetTransparent( sal_True ); + aFont.SetSize( Size( 0, 360 ) ); + pPrinter->SetFont( aFont ); + pPrinter->SetMapMode( MAP_100TH_MM ); + + String aTitle( CreateQualifiedName() ); + + sal_uInt16 nLineHeight = (sal_uInt16) pPrinter->GetTextHeight(); // etwas mehr. + sal_uInt16 nParaSpace = 10; + + Size aPaperSz = pPrinter->GetOutputSize(); + aPaperSz.Width() -= (LMARGPRN+RMARGPRN); + aPaperSz.Height() -= (TMARGPRN+BMARGPRN); + + // nLinepPage stimmt nicht, wenn Zeilen umgebrochen werden muessen... + sal_uInt16 nLinespPage = (sal_uInt16) (aPaperSz.Height()/nLineHeight); + sal_uInt16 nCharspLine = (sal_uInt16) (aPaperSz.Width() / pPrinter->GetTextWidth( 'X' ) ); + sal_uLong nParas = GetEditEngine()->GetParagraphCount(); + + sal_uInt16 nPages = (sal_uInt16) (nParas/nLinespPage+1 ); + sal_uInt16 nCurPage = 1; + + // Header drucken... + lcl_PrintHeader( pPrinter, nPages, nCurPage, aTitle, nPrintPage == 0 ); + Point aPos( LMARGPRN, TMARGPRN ); + for ( sal_uLong nPara = 0; nPara < nParas; nPara++ ) + { + String aLine( GetEditEngine()->GetText( nPara ) ); + lcl_ConvertTabsToSpaces( aLine ); + sal_uInt16 nLines = aLine.Len()/nCharspLine+1; + for ( sal_uInt16 nLine = 0; nLine < nLines; nLine++ ) + { + String aTmpLine( aLine, nLine*nCharspLine, nCharspLine ); + aPos.Y() += nLineHeight; + if ( aPos.Y() > ( aPaperSz.Height()+TMARGPRN ) ) + { + nCurPage++; + lcl_PrintHeader( pPrinter, nPages, nCurPage, aTitle, nCurPage-1 == nPrintPage ); + aPos = Point( LMARGPRN, TMARGPRN+nLineHeight ); + } + if( nCurPage-1 == nPrintPage ) + pPrinter->DrawText( aPos, aTmpLine ); + } + aPos.Y() += nParaSpace; + } + + pPrinter->SetFont( aOldFont ); + pPrinter->SetMapMode( eOldMapMode ); + + return sal_Int32(nCurPage); +} + + +void ModulWindow::ExecuteCommand( SfxRequest& rReq ) +{ + DBG_CHKTHIS( ModulWindow, 0 ); + AssertValidEditEngine(); + sal_uInt16 nSlot = rReq.GetSlot(); + switch ( nSlot ) + { + case SID_DELETE: + { + KeyEvent aFakeDelete( 0, KEY_DELETE ); + GetEditView()->KeyInput( aFakeDelete ); + break; + } + case SID_SELECTALL: + GetEditView()->SetSelection( TextSelection( TextPaM( 0, 0 ), TextPaM( 0xFFFFFFFF, 0xFFFF ) ) ); + break; + case SID_BASICRUN: + { + BasicRun(); + } + break; + case SID_BASICCOMPILE: + { + CompileBasic(); + } + break; + case SID_BASICSTEPOVER: + { + BasicStepOver(); + } + break; + case SID_BASICSTEPINTO: + { + BasicStepInto(); + } + break; + case SID_BASICSTEPOUT: + { + BasicStepOut(); + } + break; + case SID_BASICLOAD: + { + LoadBasic(); + } + break; + case SID_BASICSAVEAS: + { + SaveBasicSource(); + } + break; + case SID_IMPORT_DIALOG: + { + ImportDialog(); + } + break; + case SID_BASICIDE_MATCHGROUP: + { + if ( !GetEditView()->MatchGroup() ) + Sound::Beep(); + } + break; + case SID_BASICIDE_TOGGLEBRKPNT: + { + BasicToggleBreakPoint(); + } + break; + case SID_BASICIDE_MANAGEBRKPNTS: + { + ManageBreakPoints(); + } + break; + case SID_BASICIDE_TOGGLEBRKPNTENABLED: + { + BasicToggleBreakPointEnabled(); + } + break; + case SID_BASICIDE_ADDWATCH: + { + BasicAddWatch(); + } + break; + case SID_BASICIDE_REMOVEWATCH: + { + BasicRemoveWatch(); + } + break; + case SID_CUT: + { + if ( !IsReadOnly() ) + { + GetEditView()->Cut(); + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_DOC_MODIFIED ); + } + } + break; + case SID_COPY: + { + GetEditView()->Copy(); + } + break; + case SID_PASTE: + { + if ( !IsReadOnly() ) + { + GetEditView()->Paste(); + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_DOC_MODIFIED ); + } + } + break; + case SID_BASICIDE_BRKPNTSCHANGED: + { + GetBreakPointWindow().Invalidate(); + } + break; + } +} + + + +void ModulWindow::GetState( SfxItemSet &rSet ) +{ + DBG_CHKTHIS( ModulWindow, 0 ); + SfxWhichIter aIter(rSet); + for ( sal_uInt16 nWh = aIter.FirstWhich(); 0 != nWh; nWh = aIter.NextWhich() ) + { + switch ( nWh ) + { + // allgemeine Items: + case SID_CUT: + { + if ( !GetEditView() || !GetEditView()->HasSelection() ) + rSet.DisableItem( nWh ); + + if ( IsReadOnly() ) + rSet.DisableItem( nWh ); + } + break; + case SID_COPY: + { + if ( !GetEditView() || !GetEditView()->HasSelection() ) + rSet.DisableItem( nWh ); + } + break; + case SID_PASTE: + { + if ( !IsPasteAllowed() ) + rSet.DisableItem( nWh ); + + if ( IsReadOnly() ) + rSet.DisableItem( nWh ); + } + break; + case SID_BASICIDE_STAT_POS: + { + TextView* pView = GetEditView(); + if ( pView ) + { + TextSelection aSel = pView->GetSelection(); + String aPos( IDEResId( RID_STR_LINE ) ); + aPos += ' '; + aPos += String::CreateFromInt32( aSel.GetEnd().GetPara()+1 ); + aPos += String( RTL_CONSTASCII_USTRINGPARAM( ", " ) ); + aPos += String( IDEResId( RID_STR_COLUMN ) ); + aPos += ' '; + aPos += String::CreateFromInt32( aSel.GetEnd().GetIndex()+1 ); + SfxStringItem aItem( SID_BASICIDE_STAT_POS, aPos ); + rSet.Put( aItem ); + } + } + break; + case SID_ATTR_INSERT: + { + TextView* pView = GetEditView(); + if ( pView ) + { + SfxBoolItem aItem( SID_ATTR_INSERT, pView->IsInsertMode() ); + rSet.Put( aItem ); + } + } + break; + } + } +} + + +void ModulWindow::DoScroll( ScrollBar* pCurScrollBar ) +{ + DBG_CHKTHIS( ModulWindow, 0 ); + if ( ( pCurScrollBar == GetHScrollBar() ) && GetEditView() ) + { + // Nicht mit dem Wert Scrollen, sondern lieber die Thumb-Pos fuer die + // VisArea verwenden: + long nDiff = GetEditView()->GetStartDocPos().X() - pCurScrollBar->GetThumbPos(); + GetEditView()->Scroll( nDiff, 0 ); + GetEditView()->ShowCursor( sal_False, sal_True ); + pCurScrollBar->SetThumbPos( GetEditView()->GetStartDocPos().X() ); + + } +} + + +sal_Bool ModulWindow::IsModified() +{ + return GetEditEngine() ? GetEditEngine()->IsModified() : sal_False; +} + + + +void ModulWindow::GoOnTop() +{ + IDE_DLL()->GetShell()->GetViewFrame()->ToTop(); +} + +String ModulWindow::GetSbModuleName() +{ + String aModuleName; + if ( XModule().Is() ) + aModuleName = xModule->GetName(); + return aModuleName; +} + + + +String ModulWindow::GetTitle() +{ + return GetSbModuleName(); +} + + + +void ModulWindow::FrameWindowMoved() +{ +} + + + +void ModulWindow::ShowCursor( sal_Bool bOn ) +{ + if ( GetEditEngine() ) + { + TextView* pView = GetEditEngine()->GetActiveView(); + if ( pView ) + { + if ( bOn ) + pView->ShowCursor(); + else + pView->HideCursor(); + } + } +} + + +Window* ModulWindow::GetLayoutWindow() +{ + return pLayout; +} + +void ModulWindow::AssertValidEditEngine() +{ + if ( !GetEditEngine() ) + GetEditorWindow().CreateEditEngine(); +} + +void ModulWindow::Deactivating() +{ + if ( GetEditView() ) + GetEditView()->EraseVirtualDevice(); +} + +sal_uInt16 ModulWindow::StartSearchAndReplace( const SvxSearchItem& rSearchItem, sal_Bool bFromStart ) +{ + // Mann koennte fuer das blinde Alle-Ersetzen auch auf + // Syntaxhighlighting/Formatierung verzichten... + AssertValidEditEngine(); + ExtTextView* pView = GetEditView(); + TextSelection aSel; + if ( bFromStart ) + { + aSel = pView->GetSelection(); + if ( !rSearchItem.GetBackward() ) + pView->SetSelection( TextSelection() ); + else + pView->SetSelection( TextSelection( TextPaM( 0xFFFFFFFF, 0xFFFF ), TextPaM( 0xFFFFFFFF, 0xFFFF ) ) ); + } + + sal_Bool bForward = !rSearchItem.GetBackward(); + sal_uInt16 nFound = 0; + if ( ( rSearchItem.GetCommand() == SVX_SEARCHCMD_FIND ) || + ( rSearchItem.GetCommand() == SVX_SEARCHCMD_FIND_ALL ) ) + { + nFound = pView->Search( rSearchItem.GetSearchOptions() , bForward ); + } + else if ( ( rSearchItem.GetCommand() == SVX_SEARCHCMD_REPLACE ) || + ( rSearchItem.GetCommand() == SVX_SEARCHCMD_REPLACE_ALL ) ) + { + if ( !IsReadOnly() ) + { + sal_Bool bAll = rSearchItem.GetCommand() == SVX_SEARCHCMD_REPLACE_ALL; + nFound = pView->Replace( rSearchItem.GetSearchOptions() , bAll , bForward ); + } + } + + if ( bFromStart && !nFound ) + pView->SetSelection( aSel ); + + return nFound; +} + +::svl::IUndoManager* ModulWindow::GetUndoManager() +{ + if ( GetEditEngine() ) + return &GetEditEngine()->GetUndoManager(); + return NULL; +} + +sal_uInt16 ModulWindow::GetSearchOptions() +{ + sal_uInt16 nOptions = SEARCH_OPTIONS_SEARCH | + SEARCH_OPTIONS_WHOLE_WORDS | + SEARCH_OPTIONS_BACKWARDS | + SEARCH_OPTIONS_REG_EXP | + SEARCH_OPTIONS_EXACT | + SEARCH_OPTIONS_SELECTION | + SEARCH_OPTIONS_SIMILARITY; + + if ( !IsReadOnly() ) + { + nOptions |= SEARCH_OPTIONS_REPLACE; + nOptions |= SEARCH_OPTIONS_REPLACE_ALL; + } + + return nOptions; +} + +void ModulWindow::BasicStarted() +{ + if ( XModule().Is() ) + { + aStatus.bIsRunning = sal_True; + BreakPointList& rList = GetBreakPoints(); + if ( rList.size() ) + { + rList.ResetHitCount(); + rList.SetBreakPointsInBasic( xModule ); + for ( sal_uInt16 nMethod = 0; nMethod < xModule->GetMethods()->Count(); nMethod++ ) + { + SbMethod* pMethod = (SbMethod*)xModule->GetMethods()->Get( nMethod ); + DBG_ASSERT( pMethod, "Methode nicht gefunden! (NULL)" ); + pMethod->SetDebugFlags( pMethod->GetDebugFlags() | SbDEBUG_BREAK ); + } + } + } +} + +void ModulWindow::BasicStopped() +{ + aStatus.bIsRunning = sal_False; + GetBreakPointWindow().SetMarkerPos( MARKER_NOMARKER ); +} + +BasicEntryDescriptor ModulWindow::CreateEntryDescriptor() +{ + ScriptDocument aDocument( GetDocument() ); + String aLibName( GetLibName() ); + LibraryLocation eLocation = aDocument.getLibraryLocation( aLibName ); + String aModName( GetName() ); + String aLibSubName; + if( xBasic.Is() && aDocument.isInVBAMode() && XModule().Is() ) + { + switch( xModule->GetModuleType() ) + { + case script::ModuleType::DOCUMENT: + { + aLibSubName = String( IDEResId( RID_STR_DOCUMENT_OBJECTS ) ); + uno::Reference< container::XNameContainer > xLib = aDocument.getOrCreateLibrary( E_SCRIPTS, aLibName ); + if( xLib.is() ) + { + String sObjName; + ModuleInfoHelper::getObjectName( xLib, aModName, sObjName ); + if( sObjName.Len() ) + { + aModName.AppendAscii(" (").Append(sObjName).AppendAscii(")"); + } + } + break; + } + case script::ModuleType::FORM: + aLibSubName = String( IDEResId( RID_STR_USERFORMS ) ); + break; + case script::ModuleType::NORMAL: + aLibSubName = String( IDEResId( RID_STR_NORMAL_MODULES ) ); + break; + case script::ModuleType::CLASS: + aLibSubName = String( IDEResId( RID_STR_CLASS_MODULES ) ); + break; + } + } + return BasicEntryDescriptor( aDocument, eLocation, aLibName, aLibSubName, aModName, OBJ_TYPE_MODULE ); +} + +void ModulWindow::SetReadOnly( sal_Bool b ) +{ + if ( GetEditView() ) + GetEditView()->SetReadOnly( b ); +} + +sal_Bool ModulWindow::IsReadOnly() +{ + sal_Bool bReadOnly = sal_False; + + if ( GetEditView() ) + bReadOnly = GetEditView()->IsReadOnly(); + + return bReadOnly; +} + +sal_Bool ModulWindow::IsPasteAllowed() +{ + sal_Bool bPaste = sal_False; + + // get clipboard + Reference< datatransfer::clipboard::XClipboard > xClipboard = GetClipboard(); + if ( xClipboard.is() ) + { + // get clipboard content + const sal_uInt32 nRef = Application::ReleaseSolarMutex(); + Reference< datatransfer::XTransferable > xTransf = xClipboard->getContents(); + Application::AcquireSolarMutex( nRef ); + if ( xTransf.is() ) + { + datatransfer::DataFlavor aFlavor; + SotExchange::GetFormatDataFlavor( SOT_FORMAT_STRING, aFlavor ); + if ( xTransf->isDataFlavorSupported( aFlavor ) ) + { + bPaste = sal_True; + } + } + } + + return bPaste; +} + +ModulWindowLayout::ModulWindowLayout( Window* pParent ) : + Window( pParent, WB_CLIPCHILDREN ), + aVSplitter( this, WinBits( WB_VSCROLL ) ), + aHSplitter( this, WinBits( WB_HSCROLL ) ), + aWatchWindow( this ), + aStackWindow( this ), + bVSplitted(sal_False), + bHSplitted(sal_False), + m_pModulWindow(0), + m_aImagesNormal(IDEResId(RID_IMGLST_LAYOUT)) +{ + SetBackground(GetSettings().GetStyleSettings().GetWindowColor()); + + aVSplitter.SetSplitHdl( LINK( this, ModulWindowLayout, SplitHdl ) ); + aHSplitter.SetSplitHdl( LINK( this, ModulWindowLayout, SplitHdl ) ); + aVSplitter.Show(); + aHSplitter.Show(); + + aWatchWindow.Show(); + aStackWindow.Show(); + + Color aColor(GetSettings().GetStyleSettings().GetFieldTextColor()); + m_aSyntaxColors[TT_UNKNOWN] = aColor; + m_aSyntaxColors[TT_WHITESPACE] = aColor; + m_aSyntaxColors[TT_EOL] = aColor; + m_aColorConfig.AddListener(this); + m_aSyntaxColors[TT_IDENTIFIER] + = Color(m_aColorConfig.GetColorValue(svtools::BASICIDENTIFIER).nColor); + m_aSyntaxColors[TT_NUMBER] + = Color(m_aColorConfig.GetColorValue(svtools::BASICNUMBER).nColor); + m_aSyntaxColors[TT_STRING] + = Color(m_aColorConfig.GetColorValue(svtools::BASICSTRING).nColor); + m_aSyntaxColors[TT_COMMENT] + = Color(m_aColorConfig.GetColorValue(svtools::BASICCOMMENT).nColor); + m_aSyntaxColors[TT_ERROR] + = Color(m_aColorConfig.GetColorValue(svtools::BASICERROR).nColor); + m_aSyntaxColors[TT_OPERATOR] + = Color(m_aColorConfig.GetColorValue(svtools::BASICOPERATOR).nColor); + m_aSyntaxColors[TT_KEYWORDS] + = Color(m_aColorConfig.GetColorValue(svtools::BASICKEYWORD).nColor); + + Font aFont( GetFont() ); + Size aSz( aFont.GetSize() ); + aSz.Height() *= 3; + aSz.Height() /= 2; + aFont.SetSize( aSz ); + aFont.SetWeight( WEIGHT_BOLD ); + aFont.SetColor(GetSettings().GetStyleSettings().GetWindowTextColor()); + SetFont( aFont ); +} + +ModulWindowLayout::~ModulWindowLayout() +{ + m_aColorConfig.RemoveListener(this); +} + +void ModulWindowLayout::Resize() +{ + // ScrollBars, etc. passiert in BasicIDEShell:Adjust... + ArrangeWindows(); +} + +void ModulWindowLayout::Paint( const Rectangle& ) +{ + DrawText( Point(), String( IDEResId( RID_STR_NOMODULE ) ) ); +} + + +void ModulWindowLayout::ArrangeWindows() +{ + Size aSz = GetOutputSizePixel(); + + // prueffen, ob der Splitter in einem gueltigen Bereich liegt... + long nMinPos = SPLIT_MARGIN; + long nMaxPos = aSz.Height() - SPLIT_MARGIN; + + long nVSplitPos = aVSplitter.GetSplitPosPixel(); + long nHSplitPos = aHSplitter.GetSplitPosPixel(); + if ( !bVSplitted ) + { + // Wenn noch nie gesplitted wurde, Verhaeltniss = 3 : 4 + nVSplitPos = aSz.Height() * 3 / 4; + aVSplitter.SetSplitPosPixel( nVSplitPos ); + } + if ( !bHSplitted ) + { + // Wenn noch nie gesplitted wurde, Verhaeltniss = 2 : 3 + nHSplitPos = aSz.Width() * 2 / 3; + aHSplitter.SetSplitPosPixel( nHSplitPos ); + } + if ( ( nVSplitPos < nMinPos ) || ( nVSplitPos > nMaxPos ) ) + nVSplitPos = ( nVSplitPos < nMinPos ) ? 0 : ( aSz.Height() - SPLIT_HEIGHT ); + + Size aXEWSz; + aXEWSz.Width() = aSz.Width(); + aXEWSz.Height() = nVSplitPos + 1; + if ( m_pModulWindow ) + { + DBG_CHKOBJ( m_pModulWindow, ModulWindow, 0 ); + m_pModulWindow->SetPosSizePixel( Point( 0, 0 ), aXEWSz ); + } + + aVSplitter.SetDragRectPixel( Rectangle( Point( 0, 0 ), Size( aSz.Width(), aSz.Height() ) ) ); + aVSplitter.SetPosPixel( Point( 0, nVSplitPos ) ); + aVSplitter.SetSizePixel( Size( aSz.Width(), SPLIT_HEIGHT ) ); + + aHSplitter.SetDragRectPixel( Rectangle( Point( 0, nVSplitPos+SPLIT_HEIGHT ), Size( aSz.Width(), aSz.Height() - nVSplitPos - SPLIT_HEIGHT ) ) ); + aHSplitter.SetPosPixel( Point( nHSplitPos, nVSplitPos ) ); + aHSplitter.SetSizePixel( Size( SPLIT_HEIGHT, aSz.Height() - nVSplitPos ) ); + + Size aWWSz; + Point aWWPos( 0, nVSplitPos+SPLIT_HEIGHT ); + aWWSz.Width() = nHSplitPos; + aWWSz.Height() = aSz.Height() - aWWPos.Y(); + if ( !aWatchWindow.IsFloatingMode() ) + aWatchWindow.SetPosSizePixel( aWWPos, aWWSz ); + + Size aSWSz; + Point aSWPos( nHSplitPos+SPLIT_HEIGHT, nVSplitPos+SPLIT_HEIGHT ); + aSWSz.Width() = aSz.Width() - aSWPos.X(); + aSWSz.Height() = aSz.Height() - aSWPos.Y(); + if ( !aStackWindow.IsFloatingMode() ) + aStackWindow.SetPosSizePixel( aSWPos, aSWSz ); + + if ( aStackWindow.IsFloatingMode() && aWatchWindow.IsFloatingMode() ) + aHSplitter.Hide(); + else + aHSplitter.Show(); + + long nHDoubleClickSplitPosX = aSz.Width()-aHSplitter.GetSizePixel().Width(); + if ( aHSplitter.GetSplitPosPixel() < nHDoubleClickSplitPosX ) + aHSplitter.SetLastSplitPosPixel( nHDoubleClickSplitPosX ); + + + long nHDoubleClickSplitPosY = aSz.Height()-aVSplitter.GetSizePixel().Height(); + if ( aVSplitter.GetSplitPosPixel() < nHDoubleClickSplitPosY ) + aVSplitter.SetLastSplitPosPixel( nHDoubleClickSplitPosY ); +} + +IMPL_LINK( ModulWindowLayout, SplitHdl, Splitter *, pSplitter ) +{ + if ( pSplitter == &aVSplitter ) + bVSplitted = sal_True; + else + bHSplitted = sal_True; + + ArrangeWindows(); + return 0; +} + +sal_Bool ModulWindowLayout::IsToBeDocked( DockingWindow* pDockingWindow, const Point& rPos, Rectangle& rRect ) +{ + // prueffen, ob als Dock oder als Child: + // TRUE: Floating + // FALSE: Child + Point aPosInMe = ScreenToOutputPixel( rPos ); + Size aSz = GetOutputSizePixel(); + if ( ( aPosInMe.X() > 0 ) && ( aPosInMe.X() < aSz.Width() ) && + ( aPosInMe.Y() > 0 ) && ( aPosInMe.Y() < aSz.Height() ) ) + { + long nVSplitPos = aVSplitter.GetSplitPosPixel(); + long nHSplitPos = aHSplitter.GetSplitPosPixel(); + if ( pDockingWindow == &aWatchWindow ) + { + if ( ( aPosInMe.Y() > nVSplitPos ) && ( aPosInMe.X() < nHSplitPos ) ) + { + rRect.SetSize( Size( nHSplitPos, aSz.Height() - nVSplitPos ) ); + rRect.SetPos( OutputToScreenPixel( Point( 0, nVSplitPos ) ) ); + return sal_True; + } + } + if ( pDockingWindow == &aStackWindow ) + { + if ( ( aPosInMe.Y() > nVSplitPos ) && ( aPosInMe.X() > nHSplitPos ) ) + { + rRect.SetSize( Size( aSz.Width() - nHSplitPos, aSz.Height() - nVSplitPos ) ); + rRect.SetPos( OutputToScreenPixel( Point( nHSplitPos, nVSplitPos ) ) ); + return sal_True; + } + } + } + return sal_False; +} + +void ModulWindowLayout::DockaWindow( DockingWindow* pDockingWindow ) +{ + if ( pDockingWindow == &aWatchWindow ) + { + // evtl. Sonderbehandlung... + ArrangeWindows(); + } + else if ( pDockingWindow == &aStackWindow ) + { + // evtl. Sonderbehandlung... + ArrangeWindows(); + } +#if OSL_DEBUG_LEVEL > 0 + else + OSL_FAIL( "Wer will sich denn hier andocken ?" ); +#endif +} + +void ModulWindowLayout::SetModulWindow( ModulWindow* pModWin ) +{ + m_pModulWindow = pModWin; + ArrangeWindows(); +} + +// virtual +void ModulWindowLayout::DataChanged(DataChangedEvent const & rDCEvt) +{ + Window::DataChanged(rDCEvt); + if (rDCEvt.GetType() == DATACHANGED_SETTINGS + && (rDCEvt.GetFlags() & SETTINGS_STYLE) != 0) + { + bool bInvalidate = false; + Color aColor(GetSettings().GetStyleSettings().GetWindowColor()); + if (aColor + != rDCEvt.GetOldSettings()->GetStyleSettings().GetWindowColor()) + { + SetBackground(Wallpaper(aColor)); + bInvalidate = true; + } + aColor = GetSettings().GetStyleSettings().GetWindowTextColor(); + if (aColor != rDCEvt.GetOldSettings()-> + GetStyleSettings().GetWindowTextColor()) + { + Font aFont(GetFont()); + aFont.SetColor(aColor); + SetFont(aFont); + bInvalidate = true; + } + if (bInvalidate) + Invalidate(); + aColor = GetSettings().GetStyleSettings().GetFieldTextColor(); + if (aColor != m_aSyntaxColors[TT_UNKNOWN]) + { + m_aSyntaxColors[TT_UNKNOWN] = aColor; + m_aSyntaxColors[TT_WHITESPACE] = aColor; + m_aSyntaxColors[TT_EOL] = aColor; + updateSyntaxHighlighting(); + } + } +} + +// virtual +void ModulWindowLayout::ConfigurationChanged( utl::ConfigurationBroadcaster*, sal_uInt32 ) +{ + { + Color aColor(m_aColorConfig.GetColorValue(svtools::BASICIDENTIFIER). + nColor); + bool bChanged = aColor != m_aSyntaxColors[TT_IDENTIFIER]; + m_aSyntaxColors[TT_IDENTIFIER] = aColor; + aColor = Color(m_aColorConfig.GetColorValue(svtools::BASICNUMBER).nColor); + if (bChanged || aColor != m_aSyntaxColors[TT_NUMBER]) + bChanged = true; + m_aSyntaxColors[TT_NUMBER] = aColor; + aColor = Color(m_aColorConfig.GetColorValue(svtools::BASICSTRING).nColor); + if (bChanged || aColor != m_aSyntaxColors[TT_STRING]) + bChanged = true; + m_aSyntaxColors[TT_STRING] = aColor; + aColor = Color(m_aColorConfig.GetColorValue(svtools::BASICCOMMENT). + nColor); + if (bChanged || aColor != m_aSyntaxColors[TT_COMMENT]) + bChanged = true; + m_aSyntaxColors[TT_COMMENT] = aColor; + aColor = Color(m_aColorConfig.GetColorValue(svtools::BASICERROR).nColor); + if (bChanged || aColor != m_aSyntaxColors[TT_ERROR]) + bChanged = true; + m_aSyntaxColors[TT_ERROR] = aColor; + aColor = Color(m_aColorConfig.GetColorValue(svtools::BASICOPERATOR). + nColor); + if (bChanged || aColor != m_aSyntaxColors[TT_OPERATOR]) + bChanged = true; + m_aSyntaxColors[TT_OPERATOR] = aColor; + aColor = Color(m_aColorConfig.GetColorValue(svtools::BASICKEYWORD). + nColor); + if (bChanged || aColor != m_aSyntaxColors[TT_KEYWORDS]) + bChanged = true; + m_aSyntaxColors[TT_KEYWORDS] = aColor; + if (bChanged) + updateSyntaxHighlighting(); + } +} + +void ModulWindowLayout::updateSyntaxHighlighting() +{ + if (m_pModulWindow != 0) + { + EditorWindow & rEditor = m_pModulWindow->GetEditorWindow(); + sal_uLong nCount = rEditor.GetEditEngine()->GetParagraphCount(); + for (sal_uLong i = 0; i < nCount; ++i) + rEditor.DoDelayedSyntaxHighlight(i); + } +} + +Image ModulWindowLayout::getImage(sal_uInt16 nId) const +{ + return m_aImagesNormal.GetImage(nId); +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/baside2.hrc b/basctl/source/basicide/baside2.hrc new file mode 100644 index 000000000000..f97a0d897912 --- /dev/null +++ b/basctl/source/basicide/baside2.hrc @@ -0,0 +1,50 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#ifndef _BASIDE2_HRC +#define _BASIDE2_HRC + +#include <basidesh.hrc> + +// Diese Dateien enthaelt nur die lokalen ID's. + +// RID_POPUP_BRKPROPS +#define RID_BRKPROPS 1 +#define RID_ACTIV 2 + +// RID_POPUP_BRKDLG +#define RID_BRKDLG 1 + +// RID_POPUP_TABBAR +#define RID_INSERT 1 + +// ModulWindowLayout +#define IMGID_BRKENABLED ( SID_BASICIDE_IMAGESTART + 20 ) +#define IMGID_BRKDISABLED ( SID_BASICIDE_IMAGESTART + 21 ) +#define IMGID_STEPMARKER ( SID_BASICIDE_IMAGESTART + 22 ) +#define IMGID_ERRORMARKER ( SID_BASICIDE_IMAGESTART + 23 ) + +#endif // _BASIDE2_HRC diff --git a/basctl/source/basicide/baside2.hxx b/basctl/source/basicide/baside2.hxx new file mode 100644 index 000000000000..6af6c060411a --- /dev/null +++ b/basctl/source/basicide/baside2.hxx @@ -0,0 +1,476 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _BASIDE2_HXX +#define _BASIDE2_HXX + +#include <svheader.hxx> + +#include <bastypes.hxx> +#include <bastype3.hxx> +#include <basidesh.hxx> + +class ExtTextEngine; +class ExtTextView; +class SvxSearchItem; +#include <svtools/svtabbx.hxx> +#include <svtools/headbar.hxx> + +#include <vcl/button.hxx> +#include <basic/sbmod.hxx> +#include <vcl/split.hxx> +#include "svl/lstner.hxx" +#include <svtools/colorcfg.hxx> + +#include <sfx2/progress.hxx> +#include <svtools/syntaxhighlight.hxx> + +DBG_NAMEEX( ModulWindow ) + +#define MARKER_NOMARKER 0xFFFF + +namespace utl +{ + class SourceViewConfig; +} + +// #108672 Helper functions to get/set text in TextEngine +// using the stream interface (get/setText() only supports +// tools Strings limited to 64K). +::rtl::OUString getTextEngineText( ExtTextEngine* pEngine ); +void setTextEngineText( ExtTextEngine* pEngine, const ::rtl::OUString aStr ); + +class ProgressInfo : public SfxProgress +{ +private: + sal_uLong nCurState; + +public: + + inline ProgressInfo( SfxObjectShell* pObjSh, const String& rText, sal_uLong nRange ); + inline void StepProgress(); +}; + +inline ProgressInfo::ProgressInfo( SfxObjectShell* pObjSh, const String& rText, sal_uLong nRange ) + : SfxProgress( pObjSh, rText, nRange ) +{ + nCurState = 0; +} + +inline void ProgressInfo::StepProgress() +{ + SetState( ++nCurState ); +} + + +namespace svt { +class SourceViewConfig; +} + +class EditorWindow : public Window, public SfxListener, public utl::ConfigurationListener +{ +private: + ExtTextView* pEditView; + ExtTextEngine* pEditEngine; + + utl::SourceViewConfig* pSourceViewConfig; + + long nCurTextWidth; + + SyntaxHighlighter aHighlighter; + Timer aSyntaxIdleTimer; + Table aSyntaxLineTable; + DECL_LINK( SyntaxTimerHdl, Timer * ); + ProgressInfo* pProgress; + ModulWindow* pModulWindow; + + virtual void DataChanged(DataChangedEvent const & rDCEvt); + + using Window::Notify; + virtual void Notify( SfxBroadcaster& rBC, const SfxHint& rHint ); + + void ImpDoHighlight( sal_uLong nLineOff ); + void ImplSetFont(); + + sal_Bool bHighlightning; + sal_Bool bDoSyntaxHighlight; + sal_Bool bDelayHighlight; + + virtual + ::com::sun::star::uno::Reference< ::com::sun::star::awt::XWindowPeer > + GetComponentInterface(sal_Bool bCreate = sal_True); + +protected: + virtual void Paint( const Rectangle& ); + virtual void Resize(); + virtual void KeyInput( const KeyEvent& rKeyEvt ); + virtual void MouseMove( const MouseEvent& rMEvt ); + virtual void MouseButtonDown( const MouseEvent& rMEvt ); + virtual void MouseButtonUp( const MouseEvent& rMEvt ); + virtual void Command( const CommandEvent& rCEvt ); + virtual void LoseFocus(); + virtual void RequestHelp( const HelpEvent& rHEvt ); + virtual void ConfigurationChanged( utl::ConfigurationBroadcaster*, sal_uInt32 ); + + void DoSyntaxHighlight( sal_uLong nPara ); + String GetWordAtCursor(); + sal_Bool ImpCanModify(); + +public: + EditorWindow( Window* pParent ); + ~EditorWindow(); + + ExtTextEngine* GetEditEngine() const { return (ExtTextEngine*)pEditEngine; } + ExtTextView* GetEditView() const { return pEditView; } + ProgressInfo* GetProgress() const { return pProgress; } + + void CreateProgress( const String& rText, sal_uLong nRange ); + void DestroyProgress(); + + void ParagraphInsertedDeleted( sal_uLong nNewPara, sal_Bool bInserted ); + void DoDelayedSyntaxHighlight( sal_uLong nPara ); + + void CreateEditEngine(); + void SetScrollBarRanges(); + void InitScrollBars(); + void SetModulWindow( ModulWindow* pWin ) + { pModulWindow = pWin; } + + void ForceSyntaxTimeout(); + sal_Bool SetSourceInBasic( sal_Bool bQuiet = sal_True ); + + sal_Bool CanModify() { return ImpCanModify(); } +}; + + +class BreakPointWindow : public Window +{ +private: + long nCurYOffset; + sal_uInt16 nMarkerPos; + BreakPointList aBreakPointList; + ModulWindow* pModulWindow; + sal_Bool bErrorMarker; + + virtual void DataChanged(DataChangedEvent const & rDCEvt); + + void setBackgroundColor(Color aColor); + +protected: + virtual void Paint( const Rectangle& ); + virtual void Resize(); + BreakPoint* FindBreakPoint( const Point& rMousePos ); + void ShowMarker( sal_Bool bShow ); + virtual void MouseButtonDown( const MouseEvent& rMEvt ); + virtual void Command( const CommandEvent& rCEvt ); + + sal_Bool SyncYOffset(); + +public: + BreakPointWindow( Window* pParent ); + ~BreakPointWindow(); + + void SetModulWindow( ModulWindow* pWin ) + { pModulWindow = pWin; } + + void SetMarkerPos( sal_uInt16 nLine, sal_Bool bErrorMarker = sal_False ); + + void DoScroll( long nHorzScroll, long nVertScroll ); + long& GetCurYOffset() { return nCurYOffset; } + BreakPointList& GetBreakPoints() { return aBreakPointList; } +}; + + +class WatchTreeListBox : public SvHeaderTabListBox +{ + String aEditingRes; + +protected: + virtual sal_Bool EditingEntry( SvLBoxEntry* pEntry, Selection& rSel ); + virtual sal_Bool EditedEntry( SvLBoxEntry* pEntry, const String& rNewText ); + + sal_Bool ImplBasicEntryEdited( SvLBoxEntry* pEntry, const String& rResult ); + SbxBase* ImplGetSBXForEntry( SvLBoxEntry* pEntry, bool& rbArrayElement ); + +public: + WatchTreeListBox( Window* pParent, WinBits nWinBits ); + ~WatchTreeListBox(); + + void RequestingChilds( SvLBoxEntry * pParent ); + void UpdateWatches( bool bBasicStopped = false ); + + using SvTabListBox::SetTabs; + virtual void SetTabs(); +}; + + + +class WatchWindow : public BasicDockingWindow +{ +private: + String aWatchStr; + ExtendedEdit aXEdit; + ImageButton aRemoveWatchButton; + WatchTreeListBox aTreeListBox; + HeaderBar aHeaderBar; + +protected: + virtual void Resize(); + virtual void Paint( const Rectangle& rRect ); + + DECL_LINK( ButtonHdl, ImageButton * ); + DECL_LINK( TreeListHdl, SvTreeListBox * ); + DECL_LINK( implEndDragHdl, HeaderBar * ); + DECL_LINK( EditAccHdl, Accelerator * ); + + +public: + WatchWindow( Window* pParent ); + ~WatchWindow(); + + void AddWatch( const String& rVName ); + sal_Bool RemoveSelectedWatch(); + void UpdateWatches( bool bBasicStopped = false ); + + WatchTreeListBox& GetWatchTreeListBox() { return aTreeListBox; } +}; + + +class StackWindow : public BasicDockingWindow +{ +private: + SvTreeListBox aTreeListBox; + String aStackStr; + +protected: + virtual void Resize(); + virtual void Paint( const Rectangle& rRect ); + DECL_LINK( ButtonHdl, ImageButton * ); + +public: + StackWindow( Window* pParent ); + ~StackWindow(); + + void UpdateCalls(); +}; + + +class ComplexEditorWindow : public Window +{ +private: + BreakPointWindow aBrkWindow; + EditorWindow aEdtWindow; + ScrollBar aEWVScrollBar; + + virtual void DataChanged(DataChangedEvent const & rDCEvt); + +protected: + virtual void Resize(); + DECL_LINK( ScrollHdl, ScrollBar * ); + +public: + ComplexEditorWindow( ModulWindow* pParent ); + + BreakPointWindow& GetBrkWindow() { return aBrkWindow; } + EditorWindow& GetEdtWindow() { return aEdtWindow; } + ScrollBar& GetEWVScrollBar() { return aEWVScrollBar; } +}; + + +#define SYNTAX_COLOR_MAX 5 + +class ModulWindow: public IDEBaseWindow +{ + friend class BasicIDEShell; + +private: + StarBASICRef xBasic; + short nValid; + ComplexEditorWindow aXEditorWindow; + BasicStatus aStatus; + SbModuleRef xModule; + ModulWindowLayout* pLayout; + String aCurPath; + ::rtl::OUString m_aModule; + + DECL_LINK( BasicErrorHdl, StarBASIC * ); + long BasicBreakHdl( StarBASIC* pBasic ); + + void CheckCompileBasic(); + sal_Bool BasicExecute(); + + void GoOnTop(); + void AssertValidEditEngine(); + + sal_Int32 FormatAndPrint( Printer* pPrinter, sal_Int32 nPage = -1 ); + SbModuleRef XModule(); +protected: + virtual void Resize(); + virtual void GetFocus(); + virtual void Paint( const Rectangle& ); + virtual void Deactivating(); + virtual void DoInit(); + virtual void DoScroll( ScrollBar* pCurScrollBar ); + +public: + TYPEINFO(); + + ModulWindow( ModulWindowLayout* pParent, const ScriptDocument& rDocument, String aLibName, + String aName, ::rtl::OUString& aModule ); + + ~ModulWindow(); + + virtual void ExecuteCommand( SfxRequest& rReq ); + virtual void GetState( SfxItemSet& ); + virtual void StoreData(); + virtual void UpdateData(); + virtual sal_Bool CanClose(); + // return number of pages to be printed + virtual sal_Int32 countPages( Printer* pPrinter ); + // print page + virtual void printPage( sal_Int32 nPage, Printer* pPrinter ); + virtual String GetTitle(); + virtual BasicEntryDescriptor CreateEntryDescriptor(); + virtual sal_Bool AllowUndo(); + virtual void SetReadOnly( sal_Bool bReadOnly ); + virtual sal_Bool IsReadOnly(); + + StarBASIC* GetBasic() { XModule(); return xBasic; } + + SbModule* GetSbModule() { return xModule; } + void SetSbModule( SbModule* pModule ) { xModule = pModule; } + String GetSbModuleName(); + + sal_Bool CompileBasic(); + sal_Bool BasicRun(); + sal_Bool BasicStepOver(); + sal_Bool BasicStepInto(); + sal_Bool BasicStepOut(); + void BasicStop(); + sal_Bool BasicToggleBreakPoint(); + void BasicToggleBreakPointEnabled(); + void ManageBreakPoints(); + void UpdateBreakPoint( const BreakPoint& rBrk ); + void BasicAddWatch(); + void BasicRemoveWatch(); + + sal_Bool LoadBasic(); + sal_Bool SaveBasicSource(); + sal_Bool ImportDialog(); + + void EditMacro( const String& rMacroName ); + + sal_Bool ToggleBreakPoint( sal_uLong nLine ); + + BasicStatus& GetBasicStatus() { return aStatus; } + + virtual sal_Bool IsModified(); + virtual sal_Bool IsPasteAllowed(); + + void FrameWindowMoved(); + void ShowCursor( sal_Bool bOn ); + + virtual sal_uInt16 GetSearchOptions(); + sal_uInt16 StartSearchAndReplace( const SvxSearchItem& rSearchItem, sal_Bool bFromStart = sal_False ); + + virtual Window* GetLayoutWindow(); + + EditorWindow& GetEditorWindow() { return aXEditorWindow.GetEdtWindow(); } + BreakPointWindow& GetBreakPointWindow() { return aXEditorWindow.GetBrkWindow(); } + ScrollBar& GetEditVScrollBar() { return aXEditorWindow.GetEWVScrollBar(); } + ExtTextEngine* GetEditEngine() { return GetEditorWindow().GetEditEngine(); } + ExtTextView* GetEditView() { return GetEditorWindow().GetEditView(); } + BreakPointList& GetBreakPoints() { return GetBreakPointWindow().GetBreakPoints(); } + ModulWindowLayout* GetLayout() const { return pLayout; } + + virtual void BasicStarted(); + virtual void BasicStopped(); + + virtual ::svl::IUndoManager* + GetUndoManager(); + + const ::rtl::OUString& GetModule() const { return m_aModule; } + void SetModule( const ::rtl::OUString& aModule ) { m_aModule = aModule; } +}; + +class ModulWindowLayout: public Window, public utl::ConfigurationListener +{ +private: + + Splitter aVSplitter; + Splitter aHSplitter; + + WatchWindow aWatchWindow; + StackWindow aStackWindow; + + sal_Bool bVSplitted; + sal_Bool bHSplitted; + + ModulWindow * m_pModulWindow; + + Color m_aSyntaxColors[TT_KEYWORDS + 1]; + svtools::ColorConfig m_aColorConfig; + + ImageList m_aImagesNormal; + + virtual void DataChanged(DataChangedEvent const & rDCEvt); + + virtual void ConfigurationChanged( utl::ConfigurationBroadcaster*, sal_uInt32 ); + + void updateSyntaxHighlighting(); + + DECL_LINK( SplitHdl, Splitter * ); + + void ArrangeWindows(); + +protected: + virtual void Resize(); + virtual void Paint( const Rectangle& rRect ); + +public: + ModulWindowLayout( Window* pParent ); + ~ModulWindowLayout(); + + void DockaWindow( DockingWindow* pDockingWin ); + sal_Bool IsToBeDocked( DockingWindow* pDockingWin, const Point& rPos, Rectangle& rRect ); + + void SetModulWindow( ModulWindow* pModWin ); + ModulWindow* GetModulWindow() const { return m_pModulWindow; } + + WatchWindow& GetWatchWindow() { return aWatchWindow; } + StackWindow& GetStackWindow() { return aStackWindow; } + + Image getImage(sal_uInt16 nId) const; + + inline Color const & getSyntaxColor(TokenTypes eType) const + { return m_aSyntaxColors[eType]; } +}; + +#endif // _BASIDE2_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/baside2b.cxx b/basctl/source/basicide/baside2b.cxx new file mode 100644 index 000000000000..bbaddf089ad7 --- /dev/null +++ b/basctl/source/basicide/baside2b.cxx @@ -0,0 +1,2266 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include <vector> +#define _BASIC_TEXTPORTIONS +#include <basic/sbdef.hxx> +#include <ide_pch.hxx> + + +#include <tools/urlobj.hxx> +#include <unotools/charclass.hxx> +#include <svl/urihelper.hxx> +#include <basic/sbx.hxx> +#include <vcl/sound.hxx> +#include <svtools/xtextedt.hxx> +#include <svtools/txtattr.hxx> +#include <svtools/textwindowpeer.hxx> +#include <basic/sbuno.hxx> + +#include <helpid.hrc> +#include <baside2.hrc> +#include <baside2.hxx> +#include <brkdlg.hxx> +#include <objdlg.hxx> +#include <basobj.hxx> +#include <iderdll.hxx> +#include <iderdll2.hxx> +#include <vcl/taskpanelist.hxx> +#include <vcl/help.hxx> + +#include <unotools/sourceviewconfig.hxx> + +#include <com/sun/star/script/XLibraryContainer2.hpp> +#include <comphelper/processfactory.hxx> + + +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; + + +long nVirtToolBoxHeight; // inited in WatchWindow, used in Stackwindow +long nHeaderBarHeight; + +#define SCROLL_LINE 12 +#define SCROLL_PAGE 60 +#define DWBORDER 3 + +static const char cSuffixes[] = "%&!#@$"; + +MapUnit eEditMapUnit = MAP_100TH_MM; + + +/** + * Helper functions to get/set text in TextEngine using + * the stream interface. + * + * get/setText() only supports tools Strings limited to 64K). + */ +::rtl::OUString getTextEngineText( ExtTextEngine* pEngine ) +{ + SvMemoryStream aMemStream; + aMemStream.SetStreamCharSet( RTL_TEXTENCODING_UTF8 ); + aMemStream.SetLineDelimiter( LINEEND_LF ); + pEngine->Write( aMemStream ); + sal_uLong nSize = aMemStream.Tell(); + ::rtl::OUString aText( (const sal_Char*)aMemStream.GetData(), + nSize, RTL_TEXTENCODING_UTF8 ); + return aText; +} + +void setTextEngineText( ExtTextEngine* pEngine, const ::rtl::OUString aStr ) +{ + pEngine->SetText( String() ); + ::rtl::OString aUTF8Str = ::rtl::OUStringToOString( aStr, RTL_TEXTENCODING_UTF8 ); + SvMemoryStream aMemStream( (void*)aUTF8Str.getStr(), aUTF8Str.getLength(), + STREAM_READ | STREAM_SEEK_TO_BEGIN ); + aMemStream.SetStreamCharSet( RTL_TEXTENCODING_UTF8 ); + aMemStream.SetLineDelimiter( LINEEND_LF ); + pEngine->Read( aMemStream ); +} + +void lcl_DrawIDEWindowFrame( DockingWindow* pWin ) +{ + if ( pWin->IsFloatingMode() ) + return; + + Size aSz = pWin->GetOutputSizePixel(); + const Color aOldLineColor( pWin->GetLineColor() ); + pWin->SetLineColor( Color( COL_WHITE ) ); + // White line on top + pWin->DrawLine( Point( 0, 0 ), Point( aSz.Width(), 0 ) ); + // Black line at bottom + pWin->SetLineColor( Color( COL_BLACK ) ); + pWin->DrawLine( Point( 0, aSz.Height() - 1 ), + Point( aSz.Width(), aSz.Height() - 1 ) ); + pWin->SetLineColor( aOldLineColor ); +} + +void lcl_SeparateNameAndIndex( const String& rVName, String& rVar, String& rIndex ) +{ + rVar = rVName; + rIndex.Erase(); + sal_uInt16 nIndexStart = rVar.Search( '(' ); + if ( nIndexStart != STRING_NOTFOUND ) + { + sal_uInt16 nIndexEnd = rVar.Search( ')', nIndexStart ); + if ( nIndexStart != STRING_NOTFOUND ) + { + rIndex = rVar.Copy( nIndexStart+1, nIndexEnd-nIndexStart-1 ); + rVar.Erase( nIndexStart ); + rVar.EraseTrailingChars(); + rIndex.EraseLeadingChars(); + rIndex.EraseTrailingChars(); + } + } + + if ( rVar.Len() ) + { + sal_uInt16 nLastChar = rVar.Len()-1; + if ( strchr( cSuffixes, rVar.GetChar( nLastChar ) ) ) + rVar.Erase( nLastChar, 1 ); + } + if ( rIndex.Len() ) + { + sal_uInt16 nLastChar = rIndex.Len()-1; + if ( strchr( cSuffixes, rIndex.GetChar( nLastChar ) ) ) + rIndex.Erase( nLastChar, 1 ); + } +} + + +EditorWindow::EditorWindow( Window* pParent ) : + Window( pParent, WB_BORDER ) +{ + bDoSyntaxHighlight = sal_True; + bDelayHighlight = sal_True; + pModulWindow = 0; + pEditView = 0; + pEditEngine = 0; + pSourceViewConfig = new utl::SourceViewConfig; + bHighlightning = sal_False; + pProgress = 0; + nCurTextWidth = 0; + SetBackground( + Wallpaper(GetSettings().GetStyleSettings().GetFieldColor())); + SetPointer( Pointer( POINTER_TEXT ) ); + + SetHelpId( HID_BASICIDE_EDITORWINDOW ); + pSourceViewConfig->AddListener(this); +} + + + +EditorWindow::~EditorWindow() +{ + pSourceViewConfig->RemoveListener(this); + delete pSourceViewConfig; + + aSyntaxIdleTimer.Stop(); + + if ( pEditEngine ) + { + EndListening( *pEditEngine ); + pEditEngine->RemoveView( pEditView ); + delete pEditView; + delete pEditEngine; + } +} + +String EditorWindow::GetWordAtCursor() +{ + String aWord; + + if ( pEditView ) + { + TextEngine* pTextEngine = pEditView->GetTextEngine(); + if ( pTextEngine ) + { + // check first, if the cursor is at a help URL + const TextSelection& rSelection = pEditView->GetSelection(); + const TextPaM& rSelStart = rSelection.GetStart(); + const TextPaM& rSelEnd = rSelection.GetEnd(); + String aText = pTextEngine->GetText( rSelEnd.GetPara() ); + CharClass aClass( ::comphelper::getProcessServiceFactory() , Application::GetSettings().GetLocale() ); + xub_StrLen nSelStart = static_cast< xub_StrLen >( rSelStart.GetIndex() ); + xub_StrLen nSelEnd = static_cast< xub_StrLen >( rSelEnd.GetIndex() ); + xub_StrLen nLength = static_cast< xub_StrLen >( aText.Len() ); + xub_StrLen nStart = 0; + xub_StrLen nEnd = nLength; + while ( nStart < nLength ) + { + String aURL( URIHelper::FindFirstURLInText( aText, nStart, nEnd, aClass ) ); + INetURLObject aURLObj( aURL ); + if ( aURLObj.GetProtocol() == INET_PROT_VND_SUN_STAR_HELP + && nSelStart >= nStart && nSelStart <= nEnd && nSelEnd >= nStart && nSelEnd <= nEnd ) + { + aWord = aURL; + break; + } + nStart = nEnd; + nEnd = nLength; + } + + // Not the selected range, but at the CursorPosition, + // if a word is partially selected. + if ( !aWord.Len() ) + aWord = pTextEngine->GetWord( rSelEnd ); + + // Can be empty when full word selected, as Cursor behing it + if ( !aWord.Len() && pEditView->HasSelection() ) + aWord = pTextEngine->GetWord( rSelStart ); + } + } + + return aWord; +} + +void EditorWindow::RequestHelp( const HelpEvent& rHEvt ) +{ + sal_Bool bDone = sal_False; + + // Should have been activated at some point + if ( pEditEngine ) + { + if ( rHEvt.GetMode() & HELPMODE_CONTEXT ) + { + String aKeyword = GetWordAtCursor(); + Application::GetHelp()->SearchKeyword( aKeyword ); + bDone = sal_True; + } + else if ( rHEvt.GetMode() & HELPMODE_QUICK ) + { + String aHelpText; + Point aTopLeft; + if ( StarBASIC::IsRunning() ) + { + Point aWindowPos = rHEvt.GetMousePosPixel(); + aWindowPos = ScreenToOutputPixel( aWindowPos ); + Point aDocPos = GetEditView()->GetDocPos( aWindowPos ); + TextPaM aCursor = GetEditView()->GetTextEngine()->GetPaM( aDocPos, sal_False ); + TextPaM aStartOfWord; + String aWord = GetEditView()->GetTextEngine()->GetWord( aCursor, &aStartOfWord ); + if ( aWord.Len() && !ByteString( aWord, RTL_TEXTENCODING_UTF8 ).IsNumericAscii() ) + { + sal_uInt16 nLastChar =aWord.Len()-1; + if ( strchr( cSuffixes, aWord.GetChar( nLastChar ) ) ) + aWord.Erase( nLastChar, 1 ); + SbxBase* pSBX = StarBASIC::FindSBXInCurrentScope( aWord ); + if ( pSBX && pSBX->ISA( SbxVariable ) && !pSBX->ISA( SbxMethod ) ) + { + SbxVariable* pVar = (SbxVariable*)pSBX; + SbxDataType eType = pVar->GetType(); + if ( (sal_uInt8)eType == (sal_uInt8)SbxOBJECT ) + // Kann zu Absturz, z.B. bei Selections-Objekt fuehren + // Type == Object heisst nicht, dass pVar == Object! + ; // aHelpText = ((SbxObject*)pVar)->GetClassName(); + else if ( eType & SbxARRAY ) + ; // aHelpText = "{...}"; + else if ( (sal_uInt8)eType != (sal_uInt8)SbxEMPTY ) + { + aHelpText = pVar->GetName(); + if ( !aHelpText.Len() ) // Bei Uebergabeparametern wird der Name nicht kopiert + aHelpText = aWord; + aHelpText += '='; + aHelpText += pVar->GetString(); + } + } + if ( aHelpText.Len() ) + { + aTopLeft = GetEditView()->GetTextEngine()->PaMtoEditCursor( aStartOfWord ).BottomLeft(); + aTopLeft = GetEditView()->GetWindowPos( aTopLeft ); + aTopLeft.X() += 5; + aTopLeft.Y() += 5; + aTopLeft = OutputToScreenPixel( aTopLeft ); + } + } + } + Help::ShowQuickHelp( this, Rectangle( aTopLeft, Size( 1, 1 ) ), aHelpText, QUICKHELP_TOP|QUICKHELP_LEFT); + bDone = sal_True; + } + } + + if ( !bDone ) + Window::RequestHelp( rHEvt ); +} + + +void EditorWindow::Resize() +{ + // ScrollBars, etc. happens in Adjust... + if ( pEditView ) + { + long nVisY = pEditView->GetStartDocPos().Y(); + + pEditView->ShowCursor(); + Size aOutSz( GetOutputSizePixel() ); + long nMaxVisAreaStart = pEditView->GetTextEngine()->GetTextHeight() - aOutSz.Height(); + if ( nMaxVisAreaStart < 0 ) + nMaxVisAreaStart = 0; + if ( pEditView->GetStartDocPos().Y() > nMaxVisAreaStart ) + { + Point aStartDocPos( pEditView->GetStartDocPos() ); + aStartDocPos.Y() = nMaxVisAreaStart; + pEditView->SetStartDocPos( aStartDocPos ); + pEditView->ShowCursor(); + pModulWindow->GetBreakPointWindow().GetCurYOffset() = aStartDocPos.Y(); + } + InitScrollBars(); + if ( nVisY != pEditView->GetStartDocPos().Y() ) + Invalidate(); + } +} + + +void EditorWindow::MouseMove( const MouseEvent &rEvt ) +{ + if ( pEditView ) + pEditView->MouseMove( rEvt ); +} + + +void EditorWindow::MouseButtonUp( const MouseEvent &rEvt ) +{ + if ( pEditView ) + { + pEditView->MouseButtonUp( rEvt ); + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_BASICIDE_STAT_POS ); + } +} + +void EditorWindow::MouseButtonDown( const MouseEvent &rEvt ) +{ + GrabFocus(); + if ( pEditView ) + { + pEditView->MouseButtonDown( rEvt ); + } +} + +void EditorWindow::Command( const CommandEvent& rCEvt ) +{ + if ( pEditView ) + { + pEditView->Command( rCEvt ); + if ( ( rCEvt.GetCommand() == COMMAND_WHEEL ) || + ( rCEvt.GetCommand() == COMMAND_STARTAUTOSCROLL ) || + ( rCEvt.GetCommand() == COMMAND_AUTOSCROLL ) ) + { + HandleScrollCommand( rCEvt, pModulWindow->GetHScrollBar(), &pModulWindow->GetEditVScrollBar() ); + } + } +} + +sal_Bool EditorWindow::ImpCanModify() +{ + sal_Bool bCanModify = sal_True; + if ( StarBASIC::IsRunning() ) + { + // If in Trace-mode, abort the trace or refuse input + // Remove markers in the modules in Notify at Basic::Stoped + if ( QueryBox( 0, WB_OK_CANCEL, String( IDEResId( RID_STR_WILLSTOPPRG ) ) ).Execute() == RET_OK ) + { + pModulWindow->GetBasicStatus().bIsRunning = sal_False; + BasicIDE::StopBasic(); + } + else + bCanModify = sal_False; + } + return bCanModify; +} + +void EditorWindow::KeyInput( const KeyEvent& rKEvt ) +{ + if ( !pEditView ) // Happens in Win95 + return; + +#if OSL_DEBUG_LEVEL > 1 + Range aRange = pModulWindow->GetHScrollBar()->GetRange(); (void)aRange; + long nVisSz = pModulWindow->GetHScrollBar()->GetVisibleSize(); (void)nVisSz; + long nPapSz = pModulWindow->GetHScrollBar()->GetPageSize(); (void)nPapSz; + long nLinSz = pModulWindow->GetHScrollBar()->GetLineSize(); (void)nLinSz; + long nThumb = pModulWindow->GetHScrollBar()->GetThumbPos(); (void)nThumb; +#endif + sal_Bool bWasModified = pEditEngine->IsModified(); + // see if there is an accelerator to be processed first + sal_Bool bDone = SfxViewShell::Current()->KeyInput( rKEvt ); + + if ( !bDone && ( !TextEngine::DoesKeyChangeText( rKEvt ) || ImpCanModify() ) ) + { + if ( ( rKEvt.GetKeyCode().GetCode() == KEY_Y ) && rKEvt.GetKeyCode().IsMod1() ) + bDone = sal_True; // CTRL-Y schlucken, damit kein Vorlagenkatalog + else + { + if ( ( rKEvt.GetKeyCode().GetCode() == KEY_TAB ) && !rKEvt.GetKeyCode().IsMod1() && + !rKEvt.GetKeyCode().IsMod2() && !GetEditView()->IsReadOnly() ) + { + TextSelection aSel( pEditView->GetSelection() ); + if ( aSel.GetStart().GetPara() != aSel.GetEnd().GetPara() ) + { + bDelayHighlight = sal_False; + if ( !rKEvt.GetKeyCode().IsShift() ) + pEditView->IndentBlock(); + else + pEditView->UnindentBlock(); + bDelayHighlight = sal_True; + bDone = sal_True; + } + } + if ( !bDone ) + bDone = pEditView->KeyInput( rKEvt ); + } + } + if ( !bDone ) + { + Window::KeyInput( rKEvt ); + } + else + { + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + { + pBindings->Invalidate( SID_BASICIDE_STAT_POS ); + if ( rKEvt.GetKeyCode().GetGroup() == KEYGROUP_CURSOR ) + pBindings->Update( SID_BASICIDE_STAT_POS ); + if ( !bWasModified && pEditEngine->IsModified() ) + { + pBindings->Invalidate( SID_SAVEDOC ); + pBindings->Invalidate( SID_DOC_MODIFIED ); + pBindings->Invalidate( SID_UNDO ); + } + if ( rKEvt.GetKeyCode().GetCode() == KEY_INSERT ) + pBindings->Invalidate( SID_ATTR_INSERT ); + } + } +} + +void EditorWindow::Paint( const Rectangle& rRect ) +{ + if ( !pEditEngine ) // We need it now at latest + CreateEditEngine(); + + pEditView->Paint( rRect ); +} + +void EditorWindow::LoseFocus() +{ + SetSourceInBasic(); + Window::LoseFocus(); +} + +sal_Bool EditorWindow::SetSourceInBasic( sal_Bool bQuiet ) +{ + (void)bQuiet; + + sal_Bool bChanged = sal_False; + if ( pEditEngine && pEditEngine->IsModified() + && !GetEditView()->IsReadOnly() ) // Added for #i60626, otherwise + // any read only bug in the text engine could lead to a crash later + { + if ( !StarBASIC::IsRunning() ) // Not at runtime! + { + ::rtl::OUString aModule = getTextEngineText( pEditEngine ); + + // update module in basic +#ifdef DBG_UTIL + SbModule* pModule = pModulWindow->GetSbModule(); +#endif + DBG_ASSERT(pModule, "EditorWindow::SetSourceInBasic: No Module found!"); + + // update module in module window + pModulWindow->SetModule( aModule ); + + // update module in library + ScriptDocument aDocument( pModulWindow->GetDocument() ); + String aLibName = pModulWindow->GetLibName(); + String aName = pModulWindow->GetName(); + OSL_VERIFY( aDocument.updateModule( aLibName, aName, aModule ) ); + + pEditEngine->SetModified( sal_False ); + BasicIDE::MarkDocumentModified( aDocument ); + bChanged = sal_True; + } + } + return bChanged; +} + + +// Returns the position of the last character of any of the following +// EOL char combinations: CR, CR/LF, LF, return -1 if no EOL is found +sal_Int32 searchEOL( const ::rtl::OUString& rStr, sal_Int32 fromIndex ) +{ + sal_Int32 iRetPos = -1; + + sal_Int32 iLF = rStr.indexOf( LINE_SEP, fromIndex ); + if( iLF != -1 ) + { + iRetPos = iLF; + } + else + { + iRetPos = rStr.indexOf( LINE_SEP_CR, fromIndex ); + } + return iRetPos; +} + + +void EditorWindow::CreateEditEngine() +{ + if ( pEditEngine ) + return; + + pEditEngine = new ExtTextEngine; + pEditView = new ExtTextView( pEditEngine, this ); + pEditView->SetAutoIndentMode( sal_True ); + pEditEngine->SetUpdateMode( sal_False ); + pEditEngine->InsertView( pEditView ); + + ImplSetFont(); + + aSyntaxIdleTimer.SetTimeout( 200 ); + aSyntaxIdleTimer.SetTimeoutHdl( LINK( this, EditorWindow, SyntaxTimerHdl ) ); + + aHighlighter.initialize( HIGHLIGHT_BASIC ); + + sal_Bool bWasDoSyntaxHighlight = bDoSyntaxHighlight; + bDoSyntaxHighlight = sal_False; // Bei grossen Texten zu langsam... + ::rtl::OUString aOUSource( pModulWindow->GetModule() ); + sal_Int32 nLines = 0; + sal_Int32 nIndex = -1; + do + { + nLines++; + nIndex = searchEOL( aOUSource, nIndex+1 ); + } + while ( nIndex >= 0 ); + + // nLines*4: SetText+Formatting+DoHighlight+Formatting + // 1 Formatting koennte eingespart werden, aber dann wartet man + // bei einem langen Sourcecode noch laenger auf den Text... + pProgress = new ProgressInfo( IDE_DLL()->GetShell()->GetViewFrame()->GetObjectShell(), String( IDEResId( RID_STR_GENERATESOURCE ) ), nLines*4 ); + setTextEngineText( pEditEngine, aOUSource ); + + pEditView->SetStartDocPos( Point( 0, 0 ) ); + pEditView->SetSelection( TextSelection() ); + pModulWindow->GetBreakPointWindow().GetCurYOffset() = 0; + pEditEngine->SetUpdateMode( sal_True ); + Update(); // Es wurde bei UpdateMode = sal_True nur Invalidiert + + // Die anderen Fenster auch, damit keine halben Sachen auf dem Bildschirm! + pModulWindow->GetLayout()->GetWatchWindow().Update(); + pModulWindow->GetLayout()->GetStackWindow().Update(); + pModulWindow->GetBreakPointWindow().Update(); + + pEditView->ShowCursor( sal_True, sal_True ); + + StartListening( *pEditEngine ); + + // Das Syntax-Highlightning legt ein rel. groesse VDev an. + aSyntaxIdleTimer.Stop(); + bDoSyntaxHighlight = bWasDoSyntaxHighlight; + + + for ( sal_uInt16 nLine = 0; nLine < nLines; nLine++ ) + aSyntaxLineTable.Insert( nLine, (void*)(sal_uInt16)1 ); + ForceSyntaxTimeout(); + + DELETEZ( pProgress ); + + pEditView->EraseVirtualDevice(); + pEditEngine->SetModified( sal_False ); + pEditEngine->EnableUndo( sal_True ); + + InitScrollBars(); + + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_BASICIDE_STAT_POS ); + + DBG_ASSERT( pModulWindow->GetBreakPointWindow().GetCurYOffset() == 0, "CreateEditEngine: Brechpunkte verschoben?" ); + + // set readonly mode for readonly libraries + ScriptDocument aDocument( pModulWindow->GetDocument() ); + ::rtl::OUString aOULibName( pModulWindow->GetLibName() ); + Reference< script::XLibraryContainer2 > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) ) + { + pModulWindow->SetReadOnly( sal_True ); + } + + if ( aDocument.isDocument() && aDocument.isReadOnly() ) + pModulWindow->SetReadOnly( sal_True ); +} + +// virtual +void EditorWindow::DataChanged(DataChangedEvent const & rDCEvt) +{ + Window::DataChanged(rDCEvt); + if (rDCEvt.GetType() == DATACHANGED_SETTINGS + && (rDCEvt.GetFlags() & SETTINGS_STYLE) != 0) + { + Color aColor(GetSettings().GetStyleSettings().GetFieldColor()); + if (aColor + != rDCEvt.GetOldSettings()->GetStyleSettings().GetFieldColor()) + { + SetBackground(Wallpaper(aColor)); + Invalidate(); + } + if (pEditEngine != 0) + { + aColor = GetSettings().GetStyleSettings().GetFieldTextColor(); + if (aColor != rDCEvt.GetOldSettings()-> + GetStyleSettings().GetFieldTextColor()) + { + Font aFont(pEditEngine->GetFont()); + aFont.SetColor(aColor); + pEditEngine->SetFont(aFont); + } + } + } +} + +void EditorWindow::Notify( SfxBroadcaster& /*rBC*/, const SfxHint& rHint ) +{ + if ( rHint.ISA( TextHint ) ) + { + const TextHint& rTextHint = (const TextHint&)rHint; + if( rTextHint.GetId() == TEXT_HINT_VIEWSCROLLED ) + { + if ( pModulWindow->GetHScrollBar() ) + pModulWindow->GetHScrollBar()->SetThumbPos( pEditView->GetStartDocPos().X() ); + pModulWindow->GetEditVScrollBar().SetThumbPos( pEditView->GetStartDocPos().Y() ); + pModulWindow->GetBreakPointWindow().DoScroll + ( 0, pModulWindow->GetBreakPointWindow().GetCurYOffset() - pEditView->GetStartDocPos().Y() ); + } + else if( rTextHint.GetId() == TEXT_HINT_TEXTHEIGHTCHANGED ) + { + if ( pEditView->GetStartDocPos().Y() ) + { + long nOutHeight = GetOutputSizePixel().Height(); + long nTextHeight = pEditEngine->GetTextHeight(); + if ( nTextHeight < nOutHeight ) + pEditView->Scroll( 0, pEditView->GetStartDocPos().Y() ); + } + + SetScrollBarRanges(); + } + else if( rTextHint.GetId() == TEXT_HINT_TEXTFORMATTED ) + { + if ( pModulWindow->GetHScrollBar() ) + { + sal_uLong nWidth = pEditEngine->CalcTextWidth(); + if ( (long)nWidth != nCurTextWidth ) + { + nCurTextWidth = nWidth; + pModulWindow->GetHScrollBar()->SetRange( Range( 0, (long)nCurTextWidth-1) ); + pModulWindow->GetHScrollBar()->SetThumbPos( pEditView->GetStartDocPos().X() ); + } + } + long nPrevTextWidth = nCurTextWidth; + nCurTextWidth = pEditEngine->CalcTextWidth(); + if ( nCurTextWidth != nPrevTextWidth ) + SetScrollBarRanges(); + } + else if( rTextHint.GetId() == TEXT_HINT_PARAINSERTED ) + { + ParagraphInsertedDeleted( rTextHint.GetValue(), sal_True ); + DoDelayedSyntaxHighlight( rTextHint.GetValue() ); + } + else if( rTextHint.GetId() == TEXT_HINT_PARAREMOVED ) + { + ParagraphInsertedDeleted( rTextHint.GetValue(), sal_False ); + } + else if( rTextHint.GetId() == TEXT_HINT_PARACONTENTCHANGED ) + { + DoDelayedSyntaxHighlight( rTextHint.GetValue() ); + } + } +} + +void EditorWindow::ConfigurationChanged( utl::ConfigurationBroadcaster*, sal_uInt32 ) +{ + ImplSetFont(); +} + +void EditorWindow::SetScrollBarRanges() +{ + // Extra-Methode, nicht InitScrollBars, da auch fuer EditEngine-Events. + if ( !pEditEngine ) + return; + + if ( pModulWindow->GetHScrollBar() ) + pModulWindow->GetHScrollBar()->SetRange( Range( 0, nCurTextWidth-1 ) ); + + pModulWindow->GetEditVScrollBar().SetRange( Range( 0, pEditEngine->GetTextHeight()-1 ) ); +} + +void EditorWindow::InitScrollBars() +{ + if ( !pEditEngine ) + return; + + SetScrollBarRanges(); + Size aOutSz( GetOutputSizePixel() ); + pModulWindow->GetEditVScrollBar().SetVisibleSize( aOutSz.Height() ); + pModulWindow->GetEditVScrollBar().SetPageSize( aOutSz.Height() * 8 / 10 ); + pModulWindow->GetEditVScrollBar().SetLineSize( GetTextHeight() ); + pModulWindow->GetEditVScrollBar().SetThumbPos( pEditView->GetStartDocPos().Y() ); + pModulWindow->GetEditVScrollBar().Show(); + + if ( pModulWindow->GetHScrollBar() ) + { + pModulWindow->GetHScrollBar()->SetVisibleSize( aOutSz.Width() ); + pModulWindow->GetHScrollBar()->SetPageSize( aOutSz.Width() * 8 / 10 ); + pModulWindow->GetHScrollBar()->SetLineSize( GetTextWidth( 'x' ) ); + pModulWindow->GetHScrollBar()->SetThumbPos( pEditView->GetStartDocPos().X() ); + pModulWindow->GetHScrollBar()->Show(); + } +} + +void EditorWindow::ImpDoHighlight( sal_uLong nLine ) +{ + if ( bDoSyntaxHighlight ) + { + String aLine( pEditEngine->GetText( nLine ) ); + Range aChanges = aHighlighter.notifyChange( nLine, 0, &aLine, 1 ); + if ( aChanges.Len() ) + { + for ( long n = aChanges.Min() + 1; n <= aChanges.Max(); n++ ) + aSyntaxLineTable.Insert( n, (void*)(sal_uLong)1 ); + aSyntaxIdleTimer.Start(); + } + + sal_Bool bWasModified = pEditEngine->IsModified(); + pEditEngine->RemoveAttribs( nLine, sal_True ); + HighlightPortions aPortions; + aHighlighter.getHighlightPortions( nLine, aLine, aPortions ); + + for ( size_t i = 0; i < aPortions.size(); i++ ) + { + HighlightPortion& r = aPortions[i]; + const Color& rColor = ((ModulWindowLayout*)pModulWindow->GetLayoutWindow())->getSyntaxColor(r.tokenType); + pEditEngine->SetAttrib( TextAttribFontColor( rColor ), nLine, r.nBegin, r.nEnd, sal_True ); + } + + // Das Highlighten soll kein Modify setzen + pEditEngine->SetModified( bWasModified ); + } +} + +void EditorWindow::ImplSetFont() +{ + if ( pSourceViewConfig ) + { + String sFontName = pSourceViewConfig->GetFontName(); + if ( !sFontName.Len() ) + { + Font aTmpFont( OutputDevice::GetDefaultFont( DEFAULTFONT_FIXED, Application::GetSettings().GetUILanguage(), 0 , this ) ); + sFontName = aTmpFont.GetName(); + } + Size aFontSize( 0, pSourceViewConfig->GetFontHeight() ); + Font aFont( sFontName, aFontSize ); + aFont.SetColor( GetSettings().GetStyleSettings().GetFieldTextColor() ); + SetPointFont( aFont ); + aFont = GetFont(); + + if ( pModulWindow ) + pModulWindow->GetBreakPointWindow().SetFont( aFont ); + + if ( pEditEngine ) + { + sal_Bool bModified = pEditEngine->IsModified(); + pEditEngine->SetFont( aFont ); + pEditEngine->SetModified( bModified ); + } + } +} + +void EditorWindow::DoSyntaxHighlight( sal_uLong nPara ) +{ + // Durch das DelayedSyntaxHighlight kann es passieren, + // dass die Zeile nicht mehr existiert! + if ( nPara < pEditEngine->GetParagraphCount() ) + { + // leider weis ich nicht, ob genau diese Zeile Modified() ... + if ( pProgress ) + pProgress->StepProgress(); + ImpDoHighlight( nPara ); + } +} + +void EditorWindow::DoDelayedSyntaxHighlight( sal_uLong nPara ) +{ + // Zeile wird nur in 'Liste' aufgenommen, im TimerHdl abgearbeitet. + // => Nicht Absaetze manipulieren, waehrend EditEngine formatiert. + if ( pProgress ) + pProgress->StepProgress(); + + if ( !bHighlightning && bDoSyntaxHighlight ) + { + if ( bDelayHighlight ) + { + aSyntaxLineTable.Insert( nPara, (void*)(sal_uLong)1 ); + aSyntaxIdleTimer.Start(); + } + else + DoSyntaxHighlight( nPara ); + } +} + +IMPL_LINK( EditorWindow, SyntaxTimerHdl, Timer *, EMPTYARG ) +{ + DBG_ASSERT( pEditView, "Noch keine View, aber Syntax-Highlight ?!" ); + + sal_Bool bWasModified = pEditEngine->IsModified(); + // pEditEngine->SetUpdateMode( sal_False ); + + bHighlightning = sal_True; + sal_uInt16 nLine; + void* p = aSyntaxLineTable.First(); + while ( p ) + { + nLine = (sal_uInt16)aSyntaxLineTable.GetCurKey(); + DoSyntaxHighlight( nLine ); + p = aSyntaxLineTable.Next(); + } + + // #i45572# + if ( pEditView ) + pEditView->ShowCursor( sal_False, sal_True ); + + pEditEngine->SetModified( bWasModified ); + + aSyntaxLineTable.Clear(); + bHighlightning = sal_False; + + return 0; +} + +void EditorWindow::ParagraphInsertedDeleted( sal_uLong nPara, sal_Bool bInserted ) +{ + if ( pProgress ) + pProgress->StepProgress(); + + if ( !bInserted && ( nPara == TEXT_PARA_ALL ) ) + { + pModulWindow->GetBreakPoints().reset(); + pModulWindow->GetBreakPointWindow().Invalidate(); + aHighlighter.initialize( HIGHLIGHT_BASIC ); + } + else + { + // Brechpunkte Aktualisieren... + // keine Sonderbehandlung fuer EditEngine-CTOR ( Erste-Zeile-Problem ), + // da in diesem Moment noch keine BreakPoints. + // +1: Basic-Zeilen beginnen bei 1! + pModulWindow->GetBreakPoints().AdjustBreakPoints( (sal_uInt16)nPara+1, bInserted ); + + // Im BreakPointWindow invalidieren... + long nLineHeight = GetTextHeight(); + Size aSz = pModulWindow->GetBreakPointWindow().GetOutputSize(); + Rectangle aInvRec( Point( 0, 0 ), aSz ); + long nY = nPara*nLineHeight - pModulWindow->GetBreakPointWindow().GetCurYOffset(); + aInvRec.Top() = nY; + pModulWindow->GetBreakPointWindow().Invalidate( aInvRec ); + + if ( bDoSyntaxHighlight ) + { + String aDummy; + aHighlighter.notifyChange( nPara, bInserted ? 1 : (-1), &aDummy, 1 ); + } + } +} + +void EditorWindow::CreateProgress( const String& rText, sal_uLong nRange ) +{ + DBG_ASSERT( !pProgress, "ProgressInfo existiert schon" ); + pProgress = new ProgressInfo( IDE_DLL()->GetShell()->GetViewFrame()->GetObjectShell(), rText, nRange ); +} + +void EditorWindow::DestroyProgress() +{ + DELETEZ( pProgress ); +} + +void EditorWindow::ForceSyntaxTimeout() +{ + aSyntaxIdleTimer.Stop(); + ((Link&)aSyntaxIdleTimer.GetTimeoutHdl()).Call( &aSyntaxIdleTimer ); +} + + + +BreakPointWindow::BreakPointWindow( Window* pParent ) : + Window( pParent, WB_BORDER ) +{ + pModulWindow = 0; + nCurYOffset = 0; + setBackgroundColor(GetSettings().GetStyleSettings().GetFieldColor()); + nMarkerPos = MARKER_NOMARKER; + + // nCurYOffset merken und nicht von EditEngine holen. + // Falls in EditEngine autom. gescrollt wurde, wuesste ich sonst nicht, + // wo ich gerade stehe. + + SetHelpId( HID_BASICIDE_BREAKPOINTWINDOW ); +} + + + +BreakPointWindow::~BreakPointWindow() +{ +} + + + +void BreakPointWindow::Resize() +{ +/// Invalidate(); +} + + + +void BreakPointWindow::Paint( const Rectangle& ) +{ + if ( SyncYOffset() ) + return; + + Size aOutSz( GetOutputSize() ); + long nLineHeight = GetTextHeight(); + + Image aBrk1(((ModulWindowLayout *) pModulWindow->GetLayoutWindow())-> + getImage(IMGID_BRKENABLED)); + Image aBrk0(((ModulWindowLayout *) pModulWindow->GetLayoutWindow())-> + getImage(IMGID_BRKDISABLED)); + Size aBmpSz( aBrk1.GetSizePixel() ); + aBmpSz = PixelToLogic( aBmpSz ); + Point aBmpOff( 0, 0 ); + aBmpOff.X() = ( aOutSz.Width() - aBmpSz.Width() ) / 2; + aBmpOff.Y() = ( nLineHeight - aBmpSz.Height() ) / 2; + + for ( size_t i = 0, n = GetBreakPoints().size(); i < n ; ++i ) + { + BreakPoint* pBrk = GetBreakPoints().at( i ); + size_t nLine = pBrk->nLine-1; + size_t nY = nLine*nLineHeight - nCurYOffset; + DrawImage( Point( 0, nY ) + aBmpOff, pBrk->bEnabled ? aBrk1 : aBrk0 ); + } + ShowMarker( sal_True ); +} + + + +void BreakPointWindow::DoScroll( long nHorzScroll, long nVertScroll ) +{ + nCurYOffset -= nVertScroll; + Window::Scroll( nHorzScroll, nVertScroll ); +} + + + +void BreakPointWindow::SetMarkerPos( sal_uInt16 nLine, sal_Bool bError ) +{ + if ( SyncYOffset() ) + Update(); + + ShowMarker( sal_False ); // Alten wegzeichen... + nMarkerPos = nLine; + bErrorMarker = bError; + ShowMarker( sal_True ); // Neuen zeichnen... +} + +void BreakPointWindow::ShowMarker( sal_Bool bShow ) +{ + if ( nMarkerPos == MARKER_NOMARKER ) + return; + + Size aOutSz( GetOutputSize() ); + long nLineHeight = GetTextHeight(); + + Image aMarker(((ModulWindowLayout*)pModulWindow->GetLayoutWindow())-> + getImage(bErrorMarker + ? IMGID_ERRORMARKER : IMGID_STEPMARKER)); + + Size aMarkerSz( aMarker.GetSizePixel() ); + aMarkerSz = PixelToLogic( aMarkerSz ); + Point aMarkerOff( 0, 0 ); + aMarkerOff.X() = ( aOutSz.Width() - aMarkerSz.Width() ) / 2; + aMarkerOff.Y() = ( nLineHeight - aMarkerSz.Height() ) / 2; + + sal_uLong nY = nMarkerPos*nLineHeight - nCurYOffset; + Point aPos( 0, nY ); + aPos += aMarkerOff; + if ( bShow ) + DrawImage( aPos, aMarker ); + else + Invalidate( Rectangle( aPos, aMarkerSz ) ); +} + + + + +BreakPoint* BreakPointWindow::FindBreakPoint( const Point& rMousePos ) +{ + size_t nLineHeight = GetTextHeight(); + size_t nYPos = rMousePos.Y() + nCurYOffset; + + for ( size_t i = 0, n = GetBreakPoints().size(); i < n ; ++i ) + { + BreakPoint* pBrk = GetBreakPoints().at( i ); + size_t nLine = pBrk->nLine-1; + size_t nY = nLine*nLineHeight; + if ( ( nYPos > nY ) && ( nYPos < ( nY + nLineHeight ) ) ) + return pBrk; + } + return 0; +} + +void BreakPointWindow::MouseButtonDown( const MouseEvent& rMEvt ) +{ + if ( rMEvt.GetClicks() == 2 ) + { + Point aMousePos( PixelToLogic( rMEvt.GetPosPixel() ) ); + long nLineHeight = GetTextHeight(); + long nYPos = aMousePos.Y() + nCurYOffset; + long nLine = nYPos / nLineHeight + 1; + pModulWindow->ToggleBreakPoint( (sal_uLong)nLine ); + // vielleicht mal etwas genauer... + Invalidate(); + } +} + + + +void BreakPointWindow::Command( const CommandEvent& rCEvt ) +{ + if ( rCEvt.GetCommand() == COMMAND_CONTEXTMENU ) + { + Point aPos( rCEvt.IsMouseEvent() ? rCEvt.GetMousePosPixel() : Point(1,1) ); + Point aEventPos( PixelToLogic( aPos ) ); + BreakPoint* pBrk = rCEvt.IsMouseEvent() ? FindBreakPoint( aEventPos ) : 0; + if ( pBrk ) + { + // prueffen, ob Brechpunkt enabled.... + PopupMenu aBrkPropMenu( IDEResId( RID_POPUP_BRKPROPS ) ); + aBrkPropMenu.CheckItem( RID_ACTIV, pBrk->bEnabled ); + switch ( aBrkPropMenu.Execute( this, aPos ) ) + { + case RID_ACTIV: + { + pBrk->bEnabled = pBrk->bEnabled ? sal_False : sal_True; + pModulWindow->UpdateBreakPoint( *pBrk ); + Invalidate(); + } + break; + case RID_BRKPROPS: + { + BreakPointDialog aBrkDlg( this, GetBreakPoints() ); + aBrkDlg.SetCurrentBreakPoint( pBrk ); + aBrkDlg.Execute(); + Invalidate(); + } + break; + } + } + else + { + PopupMenu aBrkListMenu( IDEResId( RID_POPUP_BRKDLG ) ); + switch ( aBrkListMenu.Execute( this, aPos ) ) + { + case RID_BRKDLG: + { + BreakPointDialog aBrkDlg( this, GetBreakPoints() ); + aBrkDlg.Execute(); + Invalidate(); + } + break; + } + } + } +} + +sal_Bool BreakPointWindow::SyncYOffset() +{ + TextView* pView = pModulWindow->GetEditView(); + if ( pView ) + { + long nViewYOffset = pView->GetStartDocPos().Y(); + if ( nCurYOffset != nViewYOffset ) + { + nCurYOffset = nViewYOffset; + Invalidate(); + return sal_True; + } + } + return sal_False; +} + +// virtual +void BreakPointWindow::DataChanged(DataChangedEvent const & rDCEvt) +{ + Window::DataChanged(rDCEvt); + if (rDCEvt.GetType() == DATACHANGED_SETTINGS + && (rDCEvt.GetFlags() & SETTINGS_STYLE) != 0) + { + Color aColor(GetSettings().GetStyleSettings().GetFieldColor()); + if (aColor + != rDCEvt.GetOldSettings()->GetStyleSettings().GetFieldColor()) + { + setBackgroundColor(aColor); + Invalidate(); + } + } +} + +void BreakPointWindow::setBackgroundColor(Color aColor) +{ + SetBackground(Wallpaper(aColor)); +} + + +const sal_uInt16 ITEM_ID_VARIABLE = 1; +const sal_uInt16 ITEM_ID_VALUE = 2; +const sal_uInt16 ITEM_ID_TYPE = 3; + +WatchWindow::WatchWindow( Window* pParent ) : + BasicDockingWindow( pParent ), + aWatchStr( IDEResId( RID_STR_REMOVEWATCH ) ), + aXEdit( this, IDEResId( RID_EDT_WATCHEDIT ) ), + aRemoveWatchButton( this, IDEResId( RID_IMGBTN_REMOVEWATCH ) ), + aTreeListBox( this, WB_BORDER | WB_3DLOOK | WB_HASBUTTONS | WB_HASLINES | WB_HSCROLL | WB_TABSTOP + | WB_HASLINESATROOT | WB_HASBUTTONSATROOT ), + aHeaderBar( this, WB_BUTTONSTYLE | WB_BORDER ) +{ + aXEdit.SetAccessibleName(String(IDEResId( RID_STR_WATCHNAME))); + aTreeListBox.SetAccessibleName(String(IDEResId(RID_STR_WATCHNAME))); + + nVirtToolBoxHeight = aXEdit.GetSizePixel().Height() + 7; + nHeaderBarHeight = 16; + + aTreeListBox.SetHelpId(HID_BASICIDE_WATCHWINDOW_LIST); + aTreeListBox.EnableInplaceEditing( sal_True ); + aTreeListBox.SetSelectHdl( LINK( this, WatchWindow, TreeListHdl ) ); + aTreeListBox.SetPosPixel( Point( DWBORDER, nVirtToolBoxHeight + nHeaderBarHeight ) ); + aTreeListBox.SetHighlightRange( 1, 5 ); + + Point aPnt( DWBORDER, nVirtToolBoxHeight + 1 ); + aHeaderBar.SetPosPixel( aPnt ); + aHeaderBar.SetEndDragHdl( LINK( this, WatchWindow, implEndDragHdl ) ); + + long nVarTabWidth = 220; + long nValueTabWidth = 100; + long nTypeTabWidth = 1250; + aHeaderBar.InsertItem( ITEM_ID_VARIABLE, String( IDEResId( RID_STR_WATCHVARIABLE ) ), nVarTabWidth ); + aHeaderBar.InsertItem( ITEM_ID_VALUE, String( IDEResId( RID_STR_WATCHVALUE ) ), nValueTabWidth ); + aHeaderBar.InsertItem( ITEM_ID_TYPE, String( IDEResId( RID_STR_WATCHTYPE ) ), nTypeTabWidth ); + + long tabs[ 4 ]; + tabs[ 0 ] = 3; // two tabs + tabs[ 1 ] = 0; + tabs[ 2 ] = nVarTabWidth; + tabs[ 3 ] = nVarTabWidth + nValueTabWidth; + aTreeListBox.SvHeaderTabListBox::SetTabs( tabs, MAP_PIXEL ); + aTreeListBox.InitHeaderBar( &aHeaderBar ); + + aTreeListBox.SetNodeDefaultImages( ); + + aHeaderBar.Show(); + + aRemoveWatchButton.Disable(); + + aTreeListBox.Show(); + + long nTextLen = GetTextWidth( aWatchStr ) + DWBORDER; + aXEdit.SetPosPixel( Point( nTextLen, 3 ) ); + aXEdit.SetAccHdl( LINK( this, WatchWindow, EditAccHdl ) ); + aXEdit.GetAccelerator().InsertItem( 1, KeyCode( KEY_RETURN ) ); + aXEdit.GetAccelerator().InsertItem( 2, KeyCode( KEY_ESCAPE ) ); + aXEdit.Show(); + + aRemoveWatchButton.SetClickHdl( LINK( this, WatchWindow, ButtonHdl ) ); + aRemoveWatchButton.SetPosPixel( Point( nTextLen + aXEdit.GetSizePixel().Width() + 4, 2 ) ); + Size aSz( aRemoveWatchButton.GetModeImage().GetSizePixel() ); + aSz.Width() += 6; + aSz.Height() += 6; + aRemoveWatchButton.SetSizePixel( aSz ); + aRemoveWatchButton.Show(); + + SetText( String( IDEResId( RID_STR_WATCHNAME ) ) ); + + SetHelpId( HID_BASICIDE_WATCHWINDOW ); + + // make watch window keyboard accessible + GetSystemWindow()->GetTaskPaneList()->AddWindow( this ); +} + + + +WatchWindow::~WatchWindow() +{ + GetSystemWindow()->GetTaskPaneList()->RemoveWindow( this ); +} + + + +void WatchWindow::Paint( const Rectangle& ) +{ + DrawText( Point( DWBORDER, 7 ), aWatchStr ); + lcl_DrawIDEWindowFrame( this ); +} + + + +void WatchWindow::Resize() +{ + Size aSz = GetOutputSizePixel(); + Size aBoxSz( aSz.Width() - 2*DWBORDER, aSz.Height() - nVirtToolBoxHeight - DWBORDER ); + + if ( aBoxSz.Width() < 4 ) // < 4, weil noch Border... + aBoxSz.Width() = 0; + if ( aBoxSz.Height() < 4 ) + aBoxSz.Height() = 0; + + aBoxSz.Height() -= nHeaderBarHeight; + aTreeListBox.SetSizePixel( aBoxSz ); + aTreeListBox.GetHScroll()->SetPageSize( aTreeListBox.GetHScroll()->GetVisibleSize() ); + + aBoxSz.Height() = nHeaderBarHeight; + aHeaderBar.SetSizePixel( aBoxSz ); + + Invalidate(); //Wegen DrawLine im Paint... +} + +struct MemberList +{ + String* mpMemberNames; + int mnMemberCount; + + MemberList( void ) + : mpMemberNames( NULL ) + , mnMemberCount( 0 ) + {} + ~MemberList() + { + clear(); + } + + void clear( void ); + void allocList( int nCount ); +}; + +void MemberList::clear( void ) +{ + if( mnMemberCount ) + { + delete[] mpMemberNames; + mnMemberCount = 0; + } +} + +void MemberList::allocList( int nCount ) +{ + clear(); + if( nCount > 0 ) + { + mnMemberCount = nCount; + mpMemberNames = new String[ mnMemberCount ]; + } +} + +struct WatchItem +{ + String maName; + String maDisplayName; + SbxObjectRef mpObject; + MemberList maMemberList; + + SbxDimArrayRef mpArray; + int nDimLevel; // 0 = Root + int nDimCount; + short* pIndices; + + WatchItem* mpArrayParentItem; + + WatchItem( void ) + : nDimLevel( 0 ) + , nDimCount( 0 ) + , pIndices( NULL ) + , mpArrayParentItem( NULL ) + {} + ~WatchItem() + { clearWatchItem(); } + + void clearWatchItem( bool bIncludeArrayData=true ) + { + mpObject = NULL; + maMemberList.clear(); + if( bIncludeArrayData ) + { + mpArray = NULL; + nDimLevel = 0; + nDimCount = 0; + delete[] pIndices; + pIndices = NULL; + } + } + + WatchItem* GetRootItem( void ); + SbxDimArray* GetRootArray( void ); +}; + +WatchItem* WatchItem::GetRootItem( void ) +{ + WatchItem* pItem = mpArrayParentItem; + while( pItem ) + { + if( pItem->mpArray.Is() ) + break; + pItem = pItem->mpArrayParentItem; + } + return pItem; +} + +SbxDimArray* WatchItem::GetRootArray( void ) +{ + WatchItem* pRootItem = GetRootItem(); + SbxDimArray* pRet = NULL; + if( pRootItem ) + pRet = pRootItem->mpArray; + return pRet; +} + +void WatchWindow::AddWatch( const String& rVName ) +{ + WatchItem* pWatchItem = new WatchItem; + String aVar, aIndex; + lcl_SeparateNameAndIndex( rVName, aVar, aIndex ); + pWatchItem->maName = aVar; + + String aWatchStr_( aVar ); + aWatchStr_ += String( RTL_CONSTASCII_USTRINGPARAM( "\t\t" ) ); + SvLBoxEntry* pNewEntry = aTreeListBox.InsertEntry( aWatchStr_, 0, sal_True, LIST_APPEND ); + pNewEntry->SetUserData( pWatchItem ); + + aTreeListBox.Select( pNewEntry, sal_True ); + aTreeListBox.MakeVisible( pNewEntry ); + aRemoveWatchButton.Enable(); +} + +sal_Bool WatchWindow::RemoveSelectedWatch() +{ + SvLBoxEntry* pEntry = aTreeListBox.GetCurEntry(); + if ( pEntry ) + { + aTreeListBox.GetModel()->Remove( pEntry ); + pEntry = aTreeListBox.GetCurEntry(); + if ( pEntry ) + aXEdit.SetText( ((WatchItem*)pEntry->GetUserData())->maName ); + else + aXEdit.SetText( String() ); + if ( !aTreeListBox.GetEntryCount() ) + aRemoveWatchButton.Disable(); + return sal_True; + } + else + return sal_False; +} + + +IMPL_LINK_INLINE_START( WatchWindow, ButtonHdl, ImageButton *, pButton ) +{ + if ( pButton == &aRemoveWatchButton ) + { + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if( pDispatcher ) + { + pDispatcher->Execute( SID_BASICIDE_REMOVEWATCH ); + } + } + return 0; +} +IMPL_LINK_INLINE_END( WatchWindow, ButtonHdl, ImageButton *, pButton ) + + + +IMPL_LINK_INLINE_START( WatchWindow, TreeListHdl, SvTreeListBox *, EMPTYARG ) +{ + SvLBoxEntry* pCurEntry = aTreeListBox.GetCurEntry(); + if ( pCurEntry && pCurEntry->GetUserData() ) + aXEdit.SetText( ((WatchItem*)pCurEntry->GetUserData())->maName ); + + return 0; +} +IMPL_LINK_INLINE_END( WatchWindow, TreeListHdl, SvTreeListBox *, EMPTYARG ) + + +IMPL_LINK_INLINE_START( WatchWindow, implEndDragHdl, HeaderBar *, pBar ) +{ + (void)pBar; + + const sal_Int32 TAB_WIDTH_MIN = 10; + sal_Int32 nMaxWidth = + aHeaderBar.GetSizePixel().getWidth() - 2 * TAB_WIDTH_MIN; + + sal_Int32 nVariableWith = aHeaderBar.GetItemSize( ITEM_ID_VARIABLE ); + if( nVariableWith < TAB_WIDTH_MIN ) + aHeaderBar.SetItemSize( ITEM_ID_VARIABLE, TAB_WIDTH_MIN ); + else if( nVariableWith > nMaxWidth ) + aHeaderBar.SetItemSize( ITEM_ID_VARIABLE, nMaxWidth ); + + sal_Int32 nValueWith = aHeaderBar.GetItemSize( ITEM_ID_VALUE ); + if( nValueWith < TAB_WIDTH_MIN ) + aHeaderBar.SetItemSize( ITEM_ID_VALUE, TAB_WIDTH_MIN ); + else if( nValueWith > nMaxWidth ) + aHeaderBar.SetItemSize( ITEM_ID_VALUE, nMaxWidth ); + + if (aHeaderBar.GetItemSize( ITEM_ID_TYPE ) < TAB_WIDTH_MIN) + aHeaderBar.SetItemSize( ITEM_ID_TYPE, TAB_WIDTH_MIN ); + + sal_Int32 nPos = 0; + sal_uInt16 nTabs = aHeaderBar.GetItemCount(); + for( sal_uInt16 i = 1 ; i < nTabs ; ++i ) + { + nPos += aHeaderBar.GetItemSize( i ); + aTreeListBox.SetTab( i, nPos, MAP_PIXEL ); + } + return 0; +} +IMPL_LINK_INLINE_END( WatchWindow, implEndDragHdl, HeaderBar *, pBar ) + + +IMPL_LINK( WatchWindow, EditAccHdl, Accelerator *, pAcc ) +{ + switch ( pAcc->GetCurKeyCode().GetCode() ) + { + case KEY_RETURN: + { + String aCurText( aXEdit.GetText() ); + if ( aCurText.Len() ) + { + AddWatch( aCurText ); + aXEdit.SetSelection( Selection( 0, 0xFFFF ) ); + UpdateWatches(); + } + else + Sound::Beep(); + } + break; + case KEY_ESCAPE: + { + aXEdit.SetText( String() ); + } + break; + } + + return 0; +} + +void WatchWindow::UpdateWatches( bool bBasicStopped ) +{ + aTreeListBox.UpdateWatches( bBasicStopped ); +} + + +StackWindow::StackWindow( Window* pParent ) : + BasicDockingWindow( pParent ), + aTreeListBox( this, WB_BORDER | WB_3DLOOK | WB_HSCROLL | WB_TABSTOP ), + aStackStr( IDEResId( RID_STR_STACK ) ) +{ + aTreeListBox.SetHelpId(HID_BASICIDE_STACKWINDOW_LIST); + aTreeListBox.SetAccessibleName(String( IDEResId(RID_STR_STACKNAME))); + aTreeListBox.SetPosPixel( Point( DWBORDER, nVirtToolBoxHeight ) ); + aTreeListBox.SetHighlightRange(); + aTreeListBox.SetSelectionMode( NO_SELECTION ); + aTreeListBox.InsertEntry( String(), 0, sal_False, LIST_APPEND ); + aTreeListBox.Show(); + + SetText( String( IDEResId( RID_STR_STACKNAME ) ) ); + + SetHelpId( HID_BASICIDE_STACKWINDOW ); + + // make stack window keyboard accessible + GetSystemWindow()->GetTaskPaneList()->AddWindow( this ); +} + + + +StackWindow::~StackWindow() +{ + GetSystemWindow()->GetTaskPaneList()->RemoveWindow( this ); +} + + + +void StackWindow::Paint( const Rectangle& ) +{ + DrawText( Point( DWBORDER, 7 ), aStackStr ); + lcl_DrawIDEWindowFrame( this ); +} + + + +void StackWindow::Resize() +{ + Size aSz = GetOutputSizePixel(); + Size aBoxSz( aSz.Width() - 2*DWBORDER, aSz.Height() - nVirtToolBoxHeight - DWBORDER ); + + if ( aBoxSz.Width() < 4 ) // < 4, weil noch Border... + aBoxSz.Width() = 0; + if ( aBoxSz.Height() < 4 ) + aBoxSz.Height() = 0; + + aTreeListBox.SetSizePixel( aBoxSz ); + + Invalidate(); //Wegen DrawLine im Paint... +} + + + +IMPL_LINK_INLINE_START( StackWindow, ButtonHdl, ImageButton *, pButton ) +{ + return 0; +} +IMPL_LINK_INLINE_END( StackWindow, ButtonHdl, ImageButton *, pButton ) + + + +void StackWindow::UpdateCalls() +{ + aTreeListBox.SetUpdateMode( sal_False ); + aTreeListBox.Clear(); + + if ( StarBASIC::IsRunning() ) + { + SbxError eOld = SbxBase::GetError(); + aTreeListBox.SetSelectionMode( SINGLE_SELECTION ); + + sal_uInt16 nScope = 0; + SbMethod* pMethod = StarBASIC::GetActiveMethod( nScope ); + while ( pMethod ) + { + String aEntry( String::CreateFromInt32(nScope )); + if ( aEntry.Len() < 2 ) + aEntry.Insert( ' ', 0 ); + aEntry += String( RTL_CONSTASCII_USTRINGPARAM( ": " ) ); + aEntry += pMethod->GetName(); + SbxArray* pParams = pMethod->GetParameters(); + SbxInfo* pInfo = pMethod->GetInfo(); + if ( pParams ) + { + aEntry += '('; + // 0 ist der Name der Sub... + for ( sal_uInt16 nParam = 1; nParam < pParams->Count(); nParam++ ) + { + SbxVariable* pVar = pParams->Get( nParam ); + DBG_ASSERT( pVar, "Parameter?!" ); + if ( pVar->GetName().Len() ) + aEntry += pVar->GetName(); + else if ( pInfo ) + { + const SbxParamInfo* pParam = pInfo->GetParam( nParam ); + if ( pParam ) + aEntry += pParam->aName; + } + aEntry += '='; + SbxDataType eType = pVar->GetType(); + if( eType & SbxARRAY ) + aEntry += String( RTL_CONSTASCII_USTRINGPARAM( "..." ) ); + else if( eType != SbxOBJECT ) + aEntry += pVar->GetString(); + if ( nParam < ( pParams->Count() - 1 ) ) + aEntry += String( RTL_CONSTASCII_USTRINGPARAM( ", " ) ); + } + aEntry += ')'; + } + aTreeListBox.InsertEntry( aEntry, 0, sal_False, LIST_APPEND ); + nScope++; + pMethod = StarBASIC::GetActiveMethod( nScope ); + } + + SbxBase::ResetError(); + if( eOld != SbxERR_OK ) + SbxBase::SetError( eOld ); + } + else + { + aTreeListBox.SetSelectionMode( NO_SELECTION ); + aTreeListBox.InsertEntry( String(), 0, sal_False, LIST_APPEND ); + } + + aTreeListBox.SetUpdateMode( sal_True ); +} + + + + +ComplexEditorWindow::ComplexEditorWindow( ModulWindow* pParent ) : + Window( pParent, WB_3DLOOK | WB_CLIPCHILDREN ), + aBrkWindow( this ), + aEdtWindow( this ), + aEWVScrollBar( this, WB_VSCROLL | WB_DRAG ) +{ + aEdtWindow.SetModulWindow( pParent ); + aBrkWindow.SetModulWindow( pParent ); + aEdtWindow.Show(); + aBrkWindow.Show(); + + aEWVScrollBar.SetLineSize( SCROLL_LINE ); + aEWVScrollBar.SetPageSize( SCROLL_PAGE ); + aEWVScrollBar.SetScrollHdl( LINK( this, ComplexEditorWindow, ScrollHdl ) ); + aEWVScrollBar.Show(); +} + + + +void ComplexEditorWindow::Resize() +{ + Size aOutSz = GetOutputSizePixel(); + Size aSz( aOutSz ); + aSz.Width() -= 2*DWBORDER; + aSz.Height() -= 2*DWBORDER; + long nBrkWidth = 20; + long nSBWidth = aEWVScrollBar.GetSizePixel().Width(); + + Size aBrkSz( Size( nBrkWidth, aSz.Height() ) ); + aBrkWindow.SetPosSizePixel( Point( DWBORDER, DWBORDER ), aBrkSz ); + + Size aEWSz( Size( aSz.Width() - nBrkWidth - nSBWidth + 2, aSz.Height() ) ); + aEdtWindow.SetPosSizePixel( Point( DWBORDER+aBrkSz.Width()-1, DWBORDER ), aEWSz ); + + aEWVScrollBar.SetPosSizePixel( Point( aOutSz.Width()-DWBORDER-nSBWidth, DWBORDER ), Size( nSBWidth, aSz.Height() ) ); +} + +IMPL_LINK( ComplexEditorWindow, ScrollHdl, ScrollBar *, pCurScrollBar ) +{ + if ( aEdtWindow.GetEditView() ) + { + DBG_ASSERT( pCurScrollBar == &aEWVScrollBar, "Wer scrollt hier ?" ); + long nDiff = aEdtWindow.GetEditView()->GetStartDocPos().Y() - pCurScrollBar->GetThumbPos(); + aEdtWindow.GetEditView()->Scroll( 0, nDiff ); + aBrkWindow.DoScroll( 0, nDiff ); + aEdtWindow.GetEditView()->ShowCursor( sal_False, sal_True ); + pCurScrollBar->SetThumbPos( aEdtWindow.GetEditView()->GetStartDocPos().Y() ); + } + + return 0; +} + +void ComplexEditorWindow::DataChanged(DataChangedEvent const & rDCEvt) +{ + Window::DataChanged(rDCEvt); + if (rDCEvt.GetType() == DATACHANGED_SETTINGS + && (rDCEvt.GetFlags() & SETTINGS_STYLE) != 0) + { + Color aColor(GetSettings().GetStyleSettings().GetFaceColor()); + if (aColor + != rDCEvt.GetOldSettings()->GetStyleSettings().GetFaceColor()) + { + SetBackground(Wallpaper(aColor)); + Invalidate(); + } + } +} + +uno::Reference< awt::XWindowPeer > +EditorWindow::GetComponentInterface(sal_Bool bCreate) +{ + uno::Reference< awt::XWindowPeer > xPeer( + Window::GetComponentInterface(false)); + if (!xPeer.is() && bCreate) + { + // Make sure edit engine and view are available: + if (!pEditEngine) + CreateEditEngine(); + + xPeer = new ::svt::TextWindowPeer(*GetEditView()); + SetComponentInterface(xPeer); + } + return xPeer; +} + +WatchTreeListBox::WatchTreeListBox( Window* pParent, WinBits nWinBits ) + : SvHeaderTabListBox( pParent, nWinBits ) +{} + +WatchTreeListBox::~WatchTreeListBox() +{ + // Destroy user data + SvLBoxEntry* pEntry = First(); + while ( pEntry ) + { + delete (WatchItem*)pEntry->GetUserData(); + pEntry = Next( pEntry ); + } +} + +void WatchTreeListBox::SetTabs() +{ + SvHeaderTabListBox::SetTabs(); + sal_uInt16 nTabCount_ = aTabs.Count(); + for( sal_uInt16 i = 0 ; i < nTabCount_ ; i++ ) + { + SvLBoxTab* pTab = (SvLBoxTab*)aTabs.GetObject(i); + if( i == 2 ) + pTab->nFlags |= SV_LBOXTAB_EDITABLE; + else + pTab->nFlags &= ~SV_LBOXTAB_EDITABLE; + } +} + +void WatchTreeListBox::RequestingChilds( SvLBoxEntry * pParent ) +{ + if( !StarBASIC::IsRunning() ) + return; + + if( GetChildCount( pParent ) > 0 ) + return; + + SvLBoxEntry * pEntry = pParent; + WatchItem* pItem = (WatchItem*)pEntry->GetUserData(); + + SbxDimArray* pArray = pItem->mpArray; + SbxDimArray* pRootArray = pItem->GetRootArray(); + bool bArrayIsRootArray = false; + if( !pArray && pRootArray ) + { + pArray = pRootArray; + bArrayIsRootArray = true; + } + + SbxObject* pObj = pItem->mpObject; + if( pObj ) + { + createAllObjectProperties( pObj ); + SbxArray* pProps = pObj->GetProperties(); + sal_uInt16 nPropCount = pProps->Count(); + pItem->maMemberList.allocList( nPropCount ); + + for( sal_uInt16 i = 0 ; i < nPropCount - 3 ; i++ ) + { + SbxVariable* pVar = pProps->Get( i ); + + String aName( pVar->GetName() ); + pItem->maMemberList.mpMemberNames[i] = aName; + SvLBoxEntry* pChildEntry = SvTreeListBox::InsertEntry( aName, pEntry ); + WatchItem* pChildItem = new WatchItem(); + pChildItem->maName = aName; + pChildEntry->SetUserData( pChildItem ); + } + if( nPropCount > 0 ) + { + UpdateWatches(); + } + } + else if( pArray ) + { + sal_uInt16 nElementCount = 0; + + // Loop through indices of current level + int nParentLevel = bArrayIsRootArray ? pItem->nDimLevel : 0; + int nThisLevel = nParentLevel + 1; + sal_Int32 nMin, nMax; + pArray->GetDim32( nThisLevel, nMin, nMax ); + for( sal_Int32 i = nMin ; i <= nMax ; i++ ) + { + WatchItem* pChildItem = new WatchItem(); + + // Copy data and create name + String aBaseName( pItem->maName ); + pChildItem->maName = aBaseName; + + String aIndexStr = String( RTL_CONSTASCII_USTRINGPARAM( "(" ) ); + pChildItem->mpArrayParentItem = pItem; + pChildItem->nDimLevel = nThisLevel; + pChildItem->nDimCount = pItem->nDimCount; + pChildItem->pIndices = new short[ pChildItem->nDimCount ]; + sal_uInt16 j; + for( j = 0 ; j < nParentLevel ; j++ ) + { + short n = pChildItem->pIndices[j] = pItem->pIndices[j]; + aIndexStr += String::CreateFromInt32( n ); + aIndexStr += String( RTL_CONSTASCII_USTRINGPARAM( "," ) ); + } + pChildItem->pIndices[ nParentLevel ] = sal::static_int_cast<short>( i ); + aIndexStr += String::CreateFromInt32( i ); + aIndexStr += String( RTL_CONSTASCII_USTRINGPARAM( ")" ) ); + + String aDisplayName; + WatchItem* pArrayRootItem = pChildItem->GetRootItem(); + if( pArrayRootItem && pArrayRootItem->mpArrayParentItem ) + aDisplayName = pItem->maDisplayName; + else + aDisplayName = aBaseName; + aDisplayName += aIndexStr; + pChildItem->maDisplayName = aDisplayName; + + SvLBoxEntry* pChildEntry = SvTreeListBox::InsertEntry( aDisplayName, pEntry ); + nElementCount++; + pChildEntry->SetUserData( pChildItem ); + } + if( nElementCount > 0 ) + { + UpdateWatches(); + } + } +} + +SbxBase* WatchTreeListBox::ImplGetSBXForEntry( SvLBoxEntry* pEntry, bool& rbArrayElement ) +{ + SbxBase* pSBX = NULL; + rbArrayElement = false; + + WatchItem* pItem = (WatchItem*)pEntry->GetUserData(); + String aVName( pItem->maName ); + + SvLBoxEntry* pParentEntry = GetParent( pEntry ); + WatchItem* pParentItem = pParentEntry ? (WatchItem*)pParentEntry->GetUserData() : NULL; + if( pParentItem ) + { + SbxObject* pObj = pParentItem->mpObject; + SbxDimArray* pArray; + if( pObj ) + { + pSBX = pObj->Find( aVName, SbxCLASS_DONTCARE ); + + SbxVariable* pVar; + if ( pSBX && (pVar = PTR_CAST( SbxVariable, pSBX )) != NULL + && !pSBX->ISA( SbxMethod ) ) + { + // Force getting value + SbxValues aRes; + aRes.eType = SbxVOID; + pVar->Get( aRes ); + } + } + // Array? + else if( (pArray = pItem->GetRootArray()) != NULL ) + { + rbArrayElement = true; + if( pParentItem->nDimLevel + 1 == pParentItem->nDimCount ) + pSBX = pArray->Get( pItem->pIndices ); + } + } + else + { + pSBX = StarBASIC::FindSBXInCurrentScope( aVName ); + } + return pSBX; +} + +sal_Bool WatchTreeListBox::EditingEntry( SvLBoxEntry* pEntry, Selection& ) +{ + WatchItem* pItem = (WatchItem*)pEntry->GetUserData(); + + sal_Bool bEdit = sal_False; + if ( StarBASIC::IsRunning() && StarBASIC::GetActiveMethod() && !SbxBase::IsError() ) + { + // No out of scope entries + bool bArrayElement; + SbxBase* pSBX = ImplGetSBXForEntry( pEntry, bArrayElement ); + if ( ( pSBX && pSBX->ISA( SbxVariable ) && !pSBX->ISA( SbxMethod ) ) || bArrayElement ) + { + // Accept no objects and only end nodes of arrays for editing + if( !pItem->mpObject && (pItem->mpArray == NULL || pItem->nDimLevel == pItem->nDimCount) ) + { + aEditingRes = SvHeaderTabListBox::GetEntryText( pEntry, ITEM_ID_VALUE-1 ); + aEditingRes.EraseLeadingChars(); + aEditingRes.EraseTrailingChars(); + bEdit = sal_True; + } + } + } + + if ( !bEdit ) + Sound::Beep(); + + return bEdit; +} + +sal_Bool WatchTreeListBox::EditedEntry( SvLBoxEntry* pEntry, const String& rNewText ) +{ + WatchItem* pItem = (WatchItem*)pEntry->GetUserData(); + String aVName( pItem->maName ); + + String aResult = rNewText; + aResult.EraseLeadingChars(); + aResult.EraseTrailingChars(); + + sal_uInt16 nResultLen = aResult.Len(); + sal_Unicode cFirst = aResult.GetChar( 0 ); + sal_Unicode cLast = aResult.GetChar( nResultLen - 1 ); + if( cFirst == '\"' && cLast == '\"' ) + aResult = aResult.Copy( 1, nResultLen - 2 ); + + sal_Bool bResModified = ( aResult != aEditingRes ) ? sal_True : sal_False; + sal_Bool bError = sal_False; + if ( !aVName.Len() ) + { + bError = sal_True; + } + + sal_Bool bRet = sal_False; + + if ( bError ) + { + Sound::Beep(); + } + else if ( bResModified ) + { + bRet = ImplBasicEntryEdited( pEntry, aResult ); + } + + return bRet; +} + +sal_Bool WatchTreeListBox::ImplBasicEntryEdited( SvLBoxEntry* pEntry, const String& rResult ) +{ + WatchItem* pItem = (WatchItem*)pEntry->GetUserData(); + String aVName( pItem->maName ); + + sal_Bool bError = sal_False; + String aResult( rResult ); + String aIndex; + bool bArrayElement; + SbxBase* pSBX = ImplGetSBXForEntry( pEntry, bArrayElement ); + + SbxBase* pToBeChanged = NULL; + if ( pSBX && pSBX->ISA( SbxVariable ) && !pSBX->ISA( SbxMethod ) ) + { + SbxVariable* pVar = (SbxVariable*)pSBX; + SbxDataType eType = pVar->GetType(); + if ( (sal_uInt8)eType == (sal_uInt8)SbxOBJECT ) + bError = sal_True; + else if ( eType & SbxARRAY ) + bError = sal_True; + else + pToBeChanged = pSBX; + } + + if ( pToBeChanged ) + { + if ( pToBeChanged->ISA( SbxVariable ) ) + { + // Wenn der Typ variabel ist, macht die Konvertierung des SBX nichts, + // bei festem Typ wird der String konvertiert. + ((SbxVariable*)pToBeChanged)->PutStringExt( aResult ); + } + else + bError = sal_True; + } + + // Wenn jemand z.B. einen zu grossen Wert fuer ein Int eingegeben hat, + // folgt beim naechsten Step() ein Runtime-Error. + if ( SbxBase::IsError() ) + { + bError = sal_True; + SbxBase::ResetError(); + } + + if ( bError ) + Sound::Beep(); + + UpdateWatches(); + + // The text should never be taken/copied 1:1, + // as the UpdateWatches will be lost + return sal_False; +} + + +static void implCollapseModifiedObjectEntry( SvLBoxEntry* pParent, WatchTreeListBox* pThis ) +{ + pThis->Collapse( pParent ); + + SvLBoxTreeList* pModel = pThis->GetModel(); + SvLBoxEntry* pDeleteEntry; + while( (pDeleteEntry = pThis->SvTreeListBox::GetEntry( pParent, 0 )) != NULL ) + { + implCollapseModifiedObjectEntry( pDeleteEntry, pThis ); + + WatchItem* pItem = (WatchItem*)pDeleteEntry->GetUserData(); + delete pItem; + pModel->Remove( pDeleteEntry ); + } +} + +static String implCreateTypeStringForDimArray( WatchItem* pItem, SbxDataType eType ) +{ + String aRetStr = getBasicTypeName( eType ); + + SbxDimArray* pArray = pItem->mpArray; + if( !pArray ) + pArray = pItem->GetRootArray(); + if( pArray ) + { + int nDimLevel = pItem->nDimLevel; + int nDims = pItem->nDimCount; + if( nDimLevel < nDims ) + { + aRetStr += '('; + for( int i = nDimLevel ; i < nDims ; i++ ) + { + short nMin, nMax; + pArray->GetDim( sal::static_int_cast<short>( i+1 ), nMin, nMax ); + aRetStr += String::CreateFromInt32( nMin ); + aRetStr += String( RTL_CONSTASCII_USTRINGPARAM( " to " ) ); + aRetStr += String::CreateFromInt32( nMax ); + if( i < nDims - 1 ) + aRetStr += String( RTL_CONSTASCII_USTRINGPARAM( ", " ) ); + } + aRetStr += ')'; + } + } + return aRetStr; +} + + +void implEnableChildren( SvLBoxEntry* pEntry, bool bEnable ) +{ + if( bEnable ) + { + pEntry->SetFlags( + (pEntry->GetFlags() & + ~(SV_ENTRYFLAG_NO_NODEBMP | SV_ENTRYFLAG_HAD_CHILDREN)) + | SV_ENTRYFLAG_CHILDS_ON_DEMAND ); + } + else + { + pEntry->SetFlags( + (pEntry->GetFlags() & ~(SV_ENTRYFLAG_CHILDS_ON_DEMAND)) ); + } +} + +void WatchTreeListBox::UpdateWatches( bool bBasicStopped ) +{ + SbMethod* pCurMethod = StarBASIC::GetActiveMethod(); + + SbxError eOld = SbxBase::GetError(); + setBasicWatchMode( true ); + + SvLBoxEntry* pEntry = First(); + while ( pEntry ) + { + WatchItem* pItem = (WatchItem*)pEntry->GetUserData(); + String aVName( pItem->maName ); + DBG_ASSERT( aVName.Len(), "Var? - Must not be empty!" ); + String aWatchStr; + String aTypeStr; + if ( pCurMethod ) + { + bool bArrayElement; + SbxBase* pSBX = ImplGetSBXForEntry( pEntry, bArrayElement ); + + // Array? If no end node create type string + if( bArrayElement && pItem->nDimLevel < pItem->nDimCount ) + { + SbxDimArray* pRootArray = pItem->GetRootArray(); + SbxDataType eType = pRootArray->GetType(); + aTypeStr = implCreateTypeStringForDimArray( pItem, eType ); + implEnableChildren( pEntry, true ); + } + + bool bCollapse = false; + if ( pSBX && pSBX->ISA( SbxVariable ) && !pSBX->ISA( SbxMethod ) ) + { + SbxVariable* pVar = (SbxVariable*)pSBX; + // extra treatment of arrays + SbxDataType eType = pVar->GetType(); + if ( eType & SbxARRAY ) + { + // Mehrdimensionale Arrays beruecksichtigen! + SbxBase* pBase = pVar->GetObject(); + if ( pBase && pBase->ISA( SbxDimArray ) ) + { + SbxDimArray* pNewArray = (SbxDimArray*)pBase; + SbxDimArray* pOldArray = pItem->mpArray; + + bool bArrayChanged = false; + if( pNewArray != NULL && pOldArray != NULL ) + { + // Compare Array dimensions to see if array has changed + // Can be a copy, so comparing pointers does not work + sal_uInt16 nOldDims = pOldArray->GetDims(); + sal_uInt16 nNewDims = pNewArray->GetDims(); + if( nOldDims != nNewDims ) + { + bArrayChanged = true; + } + else + { + for( int i = 0 ; i < nOldDims ; i++ ) + { + short nOldMin, nOldMax; + short nNewMin, nNewMax; + + pOldArray->GetDim( sal::static_int_cast<short>( i+1 ), nOldMin, nOldMax ); + pNewArray->GetDim( sal::static_int_cast<short>( i+1 ), nNewMin, nNewMax ); + if( nOldMin != nNewMin || nOldMax != nNewMax ) + { + bArrayChanged = true; + break; + } + } + } + } + else if( pNewArray == NULL || pOldArray == NULL ) + bArrayChanged = true; + + if( pNewArray ) + implEnableChildren( pEntry, true ); + + // #i37227 Clear always and replace array + if( pNewArray != pOldArray ) + { + pItem->clearWatchItem( false ); + if( pNewArray ) + { + implEnableChildren( pEntry, true ); + + pItem->mpArray = pNewArray; + sal_uInt16 nDims = pNewArray->GetDims(); + pItem->nDimLevel = 0; + pItem->nDimCount = nDims; + } + } + if( bArrayChanged && pOldArray != NULL ) + bCollapse = true; + + aTypeStr = implCreateTypeStringForDimArray( pItem, eType ); + } + else + aWatchStr += String( RTL_CONSTASCII_USTRINGPARAM( "<?>" ) ); + } + else if ( (sal_uInt8)eType == (sal_uInt8)SbxOBJECT ) + { + SbxObject* pObj = NULL; + SbxBase* pBase = pVar->GetObject(); + if( pBase && pBase->ISA( SbxObject ) ) + pObj = (SbxObject*)pBase; + + if( pObj ) + { + // Check if member list has changed + bool bObjChanged = false; + if( pItem->mpObject != NULL && pItem->maMemberList.mpMemberNames != NULL ) + { + SbxArray* pProps = pObj->GetProperties(); + sal_uInt16 nPropCount = pProps->Count(); + for( sal_uInt16 i = 0 ; i < nPropCount - 3 ; i++ ) + { + SbxVariable* pVar_ = pProps->Get( i ); + String aName( pVar_->GetName() ); + if( pItem->maMemberList.mpMemberNames[i] != aName ) + { + bObjChanged = true; + break; + } + } + if( bObjChanged ) + bCollapse = true; + } + + pItem->mpObject = pObj; + implEnableChildren( pEntry, true ); + aTypeStr = getBasicObjectTypeName( pObj ); + } + else + { + aWatchStr = String( RTL_CONSTASCII_USTRINGPARAM( "Null" ) ); + if( pItem->mpObject != NULL ) + { + bCollapse = true; + pItem->clearWatchItem( false ); + + implEnableChildren( pEntry, false ); + } + } + } + else + { + if( pItem->mpObject != NULL ) + { + bCollapse = true; + pItem->clearWatchItem( false ); + + implEnableChildren( pEntry, false ); + } + + bool bString = ((sal_uInt8)eType == (sal_uInt8)SbxSTRING); + String aStrStr( RTL_CONSTASCII_USTRINGPARAM( "\"" ) ); + if( bString ) + aWatchStr += aStrStr; + aWatchStr += pVar->GetString(); + if( bString ) + aWatchStr += aStrStr; + } + if( !aTypeStr.Len() ) + { + if( !pVar->IsFixed() ) + aTypeStr = String( RTL_CONSTASCII_USTRINGPARAM( "Variant/" ) ); + aTypeStr += getBasicTypeName( pVar->GetType() ); + } + } + else if( !bArrayElement ) + aWatchStr += String( RTL_CONSTASCII_USTRINGPARAM( "<Out of Scope>" ) ); + + if( bCollapse ) + implCollapseModifiedObjectEntry( pEntry, this ); + + } + else if( bBasicStopped ) + { + if( pItem->mpObject || pItem->mpArray ) + { + implCollapseModifiedObjectEntry( pEntry, this ); + pItem->mpObject = NULL; + } + } + + SvHeaderTabListBox::SetEntryText( aWatchStr, pEntry, ITEM_ID_VALUE-1 ); + SvHeaderTabListBox::SetEntryText( aTypeStr, pEntry, ITEM_ID_TYPE-1 ); + + pEntry = Next( pEntry ); + } + + // Force redraw + Invalidate(); + + SbxBase::ResetError(); + if( eOld != SbxERR_OK ) + SbxBase::SetError( eOld ); + setBasicWatchMode( false ); +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/baside3.cxx b/basctl/source/basicide/baside3.cxx new file mode 100644 index 000000000000..fdb69631d6fe --- /dev/null +++ b/basctl/source/basicide/baside3.cxx @@ -0,0 +1,1395 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#define _SDR_NOITEMS +#define _SDR_NOTOUCH +#define _SDR_NOTRANSFORM +#define _SDR_NOOBJECTS +#define _SDR_NOVIEWMARKER +#define _SDR_NODRAGMETHODS +#define _SDR_NOXOUTDEV + +#include <ide_pch.hxx> + + +#include <vector> +#include <basidesh.hrc> +#include <baside3.hxx> +#include <localizationmgr.hxx> +#include <accessibledialogwindow.hxx> +#include <dlged.hxx> +#include <dlgedmod.hxx> +#include <dlgedview.hxx> +#include <dlgeddef.hxx> +#include <propbrw.hxx> + +#include <basobj.hxx> +#include <iderdll.hxx> +#include <basidesh.hxx> +#include <idetemp.hxx> +#include <helpid.hrc> +#include <bastype2.hxx> +#include <svx/svdview.hxx> +#include <editeng/unolingu.hxx> +#include <tools/diagnose_ex.h> +#include <tools/urlobj.hxx> +#include <comphelper/processfactory.hxx> +#include <com/sun/star/container/XNameContainer.hpp> +#include <com/sun/star/beans/XPropertySet.hpp> +#include <xmlscript/xmldlg_imexp.hxx> +#include <com/sun/star/script/XLibraryContainer2.hpp> +#include <svtools/ehdl.hxx> +#include <svtools/langtab.hxx> +#include <com/sun/star/ui/dialogs/XFilePicker.hpp> +#include <com/sun/star/ui/dialogs/XFilePickerControlAccess.hpp> +#include <com/sun/star/ui/dialogs/XFilterManager.hpp> +#include <com/sun/star/ui/dialogs/TemplateDescription.hpp> +#include <com/sun/star/ui/dialogs/ExtendedFilePickerElementIds.hpp> +#include <com/sun/star/ucb/XSimpleFileAccess.hpp> +#include <com/sun/star/resource/XStringResourceResolver.hpp> +#include <com/sun/star/resource/StringResourceWithLocation.hpp> +#include <com/sun/star/task/XInteractionHandler.hpp> +#include <com/sun/star/script/vba/XVBACompatibility.hpp> + +using namespace comphelper; +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::ucb; +using namespace ::com::sun::star::io; +using namespace ::com::sun::star::resource; +using namespace ::com::sun::star::ui::dialogs; + +#if defined(UNX) +#define FILTERMASK_ALL "*" +#elif defined(PM2) +#define FILTERMASK_ALL "" +#else +#define FILTERMASK_ALL "*.*" +#endif + +DBG_NAME( DialogWindow ) + +TYPEINIT1( DialogWindow, IDEBaseWindow ); + +DialogWindow::DialogWindow( Window* pParent, const ScriptDocument& rDocument, String aLibName, String aName, + const com::sun::star::uno::Reference< com::sun::star::container::XNameContainer >& xDialogModel ) + :IDEBaseWindow( pParent, rDocument, aLibName, aName ) + ,pUndoMgr(NULL) +{ + InitSettings( sal_True, sal_True, sal_True ); + + pEditor = new DlgEditor( rDocument.isDocument() ? rDocument.getDocument() : Reference< frame::XModel >() ); + pEditor->SetWindow( this ); + pEditor->SetDialog( xDialogModel ); + + // Undo einrichten + pUndoMgr = new SfxUndoManager; + + Link aDummyLink; + aOldNotifyUndoActionHdl = pEditor->GetModel()->GetNotifyUndoActionHdl(); + pEditor->GetModel()->SetNotifyUndoActionHdl( + LINK(this, DialogWindow, NotifyUndoActionHdl)); + + SetHelpId( HID_BASICIDE_DIALOGWINDOW ); + + // set readonly mode for readonly libraries + ::rtl::OUString aOULibName( aLibName ); + Reference< script::XLibraryContainer2 > xDlgLibContainer( GetDocument().getLibraryContainer( E_DIALOGS ), UNO_QUERY ); + if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryReadOnly( aOULibName ) ) + SetReadOnly( sal_True ); + + if ( rDocument.isDocument() && rDocument.isReadOnly() ) + SetReadOnly( sal_True ); +} + +DialogWindow::~DialogWindow() +{ + delete pEditor; + delete pUndoMgr; +} + +void DialogWindow::LoseFocus() +{ + if ( IsModified() ) + StoreData(); + + Window::LoseFocus(); +} + + + +void DialogWindow::Paint( const Rectangle& rRect ) +{ + pEditor->Paint( rRect ); +} + + + +void DialogWindow::Resize() +{ + if ( GetHScrollBar() && GetVScrollBar() ) { + pEditor->SetScrollBars( GetHScrollBar(), GetVScrollBar() ); + } +} + + + +void DialogWindow::MouseButtonDown( const MouseEvent& rMEvt ) +{ + pEditor->MouseButtonDown( rMEvt ); + + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_SHOW_PROPERTYBROWSER ); +} + + + +void DialogWindow::MouseButtonUp( const MouseEvent& rMEvt ) +{ + pEditor->MouseButtonUp( rMEvt ); + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if( (pEditor->GetMode() == DLGED_INSERT) && !pEditor->IsCreateOK() ) + { + pEditor->SetMode( DLGED_SELECT ); + if ( pBindings ) + pBindings->Invalidate( SID_CHOOSE_CONTROLS ); + } + if ( pBindings ) + { + pBindings->Invalidate( SID_SHOW_PROPERTYBROWSER ); + pBindings->Invalidate( SID_DOC_MODIFIED ); + pBindings->Invalidate( SID_SAVEDOC ); + } +} + + + +void DialogWindow::MouseMove( const MouseEvent& rMEvt ) +{ + pEditor->MouseMove( rMEvt ); +} + + + +void DialogWindow::KeyInput( const KeyEvent& rKEvt ) +{ + if( rKEvt.GetKeyCode() == KEY_BACKSPACE ) + { + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if( pDispatcher ) + { + pDispatcher->Execute( SID_BACKSPACE ); + } + } + else + { + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if( pBindings && rKEvt.GetKeyCode() == KEY_TAB ) + pBindings->Invalidate( SID_SHOW_PROPERTYBROWSER ); + + if( !pEditor->KeyInput( rKEvt ) ) + { + if( !SfxViewShell::Current()->KeyInput( rKEvt ) ) + Window::KeyInput( rKEvt ); + } + } +} + +void DialogWindow::Command( const CommandEvent& rCEvt ) +{ + if ( ( rCEvt.GetCommand() == COMMAND_WHEEL ) || + ( rCEvt.GetCommand() == COMMAND_STARTAUTOSCROLL ) || + ( rCEvt.GetCommand() == COMMAND_AUTOSCROLL ) ) + { + HandleScrollCommand( rCEvt, GetHScrollBar(), GetVScrollBar() ); + } + else if ( rCEvt.GetCommand() == COMMAND_CONTEXTMENU ) + { + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if ( pDispatcher ) + { + SdrView* pView = GetView(); + if( !rCEvt.IsMouseEvent() && pView->AreObjectsMarked() ) + { + Rectangle aMarkedRect( pView->GetMarkedRect() ); + Point MarkedCenter( aMarkedRect.Center() ); + Point PosPixel( LogicToPixel( MarkedCenter ) ); + pDispatcher->ExecutePopup( IDEResId(RID_POPUP_DLGED), this, &PosPixel ); + } + else + { + pDispatcher->ExecutePopup( IDEResId(RID_POPUP_DLGED) ); + } + + } + } + else + IDEBaseWindow::Command( rCEvt ); +} + + + + +IMPL_LINK( DialogWindow, NotifyUndoActionHdl, SfxUndoAction *, pUndoAction ) +{ + (void)pUndoAction; + + return 0; +} + + + +void DialogWindow::DoInit() +{ + GetHScrollBar()->Show(); + GetVScrollBar()->Show(); + pEditor->SetScrollBars( GetHScrollBar(), GetVScrollBar() ); +} + + + +void DialogWindow::DoScroll( ScrollBar* pCurScrollBar ) +{ + pEditor->DoScroll( pCurScrollBar ); +} + +void DialogWindow::GetState( SfxItemSet& rSet ) +{ + SfxWhichIter aIter(rSet); + for ( sal_uInt16 nWh = aIter.FirstWhich(); 0 != nWh; nWh = aIter.NextWhich() ) + { + switch ( nWh ) + { + case SID_PASTE: + { + if ( !IsPasteAllowed() ) + rSet.DisableItem( nWh ); + + if ( IsReadOnly() ) + rSet.DisableItem( nWh ); + } + break; + case SID_COPY: + { + // any object selected? + if ( !pEditor->GetView()->AreObjectsMarked() ) + rSet.DisableItem( nWh ); + } + break; + case SID_CUT: + case SID_DELETE: + case SID_BACKSPACE: + { + // any object selected? + if ( !pEditor->GetView()->AreObjectsMarked() ) + rSet.DisableItem( nWh ); + + if ( IsReadOnly() ) + rSet.DisableItem( nWh ); + } + break; + case SID_REDO: + { + if ( !pUndoMgr->GetUndoActionCount() ) + rSet.DisableItem( nWh ); + } + break; + + // Nur Dialogfenster: + case SID_DIALOG_TESTMODE: + { + // ist die IDE noch aktiv? + if( IDE_DLL()->GetShell()->GetFrame() ) + { + rSet.Put( SfxBoolItem( SID_DIALOG_TESTMODE, + (pEditor->GetMode() == DLGED_TEST) ? sal_True : sal_False) ); + } + else + rSet.Put( SfxBoolItem( SID_DIALOG_TESTMODE,sal_False )); + } + break; + + case SID_CHOOSE_CONTROLS: + { + if ( IsReadOnly() ) + { + rSet.DisableItem( nWh ); + } + else + { + SfxAllEnumItem aItem( SID_CHOOSE_CONTROLS ); + if ( GetEditor()->GetMode() == DLGED_SELECT ) + aItem.SetValue( SVX_SNAP_SELECT ); + else + { + sal_uInt16 nObj; + switch( pEditor->GetInsertObj() ) + { + case OBJ_DLG_PUSHBUTTON: nObj = SVX_SNAP_PUSHBUTTON; break; + case OBJ_DLG_RADIOBUTTON: nObj = SVX_SNAP_RADIOBUTTON; break; + case OBJ_DLG_CHECKBOX: nObj = SVX_SNAP_CHECKBOX; break; + case OBJ_DLG_LISTBOX: nObj = SVX_SNAP_LISTBOX; break; + case OBJ_DLG_COMBOBOX: nObj = SVX_SNAP_COMBOBOX; break; + case OBJ_DLG_GROUPBOX: nObj = SVX_SNAP_GROUPBOX; break; + case OBJ_DLG_EDIT: nObj = SVX_SNAP_EDIT; break; + case OBJ_DLG_FIXEDTEXT: nObj = SVX_SNAP_FIXEDTEXT; break; + case OBJ_DLG_IMAGECONTROL: nObj = SVX_SNAP_IMAGECONTROL; break; + case OBJ_DLG_PROGRESSBAR: nObj = SVX_SNAP_PROGRESSBAR; break; + case OBJ_DLG_HSCROLLBAR: nObj = SVX_SNAP_HSCROLLBAR; break; + case OBJ_DLG_VSCROLLBAR: nObj = SVX_SNAP_VSCROLLBAR; break; + case OBJ_DLG_HFIXEDLINE: nObj = SVX_SNAP_HFIXEDLINE; break; + case OBJ_DLG_VFIXEDLINE: nObj = SVX_SNAP_VFIXEDLINE; break; + case OBJ_DLG_DATEFIELD: nObj = SVX_SNAP_DATEFIELD; break; + case OBJ_DLG_TIMEFIELD: nObj = SVX_SNAP_TIMEFIELD; break; + case OBJ_DLG_NUMERICFIELD: nObj = SVX_SNAP_NUMERICFIELD; break; + case OBJ_DLG_CURRENCYFIELD: nObj = SVX_SNAP_CURRENCYFIELD; break; + case OBJ_DLG_FORMATTEDFIELD: nObj = SVX_SNAP_FORMATTEDFIELD; break; + case OBJ_DLG_PATTERNFIELD: nObj = SVX_SNAP_PATTERNFIELD; break; + case OBJ_DLG_FILECONTROL: nObj = SVX_SNAP_FILECONTROL; break; + case OBJ_DLG_TREECONTROL: nObj = SVX_SNAP_TREECONTROL; break; + default: nObj = 0; + } +#ifdef DBG_UTIL + if( !nObj ) + { + DBG_WARNING( "SID_CHOOSE_CONTROLS: Unbekannt!" ); + } +#endif + aItem.SetValue( nObj ); + } + + rSet.Put( aItem ); + } + } + break; + + case SID_SHOW_PROPERTYBROWSER: + { + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + if ( pViewFrame && !pViewFrame->HasChildWindow( SID_SHOW_PROPERTYBROWSER ) && !pEditor->GetView()->AreObjectsMarked() ) + rSet.DisableItem( nWh ); + + if ( IsReadOnly() ) + rSet.DisableItem( nWh ); + } + break; + } + } +} + + + +void DialogWindow::ExecuteCommand( SfxRequest& rReq ) +{ + switch ( rReq.GetSlot() ) + { + case SID_CUT: + if ( !IsReadOnly() ) + { + GetEditor()->Cut(); + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_DOC_MODIFIED ); + } + break; + case SID_DELETE: + if ( !IsReadOnly() ) + { + GetEditor()->Delete(); + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_DOC_MODIFIED ); + } + break; + case SID_COPY: + GetEditor()->Copy(); + break; + case SID_PASTE: + if ( !IsReadOnly() ) + { + GetEditor()->Paste(); + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_DOC_MODIFIED ); + } + break; + case SID_CHOOSE_CONTROLS: + { + const SfxItemSet* pArgs = rReq.GetArgs(); + DBG_ASSERT( pArgs, "Nix Args" ); + + const SfxAllEnumItem& rItem = (SfxAllEnumItem&)pArgs->Get( SID_CHOOSE_CONTROLS ); + switch( rItem.GetValue() ) + { + case SVX_SNAP_PUSHBUTTON: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_PUSHBUTTON ); + } + break; + case SVX_SNAP_RADIOBUTTON: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_RADIOBUTTON ); + } + break; + case SVX_SNAP_CHECKBOX: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_CHECKBOX); + } + break; + case SVX_SNAP_LISTBOX: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_LISTBOX ); + } + break; + case SVX_SNAP_COMBOBOX: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_COMBOBOX ); + } + break; + case SVX_SNAP_GROUPBOX: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_GROUPBOX ); + } + break; + case SVX_SNAP_EDIT: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_EDIT ); + } + break; + case SVX_SNAP_FIXEDTEXT: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_FIXEDTEXT ); + } + break; + case SVX_SNAP_IMAGECONTROL: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_IMAGECONTROL ); + } + break; + case SVX_SNAP_PROGRESSBAR: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_PROGRESSBAR ); + } + break; + case SVX_SNAP_HSCROLLBAR: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_HSCROLLBAR ); + } + break; + case SVX_SNAP_VSCROLLBAR: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_VSCROLLBAR ); + } + break; + case SVX_SNAP_HFIXEDLINE: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_HFIXEDLINE ); + } + break; + case SVX_SNAP_VFIXEDLINE: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_VFIXEDLINE ); + } + break; + case SVX_SNAP_DATEFIELD: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_DATEFIELD ); + } + break; + case SVX_SNAP_TIMEFIELD: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_TIMEFIELD ); + } + break; + case SVX_SNAP_NUMERICFIELD: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_NUMERICFIELD ); + } + break; + case SVX_SNAP_CURRENCYFIELD: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_CURRENCYFIELD ); + } + break; + case SVX_SNAP_FORMATTEDFIELD: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_FORMATTEDFIELD ); + } + break; + case SVX_SNAP_PATTERNFIELD: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_PATTERNFIELD ); + } + break; + case SVX_SNAP_FILECONTROL: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_FILECONTROL ); + } + break; + case SVX_SNAP_TREECONTROL: + { + GetEditor()->SetMode( DLGED_INSERT ); + GetEditor()->SetInsertObj( OBJ_DLG_TREECONTROL ); + } + break; + + case SVX_SNAP_SELECT: + { + GetEditor()->SetMode( DLGED_SELECT ); + } + break; + } + + if ( rReq.GetModifier() & KEY_MOD1 ) + { + if ( GetEditor()->GetMode() == DLGED_INSERT ) + GetEditor()->CreateDefaultObject(); + } + + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_DOC_MODIFIED ); + } + break; + + case SID_DIALOG_TESTMODE: + { + DlgEdMode eOldMode = GetEditor()->GetMode(); + GetEditor()->SetMode( DLGED_TEST ); + GetEditor()->SetMode( eOldMode ); + rReq.Done(); + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_DIALOG_TESTMODE ); + return; + } + case SID_EXPORT_DIALOG: + SaveDialog(); + break; + + case SID_IMPORT_DIALOG: + ImportDialog(); + break; + } + + rReq.Done(); +} + +Reference< container::XNameContainer > DialogWindow::GetDialog() const +{ + return pEditor->GetDialog(); +} + +sal_Bool DialogWindow::RenameDialog( const String& rNewName ) +{ + if ( !BasicIDE::RenameDialog( this, GetDocument(), GetLibName(), GetName(), rNewName ) ) + return sal_False; + + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_DOC_MODIFIED ); + + return sal_True; +} + +void DialogWindow::DisableBrowser() +{ + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxChildWindow* pChildWin = pViewFrame ? pViewFrame->GetChildWindow(SID_SHOW_PROPERTYBROWSER) : NULL; + if( pChildWin ) + ((PropBrw*)(pChildWin->GetWindow()))->Update( NULL ); +} + +void DialogWindow::UpdateBrowser() +{ + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxChildWindow* pChildWin = pViewFrame ? pViewFrame->GetChildWindow(SID_SHOW_PROPERTYBROWSER) : NULL; + if( pChildWin ) + ((PropBrw*)(pChildWin->GetWindow()))->Update( pIDEShell ); +} + +static ::rtl::OUString aResourceResolverPropName( RTL_CONSTASCII_USTRINGPARAM( "ResourceResolver" )); + +sal_Bool DialogWindow::SaveDialog() +{ + DBG_CHKTHIS( DialogWindow, 0 ); + sal_Bool bDone = sal_False; + + Reference< lang::XMultiServiceFactory > xMSF( ::comphelper::getProcessServiceFactory() ); + Reference < XFilePicker > xFP; + if( xMSF.is() ) + { + Sequence <Any> aServiceType(1); + aServiceType[0] <<= TemplateDescription::FILESAVE_AUTOEXTENSION_PASSWORD; + xFP = Reference< XFilePicker >( xMSF->createInstanceWithArguments( + ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ui.dialogs.FilePicker" ) ), aServiceType ), UNO_QUERY ); + } + + Reference< XFilePickerControlAccess > xFPControl(xFP, UNO_QUERY); + xFPControl->enableControl(ExtendedFilePickerElementIds::CHECKBOX_PASSWORD, sal_False); + Any aValue; + aValue <<= (sal_Bool) sal_True; + xFPControl->setValue(ExtendedFilePickerElementIds::CHECKBOX_AUTOEXTENSION, 0, aValue); + + if ( aCurPath.Len() ) + xFP->setDisplayDirectory ( aCurPath ); + + xFP->setDefaultName( ::rtl::OUString( GetName() ) ); + + String aDialogStr( IDEResId( RID_STR_STDDIALOGNAME ) ); + Reference< XFilterManager > xFltMgr(xFP, UNO_QUERY); + xFltMgr->appendFilter( aDialogStr, String( RTL_CONSTASCII_USTRINGPARAM( "*.xdl" ) ) ); + xFltMgr->appendFilter( String( IDEResId( RID_STR_FILTER_ALLFILES ) ), String( RTL_CONSTASCII_USTRINGPARAM( FILTERMASK_ALL ) ) ); + xFltMgr->setCurrentFilter( aDialogStr ); + + if( xFP->execute() == RET_OK ) + { + Sequence< ::rtl::OUString > aPaths = xFP->getFiles(); + aCurPath = aPaths[0]; + + // export dialog model to xml + Reference< container::XNameContainer > xDialogModel = GetDialog(); + Reference< XComponentContext > xContext; + Reference< beans::XPropertySet > xProps( ::comphelper::getProcessServiceFactory(), UNO_QUERY ); + OSL_ASSERT( xProps.is() ); + OSL_VERIFY( xProps->getPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("DefaultContext")) ) >>= xContext ); + Reference< XInputStreamProvider > xISP = ::xmlscript::exportDialogModel( xDialogModel, xContext, GetDocument().isDocument() ? GetDocument().getDocument() : Reference< frame::XModel >() ); + Reference< XInputStream > xInput( xISP->createInputStream() ); + + Reference< XSimpleFileAccess > xSFI( xMSF->createInstance + ( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ucb.SimpleFileAccess" )) ), UNO_QUERY ); + + Reference< XOutputStream > xOutput; + try + { + if( xSFI->exists( aCurPath ) ) + xSFI->kill( aCurPath ); + xOutput = xSFI->openFileWrite( aCurPath ); + } + catch( Exception& ) + {} + + if( xOutput.is() ) + { + Sequence< sal_Int8 > bytes; + sal_Int32 nRead = xInput->readBytes( bytes, xInput->available() ); + for (;;) + { + if( nRead ) + xOutput->writeBytes( bytes ); + + nRead = xInput->readBytes( bytes, 1024 ); + if (! nRead) + break; + } + bDone = true; + + // With resource? + Reference< beans::XPropertySet > xDialogModelPropSet( xDialogModel, UNO_QUERY ); + Reference< resource::XStringResourceResolver > xStringResourceResolver; + if( xDialogModelPropSet.is() ) + { + try + { + Any aResourceResolver = xDialogModelPropSet->getPropertyValue( aResourceResolverPropName ); + aResourceResolver >>= xStringResourceResolver; + } + catch( beans::UnknownPropertyException& ) + {} + } + + bool bResource = false; + if( xStringResourceResolver.is() ) + { + Sequence< lang::Locale > aLocaleSeq = xStringResourceResolver->getLocales(); + sal_Int32 nLocaleCount = aLocaleSeq.getLength(); + if( nLocaleCount > 0 ) + bResource = true; + } + + if( bResource ) + { + INetURLObject aURLObj( aCurPath ); + aURLObj.removeExtension(); + ::rtl::OUString aDialogName( aURLObj.getName() ); + aURLObj.removeSegment(); + ::rtl::OUString aURL( aURLObj.GetMainURL( INetURLObject::NO_DECODE ) ); + sal_Bool bReadOnly = sal_False; + ::rtl::OUString aComment( RTL_CONSTASCII_USTRINGPARAM( "# " )); + aComment += aDialogName; + aComment += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( " strings" )); + Reference< task::XInteractionHandler > xDummyHandler; + + // Remove old properties files in case of overwriting Dialog files + if( xSFI->isFolder( aURL ) ) + { + Sequence< ::rtl::OUString > aContentSeq = xSFI->getFolderContents( aURL, false ); + + ::rtl::OUString aDialogName_( aDialogName ); + aDialogName_ += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "_" )); + sal_Int32 nCount = aContentSeq.getLength(); + const ::rtl::OUString* pFiles = aContentSeq.getConstArray(); + for( int i = 0 ; i < nCount ; i++ ) + { + ::rtl::OUString aCompleteName = pFiles[i]; + rtl::OUString aPureName; + rtl::OUString aExtension; + sal_Int32 iDot = aCompleteName.lastIndexOf( '.' ); + sal_Int32 iSlash = aCompleteName.lastIndexOf( '/' ); + if( iDot != -1 ) + { + sal_Int32 iCopyFrom = (iSlash != -1) ? iSlash + 1 : 0; + aPureName = aCompleteName.copy( iCopyFrom, iDot-iCopyFrom ); + aExtension = aCompleteName.copy( iDot + 1 ); + } + + if( aExtension.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM( "properties" ) ) || + aExtension.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM( "default" ) ) ) + { + if( aPureName.indexOf( aDialogName_ ) == 0 ) + { + try + { + xSFI->kill( aCompleteName ); + } + catch( uno::Exception& ) + {} + } + } + } + } + + Reference< XStringResourceWithLocation > xStringResourceWithLocation = + StringResourceWithLocation::create( xContext, aURL, bReadOnly, + xStringResourceResolver->getDefaultLocale(), aDialogName, aComment, xDummyHandler ); + + // Add locales + Sequence< lang::Locale > aLocaleSeq = xStringResourceResolver->getLocales(); + const lang::Locale* pLocales = aLocaleSeq.getConstArray(); + sal_Int32 nLocaleCount = aLocaleSeq.getLength(); + for( sal_Int32 iLocale = 0 ; iLocale < nLocaleCount ; iLocale++ ) + { + const lang::Locale& rLocale = pLocales[ iLocale ]; + xStringResourceWithLocation->newLocale( rLocale ); + } + + Reference< XStringResourceManager > xTargetStringResourceManager( xStringResourceWithLocation, uno::UNO_QUERY ); + + LocalizationMgr::copyResourceForDialog( xDialogModel, + xStringResourceResolver, xTargetStringResourceManager ); + + xStringResourceWithLocation->store(); + } + } + else + ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_COULDNTWRITE) ) ).Execute(); + } + + return bDone; +} + +extern bool localesAreEqual( const ::com::sun::star::lang::Locale& rLocaleLeft, + const ::com::sun::star::lang::Locale& rLocaleRight ); + +std::vector< lang::Locale > implGetLanguagesOnlyContainedInFirstSeq + ( Sequence< lang::Locale > aFirstSeq, Sequence< lang::Locale > aSecondSeq ) +{ + std::vector< lang::Locale > avRet; + + const lang::Locale* pFirst = aFirstSeq.getConstArray(); + const lang::Locale* pSecond = aSecondSeq.getConstArray(); + sal_Int32 nFirstCount = aFirstSeq.getLength(); + sal_Int32 nSecondCount = aSecondSeq.getLength(); + + for( sal_Int32 iFirst = 0 ; iFirst < nFirstCount ; iFirst++ ) + { + const lang::Locale& rFirstLocale = pFirst[ iFirst ]; + + bool bAlsoContainedInSecondSeq = false; + for( sal_Int32 iSecond = 0 ; iSecond < nSecondCount ; iSecond++ ) + { + const lang::Locale& rSecondLocale = pSecond[ iSecond ]; + + bool bMatch = localesAreEqual( rFirstLocale, rSecondLocale ); + if( bMatch ) + { + bAlsoContainedInSecondSeq = true; + break; + } + } + + if( !bAlsoContainedInSecondSeq ) + avRet.push_back( rFirstLocale ); + } + + return avRet; +} + + +class NameClashQueryBox : public MessBox +{ +public: + NameClashQueryBox( Window* pParent, + const XubString& rTitle, const XubString& rMessage ); +}; + +NameClashQueryBox::NameClashQueryBox( Window* pParent, + const XubString& rTitle, const XubString& rMessage ) + : MessBox( pParent, 0, rTitle, rMessage ) +{ + if ( rTitle.Len() ) + SetText( rTitle ); + + maMessText = rMessage; + + AddButton( String( IDEResId( RID_STR_DLGIMP_CLASH_RENAME ) ), RET_YES, + BUTTONDIALOG_DEFBUTTON | BUTTONDIALOG_OKBUTTON | BUTTONDIALOG_FOCUSBUTTON ); + AddButton( String( IDEResId( RID_STR_DLGIMP_CLASH_REPLACE ) ), RET_NO, 0 ); + AddButton( BUTTON_CANCEL, RET_CANCEL, BUTTONDIALOG_CANCELBUTTON ); + + SetImage( QueryBox::GetStandardImage() ); +} + + +class LanguageMismatchQueryBox : public MessBox +{ +public: + LanguageMismatchQueryBox( Window* pParent, + const XubString& rTitle, const XubString& rMessage ); +}; + +LanguageMismatchQueryBox::LanguageMismatchQueryBox( Window* pParent, + const XubString& rTitle, const XubString& rMessage ) + : MessBox( pParent, 0, rTitle, rMessage ) +{ + if ( rTitle.Len() ) + SetText( rTitle ); + + maMessText = rMessage; + AddButton( String( IDEResId( RID_STR_DLGIMP_MISMATCH_ADD ) ), RET_YES, + BUTTONDIALOG_DEFBUTTON | BUTTONDIALOG_OKBUTTON | BUTTONDIALOG_FOCUSBUTTON ); + AddButton( String( IDEResId( RID_STR_DLGIMP_MISMATCH_OMIT ) ), RET_NO, 0 ); + AddButton( BUTTON_CANCEL, RET_CANCEL, BUTTONDIALOG_CANCELBUTTON ); + AddButton( BUTTON_HELP, BUTTONID_HELP, BUTTONDIALOG_HELPBUTTON, 4 ); + + SetImage( QueryBox::GetStandardImage() ); +} + +sal_Bool implImportDialog( Window* pWin, const String& rCurPath, const ScriptDocument& rDocument, const String& aLibName ) +{ + sal_Bool bDone = sal_False; + + Reference< lang::XMultiServiceFactory > xMSF( ::comphelper::getProcessServiceFactory() ); + Reference < XFilePicker > xFP; + if( xMSF.is() ) + { + Sequence <Any> aServiceType(1); + aServiceType[0] <<= TemplateDescription::FILEOPEN_SIMPLE; + xFP = Reference< XFilePicker >( xMSF->createInstanceWithArguments( + ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ui.dialogs.FilePicker" ) ), aServiceType ), UNO_QUERY ); + } + + Reference< XFilePickerControlAccess > xFPControl(xFP, UNO_QUERY); + xFPControl->enableControl(ExtendedFilePickerElementIds::CHECKBOX_PASSWORD, sal_False); + Any aValue; + aValue <<= (sal_Bool) sal_True; + xFPControl->setValue(ExtendedFilePickerElementIds::CHECKBOX_AUTOEXTENSION, 0, aValue); + + String aCurPath( rCurPath ); + if ( aCurPath.Len() ) + xFP->setDisplayDirectory ( aCurPath ); + + String aDialogStr( IDEResId( RID_STR_STDDIALOGNAME ) ); + Reference< XFilterManager > xFltMgr(xFP, UNO_QUERY); + xFltMgr->appendFilter( aDialogStr, String( RTL_CONSTASCII_USTRINGPARAM( "*.xdl" ) ) ); + xFltMgr->appendFilter( String( IDEResId( RID_STR_FILTER_ALLFILES ) ), String( RTL_CONSTASCII_USTRINGPARAM( FILTERMASK_ALL ) ) ); + xFltMgr->setCurrentFilter( aDialogStr ); + + if( xFP->execute() == RET_OK ) + { + Sequence< ::rtl::OUString > aPaths = xFP->getFiles(); + aCurPath = aPaths[0]; + + ::rtl::OUString aBasePath; + ::rtl::OUString aOUCurPath( aCurPath ); + sal_Int32 iSlash = aOUCurPath.lastIndexOf( '/' ); + if( iSlash != -1 ) + aBasePath = aOUCurPath.copy( 0, iSlash + 1 ); + + try + { + // create dialog model + Reference< container::XNameContainer > xDialogModel( xMSF->createInstance + ( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialogModel" ) ) ), UNO_QUERY_THROW ); + + Reference< XSimpleFileAccess > xSFI( xMSF->createInstance + ( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ucb.SimpleFileAccess" )) ), UNO_QUERY_THROW ); + + Reference< XInputStream > xInput; + if( xSFI->exists( aCurPath ) ) + xInput = xSFI->openFileRead( aCurPath ); + + Reference< XComponentContext > xContext; + Reference< beans::XPropertySet > xProps( xMSF, UNO_QUERY ); + OSL_ASSERT( xProps.is() ); + OSL_VERIFY( xProps->getPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("DefaultContext")) ) >>= xContext ); + ::xmlscript::importDialogModel( xInput, xDialogModel, xContext, rDocument.isDocument() ? rDocument.getDocument() : Reference< frame::XModel >() ); + + String aXmlDlgName; + Reference< beans::XPropertySet > xDialogModelPropSet( xDialogModel, UNO_QUERY ); + if( xDialogModelPropSet.is() ) + { + try + { + Any aXmlDialogNameAny = xDialogModelPropSet->getPropertyValue( DLGED_PROP_NAME ); + ::rtl::OUString aOUXmlDialogName; + aXmlDialogNameAny >>= aOUXmlDialogName; + aXmlDlgName = aOUXmlDialogName; + } + catch( beans::UnknownPropertyException& ) + {} + } + bool bValidName = (aXmlDlgName.Len() != 0); + OSL_ASSERT( bValidName ); + if( !bValidName ) + return bDone; + + bool bDialogAlreadyExists = rDocument.hasDialog( aLibName, aXmlDlgName ); + + String aNewDlgName = aXmlDlgName; + enum NameClashMode + { + NO_CLASH, + CLASH_OVERWRITE_DIALOG, + CLASH_RENAME_DIALOG, + }; + NameClashMode eNameClashMode = NO_CLASH; + if( bDialogAlreadyExists ) + { + String aQueryBoxTitle( IDEResId( RID_STR_DLGIMP_CLASH_TITLE ) ); + String aQueryBoxText( IDEResId( RID_STR_DLGIMP_CLASH_TEXT ) ); + aQueryBoxText.SearchAndReplace( String( RTL_CONSTASCII_USTRINGPARAM( "$(ARG1)" ) ), aXmlDlgName ); + + NameClashQueryBox aQueryBox( pWin, aQueryBoxTitle, aQueryBoxText ); + sal_uInt16 nRet = aQueryBox.Execute(); + if( RET_YES == nRet ) + { + // RET_YES == Rename, see NameClashQueryBox::NameClashQueryBox + eNameClashMode = CLASH_RENAME_DIALOG; + + aNewDlgName = rDocument.createObjectName( E_DIALOGS, aLibName ); + } + else if( RET_NO == nRet ) + { + // RET_NO == Replace, see NameClashQueryBox::NameClashQueryBox + eNameClashMode = CLASH_OVERWRITE_DIALOG; + } + else if( RET_CANCEL == nRet ) + { + return bDone; + } + } + + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + if( pIDEShell == NULL ) + { + OSL_ASSERT( pIDEShell != NULL ); + return bDone; + } + + // Resource? + ::com::sun::star::lang::Locale aLocale = Application::GetSettings().GetUILocale(); + Reference< task::XInteractionHandler > xDummyHandler; + bool bReadOnly = true; + Reference< XStringResourceWithLocation > xImportStringResource = + StringResourceWithLocation::create( xContext, aBasePath, bReadOnly, + aLocale, aXmlDlgName, ::rtl::OUString(), xDummyHandler ); + + Sequence< lang::Locale > aImportLocaleSeq = xImportStringResource->getLocales(); + sal_Int32 nImportLocaleCount = aImportLocaleSeq.getLength(); + + Reference< container::XNameContainer > xDialogLib( rDocument.getLibrary( E_DIALOGS, aLibName, sal_True ) ); + Reference< resource::XStringResourceManager > xLibStringResourceManager = LocalizationMgr::getStringResourceFromDialogLibrary( xDialogLib ); + sal_Int32 nLibLocaleCount = 0; + Sequence< lang::Locale > aLibLocaleSeq; + if( xLibStringResourceManager.is() ) + { + aLibLocaleSeq = xLibStringResourceManager->getLocales(); + nLibLocaleCount = aLibLocaleSeq.getLength(); + } + + // Check language matches + std::vector< lang::Locale > aOnlyInImportLanguages = + implGetLanguagesOnlyContainedInFirstSeq( aImportLocaleSeq, aLibLocaleSeq ); + int nOnlyInImportLanguageCount = aOnlyInImportLanguages.size(); + + // For now: Keep languages from lib + bool bLibLocalized = (nLibLocaleCount > 0); + bool bImportLocalized = (nImportLocaleCount > 0); + + bool bAddDialogLanguagesToLib = false; + if( nOnlyInImportLanguageCount > 0 ) + { + String aQueryBoxTitle( IDEResId( RID_STR_DLGIMP_MISMATCH_TITLE ) ); + String aQueryBoxText( IDEResId( RID_STR_DLGIMP_MISMATCH_TEXT ) ); + LanguageMismatchQueryBox aQueryBox( pWin, aQueryBoxTitle, aQueryBoxText ); + sal_uInt16 nRet = aQueryBox.Execute(); + if( RET_YES == nRet ) + { + // RET_YES == Add, see LanguageMismatchQueryBox::LanguageMismatchQueryBox + bAddDialogLanguagesToLib = true; + } + // RET_NO == Omit, see LanguageMismatchQueryBox::LanguageMismatchQueryBox + // -> nothing to do here + //else if( RET_NO == nRet ) + //{ + //} + else if( RET_CANCEL == nRet ) + { + return bDone; + } + } + + if( bImportLocalized ) + { + bool bCopyResourcesForDialog = true; + if( bAddDialogLanguagesToLib ) + { + LocalizationMgr* pCurMgr = pIDEShell->GetCurLocalizationMgr(); + + lang::Locale aFirstLocale; + aFirstLocale = aOnlyInImportLanguages[0]; + if( nOnlyInImportLanguageCount > 1 ) + { + // Check if import default belongs to only import languages and use it then + lang::Locale aImportDefaultLocale = xImportStringResource->getDefaultLocale(); + lang::Locale aTmpLocale; + for( int i = 0 ; i < nOnlyInImportLanguageCount ; ++i ) + { + aTmpLocale = aOnlyInImportLanguages[i]; + if( localesAreEqual( aImportDefaultLocale, aTmpLocale ) ) + { + aFirstLocale = aImportDefaultLocale; + break; + } + } + } + + Sequence< lang::Locale > aFirstLocaleSeq( 1 ); + aFirstLocaleSeq[0] = aFirstLocale; + pCurMgr->handleAddLocales( aFirstLocaleSeq ); + + if( nOnlyInImportLanguageCount > 1 ) + { + Sequence< lang::Locale > aRemainingLocaleSeq( nOnlyInImportLanguageCount - 1 ); + lang::Locale aTmpLocale; + int iSeq = 0; + for( int i = 0 ; i < nOnlyInImportLanguageCount ; ++i ) + { + aTmpLocale = aOnlyInImportLanguages[i]; + if( !localesAreEqual( aFirstLocale, aTmpLocale ) ) + aRemainingLocaleSeq[iSeq++] = aTmpLocale; + } + pCurMgr->handleAddLocales( aRemainingLocaleSeq ); + } + } + else if( !bLibLocalized ) + { + Reference< resource::XStringResourceManager > xImportStringResourceManager( xImportStringResource, UNO_QUERY ); + LocalizationMgr::resetResourceForDialog( xDialogModel, xImportStringResourceManager ); + bCopyResourcesForDialog = false; + } + + if( bCopyResourcesForDialog ) + { + Reference< resource::XStringResourceResolver > xImportStringResourceResolver( xImportStringResource, UNO_QUERY ); + LocalizationMgr::copyResourceForDroppedDialog( xDialogModel, aXmlDlgName, + xLibStringResourceManager, xImportStringResourceResolver ); + } + } + else if( bLibLocalized ) + { + LocalizationMgr::setResourceIDsForDialog( xDialogModel, xLibStringResourceManager ); + } + + + LocalizationMgr::setStringResourceAtDialog( rDocument, aLibName, aNewDlgName, xDialogModel ); + + if( eNameClashMode == CLASH_OVERWRITE_DIALOG ) + { + if ( BasicIDE::RemoveDialog( rDocument, aLibName, aNewDlgName ) ) + { + IDEBaseWindow* pDlgWin = pIDEShell->FindDlgWin( rDocument, aLibName, aNewDlgName, sal_False, sal_True ); + if( pDlgWin != NULL ) + pIDEShell->RemoveWindow( pDlgWin, sal_True ); + BasicIDE::MarkDocumentModified( rDocument ); + } + else + { + // TODO: Assertion? + return bDone; + } + } + + if( eNameClashMode == CLASH_RENAME_DIALOG ) + { + bool bRenamed = false; + if( xDialogModelPropSet.is() ) + { + try + { + Any aXmlDialogNameAny; + aXmlDialogNameAny <<= ::rtl::OUString( aNewDlgName ); + xDialogModelPropSet->setPropertyValue( DLGED_PROP_NAME, aXmlDialogNameAny ); + bRenamed = true; + } + catch( beans::UnknownPropertyException& ) + {} + } + + + if( bRenamed ) + { + LocalizationMgr::renameStringResourceIDs( rDocument, aLibName, aNewDlgName, xDialogModel ); + } + else + { + // TODO: Assertion? + return bDone; + } + } + + Reference< XInputStreamProvider > xISP = ::xmlscript::exportDialogModel( xDialogModel, xContext, rDocument.isDocument() ? rDocument.getDocument() : Reference< frame::XModel >() ); + bool bSuccess = rDocument.insertDialog( aLibName, aNewDlgName, xISP ); + if( bSuccess ) + { + DialogWindow* pNewDlgWin = pIDEShell->CreateDlgWin( rDocument, aLibName, aNewDlgName ); + pIDEShell->SetCurWindow( pNewDlgWin, sal_True ); + } + + bDone = sal_True; + } + catch( Exception& ) + {} + } + + return bDone; +} + +sal_Bool DialogWindow::ImportDialog() +{ + DBG_CHKTHIS( DialogWindow, 0 ); + + const ScriptDocument& rDocument = GetDocument(); + String aLibName = GetLibName(); + sal_Bool bRet = implImportDialog( this, aCurPath, rDocument, aLibName ); + return bRet; +} + +DlgEdModel* DialogWindow::GetModel() const +{ + return pEditor ? pEditor->GetModel() : NULL; +} + +DlgEdPage* DialogWindow::GetPage() const +{ + return pEditor ? pEditor->GetPage() : NULL; +} + +DlgEdView* DialogWindow::GetView() const +{ + return pEditor ? pEditor->GetView() : NULL; +} + +sal_Bool DialogWindow::IsModified() +{ + return pEditor->IsModified(); +} + +::svl::IUndoManager* DialogWindow::GetUndoManager() +{ + return pUndoMgr; +} + +String DialogWindow::GetTitle() +{ + return GetName(); +} + +BasicEntryDescriptor DialogWindow::CreateEntryDescriptor() +{ + ScriptDocument aDocument( GetDocument() ); + String aLibName( GetLibName() ); + String aLibSubName; + LibraryLocation eLocation = aDocument.getLibraryLocation( aLibName ); + return BasicEntryDescriptor( aDocument, eLocation, aLibName, aLibSubName, GetName(), OBJ_TYPE_DIALOG ); +} + +void DialogWindow::SetReadOnly( sal_Bool b ) +{ + if ( pEditor ) + { + if ( b ) + pEditor->SetMode( DLGED_READONLY ); + else + pEditor->SetMode( DLGED_SELECT ); + } +} + +sal_Bool DialogWindow::IsReadOnly() +{ + sal_Bool bReadOnly = sal_False; + + if ( pEditor && pEditor->GetMode() == DLGED_READONLY ) + bReadOnly = sal_True; + + return bReadOnly; +} + +sal_Bool DialogWindow::IsPasteAllowed() +{ + return pEditor ? pEditor->IsPasteAllowed() : sal_False; +} + +void DialogWindow::StoreData() +{ + if ( IsModified() ) + { + try + { + Reference< container::XNameContainer > xLib = GetDocument().getLibrary( E_DIALOGS, GetLibName(), true ); + + if( xLib.is() ) + { + Reference< container::XNameContainer > xDialogModel = pEditor->GetDialog(); + + if( xDialogModel.is() ) + { + Reference< XComponentContext > xContext; + Reference< beans::XPropertySet > xProps( ::comphelper::getProcessServiceFactory(), UNO_QUERY ); + OSL_ASSERT( xProps.is() ); + OSL_VERIFY( xProps->getPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("DefaultContext")) ) >>= xContext ); + Reference< XInputStreamProvider > xISP = ::xmlscript::exportDialogModel( xDialogModel, xContext, GetDocument().isDocument() ? GetDocument().getDocument() : Reference< frame::XModel >() ); + xLib->replaceByName( ::rtl::OUString( GetName() ), makeAny( xISP ) ); + } + } + } + catch ( uno::Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + BasicIDE::MarkDocumentModified( GetDocument() ); + pEditor->ClearModifyFlag(); + } +} + +void DialogWindow::Deactivating() +{ + if ( IsModified() ) + BasicIDE::MarkDocumentModified( GetDocument() ); +} + +sal_Int32 DialogWindow::countPages( Printer* pPrinter ) +{ + return pEditor->countPages( pPrinter ); +} + +void DialogWindow::printPage( sal_Int32 nPage, Printer* pPrinter ) +{ + pEditor->printPage( nPage, pPrinter, CreateQualifiedName() ); +} + +void DialogWindow::DataChanged( const DataChangedEvent& rDCEvt ) +{ + if( (rDCEvt.GetType()==DATACHANGED_SETTINGS) && (rDCEvt.GetFlags() & SETTINGS_STYLE) ) + { + InitSettings( sal_True, sal_True, sal_True ); + Invalidate(); + } + else + IDEBaseWindow::DataChanged( rDCEvt ); +} + +void DialogWindow::InitSettings(sal_Bool bFont,sal_Bool bForeground,sal_Bool bBackground) +{ + const StyleSettings& rStyleSettings = GetSettings().GetStyleSettings(); + if( bFont ) + { + Font aFont; + aFont = rStyleSettings.GetFieldFont(); + SetPointFont( aFont ); + } + + if( bForeground || bFont ) + { + SetTextColor( rStyleSettings.GetFieldTextColor() ); + SetTextFillColor(); + } + + if( bBackground ) + SetBackground( rStyleSettings.GetFieldColor() ); +} + +::com::sun::star::uno::Reference< ::com::sun::star::accessibility::XAccessible > DialogWindow::CreateAccessible() +{ + return (::com::sun::star::accessibility::XAccessible*) new AccessibleDialogWindow( this ); +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/basidectrlr.cxx b/basctl/source/basicide/basidectrlr.cxx new file mode 100644 index 000000000000..9bce6c13c294 --- /dev/null +++ b/basctl/source/basicide/basidectrlr.cxx @@ -0,0 +1,153 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include <basidectrlr.hxx> +#include <cppuhelper/queryinterface.hxx> +#include <comphelper/sequence.hxx> +#include <com/sun/star/beans/PropertyAttribute.hpp> + +#include <vcl/syswin.hxx> + +#include <basidesh.hxx> + + +using namespace com::sun::star; +using namespace com::sun::star::uno; +using namespace com::sun::star::beans; + + +#define PROPERTY_ID_ICONID 1 +#define PROPERTY_ICONID ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "IconId" ) ) + + +//---------------------------------------------------------------------------- + +BasicIDEController::BasicIDEController( BasicIDEShell* pViewShell ) + :OPropertyContainer( m_aBHelper ) + ,SfxBaseController( pViewShell ) + ,m_nIconId( ICON_MACROLIBRARY ) +{ + registerProperty( PROPERTY_ICONID, PROPERTY_ID_ICONID, PropertyAttribute::READONLY, &m_nIconId, ::getCppuType( &m_nIconId ) ); +} + +//---------------------------------------------------------------------------- + +BasicIDEController::~BasicIDEController() +{ +} + +// XInterface +//---------------------------------------------------------------------------- + +Any SAL_CALL BasicIDEController::queryInterface( const Type & rType ) throw(RuntimeException) +{ + Any aReturn = SfxBaseController::queryInterface( rType ); + if ( !aReturn.hasValue() ) + aReturn = OPropertyContainer::queryInterface( rType ); + + return aReturn; +} + +//---------------------------------------------------------------------------- + +void SAL_CALL BasicIDEController::acquire() throw() +{ + SfxBaseController::acquire(); +} + +//---------------------------------------------------------------------------- + +void SAL_CALL BasicIDEController::release() throw() +{ + SfxBaseController::release(); +} + + +// XTypeProvider ( ::SfxBaseController ) +//---------------------------------------------------------------------------- + +Sequence< Type > SAL_CALL BasicIDEController::getTypes() throw(RuntimeException) +{ + Sequence< Type > aTypes = ::comphelper::concatSequences( + SfxBaseController::getTypes(), + OPropertyContainer::getTypes() + ); + + return aTypes; +} + +//---------------------------------------------------------------------------- + +Sequence< sal_Int8 > SAL_CALL BasicIDEController::getImplementationId() throw(RuntimeException) +{ + static ::cppu::OImplementationId * pId = 0; + if ( !pId ) + { + ::osl::MutexGuard aGuard( ::osl::Mutex::getGlobalMutex() ); + if ( !pId ) + { + static ::cppu::OImplementationId aId; + pId = &aId; + } + } + return pId->getImplementationId(); +} + +// XPropertySet +//---------------------------------------------------------------------------- + +Reference< beans::XPropertySetInfo > SAL_CALL BasicIDEController::getPropertySetInfo() throw(RuntimeException) +{ + Reference< beans::XPropertySetInfo > xInfo( createPropertySetInfo( getInfoHelper() ) ); + return xInfo; +} + +// OPropertySetHelper +//---------------------------------------------------------------------------- + +::cppu::IPropertyArrayHelper& BasicIDEController::getInfoHelper() +{ + return *getArrayHelper(); +} + +// OPropertyArrayUsageHelper +//---------------------------------------------------------------------------- + +::cppu::IPropertyArrayHelper* BasicIDEController::createArrayHelper( ) const +{ + Sequence< Property > aProps; + describeProperties( aProps ); + return new ::cppu::OPropertyArrayHelper( aProps ); +} + +//---------------------------------------------------------------------------- + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/basides1.cxx b/basctl/source/basicide/basides1.cxx new file mode 100644 index 000000000000..e3dbc568ffd6 --- /dev/null +++ b/basctl/source/basicide/basides1.cxx @@ -0,0 +1,1435 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include "docsignature.hxx" + +#define GLOBALOVERFLOW2 +#include <basic/sbx.hxx> +#define _SVSTDARR_STRINGS +#include <svl/svstdarr.hxx> +#include <ide_pch.hxx> + +#define _SOLAR__PRIVATE 1 + +// #define _SVX_NOIDERESIDS + +#define SI_NOCONTROL +#define SI_NOSBXCONTROLS +#define SI_NOITEMS +#define SI_NODRW +#define _VCTRLS_HXX + +#include <basidesh.hrc> +#include <basidesh.hxx> +#include <baside2.hxx> +#include <baside3.hxx> +#include <basobj.hxx> +#include <iderdll.hxx> +#include <iderdll2.hxx> +#include <sbxitem.hxx> +#include <managelang.hxx> +#include <localizationmgr.hxx> +#include <helpid.hrc> + +#include <svtools/texteng.hxx> +#include <svtools/textview.hxx> +#include <svtools/xtextedt.hxx> +#include <tools/urlobj.hxx> +#include <tools/diagnose_ex.h> +#include <sfx2/minfitem.hxx> +#include <sfx2/docfile.hxx> +#include <com/sun/star/task/XStatusIndicator.hpp> +#include <com/sun/star/task/XStatusIndicatorFactory.hpp> +#include <com/sun/star/script/XLibraryContainer.hpp> +#include <com/sun/star/script/XLibraryContainerPassword.hpp> +#include <com/sun/star/frame/XDispatchProvider.hpp> +#include <com/sun/star/frame/XLayoutManager.hpp> + +#include <algorithm> +#include <memory> + + +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::frame; + +class SvxSearchItem; + +// Egal was, einfach ans aktuelle Fenster: +void BasicIDEShell::ExecuteCurrent( SfxRequest& rReq ) +{ + if ( !pCurWin ) + return; + + switch ( rReq.GetSlot() ) + { + case SID_BASICIDE_HIDECURPAGE: + { + pCurWin->StoreData(); + RemoveWindow( pCurWin, sal_False ); + } + break; + case SID_BASICIDE_DELETECURRENT: + { + ScriptDocument aDocument( pCurWin->GetDocument() ); + String aLibName = pCurWin->GetLibName(); + String aName = pCurWin->GetName(); + + if ( pCurWin->ISA( ModulWindow ) ) + { + // module + if ( QueryDelModule( aName, pCurWin ) ) + { + if ( aDocument.removeModule( aLibName, aName ) ) + { + BasicIDE::MarkDocumentModified( aDocument ); + } + } + } + else + { + // dialog + if ( QueryDelDialog( aName, pCurWin ) ) + { + if ( BasicIDE::RemoveDialog( aDocument, aLibName, aName ) ) + { + RemoveWindow( pCurWin, sal_True ); + BasicIDE::MarkDocumentModified( aDocument ); + } + } + } + } + break; + case SID_BASICIDE_RENAMECURRENT: + { + pTabBar->StartEditMode( pTabBar->GetCurPageId() ); + } + break; + case FID_SEARCH_NOW: + { + if ( pCurWin->ISA( ModulWindow ) ) + { + DBG_ASSERT( rReq.GetArgs(), "arguments expected" ); + const SfxItemSet* pArgs = rReq.GetArgs(); + // Leider kenne ich die ID nicht: + sal_uInt16 nWhich = pArgs->GetWhichByPos( 0 ); + DBG_ASSERT( nWhich, "Wich fuer SearchItem ?" ); + const SfxPoolItem& rItem = pArgs->Get( nWhich ); + DBG_ASSERT( rItem.ISA( SvxSearchItem ), "Kein Searchitem!" ); + if ( rItem.ISA( SvxSearchItem ) ) + { + // Item wegen der Einstellungen merken... + IDE_DLL()->GetExtraData()->SetSearchItem( (const SvxSearchItem&)rItem ); + sal_uInt16 nFound = 0; + sal_Bool bCanceled = sal_False; + if ( ((const SvxSearchItem&)rItem).GetCommand() == SVX_SEARCHCMD_REPLACE_ALL ) + { + sal_uInt16 nActModWindows = 0; + IDEBaseWindow* pWin = aIDEWindowTable.First(); + while ( pWin ) + { + if ( !pWin->IsSuspended() && pWin->IsA( TYPE( ModulWindow ) ) ) + nActModWindows++; + pWin = aIDEWindowTable.Next(); + } + + if ( ( nActModWindows <= 1 ) || ( !((const SvxSearchItem&)rItem).GetSelection() && QueryBox( pCurWin, WB_YES_NO|WB_DEF_YES, String( IDEResId( RID_STR_SEARCHALLMODULES ) ) ).Execute() == RET_YES ) ) + { + pWin = aIDEWindowTable.First(); + while ( pWin ) + { + if ( !pWin->IsSuspended() && pWin->IsA( TYPE( ModulWindow ) ) ) + nFound = nFound + ((ModulWindow*)pWin)->StartSearchAndReplace( (const SvxSearchItem&)rItem ); + pWin = aIDEWindowTable.Next(); + } + } + else + nFound = ((ModulWindow*)pCurWin)->StartSearchAndReplace( (const SvxSearchItem&)rItem ); + + IDEResId nId( RID_STR_SEARCHREPLACES ); + String aReplStr( nId ); + aReplStr.SearchAndReplace( String( RTL_CONSTASCII_USTRINGPARAM( "XX" ) ), String::CreateFromInt32( nFound ) ); + InfoBox( pCurWin, aReplStr ).Execute(); + } + else + { + nFound = ((ModulWindow*)pCurWin)->StartSearchAndReplace( (const SvxSearchItem&)rItem ); + if ( !nFound && !((const SvxSearchItem&)rItem).GetSelection() ) + { + // Andere Module durchsuchen... + sal_Bool bChangeCurWindow = sal_False; + aIDEWindowTable.Seek( pCurWin ); + // Erstmal beim naechsten Anfangen, ggf. spaeter von vorne + IDEBaseWindow* pWin = aIDEWindowTable.Next(); + sal_Bool bSearchedFromStart = sal_False; + while ( !nFound && !bCanceled && ( pWin || !bSearchedFromStart ) ) + { + if ( !pWin ) + { + SfxViewFrame* pViewFrame = GetViewFrame(); + SfxChildWindow* pChildWin = pViewFrame ? pViewFrame->GetChildWindow( SID_SEARCH_DLG ) : NULL; + Window* pParent = pChildWin ? pChildWin->GetWindow() : NULL; + QueryBox aQuery( pParent, WB_YES_NO|WB_DEF_YES, String( IDEResId( RID_STR_SEARCHFROMSTART ) ) ); + if ( aQuery.Execute() == RET_YES ) + { + pWin = aIDEWindowTable.First(); + bSearchedFromStart = sal_True; + } + else + bCanceled = sal_True; + } + + if ( pWin && !pWin->IsSuspended() && pWin->IsA( TYPE( ModulWindow ) ) ) + { + if ( pWin != pCurWin ) + { + // Groesse einstellen, damit die View + // gleich richtig justiert werden kann. + if ( pCurWin ) + pWin->SetSizePixel( pCurWin->GetSizePixel() ); + nFound = ((ModulWindow*)pWin)->StartSearchAndReplace( (const SvxSearchItem&)rItem, sal_True ); + } + if ( nFound ) + { + bChangeCurWindow = sal_True; + break; + } + } + if ( pWin && ( pWin != pCurWin ) ) + pWin = aIDEWindowTable.Next(); + else + pWin = 0; // Dann sind wir durch... + } + if ( !nFound && bSearchedFromStart ) // Aktuelles von vorne... + nFound = ((ModulWindow*)pCurWin)->StartSearchAndReplace( (const SvxSearchItem&)rItem, sal_True ); + if ( bChangeCurWindow ) + SetCurWindow( pWin, sal_True ); + } + if ( !nFound && !bCanceled ) + InfoBox( pCurWin, String( IDEResId( RID_STR_SEARCHNOTFOUND ) ) ).Execute(); + } + + rReq.Done(); + } + } + } + break; + case FID_SEARCH_OFF: + { + if ( pCurWin && pCurWin->ISA( ModulWindow ) ) + pCurWin->GrabFocus(); + } + break; + case SID_UNDO: + case SID_REDO: + { + if ( GetUndoManager() && pCurWin->AllowUndo() ) + { + GetViewFrame()->ExecuteSlot( rReq ); + } + } + break; + default: + { + pCurWin->ExecuteCommand( rReq ); + } + } +} + +// Egal, wer oben, Einfluss auf die Shell: +void BasicIDEShell::ExecuteGlobal( SfxRequest& rReq ) +{ + sal_uInt16 nSlot = rReq.GetSlot(); + switch ( nSlot ) + { + case SID_BASICSTOP: + { + // Evtl. nicht einfach anhalten, falls auf Brechpunkt! + if ( pCurWin && pCurWin->IsA( TYPE( ModulWindow ) ) ) + ((ModulWindow*)pCurWin)->BasicStop(); + BasicIDE::StopBasic(); + } + break; + + case SID_SAVEDOC: + { + if ( pCurWin ) + { + // Daten ins BASIC zurueckschreiben + StoreAllWindowData(); + + // document basic + ScriptDocument aDocument( pCurWin->GetDocument() ); + if ( aDocument.isDocument() ) + { + uno::Reference< task::XStatusIndicator > xStatusIndicator; + + SFX_REQUEST_ARG( rReq, pStatusIndicatorItem, SfxUnoAnyItem, SID_PROGRESS_STATUSBAR_CONTROL, sal_False ); + if ( pStatusIndicatorItem ) + OSL_VERIFY( pStatusIndicatorItem->GetValue() >>= xStatusIndicator ); + else + { + // get statusindicator + SfxViewFrame *pFrame_ = GetFrame(); + if ( pFrame_ ) + { + uno::Reference< task::XStatusIndicatorFactory > xStatFactory( + pFrame_->GetFrame().GetFrameInterface(), + uno::UNO_QUERY ); + if( xStatFactory.is() ) + xStatusIndicator = xStatFactory->createStatusIndicator(); + } + + if ( xStatusIndicator.is() ) + rReq.AppendItem( SfxUnoAnyItem( SID_PROGRESS_STATUSBAR_CONTROL, uno::makeAny( xStatusIndicator ) ) ); + } + + aDocument.saveDocument( xStatusIndicator ); + } + + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + { + pBindings->Invalidate( SID_DOC_MODIFIED ); + pBindings->Invalidate( SID_SAVEDOC ); + pBindings->Invalidate( SID_SIGNATURE ); + } + } + } + break; + case SID_SIGNATURE: + { + if ( pCurWin ) + { + ::basctl::DocumentSignature aSignature( pCurWin->GetDocument() ); + if ( aSignature.supportsSignatures() ) + { + aSignature.signScriptingContent(); + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_SIGNATURE ); + } + } + } + break; + + case SID_BASICIDE_MODULEDLG: + { + if ( rReq.GetArgs() ) + { + const SfxUInt16Item &rTabId = (const SfxUInt16Item&)rReq.GetArgs()->Get(SID_BASICIDE_ARG_TABID ); + BasicIDE::Organize( rTabId.GetValue() ); + } + else + BasicIDE::Organize( 0 ); + } + break; + case SID_BASICIDE_CHOOSEMACRO: + { + BasicIDE::ChooseMacro( NULL, sal_False, ::rtl::OUString() ); + } + break; + case SID_BASICIDE_CREATEMACRO: + case SID_BASICIDE_EDITMACRO: + { + DBG_ASSERT( rReq.GetArgs(), "arguments expected" ); + const SfxMacroInfoItem& rInfo = (const SfxMacroInfoItem&)rReq.GetArgs()->Get(SID_BASICIDE_ARG_MACROINFO ); + BasicManager* pBasMgr = (BasicManager*)rInfo.GetBasicManager(); + DBG_ASSERT( pBasMgr, "Nichts selektiert im Basic-Baum ?" ); + + ScriptDocument aDocument( ScriptDocument::getDocumentForBasicManager( pBasMgr ) ); + + StartListening( *pBasMgr, sal_True /* Nur einmal anmelden */ ); + String aLibName( rInfo.GetLib() ); + if ( !aLibName.Len() ) + aLibName = String::CreateFromAscii( "Standard" ); + StarBASIC* pBasic = pBasMgr->GetLib( aLibName ); + if ( !pBasic ) + { + // load module and dialog library (if not loaded) + aDocument.loadLibraryIfExists( E_SCRIPTS, aLibName ); + aDocument.loadLibraryIfExists( E_DIALOGS, aLibName ); + + // get Basic + pBasic = pBasMgr->GetLib( aLibName ); + } + DBG_ASSERT( pBasic, "Kein Basic!" ); + + SetCurLib( aDocument, aLibName ); + + if ( rReq.GetSlot() == SID_BASICIDE_CREATEMACRO ) + { + SbModule* pModule = pBasic->FindModule( rInfo.GetModule() ); + if ( !pModule ) + { + if ( rInfo.GetModule().Len() || !pBasic->GetModules()->Count() ) + { + String aModName = rInfo.GetModule(); + + ::rtl::OUString sModuleCode; + if ( aDocument.createModule( aLibName, aModName, sal_False, sModuleCode ) ) + pModule = pBasic->FindModule( aModName ); + } + else + pModule = (SbModule*) pBasic->GetModules()->Get(0); + } + DBG_ASSERT( pModule, "Kein Modul!" ); + if ( !pModule->GetMethods()->Find( rInfo.GetMethod(), SbxCLASS_METHOD ) ) + BasicIDE::CreateMacro( pModule, rInfo.GetMethod() ); + } + SfxViewFrame* pViewFrame = GetViewFrame(); + if ( pViewFrame ) + pViewFrame->ToTop(); + ModulWindow* pWin = FindBasWin( aDocument, aLibName, rInfo.GetModule(), sal_True ); + DBG_ASSERT( pWin, "Edit/Create Macro: Fenster wurde nicht erzeugt/gefunden!" ); + SetCurWindow( pWin, sal_True ); + pWin->EditMacro( rInfo.GetMethod() ); + } + break; + case SID_BASICIDE_OBJCAT: + { + ShowObjectDialog( sal_True, sal_True ); + } + break; + case SID_BASICIDE_NAMECHANGEDONTAB: + { + DBG_ASSERT( rReq.GetArgs(), "arguments expected" ); + const SfxUInt16Item &rTabId = (const SfxUInt16Item&)rReq.GetArgs()->Get(SID_BASICIDE_ARG_TABID ); + const SfxStringItem &rModName = (const SfxStringItem&)rReq.GetArgs()->Get(SID_BASICIDE_ARG_MODULENAME ); + IDEBaseWindow* pWin = aIDEWindowTable.Get( rTabId.GetValue() ); + DBG_ASSERT( pWin, "Window nicht im Liste, aber in TabBar ?" ); + if ( pWin ) + { + String aNewName( rModName.GetValue() ); + String aOldName( pWin->GetName() ); + if ( aNewName != aOldName ) + { + bool bRenameOk = false; + if ( pWin->IsA( TYPE( ModulWindow ) ) ) + { + ModulWindow* pModWin = (ModulWindow*)pWin; + String aLibName = ( pModWin->GetLibName() ); + ScriptDocument aDocument( pWin->GetDocument() ); + + if ( BasicIDE::RenameModule( pModWin, aDocument, aLibName, aOldName, aNewName ) ) + { + bRenameOk = true; + // Because we listen for container events for script + // modules, rename will delete the 'old' window + // pWin has been invalidated, restore now + pWin = FindBasWin( aDocument, aLibName, aNewName, sal_True ); + } + + } + else if ( pWin->IsA( TYPE( DialogWindow ) ) ) + { + DialogWindow* pDlgWin = (DialogWindow*)pWin; + bRenameOk = pDlgWin->RenameDialog( aNewName ); + } + if ( bRenameOk ) + { + BasicIDE::MarkDocumentModified( pWin->GetDocument() ); + } + else + { + // set old name in TabWriter + sal_uInt16 nId = (sal_uInt16)aIDEWindowTable.GetKey( pWin ); + DBG_ASSERT( nId, "No entry in Tabbar!" ); + if ( nId ) + pTabBar->SetPageText( nId, aOldName ); + } + } + + // set focus to current window + pWin->GrabFocus(); + } + } + break; + case SID_BASICIDE_STOREMODULESOURCE: + case SID_BASICIDE_UPDATEMODULESOURCE: + { + DBG_ASSERT( rReq.GetArgs(), "arguments expected" ); + const SfxMacroInfoItem& rInfo = (const SfxMacroInfoItem&)rReq.GetArgs()->Get(SID_BASICIDE_ARG_MACROINFO ); + BasicManager* pBasMgr = (BasicManager*)rInfo.GetBasicManager(); + DBG_ASSERT( pBasMgr, "Store source: Kein BasMgr?" ); + ScriptDocument aDocument( ScriptDocument::getDocumentForBasicManager( pBasMgr ) ); + ModulWindow* pWin = FindBasWin( aDocument, rInfo.GetLib(), rInfo.GetModule(), sal_False, sal_True ); + if ( pWin ) + { + if ( rReq.GetSlot() == SID_BASICIDE_STOREMODULESOURCE ) + pWin->StoreData(); + else + pWin->UpdateData(); + } + } + break; + case SID_BASICIDE_STOREALLMODULESOURCES: + case SID_BASICIDE_UPDATEALLMODULESOURCES: + { + IDEBaseWindow* pWin = aIDEWindowTable.First(); + while ( pWin ) + { + if ( !pWin->IsSuspended() && pWin->IsA( TYPE( ModulWindow ) ) ) + { + if ( rReq.GetSlot() == SID_BASICIDE_STOREALLMODULESOURCES ) + pWin->StoreData(); + else + pWin->UpdateData(); + } + pWin = aIDEWindowTable.Next(); + } + } + break; + case SID_BASICIDE_LIBSELECTED: + case SID_BASICIDE_LIBREMOVED: + case SID_BASICIDE_LIBLOADED: + { + DBG_ASSERT( rReq.GetArgs(), "arguments expected" ); + const SfxUsrAnyItem& rShellItem = (const SfxUsrAnyItem&)rReq.GetArgs()->Get( SID_BASICIDE_ARG_DOCUMENT_MODEL ); + uno::Reference< frame::XModel > xModel( rShellItem.GetValue(), UNO_QUERY ); + ScriptDocument aDocument( xModel.is() ? ScriptDocument( xModel ) : ScriptDocument::getApplicationScriptDocument() ); + const SfxStringItem& rLibNameItem = (const SfxStringItem&)rReq.GetArgs()->Get( SID_BASICIDE_ARG_LIBNAME ); + String aLibName( rLibNameItem.GetValue() ); + + if ( nSlot == SID_BASICIDE_LIBSELECTED ) + { + // load module and dialog library (if not loaded) + aDocument.loadLibraryIfExists( E_SCRIPTS, aLibName ); + aDocument.loadLibraryIfExists( E_DIALOGS, aLibName ); + + // check password, if library is password protected and not verified + sal_Bool bOK = sal_True; + Reference< script::XLibraryContainer > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ) ); + if ( xModLibContainer.is() && xModLibContainer->hasByName( aLibName ) ) + { + Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); + if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aLibName ) && !xPasswd->isLibraryPasswordVerified( aLibName ) ) + { + String aPassword; + bOK = QueryPassword( xModLibContainer, aLibName, aPassword ); + } + } + + if ( bOK ) + { + SetCurLib( aDocument, aLibName, true, false ); + } + else + { + // alten Wert einstellen... + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_BASICIDE_LIBSELECTOR, sal_True, sal_False ); + } + } + else if ( nSlot == SID_BASICIDE_LIBREMOVED ) + { + if ( !m_aCurLibName.Len() || ( aDocument == m_aCurDocument && aLibName == m_aCurLibName ) ) + { + RemoveWindows( aDocument, aLibName, sal_True ); + if ( aDocument == m_aCurDocument && aLibName == m_aCurLibName ) + { + m_aCurDocument = ScriptDocument::getApplicationScriptDocument(); + m_aCurLibName = String(); + // Kein UpdateWindows! + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_BASICIDE_LIBSELECTOR ); + } + } + } + else // Loaded... + UpdateWindows(); + } + break; + case SID_BASICIDE_NEWMODULE: + { + ModulWindow* pWin = CreateBasWin( m_aCurDocument, m_aCurLibName, String() ); + DBG_ASSERT( pWin, "New Module: Konnte Fenster nicht erzeugen!" ); + SetCurWindow( pWin, sal_True ); + } + break; + case SID_BASICIDE_NEWDIALOG: + { + DialogWindow* pWin = CreateDlgWin( m_aCurDocument, m_aCurLibName, String() ); + DBG_ASSERT( pWin, "New Module: Konnte Fenster nicht erzeugen!" ); + SetCurWindow( pWin, sal_True ); + } + break; + case SID_BASICIDE_SBXRENAMED: + { + DBG_ASSERT( rReq.GetArgs(), "arguments expected" ); + } + break; + case SID_BASICIDE_SBXINSERTED: + { + DBG_ASSERT( rReq.GetArgs(), "arguments expected" ); + const SbxItem& rSbxItem = (const SbxItem&)rReq.GetArgs()->Get(SID_BASICIDE_ARG_SBX ); + ScriptDocument aDocument( rSbxItem.GetDocument() ); + String aLibName( rSbxItem.GetLibName() ); + String aName( rSbxItem.GetName() ); + if ( !m_aCurLibName.Len() || ( aDocument == m_aCurDocument && aLibName == m_aCurLibName ) ) + { + if ( rSbxItem.GetType() == BASICIDE_TYPE_MODULE ) + FindBasWin( aDocument, aLibName, aName, sal_True ); + else if ( rSbxItem.GetType() == BASICIDE_TYPE_DIALOG ) + FindDlgWin( aDocument, aLibName, aName, sal_True ); + } + } + break; + case SID_BASICIDE_SBXDELETED: + { + DBG_ASSERT( rReq.GetArgs(), "arguments expected" ); + const SbxItem& rSbxItem = (const SbxItem&)rReq.GetArgs()->Get(SID_BASICIDE_ARG_SBX ); + ScriptDocument aDocument( rSbxItem.GetDocument() ); + IDEBaseWindow* pWin = FindWindow( aDocument, rSbxItem.GetLibName(), rSbxItem.GetName(), rSbxItem.GetType(), sal_True ); + if ( pWin ) + RemoveWindow( pWin, sal_True ); + } + break; + case SID_BASICIDE_SHOWSBX: + { + DBG_ASSERT( rReq.GetArgs(), "arguments expected" ); + const SbxItem& rSbxItem = (const SbxItem&)rReq.GetArgs()->Get(SID_BASICIDE_ARG_SBX ); + ScriptDocument aDocument( rSbxItem.GetDocument() ); + String aLibName( rSbxItem.GetLibName() ); + String aName( rSbxItem.GetName() ); + SetCurLib( aDocument, aLibName ); + IDEBaseWindow* pWin = 0; + if ( rSbxItem.GetType() == BASICIDE_TYPE_DIALOG ) + { + pWin = FindDlgWin( aDocument, aLibName, aName, sal_True ); + } + else if ( rSbxItem.GetType() == BASICIDE_TYPE_MODULE ) + { + pWin = FindBasWin( aDocument, aLibName, aName, sal_True ); + } + else if ( rSbxItem.GetType() == BASICIDE_TYPE_METHOD ) + { + pWin = FindBasWin( aDocument, aLibName, aName, sal_True ); + ((ModulWindow*)pWin)->EditMacro( rSbxItem.GetMethodName() ); + } + DBG_ASSERT( pWin, "Fenster wurde nicht erzeugt!" ); + SetCurWindow( pWin, sal_True ); + pTabBar->MakeVisible( pTabBar->GetCurPageId() ); + } + break; + case SID_SHOW_PROPERTYBROWSER: + { + GetViewFrame()->ChildWindowExecute( rReq ); + rReq.Done(); + } + break; + case SID_BASICIDE_SHOWWINDOW: + { + ::std::auto_ptr< ScriptDocument > pDocument; + + SFX_REQUEST_ARG( rReq, pDocumentItem, SfxStringItem, SID_BASICIDE_ARG_DOCUMENT, sal_False ); + if ( pDocumentItem ) + { + String sDocumentCaption = pDocumentItem->GetValue(); + if ( sDocumentCaption.Len() ) + pDocument.reset( new ScriptDocument( ScriptDocument::getDocumentWithURLOrCaption( sDocumentCaption ) ) ); + } + + SFX_REQUEST_ARG( rReq, pDocModelItem, SfxUsrAnyItem, SID_BASICIDE_ARG_DOCUMENT_MODEL, sal_False ); + if ( !pDocument.get() && pDocModelItem ) + { + uno::Reference< frame::XModel > xModel( pDocModelItem->GetValue(), UNO_QUERY ); + if ( xModel.is() ) + pDocument.reset( new ScriptDocument( xModel ) ); + } + + if ( !pDocument.get() ) + break; + + SFX_REQUEST_ARG( rReq, pLibNameItem, SfxStringItem, SID_BASICIDE_ARG_LIBNAME, sal_False ); + if ( !pLibNameItem ) + break; + + String aLibName( pLibNameItem->GetValue() ); + pDocument->loadLibraryIfExists( E_SCRIPTS, aLibName ); + SetCurLib( *pDocument, aLibName ); + SFX_REQUEST_ARG( rReq, pNameItem, SfxStringItem, SID_BASICIDE_ARG_NAME, sal_False ); + if ( pNameItem ) + { + String aName( pNameItem->GetValue() ); + String aModType( String::CreateFromAscii( "Module" ) ); + String aDlgType( String::CreateFromAscii( "Dialog" ) ); + String aType( aModType ); + SFX_REQUEST_ARG( rReq, pTypeItem, SfxStringItem, SID_BASICIDE_ARG_TYPE, sal_False ); + if ( pTypeItem ) + aType = pTypeItem->GetValue(); + + IDEBaseWindow* pWin = 0; + if ( aType == aModType ) + pWin = FindBasWin( *pDocument, aLibName, aName, sal_False ); + else if ( aType == aDlgType ) + pWin = FindDlgWin( *pDocument, aLibName, aName, sal_False ); + + if ( pWin ) + { + SetCurWindow( pWin, sal_True ); + if ( pTabBar ) + pTabBar->MakeVisible( pTabBar->GetCurPageId() ); + + if ( pWin->ISA( ModulWindow ) ) + { + ModulWindow* pModWin = (ModulWindow*)pWin; + SFX_REQUEST_ARG( rReq, pLineItem, SfxUInt32Item, SID_BASICIDE_ARG_LINE, sal_False ); + if ( pLineItem ) + { + pModWin->AssertValidEditEngine(); + TextView* pTextView = pModWin->GetEditView(); + if ( pTextView ) + { + TextEngine* pTextEngine = pTextView->GetTextEngine(); + if ( pTextEngine ) + { + sal_uInt32 nLine = pLineItem->GetValue(); + sal_uInt32 nLineCount = 0; + for ( sal_uInt32 i = 0, nCount = pTextEngine->GetParagraphCount(); i < nCount; ++i ) + nLineCount += pTextEngine->GetLineCount( i ); + if ( nLine > nLineCount ) + nLine = nLineCount; + if ( nLine > 0 ) + --nLine; + + // scroll window and set selection + long nVisHeight = pModWin->GetOutputSizePixel().Height(); + long nTextHeight = pTextEngine->GetTextHeight(); + if ( nTextHeight > nVisHeight ) + { + long nMaxY = nTextHeight - nVisHeight; + long nOldY = pTextView->GetStartDocPos().Y(); + long nNewY = nLine * pTextEngine->GetCharHeight() - nVisHeight / 2; + nNewY = ::std::min( nNewY, nMaxY ); + pTextView->Scroll( 0, -( nNewY - nOldY ) ); + pTextView->ShowCursor( sal_False, sal_True ); + pModWin->GetEditVScrollBar().SetThumbPos( pTextView->GetStartDocPos().Y() ); + } + sal_uInt16 nCol1 = 0, nCol2 = 0; + SFX_REQUEST_ARG( rReq, pCol1Item, SfxUInt16Item, SID_BASICIDE_ARG_COLUMN1, sal_False ); + if ( pCol1Item ) + { + nCol1 = pCol1Item->GetValue(); + if ( nCol1 > 0 ) + --nCol1; + nCol2 = nCol1; + } + SFX_REQUEST_ARG( rReq, pCol2Item, SfxUInt16Item, SID_BASICIDE_ARG_COLUMN2, sal_False ); + if ( pCol2Item ) + { + nCol2 = pCol2Item->GetValue(); + if ( nCol2 > 0 ) + --nCol2; + } + TextSelection aSel( TextPaM( nLine, nCol1 ), TextPaM( nLine, nCol2 ) ); + pTextView->SetSelection( aSel ); + pTextView->ShowCursor(); + Window* pWindow_ = pTextView->GetWindow(); + if ( pWindow_ ) + pWindow_->GrabFocus(); + } + } + } + } + } + } + rReq.Done(); + } + break; + + case SID_BASICIDE_MANAGE_LANG: + { + ManageLanguageDialog aDlg( GetCurWindow(), GetCurLocalizationMgr() ); + aDlg.Execute(); + rReq.Done(); + } + break; + } +} + +void BasicIDEShell::GetState(SfxItemSet &rSet) +{ + SfxWhichIter aIter(rSet); + for ( sal_uInt16 nWh = aIter.FirstWhich(); 0 != nWh; nWh = aIter.NextWhich() ) + { + switch ( nWh ) + { + case SID_DOCINFO: + { + rSet.DisableItem( nWh ); + } + break; + case SID_SAVEDOC: + { + sal_Bool bDisable = sal_False; + + if ( pCurWin ) + { + if ( !pCurWin->IsModified() ) + { + ScriptDocument aDocument( pCurWin->GetDocument() ); + bDisable = ( !aDocument.isAlive() ) + || ( aDocument.isDocument() ? !aDocument.isDocumentModified() : !IsAppBasicModified() ); + } + } + else + { + bDisable = sal_True; + } + + if ( bDisable ) + rSet.DisableItem( nWh ); + } + break; + case SID_NEWWINDOW: + case SID_SAVEASDOC: + { + rSet.DisableItem( nWh ); + } + break; + case SID_SIGNATURE: + { + sal_uInt16 nState = 0; + if ( pCurWin ) + { + ::basctl::DocumentSignature aSignature( pCurWin->GetDocument() ); + nState = aSignature.getScriptingSignatureState(); + } + rSet.Put( SfxUInt16Item( SID_SIGNATURE, nState ) ); + } + break; + case SID_BASICIDE_MODULEDLG: + { + if ( StarBASIC::IsRunning() ) + rSet.DisableItem( nWh ); + } + break; + case SID_BASICIDE_CHOOSEMACRO: + case SID_BASICIDE_OBJCAT: + case SID_BASICIDE_SHOWSBX: + case SID_BASICIDE_CREATEMACRO: + case SID_BASICIDE_EDITMACRO: + case SID_BASICIDE_NAMECHANGEDONTAB: + { + ; + } + break; + + case SID_BASICIDE_ADDWATCH: + case SID_BASICIDE_REMOVEWATCH: + case SID_BASICLOAD: + case SID_BASICSAVEAS: + case SID_BASICIDE_MATCHGROUP: + { + if ( !pCurWin || !pCurWin->IsA( TYPE( ModulWindow ) ) ) + rSet.DisableItem( nWh ); + else if ( ( nWh == SID_BASICLOAD ) && ( StarBASIC::IsRunning() || ( pCurWin && pCurWin->IsReadOnly() ) ) ) + rSet.DisableItem( nWh ); + } + break; + case SID_BASICRUN: + case SID_BASICSTEPINTO: + case SID_BASICSTEPOVER: + case SID_BASICSTEPOUT: + case SID_BASICIDE_TOGGLEBRKPNT: + case SID_BASICIDE_MANAGEBRKPNTS: + { + if ( !pCurWin || !pCurWin->IsA( TYPE( ModulWindow ) ) ) + rSet.DisableItem( nWh ); + else if ( StarBASIC::IsRunning() && !((ModulWindow*)pCurWin)->GetBasicStatus().bIsInReschedule ) + rSet.DisableItem( nWh ); + } + break; + case SID_BASICCOMPILE: + { + if ( !pCurWin || !pCurWin->IsA( TYPE( ModulWindow ) ) || StarBASIC::IsRunning() ) + rSet.DisableItem( nWh ); + } + break; + case SID_BASICSTOP: + { + // Stop immermoeglich, wenn irgendein Basic lauft... + if ( !StarBASIC::IsRunning() ) + rSet.DisableItem( nWh ); + } + break; + case SID_CHOOSE_CONTROLS: + case SID_DIALOG_TESTMODE: + { + if( !pCurWin || !pCurWin->IsA( TYPE( DialogWindow ) ) ) + rSet.DisableItem( nWh ); + } + break; + case SID_SHOW_FORMS: + case SID_SHOW_HIDDEN: + { + rSet.DisableItem( nWh ); + } + break; + case SID_SEARCH_OPTIONS: + { + sal_uInt16 nOptions = 0; + if( pCurWin ) + nOptions = pCurWin->GetSearchOptions(); + rSet.Put( SfxUInt16Item( SID_SEARCH_OPTIONS, nOptions ) ); + } + break; + case SID_BASICIDE_LIBSELECTOR: + { + String aName; + if ( m_aCurLibName.Len() ) + { + LibraryLocation eLocation = m_aCurDocument.getLibraryLocation( m_aCurLibName ); + aName = CreateMgrAndLibStr( m_aCurDocument.getTitle( eLocation ), m_aCurLibName ); + } + SfxStringItem aItem( SID_BASICIDE_LIBSELECTOR, aName ); + rSet.Put( aItem ); + } + break; + case SID_SEARCH_ITEM: + { + String aSelected = GetSelectionText( sal_True ); + SvxSearchItem& rItem = IDE_DLL()->GetExtraData()->GetSearchItem(); + rItem.SetSearchString( aSelected ); + rSet.Put( rItem ); + } + break; + case SID_BASICIDE_STAT_DATE: + { + String aDate; + aDate = String( RTL_CONSTASCII_USTRINGPARAM( "Datum?!" ) ); + SfxStringItem aItem( SID_BASICIDE_STAT_DATE, aDate ); + rSet.Put( aItem ); + } + break; + case SID_DOC_MODIFIED: + { + String aModifiedMarker; + sal_Bool bModified = sal_False; + + if ( pCurWin ) + { + if ( pCurWin->IsModified() ) + bModified = sal_True; + else + { + ScriptDocument aDocument( pCurWin->GetDocument() ); + bModified = aDocument.isDocument() ? aDocument.isDocumentModified() : IsAppBasicModified(); + } + } + + if ( bModified ) + aModifiedMarker = '*'; + + SfxStringItem aItem( SID_DOC_MODIFIED, aModifiedMarker ); + rSet.Put( aItem ); + } + break; + case SID_BASICIDE_STAT_TITLE: + { + if ( pCurWin ) + { + String aTitle = pCurWin->CreateQualifiedName(); + SfxStringItem aItem( SID_BASICIDE_STAT_TITLE, aTitle ); + rSet.Put( aItem ); + } + } + break; + // Werden vom Controller ausgewertet: + case SID_ATTR_SIZE: + case SID_ATTR_INSERT: + break; + case SID_UNDO: + case SID_REDO: + { + if( GetUndoManager() ) // sonst rekursives GetState + GetViewFrame()->GetSlotState( nWh, NULL, &rSet ); + } + break; + case SID_SHOW_PROPERTYBROWSER: + { + if ( GetViewFrame()->KnowsChildWindow( nWh ) ) + rSet.Put( SfxBoolItem( nWh, GetViewFrame()->HasChildWindow( nWh ) ) ); + else + rSet.DisableItem( nWh ); + } + break; + + case SID_BASICIDE_CURRENT_LANG: + { + if( (pCurWin && pCurWin->IsReadOnly()) || GetCurLibName().Len() == 0 ) + rSet.DisableItem( nWh ); + else + { + String aItemStr; + LocalizationMgr* pCurMgr = GetCurLocalizationMgr(); + if ( pCurMgr->isLibraryLocalized() ) + { + Sequence< lang::Locale > aLocaleSeq = pCurMgr->getStringResourceManager()->getLocales(); + const lang::Locale* pLocale = aLocaleSeq.getConstArray(); + sal_Int32 i, nCount = aLocaleSeq.getLength(); + + // Force different results for any combination of locales and default locale + ::rtl::OUString aLangStr; + for ( i = 0; i <= nCount; ++i ) + { + lang::Locale aLocale; + if( i < nCount ) + aLocale = pLocale[i]; + else + aLocale = pCurMgr->getStringResourceManager()->getDefaultLocale(); + + aLangStr += aLocale.Language; + aLangStr += aLocale.Country; + aLangStr += aLocale.Variant; + } + aItemStr = aLangStr; + } + rSet.Put( SfxStringItem( nWh, aItemStr ) ); + } + } + break; + + case SID_BASICIDE_MANAGE_LANG: + { + if( (pCurWin && pCurWin->IsReadOnly()) || GetCurLibName().Len() == 0 ) + rSet.DisableItem( nWh ); + } + break; + } + } + if ( pCurWin ) + pCurWin->GetState( rSet ); +} + +sal_Bool BasicIDEShell::HasUIFeature( sal_uInt32 nFeature ) +{ + sal_Bool bResult = sal_False; + + if ( (nFeature & BASICIDE_UI_FEATURE_SHOW_BROWSER) == BASICIDE_UI_FEATURE_SHOW_BROWSER ) + { + // fade out (in) property browser in module (dialog) windows + if ( pCurWin && pCurWin->IsA( TYPE( DialogWindow ) ) && !pCurWin->IsReadOnly() ) + bResult = sal_True; + } + + return bResult; +} + +void BasicIDEShell::SetCurWindow( IDEBaseWindow* pNewWin, sal_Bool bUpdateTabBar, sal_Bool bRememberAsCurrent ) +{ + // Es muss ein EditWindow am Sfx gesetzt sein, sonst kommt kein + // Resize, also stehen die Controls auf den Wiese... + // Sieht dann sowieso besser aus, wenn das Modul-Layout angezeigt wird... + if ( !pNewWin && ( GetWindow() != pModulLayout ) ) + { + pModulLayout->Show(); + AdjustPosSizePixel( Point( 0, 0 ), GetViewFrame()->GetWindow().GetOutputSizePixel() ); + SetWindow( pModulLayout ); + EnableScrollbars( sal_False ); + aVScrollBar.Hide(); + } + + if ( pNewWin != pCurWin ) + { + IDEBaseWindow* pPrevCurWin = pCurWin; + pCurWin = pNewWin; + if ( pPrevCurWin ) + { + pPrevCurWin->Hide(); + pPrevCurWin->Deactivating(); +// pPrevCurWin->GetLayoutWindow()->Hide(); + if( pPrevCurWin->IsA( TYPE( DialogWindow ) ) ) + { + ((DialogWindow*)pPrevCurWin)->DisableBrowser(); + } + else + { + pModulLayout->SetModulWindow( NULL ); + } + } + if ( pCurWin ) + { + AdjustPosSizePixel( Point( 0, 0 ), GetViewFrame()->GetWindow().GetOutputSizePixel() ); + if( pCurWin->IsA( TYPE( ModulWindow ) ) ) + { + GetViewFrame()->GetWindow().SetHelpId( HID_BASICIDE_MODULWINDOW ); + pModulLayout->SetModulWindow( (ModulWindow*)pCurWin ); + pModulLayout->Show(); + } + else + { + pModulLayout->Hide(); + GetViewFrame()->GetWindow().SetHelpId( HID_BASICIDE_DIALOGWINDOW ); + } + + if ( bRememberAsCurrent ) + { + BasicIDEData* pData = IDE_DLL()->GetExtraData(); + if ( pData ) + { + sal_uInt16 nCurrentType = pCurWin->IsA( TYPE( ModulWindow ) ) ? BASICIDE_TYPE_MODULE : BASICIDE_TYPE_DIALOG; + LibInfoItem* pLibInfoItem = new LibInfoItem( pCurWin->GetDocument(), pCurWin->GetLibName(), pCurWin->GetName(), nCurrentType ); + pData->GetLibInfos().InsertInfo( pLibInfoItem ); + } + } + + if ( GetViewFrame()->GetWindow().IsVisible() ) // sonst macht es spaeter der SFX + pCurWin->Show(); + + pCurWin->Init(); + + if ( !IDE_DLL()->GetExtraData()->ShellInCriticalSection() ) + { + Window* pFrameWindow = &GetViewFrame()->GetWindow(); + Window* pFocusWindow = Application::GetFocusWindow(); + while ( pFocusWindow && ( pFocusWindow != pFrameWindow ) ) + pFocusWindow = pFocusWindow->GetParent(); + if ( pFocusWindow ) // Focus in BasicIDE + pNewWin->GrabFocus(); + } + if( pCurWin->IsA( TYPE( DialogWindow ) ) ) + ((DialogWindow*)pCurWin)->UpdateBrowser(); + } + if ( bUpdateTabBar ) + { + sal_uLong nKey = aIDEWindowTable.GetKey( pCurWin ); + if ( pCurWin && ( pTabBar->GetPagePos( (sal_uInt16)nKey ) == TAB_PAGE_NOTFOUND ) ) + pTabBar->InsertPage( (sal_uInt16)nKey, pCurWin->GetTitle() ); // wurde neu eingeblendet + pTabBar->SetCurPageId( (sal_uInt16)nKey ); + } + if ( pCurWin && pCurWin->IsSuspended() ) // Wenn das Fenster im Fehlerfall angezeigt wird... + pCurWin->SetStatus( pCurWin->GetStatus() & ~BASWIN_SUSPENDED ); + if ( pCurWin ) + { + SetWindow( pCurWin ); + if ( pCurWin->GetDocument().isDocument() ) + SfxObjectShell::SetCurrentComponent( pCurWin->GetDocument().getDocument() ); + } + else + { + SetWindow( pModulLayout ); + GetViewFrame()->GetWindow().SetHelpId( HID_BASICIDE_MODULWINDOW ); + SfxObjectShell::SetCurrentComponent( NULL ); + } + SetUndoManager( pCurWin ? pCurWin->GetUndoManager() : 0 ); + InvalidateBasicIDESlots(); + EnableScrollbars( pCurWin ? sal_True : sal_False ); + + if ( m_pCurLocalizationMgr ) + m_pCurLocalizationMgr->handleTranslationbar(); + + ManageToolbars(); + + // fade out (in) property browser in module (dialog) windows + UIFeatureChanged(); + } +} + +void BasicIDEShell::ManageToolbars() +{ + static ::rtl::OUString aLayoutManagerName( RTL_CONSTASCII_USTRINGPARAM( "LayoutManager" )); + static ::rtl::OUString aMacroBarResName( RTL_CONSTASCII_USTRINGPARAM( "private:resource/toolbar/macrobar" )); + static ::rtl::OUString aDialogBarResName( RTL_CONSTASCII_USTRINGPARAM( "private:resource/toolbar/dialogbar" )); + static ::rtl::OUString aInsertControlsBarResName( RTL_CONSTASCII_USTRINGPARAM( "private:resource/toolbar/insertcontrolsbar" )); + (void)aInsertControlsBarResName; + + if( !pCurWin ) + return; + + Reference< beans::XPropertySet > xFrameProps + ( GetViewFrame()->GetFrame().GetFrameInterface(), uno::UNO_QUERY ); + if ( xFrameProps.is() ) + { + Reference< ::com::sun::star::frame::XLayoutManager > xLayoutManager; + uno::Any a = xFrameProps->getPropertyValue( aLayoutManagerName ); + a >>= xLayoutManager; + if ( xLayoutManager.is() ) + { + xLayoutManager->lock(); + if( pCurWin->IsA( TYPE( DialogWindow ) ) ) + { + xLayoutManager->destroyElement( aMacroBarResName ); + + xLayoutManager->requestElement( aDialogBarResName ); + xLayoutManager->requestElement( aInsertControlsBarResName ); + } + else + { + xLayoutManager->destroyElement( aDialogBarResName ); + xLayoutManager->destroyElement( aInsertControlsBarResName ); + + xLayoutManager->requestElement( aMacroBarResName ); + } + xLayoutManager->unlock(); + } + } +} + +IDEBaseWindow* BasicIDEShell::FindApplicationWindow() +{ + return FindWindow( ScriptDocument::getApplicationScriptDocument() ); +} + +IDEBaseWindow* BasicIDEShell::FindWindow( const ScriptDocument& rDocument, const String& rLibName, const String& rName, sal_uInt16 nType, sal_Bool bFindSuspended ) +{ + IDEBaseWindow* pWin = aIDEWindowTable.First(); + while ( pWin ) + { + if ( !pWin->IsSuspended() || bFindSuspended ) + { + if ( !rLibName.Len() || !rName.Len() || nType == BASICIDE_TYPE_UNKNOWN ) + { + // return any non-suspended window + return pWin; + } + else if ( pWin->IsDocument( rDocument ) && pWin->GetLibName() == rLibName && pWin->GetName() == rName && + ( ( pWin->IsA( TYPE( ModulWindow ) ) && nType == BASICIDE_TYPE_MODULE ) || + ( pWin->IsA( TYPE( DialogWindow ) ) && nType == BASICIDE_TYPE_DIALOG ) ) ) + { + return pWin; + } + } + pWin = aIDEWindowTable.Next(); + } + return 0; +} + +long BasicIDEShell::CallBasicErrorHdl( StarBASIC* pBasic ) +{ + long nRet = 0; + ModulWindow* pModWin = ShowActiveModuleWindow( pBasic ); + if ( pModWin ) + nRet = pModWin->BasicErrorHdl( pBasic ); + return nRet; +} + +long BasicIDEShell::CallBasicBreakHdl( StarBASIC* pBasic ) +{ + long nRet = 0; + ModulWindow* pModWin = ShowActiveModuleWindow( pBasic ); + if ( pModWin ) + { + sal_Bool bAppWindowDisabled, bDispatcherLocked; + sal_uInt16 nWaitCount; + SfxUInt16Item *pSWActionCount, *pSWLockViewCount; + BasicIDE::BasicStopped( &bAppWindowDisabled, &bDispatcherLocked, + &nWaitCount, &pSWActionCount, &pSWLockViewCount ); + + nRet = pModWin->BasicBreakHdl( pBasic ); + + if ( StarBASIC::IsRunning() ) // Falls abgebrochen... + { + if ( bAppWindowDisabled ) + Application::GetDefDialogParent()->Enable( sal_False ); + + if ( nWaitCount ) + { + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + for ( sal_uInt16 n = 0; n < nWaitCount; n++ ) + pIDEShell->GetViewFrame()->GetWindow().EnterWait(); + } + } + } + return nRet; +} + +ModulWindow* BasicIDEShell::ShowActiveModuleWindow( StarBASIC* pBasic ) +{ + SetCurLib( ScriptDocument::getApplicationScriptDocument(), String(), false ); + + SbModule* pActiveModule = StarBASIC::GetActiveModule(); + SbClassModuleObject* pClassModuleObject = PTR_CAST(SbClassModuleObject,pActiveModule); + if( pClassModuleObject != NULL ) + pActiveModule = pClassModuleObject->getClassModule(); + + DBG_ASSERT( pActiveModule, "Kein aktives Modul im ErrorHdl?!" ); + if ( pActiveModule ) + { + ModulWindow* pWin = 0; + SbxObject* pParent = pActiveModule->GetParent(); + DBG_ASSERT( pParent && pParent->ISA( StarBASIC ), "Kein BASIC!" ); + StarBASIC* pLib = static_cast< StarBASIC* >( pParent ); + if ( pLib ) + { + BasicManager* pBasMgr = BasicIDE::FindBasicManager( pLib ); + if ( pBasMgr ) + { + ScriptDocument aDocument( ScriptDocument::getDocumentForBasicManager( pBasMgr ) ); + String aLibName = pLib->GetName(); + pWin = FindBasWin( aDocument, aLibName, pActiveModule->GetName(), sal_True ); + DBG_ASSERT( pWin, "Error/Step-Hdl: Fenster wurde nicht erzeugt/gefunden!" ); + SetCurLib( aDocument, aLibName ); + SetCurWindow( pWin, sal_True ); + } + } + BasicManager* pBasicMgr = BasicIDE::FindBasicManager( pBasic ); + if ( pBasicMgr ) + StartListening( *pBasicMgr, sal_True /* Nur einmal anmelden */ ); + return pWin; + } + return 0; +} + +void BasicIDEShell::AdjustPosSizePixel( const Point &rPos, const Size &rSize ) +{ + // Nicht wenn minimiert, weil dann bei Restore der Text verschoben ist. + if ( GetViewFrame()->GetWindow().GetOutputSizePixel().Height() == 0 ) + return; + + Size aSz( rSize ); + Size aScrollBarBoxSz( aScrollBarBox.GetSizePixel() ); + aSz.Height() -= aScrollBarBoxSz.Height(); + + Size aOutSz( aSz ); + aSz.Width() -= aScrollBarBoxSz.Width(); + aScrollBarBox.SetPosPixel( Point( rSize.Width() - aScrollBarBoxSz.Width(), rSize.Height() - aScrollBarBoxSz.Height() ) ); + aVScrollBar.SetPosSizePixel( Point( rPos.X()+aSz.Width(), rPos.Y() ), Size( aScrollBarBoxSz.Width(), aSz.Height() ) ); + if ( bTabBarSplitted ) + { + // SplitSize ist beim Resize 0 ! + long nSplitPos = pTabBar->GetSizePixel().Width(); + if ( nSplitPos > aSz.Width() ) + nSplitPos = aSz.Width(); + pTabBar->SetPosSizePixel( Point( rPos.X(), rPos.Y()+aSz.Height() ), Size( nSplitPos, aScrollBarBoxSz.Height() ) ); + long nScrlStart = rPos.X() + nSplitPos; + aHScrollBar.SetPosSizePixel( Point( nScrlStart, rPos.Y()+aSz.Height() ), Size( aSz.Width() - nScrlStart + 1, aScrollBarBoxSz.Height() ) ); + aHScrollBar.Update(); + } + else + { + aHScrollBar.SetPosSizePixel( Point( rPos.X()+ aSz.Width()/2 - 1, rPos.Y()+aSz.Height() ), Size( aSz.Width()/2 + 2, aScrollBarBoxSz.Height() ) ); + pTabBar->SetPosSizePixel( Point( rPos.X(), rPos.Y()+aSz.Height() ), Size( aSz.Width()/2, aScrollBarBoxSz.Height() ) ); + } + + Window* pEdtWin = pCurWin ? pCurWin->GetLayoutWindow() : pModulLayout; + if ( pEdtWin ) + { + if( pCurWin && pCurWin->IsA( TYPE( DialogWindow ) ) ) + pEdtWin->SetPosSizePixel( rPos, aSz ); // Ohne ScrollBar + else + pEdtWin->SetPosSizePixel( rPos, aOutSz ); + } +} + +Reference< XModel > BasicIDEShell::GetCurrentDocument() const +{ + Reference< XModel > xDocument; + if ( pCurWin && pCurWin->GetDocument().isDocument() ) + xDocument = pCurWin->GetDocument().getDocument(); + return xDocument; +} + +void BasicIDEShell::Activate( sal_Bool bMDI ) +{ + SfxViewShell::Activate( bMDI ); + + if ( bMDI ) + { + if( pCurWin && pCurWin->IsA( TYPE( DialogWindow ) ) ) + ((DialogWindow*)pCurWin)->UpdateBrowser(); + + ShowObjectDialog( sal_True, sal_False ); + } +} + +void BasicIDEShell::Deactivate( sal_Bool bMDI ) +{ + // bMDI sal_True heisst, dass ein anderes MDI aktiviert wurde, bei einem + // Deactivate durch eine MessageBox ist bMDI FALSE + if ( bMDI ) + { + if( pCurWin && pCurWin->IsA( TYPE( DialogWindow ) ) ) + { + DialogWindow* pXDlgWin = (DialogWindow*)pCurWin; + pXDlgWin->DisableBrowser(); + if( pXDlgWin->IsModified() ) + BasicIDE::MarkDocumentModified( pXDlgWin->GetDocument() ); + } + + // CanClose pruefen, damit auch beim deaktivieren der BasicIDE geprueft wird, + // ob in einem Modul der Sourcecode zu gross ist... + for ( sal_uLong nWin = 0; nWin < aIDEWindowTable.Count(); nWin++ ) + { + IDEBaseWindow* pWin = aIDEWindowTable.GetObject( nWin ); + if ( /* !pWin->IsSuspended() && */ !pWin->CanClose() ) + { + if ( m_aCurLibName.Len() && ( pWin->IsDocument( m_aCurDocument ) || pWin->GetLibName() != m_aCurLibName ) ) + SetCurLib( ScriptDocument::getApplicationScriptDocument(), String(), false ); + SetCurWindow( pWin, sal_True ); + break; + } + } + + ShowObjectDialog( sal_False, sal_False ); + } +} + + +IMPL_LINK( BasicIDEShell, AccelSelectHdl, Accelerator*, pAccel ) +{ + sal_Bool bDone = sal_True; + SfxViewFrame* pViewFrame = GetViewFrame(); + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if( !pDispatcher ) + return sal_False; + switch ( pAccel->GetCurKeyCode().GetCode() ) + { + case KEY_F5: + if ( pAccel->GetCurKeyCode().IsShift() ) + pDispatcher->Execute( SID_BASICSTOP, SFX_CALLMODE_SYNCHRON ); + else + pDispatcher->Execute( SID_BASICRUN, SFX_CALLMODE_SYNCHRON ); + break; + case KEY_F7: + pDispatcher->Execute( SID_BASICIDE_ADDWATCH, SFX_CALLMODE_SYNCHRON ); + break; + case KEY_F8: + if ( pAccel->GetCurKeyCode().IsShift() ) + pDispatcher->Execute( SID_BASICSTEPOVER, SFX_CALLMODE_SYNCHRON ); + else + pDispatcher->Execute( SID_BASICSTEPINTO, SFX_CALLMODE_SYNCHRON ); + break; + case KEY_F9: + if ( pAccel->GetCurKeyCode().IsShift() ) + pDispatcher->Execute( SID_BASICIDE_TOGGLEBRKPNTENABLED, SFX_CALLMODE_SYNCHRON ); + else + pDispatcher->Execute( SID_BASICIDE_TOGGLEBRKPNT, SFX_CALLMODE_SYNCHRON ); + break; + default: bDone = sal_False; + } + return bDone; +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/basides2.cxx b/basctl/source/basicide/basides2.cxx new file mode 100644 index 000000000000..1aba814ff96d --- /dev/null +++ b/basctl/source/basicide/basides2.cxx @@ -0,0 +1,316 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include "docsignature.hxx" + +#define SI_NOCONTROL +#define SI_NOSBXCONTROLS + +#include <ide_pch.hxx> +#include <basic/sbx.hxx> +#include "basicrenderable.hxx" + +#include <com/sun/star/frame/XTitle.hpp> + +#include <vcl/sound.hxx> +#include <basidesh.hxx> +#include <basidesh.hrc> +#include <baside2.hxx> +#include <basdoc.hxx> +#include <basobj.hxx> +#include <svtools/texteng.hxx> +#include <svtools/textview.hxx> +#include <svtools/xtextedt.hxx> +#include <tools/diagnose_ex.h> +#include <sfx2/sfxdefs.hxx> +#include <sfx2/signaturestate.hxx> +#include <com/sun/star/container/XNameContainer.hpp> +#include <com/sun/star/container/XNamed.hpp> +#include <com/sun/star/lang/XServiceInfo.hpp> + +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; +namespace css = ::com::sun::star; + +IMPL_LINK_INLINE_START( BasicIDEShell, ObjectDialogCancelHdl, ObjectCatalog *, EMPTYARG ) +{ + ShowObjectDialog( sal_False, sal_True ); + return 0; +} +IMPL_LINK_INLINE_END( BasicIDEShell, ObjectDialogCancelHdl, ObjectCatalog *, EMPTYARG ) + +Reference< view::XRenderable > BasicIDEShell::GetRenderable() +{ + return Reference< view::XRenderable >( new basicide::BasicRenderable( pCurWin ) ); +} + +sal_Bool BasicIDEShell::HasSelection( sal_Bool /* bText */ ) const +{ + sal_Bool bSel = sal_False; + if ( pCurWin && pCurWin->ISA( ModulWindow ) ) + { + TextView* pEditView = ((ModulWindow*)pCurWin)->GetEditView(); + if ( pEditView && pEditView->HasSelection() ) + bSel = sal_True; + } + return bSel; +} + +String BasicIDEShell::GetSelectionText( sal_Bool bWholeWord ) +{ + String aText; + if ( pCurWin && pCurWin->ISA( ModulWindow ) ) + { + TextView* pEditView = ((ModulWindow*)pCurWin)->GetEditView(); + if ( pEditView ) + { + if ( bWholeWord && !pEditView->HasSelection() ) + { + aText = pEditView->GetTextEngine()->GetWord( pEditView->GetSelection().GetEnd() ); + } + else + { + TextSelection aSel = pEditView->GetSelection(); + if ( !bWholeWord || ( aSel.GetStart().GetPara() == aSel.GetEnd().GetPara() ) ) + aText = pEditView->GetSelected(); + } + } + } + return aText; +} + +SfxPrinter* BasicIDEShell::GetPrinter( sal_Bool bCreate ) +{ + if ( pCurWin ) // && pCurWin->ISA( ModulWindow ) ) + { + BasicDocShell* pDocShell = (BasicDocShell*)GetViewFrame()->GetObjectShell(); + DBG_ASSERT( pDocShell, "DocShell ?!" ); + return pDocShell->GetPrinter( bCreate ); + } + return 0; +} + +sal_uInt16 BasicIDEShell::SetPrinter( SfxPrinter *pNewPrinter, sal_uInt16 nDiffFlags, bool ) +{ + (void)nDiffFlags; + BasicDocShell* pDocShell = (BasicDocShell*)GetViewFrame()->GetObjectShell(); + DBG_ASSERT( pDocShell, "DocShell ?!" ); + pDocShell->SetPrinter( pNewPrinter ); + return 0; +} + +void BasicIDEShell::SetMDITitle() +{ + String aTitle; + + if ( m_aCurLibName.Len() ) + { + LibraryLocation eLocation = m_aCurDocument.getLibraryLocation( m_aCurLibName ); + aTitle = m_aCurDocument.getTitle( eLocation ); + aTitle += '.'; + aTitle += m_aCurLibName; + } + else + { + aTitle = String( IDEResId( RID_STR_ALL ) ); + } + + ::basctl::DocumentSignature aCurSignature( m_aCurDocument ); + if ( aCurSignature.getScriptingSignatureState() == SIGNATURESTATE_SIGNATURES_OK ) + { + aTitle += String::CreateFromAscii( " " ); + aTitle += String( IDEResId( RID_STR_SIGNED ) ); + aTitle += String::CreateFromAscii( " " ); + } + + SfxViewFrame* pViewFrame = GetViewFrame(); + if ( pViewFrame ) + { + SfxObjectShell* pShell = pViewFrame->GetObjectShell(); + if ( pShell && aTitle != pShell->GetTitle( SFX_TITLE_CAPTION ) ) + { + pShell->SetTitle( aTitle ); + pShell->SetModified( sal_False ); + } + + css::uno::Reference< css::frame::XController > xController = GetController (); + css::uno::Reference< css::frame::XTitle > xTitle (xController, css::uno::UNO_QUERY); + if (xTitle.is ()) + xTitle->setTitle (aTitle); + } +} + +void BasicIDEShell::DestroyModulWindowLayout() +{ + delete pModulLayout; + pModulLayout = 0; +} + + +void BasicIDEShell::UpdateModulWindowLayout( bool bBasicStopped ) +{ + if ( pModulLayout ) + { + pModulLayout->GetStackWindow().UpdateCalls(); + pModulLayout->GetWatchWindow().UpdateWatches( bBasicStopped ); + } +} + +void BasicIDEShell::CreateModulWindowLayout() +{ + pModulLayout = new ModulWindowLayout( &GetViewFrame()->GetWindow() ); +} + +ModulWindow* BasicIDEShell::CreateBasWin( const ScriptDocument& rDocument, const String& rLibName, const String& rModName ) +{ + bCreatingWindow = sal_True; + + sal_uLong nKey = 0; + ModulWindow* pWin = 0; + + String aLibName( rLibName ); + String aModName( rModName ); + + if ( !aLibName.Len() ) + aLibName = String::CreateFromAscii( "Standard" ); + + uno::Reference< container::XNameContainer > xLib = rDocument.getOrCreateLibrary( E_SCRIPTS, aLibName ); + + if ( !aModName.Len() ) + aModName = rDocument.createObjectName( E_SCRIPTS, aLibName ); + + // Vielleicht gibt es ein suspendiertes? + pWin = FindBasWin( rDocument, aLibName, aModName, sal_False, sal_True ); + + if ( !pWin ) + { + ::rtl::OUString aModule; + bool bSuccess = false; + if ( rDocument.hasModule( aLibName, aModName ) ) + bSuccess = rDocument.getModule( aLibName, aModName, aModule ); + else + bSuccess = rDocument.createModule( aLibName, aModName, sal_True, aModule ); + + if ( bSuccess ) + { + pWin = FindBasWin( rDocument, aLibName, aModName, sal_False, sal_True ); + if( !pWin ) + { + // new module window + pWin = new ModulWindow( pModulLayout, rDocument, aLibName, aModName, aModule ); + nKey = InsertWindowInTable( pWin ); + } + else // we've gotten called recursively ( via listener from createModule above ), get outta here + return pWin; + } + } + else + { + pWin->SetStatus( pWin->GetStatus() & ~BASWIN_SUSPENDED ); + IDEBaseWindow* pTmp = aIDEWindowTable.First(); + while ( pTmp && !nKey ) + { + if ( pTmp == pWin ) + nKey = aIDEWindowTable.GetCurKey(); + pTmp = aIDEWindowTable.Next(); + } + DBG_ASSERT( nKey, "CreateBasWin: Kein Key- Fenster nicht gefunden!" ); + } + if( nKey && xLib.is() && rDocument.isInVBAMode() ) + { + // display a nice friendly name in the ObjectModule tab, + // combining the objectname and module name, e.g. Sheet1 ( Financials ) + String sObjName; + ModuleInfoHelper::getObjectName( xLib, rModName, sObjName ); + if( sObjName.Len() ) + { + aModName.AppendAscii(" (").Append(sObjName).AppendAscii(")"); + } + } + pTabBar->InsertPage( (sal_uInt16)nKey, aModName ); + pTabBar->Sort(); + pWin->GrabScrollBars( &aHScrollBar, &aVScrollBar ); + if ( !pCurWin ) + SetCurWindow( pWin, sal_False, sal_False ); + + bCreatingWindow = sal_False; + return pWin; +} + +ModulWindow* BasicIDEShell::FindBasWin( const ScriptDocument& rDocument, const String& rLibName, const String& rModName, sal_Bool bCreateIfNotExist, sal_Bool bFindSuspended ) +{ + ModulWindow* pModWin = 0; + IDEBaseWindow* pWin = aIDEWindowTable.First(); + while ( pWin && !pModWin ) + { + if ( ( !pWin->IsSuspended() || bFindSuspended ) && pWin->IsA( TYPE( ModulWindow ) ) ) + { + if ( !rLibName.Len() ) // nur irgendeins finden... + pModWin = (ModulWindow*)pWin; + else if ( pWin->IsDocument( rDocument ) && pWin->GetLibName() == rLibName && pWin->GetName() == rModName ) + pModWin = (ModulWindow*)pWin; + } + pWin = aIDEWindowTable.Next(); + } + if ( !pModWin && bCreateIfNotExist ) + pModWin = CreateBasWin( rDocument, rLibName, rModName ); + + return pModWin; +} + +void BasicIDEShell::Move() +{ + if ( pCurWin && pCurWin->ISA( ModulWindow ) ) + ((ModulWindow*)pCurWin)->FrameWindowMoved(); +} + +void BasicIDEShell::ShowCursor( bool bOn ) +{ + if ( pCurWin && pCurWin->ISA( ModulWindow ) ) + ((ModulWindow*)pCurWin)->ShowCursor( bOn ); +} + +// Hack for #101048 +sal_Int32 getBasicIDEShellCount( void ); + +// Nur wenn Basicfenster oben: +void BasicIDEShell::ExecuteBasic( SfxRequest& rReq ) +{ + if ( !pCurWin || !pCurWin->IsA( TYPE( ModulWindow ) ) ) + return; + + pCurWin->ExecuteCommand( rReq ); + sal_Int32 nCount = getBasicIDEShellCount(); + if( nCount ) + CheckWindows(); +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/basides3.cxx b/basctl/source/basicide/basides3.cxx new file mode 100644 index 000000000000..9391011334e9 --- /dev/null +++ b/basctl/source/basicide/basides3.cxx @@ -0,0 +1,179 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#define SI_NOCONTROL +#define SI_NOSBXCONTROLS + +#include <basidesh.hrc> +#include <ide_pch.hxx> + + +#define _SOLAR__PRIVATE 1 + +#include <basidesh.hxx> +#include <baside2.hxx> +#include <baside3.hxx> +#include <basobj.hxx> +#include <localizationmgr.hxx> +#include <dlgedview.hxx> +#include <comphelper/processfactory.hxx> +#include <com/sun/star/script/XLibraryContainer.hpp> +#include <com/sun/star/container/XNameContainer.hpp> +#include <xmlscript/xmldlg_imexp.hxx> +#include <tools/diagnose_ex.h> + +using namespace comphelper; +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::io; + + +DialogWindow* BasicIDEShell::CreateDlgWin( const ScriptDocument& rDocument, const String& rLibName, const String& rDlgName ) +{ + bCreatingWindow = sal_True; + + sal_uLong nKey = 0; + DialogWindow* pWin = 0; + String aLibName( rLibName ); + String aDlgName( rDlgName ); + + if ( !aLibName.Len() ) + aLibName = String::CreateFromAscii( "Standard" ); + + rDocument.getOrCreateLibrary( E_DIALOGS, aLibName ); + + if ( !aDlgName.Len() ) + aDlgName = rDocument.createObjectName( E_DIALOGS, aLibName ); + + // Vielleicht gibt es ein suspendiertes? + pWin = FindDlgWin( rDocument, aLibName, aDlgName, sal_False, sal_True ); + + if ( !pWin ) + { + try + { + Reference< io::XInputStreamProvider > xISP; + if ( rDocument.hasDialog( aLibName, aDlgName ) ) + rDocument.getDialog( aLibName, aDlgName, xISP ); + else + rDocument.createDialog( aLibName, aDlgName, xISP ); + + if ( xISP.is() ) + { + // create dialog model + Reference< lang::XMultiServiceFactory > xMSF = getProcessServiceFactory(); + Reference< container::XNameContainer > xDialogModel( xMSF->createInstance + ( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialogModel" ) ) ), UNO_QUERY ); + Reference< XInputStream > xInput( xISP->createInputStream() ); + Reference< XComponentContext > xContext; + Reference< beans::XPropertySet > xProps( xMSF, UNO_QUERY ); + OSL_ASSERT( xProps.is() ); + OSL_VERIFY( xProps->getPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("DefaultContext")) ) >>= xContext ); + ::xmlscript::importDialogModel( xInput, xDialogModel, xContext, rDocument.isDocument() ? rDocument.getDocument() : Reference< frame::XModel >() ); + LocalizationMgr::setStringResourceAtDialog( rDocument, rLibName, aDlgName, xDialogModel ); + + // new dialog window + pWin = new DialogWindow( &GetViewFrame()->GetWindow(), rDocument, aLibName, aDlgName, xDialogModel ); + nKey = InsertWindowInTable( pWin ); + } + } + catch ( uno::Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + else + { + pWin->SetStatus( pWin->GetStatus() & ~BASWIN_SUSPENDED ); + IDEBaseWindow* pTmp = aIDEWindowTable.First(); + while ( pTmp && !nKey ) + { + if ( pTmp == pWin ) + nKey = aIDEWindowTable.GetCurKey(); + pTmp = aIDEWindowTable.Next(); + } + DBG_ASSERT( nKey, "CreateDlgWin: Kein Key - Fenster nicht gefunden!" ); + } + + if( pWin ) + { + pWin->GrabScrollBars( &aHScrollBar, &aVScrollBar ); + pTabBar->InsertPage( (sal_uInt16)nKey, aDlgName ); + pTabBar->Sort(); + if ( !pCurWin ) + SetCurWindow( pWin, sal_False, sal_False ); + } + + bCreatingWindow = sal_False; + return pWin; +} + +DialogWindow* BasicIDEShell::FindDlgWin( const ScriptDocument& rDocument, const String& rLibName, const String& rDlgName, sal_Bool bCreateIfNotExist, sal_Bool bFindSuspended ) +{ + DialogWindow* pDlgWin = 0; + IDEBaseWindow* pWin = aIDEWindowTable.First(); + while ( pWin && !pDlgWin ) + { + if ( ( !pWin->IsSuspended() || bFindSuspended ) && pWin->IsA( TYPE( DialogWindow ) ) ) + { + if ( !rLibName.Len() ) // nur irgendeins finden... + pDlgWin = (DialogWindow*)pWin; + else if ( pWin->IsDocument( rDocument ) && pWin->GetLibName() == rLibName && pWin->GetName() == rDlgName ) + pDlgWin = (DialogWindow*)pWin; + } + pWin = aIDEWindowTable.Next(); + } + if ( !pDlgWin && bCreateIfNotExist ) + pDlgWin = CreateDlgWin( rDocument, rLibName, rDlgName ); + + return pDlgWin; +} + +SdrView* BasicIDEShell::GetCurDlgView() const +{ + if ( !pCurWin || !pCurWin->IsA( TYPE( DialogWindow ) ) ) + return NULL; + + DialogWindow* pWin = (DialogWindow*)pCurWin; + return pWin->GetView(); +} + +// Nur wenn Dialogfenster oben: +void BasicIDEShell::ExecuteDialog( SfxRequest& rReq ) +{ + if ( pCurWin && ( pCurWin->IsA( TYPE( DialogWindow) ) || + (rReq.GetSlot() == SID_IMPORT_DIALOG &&pCurWin->IsA( TYPE( ModulWindow) ) ) ) ) + { + pCurWin->ExecuteCommand( rReq ); + } +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/basidesh.cxx b/basctl/source/basicide/basidesh.cxx new file mode 100644 index 000000000000..596e1e973b2f --- /dev/null +++ b/basctl/source/basicide/basidesh.cxx @@ -0,0 +1,1053 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +// CLOOKS: +//#define _MENUBTN_HXX +#define _SPIN_HXX +#define _PRVWIN_HXX +//#define _FIELD_HXX *** +//#define _TAB_HXX *** +#define _DIALOGS_HXX +#define _SVRTF_HXX +#define _ISETBRW_HXX +#define _VCTRLS_HXX +#define SI_NOCONTROL +#define SI_NOSBXCONTROLS + +#define ITEMID_SIZE 0 + +// Falls ohne PCH's: +#include <ide_pch.hxx> + + +#define _SOLAR__PRIVATE 1 +#include <basic/sbx.hxx> +#include <svl/hint.hxx> +#include <tools/diagnose_ex.h> +#include <basidesh.hrc> +#include <basidesh.hxx> +#include <basdoc.hxx> +#include <basobj.hxx> +#include <bastypes.hxx> +#include <basicbox.hxx> +#include <objdlg.hxx> +#include <sbxitem.hxx> +#include <tbxctl.hxx> +#include <iderdll2.hxx> +#include <basidectrlr.hxx> +#include <localizationmgr.hxx> + +#define BasicIDEShell +#define SFX_TYPEMAP +#include <idetemp.hxx> +#include <basslots.hxx> +#include <iderdll.hxx> +#include <svx/pszctrl.hxx> +#include <svx/insctrl.hxx> +#include <svx/srchdlg.hxx> +#include <svx/lboxctrl.hxx> +#include <svx/tbcontrl.hxx> +#include <com/sun/star/script/XLibraryContainerPassword.hpp> +#include <com/sun/star/container/XNameContainer.hpp> +#include <com/sun/star/container/XContainer.hpp> +#include <com/sun/star/container/XContainerListener.hpp> +#include <com/sun/star/script/XLibraryContainer.hpp> + +#include <svx/xmlsecctrl.hxx> + +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star; +using ::rtl::OUString; + +static const rtl::OUString sStandardLibName( RTL_CONSTASCII_USTRINGPARAM("Standard")); + +typedef ::cppu::WeakImplHelper1< container::XContainerListener > ContainerListenerBASE; + +class ContainerListenerImpl : public ContainerListenerBASE +{ + BasicIDEShell* mpShell; +public: + + ContainerListenerImpl( BasicIDEShell* pShell ) : mpShell( pShell ) {} + + ~ContainerListenerImpl() + { + } + + void addContainerListener( const ScriptDocument& rScriptDocument, const String& aLibName ) + { + try + { + uno::Reference< container::XContainer > xContainer( rScriptDocument.getLibrary( E_SCRIPTS, aLibName, sal_False ), uno::UNO_QUERY ); + if ( xContainer.is() ) + { + uno::Reference< container::XContainerListener > xContainerListener( this ); + xContainer->addContainerListener( xContainerListener ); + } + } + catch( uno::Exception& ) {} + } + void removeContainerListener( const ScriptDocument& rScriptDocument, const String& aLibName ) + { + try + { + uno::Reference< container::XContainer > xContainer( rScriptDocument.getLibrary( E_SCRIPTS, aLibName, sal_False ), uno::UNO_QUERY ); + if ( xContainer.is() ) + { + uno::Reference< container::XContainerListener > xContainerListener( this ); + xContainer->removeContainerListener( xContainerListener ); + } + } + catch( uno::Exception& ) {} + } + + // XEventListener + virtual void SAL_CALL disposing( const lang::EventObject& ) throw( uno::RuntimeException ) {} + + // XContainerListener + virtual void SAL_CALL elementInserted( const container::ContainerEvent& Event ) throw( uno::RuntimeException ) + { + rtl::OUString sModuleName; + if( mpShell && ( Event.Accessor >>= sModuleName ) ) + mpShell->FindBasWin( mpShell->m_aCurDocument, mpShell->m_aCurLibName, sModuleName, sal_True, sal_False ); + } + virtual void SAL_CALL elementReplaced( const container::ContainerEvent& ) throw( com::sun::star::uno::RuntimeException ) { } + virtual void SAL_CALL elementRemoved( const container::ContainerEvent& Event ) throw( com::sun::star::uno::RuntimeException ) + { + rtl::OUString sModuleName; + if( mpShell && ( Event.Accessor >>= sModuleName ) ) + { + IDEBaseWindow* pWin = mpShell->FindWindow( mpShell->m_aCurDocument, mpShell->m_aCurLibName, sModuleName, BASICIDE_TYPE_MODULE, sal_True ); + if( pWin ) + mpShell->RemoveWindow( pWin, sal_True, sal_True ); + } + } + +}; + +TYPEINIT1( BasicIDEShell, SfxViewShell ); + +SFX_IMPL_NAMED_VIEWFACTORY( BasicIDEShell, "Default" ) +{ + SFX_VIEW_REGISTRATION( BasicDocShell ); +} + + +SFX_IMPL_INTERFACE( BasicIDEShell, SfxViewShell, IDEResId( RID_STR_IDENAME ) ) +{ + SFX_CHILDWINDOW_REGISTRATION( SID_SEARCH_DLG ); + SFX_FEATURED_CHILDWINDOW_REGISTRATION(SID_SHOW_PROPERTYBROWSER, BASICIDE_UI_FEATURE_SHOW_BROWSER); + SFX_POPUPMENU_REGISTRATION( IDEResId( RID_POPUP_DLGED ) ); +} + + + +#define IDE_VIEWSHELL_FLAGS SFX_VIEW_CAN_PRINT|SFX_VIEW_NO_NEWWINDOW + + +static sal_Int32 GnBasicIDEShellCount; +sal_Int32 getBasicIDEShellCount( void ) + { return GnBasicIDEShellCount; } + +BasicIDEShell::BasicIDEShell( SfxViewFrame* pFrame_, SfxViewShell* /* pOldShell */ ) : + SfxViewShell( pFrame_, IDE_VIEWSHELL_FLAGS ), + m_aCurDocument( ScriptDocument::getApplicationScriptDocument() ), + aHScrollBar( &GetViewFrame()->GetWindow(), WinBits( WB_HSCROLL | WB_DRAG ) ), + aVScrollBar( &GetViewFrame()->GetWindow(), WinBits( WB_VSCROLL | WB_DRAG ) ), + aScrollBarBox( &GetViewFrame()->GetWindow(), WinBits( WB_SIZEABLE ) ), + m_bAppBasicModified( sal_False ), + m_aNotifier( *this ) +{ + m_xLibListener = new ContainerListenerImpl( this ); + Init(); + GnBasicIDEShellCount++; +} + + + +void BasicIDEShell::Init() +{ + TbxControls::RegisterControl( SID_CHOOSE_CONTROLS ); + SvxPosSizeStatusBarControl::RegisterControl(); + SvxInsertStatusBarControl::RegisterControl(); + XmlSecStatusBarControl::RegisterControl( SID_SIGNATURE ); + SvxSimpleUndoRedoController::RegisterControl( SID_UNDO ); + SvxSimpleUndoRedoController::RegisterControl( SID_REDO ); + + SvxSearchDialogWrapper::RegisterChildWindow( sal_False ); + + IDE_DLL()->GetExtraData()->ShellInCriticalSection() = sal_True; + + SetName( String( RTL_CONSTASCII_USTRINGPARAM( "BasicIDE" ) ) ); + SetHelpId( SVX_INTERFACE_BASIDE_VIEWSH ); + + LibBoxControl::RegisterControl( SID_BASICIDE_LIBSELECTOR ); + LanguageBoxControl::RegisterControl( SID_BASICIDE_CURRENT_LANG ); + + CreateModulWindowLayout(); + + GetViewFrame()->GetWindow().SetBackground(); + + pCurWin = 0; + m_aCurDocument = ScriptDocument::getApplicationScriptDocument(); + pObjectCatalog = 0; + bCreatingWindow = sal_False; + + m_pCurLocalizationMgr = NULL; + + pTabBar = new BasicIDETabBar( &GetViewFrame()->GetWindow() ); + pTabBar->SetSplitHdl( LINK( this, BasicIDEShell, TabBarSplitHdl ) ); + bTabBarSplitted = sal_False; + + nCurKey = 100; + InitScrollBars(); + InitTabBar(); + + SetCurLib( ScriptDocument::getApplicationScriptDocument(), String::CreateFromAscii( "Standard" ), false, false ); + + if ( IDE_DLL() && IDE_DLL()->pShell == NULL ) + IDE_DLL()->pShell = this; + + IDE_DLL()->GetExtraData()->ShellInCriticalSection() = sal_False; + + // It's enough to create the controller ... + // It will be public by using magic :-) + new BasicIDEController( this ); + + // Force updating the title ! Because it must be set to the controller + // it has to be called directly after creating those controller. + SetMDITitle (); + + UpdateWindows(); +} + +BasicIDEShell::~BasicIDEShell() +{ + m_aNotifier.dispose(); + + if ( IDE_DLL() && IDE_DLL()->pShell == this ) + IDE_DLL()->pShell = NULL; + + // Damit bei einem Basic-Fehler beim Speichern die Shell nicht sofort + // wieder hoch kommt: + IDE_DLL()->GetExtraData()->ShellInCriticalSection() = sal_True; + + SetWindow( 0 ); + SetCurWindow( 0 ); + + // Alle Fenster zerstoeren: + IDEBaseWindow* pWin = aIDEWindowTable.First(); + while ( pWin ) + { + // Kein Store, passiert bereits, wenn die BasicManager zerstoert werden. + delete pWin; + pWin = aIDEWindowTable.Next(); + } + + aIDEWindowTable.Clear(); + delete pTabBar; + delete pObjectCatalog; + DestroyModulWindowLayout(); + + ContainerListenerImpl* pListener = static_cast< ContainerListenerImpl* >( m_xLibListener.get() ); + // Destroy all ContainerListeners for Basic Container. + if ( pListener ) + pListener->removeContainerListener( m_aCurDocument, m_aCurLibName ); + + IDE_DLL()->GetExtraData()->ShellInCriticalSection() = sal_False; + + GnBasicIDEShellCount--; +} + +void BasicIDEShell::onDocumentCreated( const ScriptDocument& /*_rDocument*/ ) +{ + UpdateWindows(); +} + +void BasicIDEShell::onDocumentOpened( const ScriptDocument& /*_rDocument*/ ) +{ + UpdateWindows(); +} + +void BasicIDEShell::onDocumentSave( const ScriptDocument& /*_rDocument*/ ) +{ + StoreAllWindowData(); +} + +void BasicIDEShell::onDocumentSaveDone( const ScriptDocument& /*_rDocument*/ ) +{ + // #i115671: Update SID_SAVEDOC after saving is completed + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_SAVEDOC ); +} + +void BasicIDEShell::onDocumentSaveAs( const ScriptDocument& /*_rDocument*/ ) +{ + StoreAllWindowData(); +} + +void BasicIDEShell::onDocumentSaveAsDone( const ScriptDocument& /*_rDocument*/ ) +{ + // not interested in +} + +void BasicIDEShell::onDocumentClosed( const ScriptDocument& _rDocument ) +{ + if ( !_rDocument.isValid() ) + return; + + bool bSetCurWindow = false; + bool bSetCurLib = ( _rDocument == m_aCurDocument ); + + // remove all windows which belong to this document + for ( sal_uLong nWin = aIDEWindowTable.Count(); nWin; ) + { + IDEBaseWindow* pWin = aIDEWindowTable.GetObject( --nWin ); + if ( pWin->IsDocument( _rDocument ) ) + { + if ( pWin->GetStatus() & (BASWIN_RUNNINGBASIC|BASWIN_INRESCHEDULE) ) + { + pWin->AddStatus( BASWIN_TOBEKILLED ); + pWin->Hide(); + StarBASIC::Stop(); + // there's no notify + pWin->BasicStopped(); + } + else + { + pWin->StoreData(); + if ( pWin == pCurWin ) + bSetCurWindow = true; + RemoveWindow( pWin, sal_True, sal_False ); + } + } + } + + // remove lib info + BasicIDEData* pData = IDE_DLL()->GetExtraData(); + if ( pData ) + pData->GetLibInfos().RemoveInfoFor( _rDocument ); + + if ( bSetCurLib ) + SetCurLib( ScriptDocument::getApplicationScriptDocument(), String::CreateFromAscii( "Standard" ), true, false ); + else if ( bSetCurWindow ) + SetCurWindow( FindApplicationWindow(), sal_True ); +} + +void BasicIDEShell::onDocumentTitleChanged( const ScriptDocument& /*_rDocument*/ ) +{ + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_BASICIDE_LIBSELECTOR, sal_True, sal_False ); + SetMDITitle(); +} + +void BasicIDEShell::onDocumentModeChanged( const ScriptDocument& _rDocument ) +{ + for ( sal_uLong nWin = aIDEWindowTable.Count(); nWin; ) + { + IDEBaseWindow* pWin = aIDEWindowTable.GetObject( --nWin ); + if ( pWin->IsDocument( _rDocument ) && _rDocument.isDocument() ) + pWin->SetReadOnly( _rDocument.isReadOnly() ); + } +} + +void BasicIDEShell::StoreAllWindowData( sal_Bool bPersistent ) +{ + for ( sal_uLong nWin = 0; nWin < aIDEWindowTable.Count(); nWin++ ) + { + IDEBaseWindow* pWin = aIDEWindowTable.GetObject( nWin ); + DBG_ASSERT( pWin, "PrepareClose: NULL-Pointer in Table?" ); + if ( !pWin->IsSuspended() ) + pWin->StoreData(); + } + + if ( bPersistent ) + { + SFX_APP()->SaveBasicAndDialogContainer(); + SetAppBasicModified( sal_False ); + + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + { + pBindings->Invalidate( SID_SAVEDOC ); + pBindings->Update( SID_SAVEDOC ); + } + } +} + + +sal_uInt16 BasicIDEShell::PrepareClose( sal_Bool bUI, sal_Bool bForBrowsing ) +{ + (void)bForBrowsing; + + // da es nach Drucken etc. (DocInfo) modifiziert ist, hier resetten + GetViewFrame()->GetObjectShell()->SetModified(sal_False); + + if ( StarBASIC::IsRunning() ) + { + if( bUI ) + { + String aErrorStr( IDEResId( RID_STR_CANNOTCLOSE ) ); + Window *pParent = &GetViewFrame()->GetWindow(); + InfoBox( pParent, aErrorStr ).Execute(); + } + return sal_False; + } + else + { + sal_Bool bCanClose = sal_True; + for ( sal_uLong nWin = 0; bCanClose && ( nWin < aIDEWindowTable.Count() ); nWin++ ) + { + IDEBaseWindow* pWin = aIDEWindowTable.GetObject( nWin ); + if ( !pWin->CanClose() ) + { + if ( m_aCurLibName.Len() && ( pWin->IsDocument( m_aCurDocument ) || pWin->GetLibName() != m_aCurLibName ) ) + SetCurLib( ScriptDocument::getApplicationScriptDocument(), String(), false ); + SetCurWindow( pWin, sal_True ); + bCanClose = sal_False; + } + } + + if ( bCanClose ) + StoreAllWindowData( sal_False ); // Nicht auf Platte schreiben, das passiert am Ende automatisch + + return bCanClose; + } +} + +void BasicIDEShell::InitScrollBars() +{ + aVScrollBar.SetLineSize( 300 ); + aVScrollBar.SetPageSize( 2000 ); + aHScrollBar.SetLineSize( 300 ); + aHScrollBar.SetPageSize( 2000 ); + aHScrollBar.Enable(); + aVScrollBar.Enable(); + aVScrollBar.Show(); + aHScrollBar.Show(); + aScrollBarBox.Show(); +} + + + +void BasicIDEShell::InitTabBar() +{ + pTabBar->Enable(); + pTabBar->Show(); + pTabBar->SetSelectHdl( LINK( this, BasicIDEShell, TabBarHdl ) ); +} + + +Size BasicIDEShell::GetOptimalSizePixel() const +{ + return Size( 400, 300 ); +} + + + +void BasicIDEShell::OuterResizePixel( const Point &rPos, const Size &rSize ) +{ + // Adjust fliegt irgendwann raus... + AdjustPosSizePixel( rPos, rSize ); +} + + +IMPL_LINK_INLINE_START( BasicIDEShell, TabBarSplitHdl, TabBar *, pTBar ) +{ + (void)pTBar; + bTabBarSplitted = sal_True; + ArrangeTabBar(); + + return 0; +} +IMPL_LINK_INLINE_END( BasicIDEShell, TabBarSplitHdl, TabBar *, pTBar ) + + + +IMPL_LINK( BasicIDEShell, TabBarHdl, TabBar *, pCurTabBar ) +{ + sal_uInt16 nCurId = pCurTabBar->GetCurPageId(); + IDEBaseWindow* pWin = aIDEWindowTable.Get( nCurId ); + DBG_ASSERT( pWin, "Eintrag in TabBar passt zu keinem Fenster!" ); + SetCurWindow( pWin ); + + return 0; +} + + + +sal_Bool BasicIDEShell::NextPage( sal_Bool bPrev ) +{ + sal_Bool bRet = sal_False; + sal_uInt16 nPos = pTabBar->GetPagePos( pTabBar->GetCurPageId() ); + + if ( bPrev ) + --nPos; + else + ++nPos; + + if ( nPos < pTabBar->GetPageCount() ) + { + IDEBaseWindow* pWin = aIDEWindowTable.Get( pTabBar->GetPageId( nPos ) ); + SetCurWindow( pWin, sal_True ); + bRet = sal_True; + } + + return bRet; +} + + + +void BasicIDEShell::ArrangeTabBar() +{ + Size aSz( GetViewFrame()->GetWindow().GetOutputSizePixel() ); + long nBoxPos = aScrollBarBox.GetPosPixel().X() - 1; + long nPos = pTabBar->GetSplitSize(); + if ( nPos <= nBoxPos ) + { + Point aPnt( pTabBar->GetPosPixel() ); + long nH = aHScrollBar.GetSizePixel().Height(); + pTabBar->SetPosSizePixel( aPnt, Size( nPos, nH ) ); + long nScrlStart = aPnt.X() + nPos; + aHScrollBar.SetPosSizePixel( Point( nScrlStart, aPnt.Y() ), Size( nBoxPos - nScrlStart + 2, nH ) ); + aHScrollBar.Update(); + } +} + + + +::svl::IUndoManager* BasicIDEShell::GetUndoManager() +{ + ::svl::IUndoManager* pMgr = NULL; + if( pCurWin ) + pMgr = pCurWin->GetUndoManager(); + + return pMgr; +} + + + +void BasicIDEShell::ShowObjectDialog( sal_Bool bShow, sal_Bool bCreateOrDestroy ) +{ + if ( bShow ) + { + if ( !pObjectCatalog && bCreateOrDestroy ) + { + pObjectCatalog = new ObjectCatalog( &GetViewFrame()->GetWindow() ); + // Position wird in BasicIDEData gemerkt und vom Dlg eingestellt + if ( pObjectCatalog ) + { + pObjectCatalog->SetCancelHdl( LINK( this, BasicIDEShell, ObjectDialogCancelHdl ) ); + BasicEntryDescriptor aDesc; + IDEBaseWindow* pCurWin_ = GetCurWindow(); + if ( pCurWin_ ) + aDesc = pCurWin_->CreateEntryDescriptor(); + pObjectCatalog->SetCurrentEntry( aDesc ); + } + } + + // Die allerletzten Aenderungen... + if ( pCurWin ) + pCurWin->StoreData(); + + if ( pObjectCatalog ) + { + pObjectCatalog->UpdateEntries(); + pObjectCatalog->Show(); + } + } + else if ( pObjectCatalog ) + { + pObjectCatalog->Hide(); + if ( bCreateOrDestroy ) + { + // Wegen OS/2-Focus-Problem pObjectCatalog vorm delete auf NULL + ObjectCatalog* pTemp = pObjectCatalog; + pObjectCatalog = 0; + delete pTemp; + } + } +} + + + +void BasicIDEShell::SFX_NOTIFY( SfxBroadcaster& rBC, const TypeId&, + const SfxHint& rHint, const TypeId& ) +{ + if ( IDE_DLL()->GetShell() ) + { + if ( rHint.IsA( TYPE( SfxSimpleHint ) ) ) + { + switch ( ((SfxSimpleHint&)rHint).GetId() ) + { + case SFX_HINT_DYING: + { + EndListening( rBC, sal_True /* Alle abmelden */ ); + if ( pObjectCatalog ) + pObjectCatalog->UpdateEntries(); + } + break; + } + + if ( rHint.IsA( TYPE( SbxHint ) ) ) + { + SbxHint& rSbxHint = (SbxHint&)rHint; + sal_uLong nHintId = rSbxHint.GetId(); + if ( ( nHintId == SBX_HINT_BASICSTART ) || + ( nHintId == SBX_HINT_BASICSTOP ) ) + { + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + { + pBindings->Invalidate( SID_BASICRUN ); + pBindings->Update( SID_BASICRUN ); + pBindings->Invalidate( SID_BASICCOMPILE ); + pBindings->Update( SID_BASICCOMPILE ); + pBindings->Invalidate( SID_BASICSTEPOVER ); + pBindings->Update( SID_BASICSTEPOVER ); + pBindings->Invalidate( SID_BASICSTEPINTO ); + pBindings->Update( SID_BASICSTEPINTO ); + pBindings->Invalidate( SID_BASICSTEPOUT ); + pBindings->Update( SID_BASICSTEPOUT ); + pBindings->Invalidate( SID_BASICSTOP ); + pBindings->Update( SID_BASICSTOP ); + pBindings->Invalidate( SID_BASICIDE_TOGGLEBRKPNT ); + pBindings->Update( SID_BASICIDE_TOGGLEBRKPNT ); + pBindings->Invalidate( SID_BASICIDE_MANAGEBRKPNTS ); + pBindings->Update( SID_BASICIDE_MANAGEBRKPNTS ); + pBindings->Invalidate( SID_BASICIDE_MODULEDLG ); + pBindings->Update( SID_BASICIDE_MODULEDLG ); + pBindings->Invalidate( SID_BASICLOAD ); + pBindings->Update( SID_BASICLOAD ); + } + + if ( nHintId == SBX_HINT_BASICSTOP ) + { + // Nicht nur bei Error/Break oder explizitem anhalten, + // falls durch einen Programmierfehler das Update abgeschaltet ist. + BasicIDE::BasicStopped(); + UpdateModulWindowLayout( true ); // Leer machen... + if( m_pCurLocalizationMgr ) + m_pCurLocalizationMgr->handleBasicStopped(); + } + else if( m_pCurLocalizationMgr ) + { + m_pCurLocalizationMgr->handleBasicStarted(); + } + + IDEBaseWindow* pWin = aIDEWindowTable.First(); + while ( pWin ) + { + if ( nHintId == SBX_HINT_BASICSTART ) + pWin->BasicStarted(); + else + pWin->BasicStopped(); + pWin = aIDEWindowTable.Next(); + } + } + } + } + } +} + + + +void BasicIDEShell::CheckWindows() +{ + sal_Bool bSetCurWindow = sal_False; + for ( sal_uLong nWin = 0; nWin < aIDEWindowTable.Count(); nWin++ ) + { + IDEBaseWindow* pWin = aIDEWindowTable.GetObject( nWin ); + if ( pWin->GetStatus() & BASWIN_TOBEKILLED ) + { + pWin->StoreData(); + if ( pWin == pCurWin ) + bSetCurWindow = sal_True; + RemoveWindow( pWin, sal_True, sal_False ); + nWin--; + } + } + if ( bSetCurWindow ) + SetCurWindow( FindApplicationWindow(), sal_True ); +} + + + +void BasicIDEShell::RemoveWindows( const ScriptDocument& rDocument, const String& rLibName, sal_Bool bDestroy ) +{ + sal_Bool bChangeCurWindow = pCurWin ? sal_False : sal_True; + for ( sal_uLong nWin = 0; nWin < aIDEWindowTable.Count(); nWin++ ) + { + IDEBaseWindow* pWin = aIDEWindowTable.GetObject( nWin ); + if ( pWin->IsDocument( rDocument ) && pWin->GetLibName() == rLibName ) + { + if ( pWin == pCurWin ) + bChangeCurWindow = sal_True; + pWin->StoreData(); + RemoveWindow( pWin, bDestroy, sal_False ); + nWin--; + } + } + if ( bChangeCurWindow ) + SetCurWindow( FindApplicationWindow(), sal_True ); +} + + + +void BasicIDEShell::UpdateWindows() +{ + // Alle Fenster, die nicht angezeigt werden duerfen, entfernen + sal_Bool bChangeCurWindow = pCurWin ? sal_False : sal_True; + if ( m_aCurLibName.Len() ) + { + for ( sal_uLong nWin = 0; nWin < aIDEWindowTable.Count(); nWin++ ) + { + IDEBaseWindow* pWin = aIDEWindowTable.GetObject( nWin ); + if ( !pWin->IsDocument( m_aCurDocument ) || pWin->GetLibName() != m_aCurLibName ) + { + if ( pWin == pCurWin ) + bChangeCurWindow = sal_True; + pWin->StoreData(); + // Die Abfrage auf RUNNING verhindert den Absturz, wenn in Reschedule. + // Fenster bleibt erstmal stehen, spaeter sowieso mal umstellen, + // dass Fenster nur als Hidden markiert werden und nicht + // geloescht. + if ( !(pWin->GetStatus() & ( BASWIN_TOBEKILLED | BASWIN_RUNNINGBASIC | BASWIN_SUSPENDED ) ) ) + { + RemoveWindow( pWin, sal_False, sal_False ); + nWin--; + } + } + } + } + + if ( bCreatingWindow ) + return; + + IDEBaseWindow* pNextActiveWindow = 0; + + // Alle anzuzeigenden Fenster anzeigen + ScriptDocuments aDocuments( ScriptDocument::getAllScriptDocuments( ScriptDocument::AllWithApplication ) ); + for ( ScriptDocuments::const_iterator doc = aDocuments.begin(); + doc != aDocuments.end(); + ++doc + ) + { + StartListening( *doc->getBasicManager(), sal_True /* Nur einmal anmelden */ ); + + // libraries + Sequence< ::rtl::OUString > aLibNames( doc->getLibraryNames() ); + sal_Int32 nLibCount = aLibNames.getLength(); + const ::rtl::OUString* pLibNames = aLibNames.getConstArray(); + + for ( sal_Int32 i = 0 ; i < nLibCount ; i++ ) + { + String aLibName = pLibNames[ i ]; + + if ( !m_aCurLibName.Len() || ( *doc == m_aCurDocument && aLibName == m_aCurLibName ) ) + { + // check, if library is password protected and not verified + sal_Bool bProtected = sal_False; + Reference< script::XLibraryContainer > xModLibContainer( doc->getLibraryContainer( E_SCRIPTS ) ); + if ( xModLibContainer.is() && xModLibContainer->hasByName( aLibName ) ) + { + Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); + if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aLibName ) && !xPasswd->isLibraryPasswordVerified( aLibName ) ) + { + bProtected = sal_True; + } + } + + if ( !bProtected ) + { + LibInfoItem* pLibInfoItem = 0; + BasicIDEData* pData = IDE_DLL()->GetExtraData(); + if ( pData ) + pLibInfoItem = pData->GetLibInfos().GetInfo( LibInfoKey( *doc, aLibName ) ); + + // modules + if ( xModLibContainer.is() && xModLibContainer->hasByName( aLibName ) ) + { + StarBASIC* pLib = doc->getBasicManager()->GetLib( aLibName ); + if ( pLib ) + ImplStartListening( pLib ); + + try + { + Sequence< ::rtl::OUString > aModNames( doc->getObjectNames( E_SCRIPTS, aLibName ) ); + sal_Int32 nModCount = aModNames.getLength(); + const ::rtl::OUString* pModNames = aModNames.getConstArray(); + + for ( sal_Int32 j = 0 ; j < nModCount ; j++ ) + { + String aModName = pModNames[ j ]; + ModulWindow* pWin = FindBasWin( *doc, aLibName, aModName, sal_False ); + if ( !pWin ) + pWin = CreateBasWin( *doc, aLibName, aModName ); + if ( !pNextActiveWindow && pLibInfoItem && pLibInfoItem->GetCurrentName() == aModName && + pLibInfoItem->GetCurrentType() == BASICIDE_TYPE_MODULE ) + { + pNextActiveWindow = (IDEBaseWindow*)pWin; + } + } + } + catch ( container::NoSuchElementException& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + + // dialogs + Reference< script::XLibraryContainer > xDlgLibContainer( doc->getLibraryContainer( E_DIALOGS ) ); + if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aLibName ) ) + { + try + { + Sequence< ::rtl::OUString > aDlgNames = doc->getObjectNames( E_DIALOGS, aLibName ); + sal_Int32 nDlgCount = aDlgNames.getLength(); + const ::rtl::OUString* pDlgNames = aDlgNames.getConstArray(); + + for ( sal_Int32 j = 0 ; j < nDlgCount ; j++ ) + { + String aDlgName = pDlgNames[ j ]; + // this find only looks for non-suspended windows; + // suspended windows are handled in CreateDlgWin + DialogWindow* pWin = FindDlgWin( *doc, aLibName, aDlgName, sal_False ); + if ( !pWin ) + pWin = CreateDlgWin( *doc, aLibName, aDlgName ); + if ( !pNextActiveWindow && pLibInfoItem && pLibInfoItem->GetCurrentName() == aDlgName && + pLibInfoItem->GetCurrentType() == BASICIDE_TYPE_DIALOG ) + { + pNextActiveWindow = (IDEBaseWindow*)pWin; + } + } + } + catch ( container::NoSuchElementException& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + } + } + } + } + + if ( bChangeCurWindow ) + { + if ( !pNextActiveWindow ) + pNextActiveWindow = FindApplicationWindow(); + SetCurWindow( pNextActiveWindow, sal_True ); + } +} + +void BasicIDEShell::RemoveWindow( IDEBaseWindow* pWindow_, sal_Bool bDestroy, sal_Bool bAllowChangeCurWindow ) +{ + DBG_ASSERT( pWindow_, "Kann keinen NULL-Pointer loeschen!" ); + sal_uLong nKey = aIDEWindowTable.GetKey( pWindow_ ); + pTabBar->RemovePage( (sal_uInt16)nKey ); + aIDEWindowTable.Remove( nKey ); + if ( pWindow_ == pCurWin ) + { + if ( bAllowChangeCurWindow ) + SetCurWindow( FindApplicationWindow(), sal_True ); + else + SetCurWindow( NULL, sal_False ); + } + if ( bDestroy ) + { + if ( !( pWindow_->GetStatus() & BASWIN_INRESCHEDULE ) ) + { + delete pWindow_; + } + else + { + pWindow_->AddStatus( BASWIN_TOBEKILLED ); + pWindow_->Hide(); + // In normal mode stop basic in windows to be deleted + // In VBA stop basic only if the running script is trying to delete + // its parent module + bool bStop = true; + if ( pWindow_->GetDocument().isInVBAMode() ) + { + SbModule* pMod = StarBASIC::GetActiveModule(); + if ( !pMod || ( pMod && ( pMod->GetName() != pWindow_->GetName() ) ) ) + bStop = false; + } + if ( bStop ) + { + StarBASIC::Stop(); + // Es kommt kein Notify... + pWindow_->BasicStopped(); + } + aIDEWindowTable.Insert( nKey, pWindow_ ); // wieder einhaegen + } + } + else + { + pWindow_->Hide(); + pWindow_->AddStatus( BASWIN_SUSPENDED ); + pWindow_->Deactivating(); + aIDEWindowTable.Insert( nKey, pWindow_ ); // wieder einhaegen + } + +} + + + +sal_uInt16 BasicIDEShell::InsertWindowInTable( IDEBaseWindow* pNewWin ) +{ + // Eigentlich prueffen, + nCurKey++; + aIDEWindowTable.Insert( nCurKey, pNewWin ); + return nCurKey; +} + + + +void BasicIDEShell::InvalidateBasicIDESlots() +{ + // Nur die, die eine optische Auswirkung haben... + + if ( IDE_DLL()->GetShell() ) + { + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + { + pBindings->Invalidate( SID_UNDO ); + pBindings->Invalidate( SID_REDO ); + pBindings->Invalidate( SID_SAVEDOC ); + pBindings->Invalidate( SID_SIGNATURE ); + pBindings->Invalidate( SID_BASICIDE_CHOOSEMACRO ); + pBindings->Invalidate( SID_BASICIDE_MODULEDLG ); + pBindings->Invalidate( SID_BASICIDE_OBJCAT ); + pBindings->Invalidate( SID_BASICSTOP ); + pBindings->Invalidate( SID_BASICRUN ); + pBindings->Invalidate( SID_BASICCOMPILE ); + pBindings->Invalidate( SID_BASICLOAD ); + pBindings->Invalidate( SID_BASICSAVEAS ); + pBindings->Invalidate( SID_BASICIDE_MATCHGROUP ); + pBindings->Invalidate( SID_BASICSTEPINTO ); + pBindings->Invalidate( SID_BASICSTEPOVER ); + pBindings->Invalidate( SID_BASICSTEPOUT ); + pBindings->Invalidate( SID_BASICIDE_TOGGLEBRKPNT ); + pBindings->Invalidate( SID_BASICIDE_MANAGEBRKPNTS ); + pBindings->Invalidate( SID_BASICIDE_ADDWATCH ); + pBindings->Invalidate( SID_BASICIDE_REMOVEWATCH ); + pBindings->Invalidate( SID_CHOOSE_CONTROLS ); + pBindings->Invalidate( SID_PRINTDOC ); + pBindings->Invalidate( SID_PRINTDOCDIRECT ); + pBindings->Invalidate( SID_SETUPPRINTER ); + pBindings->Invalidate( SID_DIALOG_TESTMODE ); + + pBindings->Invalidate( SID_DOC_MODIFIED ); + pBindings->Invalidate( SID_BASICIDE_STAT_TITLE ); + pBindings->Invalidate( SID_BASICIDE_STAT_POS ); + pBindings->Invalidate( SID_ATTR_INSERT ); + pBindings->Invalidate( SID_ATTR_SIZE ); + } + } +} + +void BasicIDEShell::EnableScrollbars( sal_Bool bEnable ) +{ + if ( bEnable ) + { + aHScrollBar.Enable(); + aVScrollBar.Enable(); + } + else + { + aHScrollBar.Disable(); + aVScrollBar.Disable(); + } +} + +void BasicIDEShell::SetCurLib( const ScriptDocument& rDocument, String aLibName, bool bUpdateWindows, bool bCheck ) +{ + if ( !bCheck || ( rDocument != m_aCurDocument || aLibName != m_aCurLibName ) ) + { + ContainerListenerImpl* pListener = static_cast< ContainerListenerImpl* >( m_xLibListener.get() ); + + if ( pListener ) + pListener->removeContainerListener( m_aCurDocument, m_aCurLibName ); + + m_aCurDocument = rDocument; + + pListener->addContainerListener( m_aCurDocument, aLibName ); + + m_aCurLibName = aLibName; + + if ( bUpdateWindows ) + UpdateWindows(); + + SetMDITitle(); + + SetCurLibForLocalization( rDocument, aLibName ); + + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + { + pBindings->Invalidate( SID_BASICIDE_LIBSELECTOR ); + pBindings->Invalidate( SID_BASICIDE_CURRENT_LANG ); + pBindings->Invalidate( SID_BASICIDE_MANAGE_LANG ); + } + } +} + +void BasicIDEShell::SetCurLibForLocalization( const ScriptDocument& rDocument, String aLibName ) +{ + // Create LocalizationMgr + delete m_pCurLocalizationMgr; + Reference< resource::XStringResourceManager > xStringResourceManager; + try + { + if( aLibName.Len() ) + { + Reference< container::XNameContainer > xDialogLib( rDocument.getLibrary( E_DIALOGS, aLibName, sal_True ) ); + xStringResourceManager = LocalizationMgr::getStringResourceFromDialogLibrary( xDialogLib ); + } + } + catch ( container::NoSuchElementException& ) + {} + m_pCurLocalizationMgr = new LocalizationMgr + ( this, rDocument, aLibName, xStringResourceManager ); + + m_pCurLocalizationMgr->handleTranslationbar(); +} + +void BasicIDEShell::ImplStartListening( StarBASIC* pBasic ) +{ + StartListening( pBasic->GetBroadcaster(), sal_True /* Nur einmal anmelden */ ); +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/basidesh.src b/basctl/source/basicide/basidesh.src new file mode 100644 index 000000000000..368bad4244de --- /dev/null +++ b/basctl/source/basicide/basidesh.src @@ -0,0 +1,638 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#include <baside2.hrc> +#include <helpid.hrc> +#ifndef _GLOBLMN_HRC +#include <svx/globlmn.hrc> +#endif +#include "dlgresid.hrc" +#include <sfx2/sfxcommands.h> +#include <svx/svxcommands.h> + +#define MASKCOLOR MaskColor = Color { Red = 0xFFFF; Green = 0x0000; Blue = 0xFFFF; }; + +String RID_STR_IDENAME +{ + Text = "BasicIDE" ; +}; +String RID_STR_FILTER_ALLFILES +{ + Text [ en-US ] = "<All>" ; +}; +String RID_STR_NOMODULE +{ + Text [ en-US ] = "< No Module >" ; +}; +String RID_STR_WRONGPASSWORD +{ + Text [ en-US ] = "Incorrect Password" ; +}; +String RID_STR_OPEN +{ + Text [ en-US ] = "Load" ; +}; +String RID_STR_SAVE +{ + Text [ en-US ] = "Save" ; +}; +String RID_STR_SOURCETOBIG +{ + Text [ en-US ] = "The source text is too large and can be neither compiled nor saved.\nDelete some of the comments or transfer some methods into another module." ; +}; +String RID_STR_ERROROPENSTORAGE +{ + Text [ en-US ] = "Error opening file" ; +}; +String RID_STR_ERROROPENLIB +{ + Text [ en-US ] = "Error loading library" ; +}; +String RID_STR_NOLIBINSTORAGE +{ + Text [ en-US ] = "The file does not contain any BASIC libraries" ; +}; +String RID_STR_BADSBXNAME +{ + Text [ en-US ] = "Invalid Name" ; +}; +String RID_STR_LIBNAMETOLONG +{ + Text [ en-US ] = "A library name can have up to 30 characters."; +}; +String RID_STR_ERRORCHOOSEMACRO +{ + Text [ en-US ] = "Macros from other documents are not accessible."; +}; +String RID_STR_LIBISREADONLY +{ + Text [ en-US ] = "This library is read-only."; +}; +String RID_STR_REPLACELIB +{ + Text [ en-US ] = "'XX' cannot be replaced."; +}; +String RID_STR_IMPORTNOTPOSSIBLE +{ + Text [ en-US ] = "'XX' cannot be added."; +}; +String RID_STR_NOIMPORT +{ + Text [ en-US ] = "'XX' was not added."; +}; +String RID_STR_ENTERPASSWORD +{ + Text [ en-US ] = "Enter password for 'XX'"; +}; +String RID_STR_SBXNAMEALLREADYUSED +{ + Text [ en-US ] = "Name already exists" ; +}; +String RID_STR_SIGNED +{ + Text [ en-US ] = "(Signed)" ; +}; +String RID_STR_SBXNAMEALLREADYUSED2 +{ + Text [ en-US ] = "Object with same name already exists" ; +}; +String RID_STR_FILEEXISTS +{ + Text [ en-US ] = "The 'XX' file already exists" ; +}; +String RID_STR_CANNOTRUNMACRO +{ + Text [ en-US ] = "For security reasons, you cannot run this macro.\n\nFor more information, check the security settings." ; +}; +String RID_STR_COMPILEERROR +{ + Text [ en-US ] = "Compile Error: " ; +}; +String RID_STR_RUNTIMEERROR +{ + Text [ en-US ] = "Runtime Error: #" ; +}; +String RID_STR_SEARCHNOTFOUND +{ + Text [ en-US ] = "Search key not found" ; +}; +String RID_STR_SEARCHFROMSTART +{ + Text [ en-US ] = "Search to last module complete. Continue at first module?" ; +}; +String RID_STR_SEARCHREPLACES +{ + Text [ en-US ] = "Search key replaced XX times" ; +}; +String RID_STR_COULDNTREAD +{ + Text [ en-US ] = "The file could not be read" ; +}; +String RID_STR_COULDNTWRITE +{ + Text [ en-US ] = "The file could not be saved" ; +}; +String RID_STR_CANNOTCHANGENAMESTDLIB +{ + Text [ en-US ] = "The name of the default library cannot be changed." ; +}; +String RID_STR_CANNOTCHANGENAMEREFLIB +{ + Text [ en-US ] = "The name of a referenced library cannot be changed." ; +}; +String RID_STR_CANNOTUNLOADSTDLIB +{ + Text [ en-US ] = "The default library cannot be deactivated" ; +}; +String RID_STR_GENERATESOURCE +{ + Text [ en-US ] = "Generating source" ; +}; +String RID_STR_FILENAME +{ + Text [ en-US ] = "File name:" ; +}; +String RID_STR_APPENDLIBS +{ + Text [ en-US ] = "Import Libraries" ; +}; +String RID_STR_QUERYDELMACRO +{ + Text [ en-US ] = "Do you want to delete the macro XX?" ; +}; +String RID_STR_QUERYDELDIALOG +{ + Text [ en-US ] = "Do you want to delete the XX dialog?" ; +}; +String RID_STR_QUERYDELLIB +{ + Text [ en-US ] = "Do you want to delete the XX library?" ; +}; +String RID_STR_QUERYDELLIBREF +{ + Text [ en-US ] = "Do you want to delete the reference to the XX library?" ; +}; +String RID_STR_QUERYDELMODULE +{ + Text [ en-US ] = "Do you want to delete the XX module?" ; +}; +String RID_STR_OBJNOTFOUND +{ + Text [ en-US ] = "Object or method not found" ; +}; +String RID_STR_BASIC +{ + Text [ en-US ] = "BASIC" ; +}; +String RID_STR_LINE +{ + // Abkuerzung fuer 'Zeile' + Text [ en-US ] = "Ln" ; +}; +String RID_STR_COLUMN +{ + // Abkuerzung fuer 'Spalte' + Text [ en-US ] = "Col" ; +}; +String RID_STR_DOC +{ + Text [ en-US ] = "Document" ; +}; +String RID_BASICIDE_OBJECTBAR +{ + Text [ en-US ] = "Macro Bar" ; +}; +String RID_STR_CANNOTCLOSE +{ + Text [ en-US ] = "The window cannot be closed while BASIC is running." ; +}; +String RID_STR_REPLACESTDLIB +{ + Text [ en-US ] = "The default library cannot be replaced." ; +}; +String RID_STR_REFNOTPOSSIBLE +{ + Text [ en-US ] = "Reference to 'XX' not possible." ; +}; +String RID_STR_WATCHNAME +{ + Text [ en-US ] = "Watch" ; +}; +String RID_STR_WATCHVARIABLE +{ + Text [ en-US ] = "Variable" ; +}; +String RID_STR_WATCHVALUE +{ + Text [ en-US ] = "Value" ; +}; +String RID_STR_WATCHTYPE +{ + Text [ en-US ] = "Type" ; +}; +String RID_STR_STACKNAME +{ + Text [ en-US ] = "Call Stack" ; +}; +String RID_STR_INITIDE +{ + Text [ en-US ] = "BASIC Initialization" ; +}; +String RID_STR_STDMODULENAME +{ + Text [ en-US ] = "Module" ; +}; +String RID_STR_STDDIALOGNAME +{ + Text [ en-US ] = "Dialog" ; +}; +String RID_STR_STDLIBNAME +{ + Text [ en-US ] = "Library" ; +}; +String RID_STR_NEWLIB +{ + Text [ en-US ] = "New Library" ; +}; +String RID_STR_NEWMOD +{ + Text [ en-US ] = "New Module" ; +}; +String RID_STR_NEWDLG +{ + Text [ en-US ] = "New Dialog" ; +}; +String RID_STR_ALL +{ + Text [ en-US ] = "All" ; +}; +String RID_STR_PAGE +{ + Text [ en-US ] = "Page" ; +}; +String RID_STR_MACRONAMEREQ +{ + Text [ en-US ] = "A name must be entered." ; +}; +String RID_STR_WILLSTOPPRG +{ + Text [ en-US ] = "You will have to restart the program after this edit.\nContinue?" ; +}; +String RID_STR_SEARCHALLMODULES +{ + Text [ en-US ] = "Do you want to replace the text in all active modules?" ; +}; +Edit RID_EDT_WATCHEDIT +{ + HelpId = HID_BASICIDE_WATCHWINDOW_EDIT ; + Border = TRUE ; + SvLook = TRUE ; + Size = MAP_APPFONT ( 80 , 12 ) ; +}; +ImageButton RID_IMGBTN_REMOVEWATCH +{ + HelpId = HID_BASICIDE_REMOVEWATCH ; + SmallStyle = TRUE ; + ButtonImage = Image + { + ImageBitmap = Bitmap { File = "baswatr.bmp" ; }; + MASKCOLOR + }; + QuickHelpText [ en-US ] = "Remove Watch" ; +}; + +String RID_STR_REMOVEWATCH +{ + Text [ en-US ] = "Watch:" ; +}; + +String RID_STR_STACK +{ + Text [ en-US ] = "Calls: " ; +}; + +String RID_STR_USERMACROS +{ + Text [ en-US ] = "My Macros" ; +}; + +String RID_STR_USERDIALOGS +{ + Text [ en-US ] = "My Dialogs" ; +}; + +String RID_STR_USERMACROSDIALOGS +{ + Text [ en-US ] = "My Macros & Dialogs" ; +}; + +String RID_STR_SHAREMACROS +{ + Text [ en-US ] = "%PRODUCTNAME Macros" ; +}; + +String RID_STR_SHAREDIALOGS +{ + Text [ en-US ] = "%PRODUCTNAME Dialogs" ; +}; + +String RID_STR_SHAREMACROSDIALOGS +{ + Text [ en-US ] = "%PRODUCTNAME Macros & Dialogs" ; +}; + +Menu RID_POPUP_BRKPROPS +{ + Text [ en-US ] = "Properties" ; + DefaultItemId = RID_BRKPROPS ; + ItemList = + { + MenuItem + { + Identifier = RID_ACTIV ; + HelpId = HID_BASICIDE_ACTIV ; + Text [ en-US ] = "Active" ; + }; + MenuItem + { + Separator = TRUE ; + }; + MenuItem + { + Identifier = RID_BRKPROPS ; + HelpId = HID_BASICIDE_BRKPROPS ; + Text [ en-US ] = "Properties..." ; + }; + }; +}; + +Menu RID_POPUP_BRKDLG +{ + Text [ en-US ] = "Manage Breakpoints" ; + ItemList = + { + MenuItem + { + Identifier = RID_BRKDLG ; + HelpId = HID_BASICIDE_BRKDLG ; + Text [ en-US ] = "Manage Breakpoints..." ; + }; + }; +}; + +Menu RID_POPUP_TABBAR +{ + DefaultItemId = SID_BASICIDE_HIDECURPAGE ; + ItemList = + { + MenuItem + { + Identifier = RID_INSERT ; + Text [ en-US ] = "Insert" ; + Submenu = Menu + { + ItemList = + { + MenuItem + { + Identifier = SID_BASICIDE_NEWMODULE ; + HelpId = CMD_SID_BASICIDE_NEWMODULE ; + Text [ en-US ] = "BASIC Module" ; + }; + MenuItem + { + Identifier = SID_BASICIDE_NEWDIALOG ; + HelpId = CMD_SID_BASICIDE_NEWDIALOG ; + Text [ en-US ] = "BASIC Dialog" ; + }; + }; + }; + }; + MenuItem + { + Identifier = SID_BASICIDE_DELETECURRENT ; + HelpId = CMD_SID_BASICIDE_DELETECURRENT ; + Text [ en-US ] = "Delete" ; + }; + MenuItem + { + Identifier = SID_BASICIDE_RENAMECURRENT ; + HelpId = CMD_SID_BASICIDE_RENAMECURRENT ; + Text [ en-US ] = "Rename" ; + }; + MenuItem + { + Identifier = SID_BASICIDE_HIDECURPAGE ; + HelpId = CMD_SID_BASICIDE_HIDECURPAGE ; + Text [ en-US ] = "Hide" ; + }; + MenuItem + { + Separator = TRUE ; + }; + MenuItem + { + Identifier = SID_BASICIDE_MODULEDLG ; + HelpId = CMD_SID_BASICIDE_MODULEDLG ; + Text [ en-US ] = "Modules..." ; + }; + }; +}; + +Menu RID_POPUP_DLGED +{ + DefaultItemId = SID_SHOW_PROPERTYBROWSER ; + ItemList = + { + MenuItem + { + Identifier = SID_SHOW_PROPERTYBROWSER ; + HelpId = CMD_SID_SHOW_PROPERTYBROWSER ; + Text [ en-US ] = "Properties..."; + }; + }; +}; + +ImageList RID_IMGLST_LAYOUT +{ + Prefix = "im"; + MASKCOLOR + IdList = + { + IMGID_BRKENABLED ; + IMGID_BRKDISABLED ; + IMGID_STEPMARKER ; + IMGID_ERRORMARKER ; + }; +}; +Image RID_IMG_LOCKED +{ + ImageBitmap = Bitmap { File = "locked.bmp" ; }; + MASKCOLOR +}; + +Image RID_IMG_INSTALLATION +{ + ImageBitmap = Bitmap { File = "harddisk_16.png"; }; + MASKCOLOR +}; +Image RID_IMG_DOCUMENT +{ + ImageBitmap = Bitmap { File = "im30826.png"; }; + MASKCOLOR +}; +Image RID_IMG_MODLIB +{ + ImageBitmap = Bitmap { File = "im30820.png"; }; + MASKCOLOR +}; +Image RID_IMG_MODLIBNOTLOADED +{ + ImageBitmap = Bitmap { File = "im30827.png"; }; + MASKCOLOR +}; +Image RID_IMG_MODULE +{ + ImageBitmap = Bitmap { File = "im30821.png"; }; + MASKCOLOR +}; +Image RID_IMG_MACRO +{ + ImageBitmap = Bitmap { File = "im30822.png"; }; + MASKCOLOR +}; +Image RID_IMG_DLGLIB +{ + ImageBitmap = Bitmap { File = "dialogfolder_16.png"; }; + MASKCOLOR +}; +Image RID_IMG_DLGLIBNOTLOADED +{ + ImageBitmap = Bitmap { File = "dialogfoldernot_16.png"; }; + MASKCOLOR +}; +Image RID_IMG_DIALOG +{ + ImageBitmap = Bitmap { File = "im30823.png"; }; + MASKCOLOR +}; +String RID_STR_QUERYREPLACEMACRO +{ + Text [ en-US ] = "Do you want to overwrite the XX macro?" ; +}; + +String RID_STR_TRANSLATION_NOTLOCALIZED +{ + Text [ en-US ] = "<Not localized>" ; +}; + +String RID_STR_TRANSLATION_DEFAULT +{ + Text [ en-US ] = "[Default Language]" ; +}; + +String RID_STR_DOCUMENT_OBJECTS +{ + Text [ en-US ] = "Document Objects" ; +}; + +String RID_STR_USERFORMS +{ + Text [ en-US ] = "Forms" ; +}; + +String RID_STR_NORMAL_MODULES +{ + Text [ en-US ] = "Modules" ; +}; + +String RID_STR_CLASS_MODULES +{ + Text [ en-US ] = "Class Modules" ; +}; + +String RID_STR_DLGIMP_CLASH_RENAME +{ + Text [ en-US ] = "Rename" ; +}; + +String RID_STR_DLGIMP_CLASH_REPLACE +{ + Text [ en-US ] = "Replace" ; +}; + +String RID_STR_DLGIMP_CLASH_TITLE +{ + Text [ en-US ] = "Dialog Import - Name already used" ; +}; + +String RID_STR_DLGIMP_CLASH_TEXT +{ + Text [ en-US ] = "The library already contains a dialog with the name:\n\n$(ARG1)\n\nRename dialog to keep current dialog or replace existing dialog.\n " ; +}; + +String RID_STR_DLGIMP_MISMATCH_ADD +{ + Text [ en-US ] = "Add" ; +}; + +String RID_STR_DLGIMP_MISMATCH_OMIT +{ + Text [ en-US ] = "Omit" ; +}; + +String RID_STR_DLGIMP_MISMATCH_TITLE +{ + Text [ en-US ] = "Dialog Import - Language Mismatch" ; +}; + +String RID_STR_DLGIMP_MISMATCH_TEXT +{ + Text [ en-US ] = "The dialog to be imported supports other languages than the target library.\n\nAdd these languages to the library to keep additional language resources provided by the dialog or omit them to stay with the current library languages.\n\nNote: For languages not supported by the dialog the resources of the dialog's default language will be used.\n " ; +}; + + +#define MN_EDIT 20 +#define MN_VIEW 21 +#define MN_EXTRA 22 +#define MN_WIN 30 +#define MN_HELP 31 +#define MN_TEMPLATES 11 + +#define MN_PLEDIT 20 +#define MN_PLVIEW 21 +#define MN_PLEXTRA 22 +#define MN_PLWIN 30 +#define MN_PLHELP 31 +#define MN_PLTEMPLATES 11 + +/* + +The application menu bar resource has become obsolete. You can now find the menu bar definition at: +<project>/basicide/menubar/menubar.xml. + +*/ diff --git a/basctl/source/basicide/basobj2.cxx b/basctl/source/basicide/basobj2.cxx new file mode 100644 index 000000000000..c14f7688ff58 --- /dev/null +++ b/basctl/source/basicide/basobj2.cxx @@ -0,0 +1,458 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include <ide_pch.hxx> + +#include "basobj.hxx" +#include "iderdll.hxx" +#include "iderdll2.hxx" +#include "iderid.hxx" +#include "macrodlg.hxx" +#include "moduldlg.hxx" +#include "basidesh.hxx" +#include "basidesh.hrc" +#include "baside2.hxx" +#include "basicmod.hxx" +#include "basdoc.hxx" + +#include <com/sun/star/document/XEmbeddedScripts.hpp> +#include <com/sun/star/document/XScriptInvocationContext.hpp> + +#include <basic/sbx.hxx> +#include <framework/documentundoguard.hxx> +#include <tools/diagnose_ex.h> +#include <unotools/moduleoptions.hxx> + +#include <vector> +#include <algorithm> +#include <memory> + +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::container; + + +//---------------------------------------------------------------------------- + +extern "C" { + SAL_DLLPUBLIC_EXPORT rtl_uString* basicide_choose_macro( void* pOnlyInDocument_AsXModel, sal_Bool bChooseOnly, rtl_uString* pMacroDesc ) + { + ::rtl::OUString aMacroDesc( pMacroDesc ); + Reference< frame::XModel > aDocument( static_cast< frame::XModel* >( pOnlyInDocument_AsXModel ) ); + ::rtl::OUString aScriptURL = BasicIDE::ChooseMacro( aDocument, bChooseOnly, aMacroDesc ); + rtl_uString* pScriptURL = aScriptURL.pData; + rtl_uString_acquire( pScriptURL ); + + return pScriptURL; + } + SAL_DLLPUBLIC_EXPORT void basicide_macro_organizer( sal_Int16 nTabId ) + { + OSL_TRACE("in basicide_macro_organizer"); + BasicIDE::Organize( nTabId ); + } +} + +namespace BasicIDE +{ +//---------------------------------------------------------------------------- + +void Organize( sal_Int16 tabId ) +{ + BasicIDEDLL::Init(); + + BasicEntryDescriptor aDesc; + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + if ( pIDEShell ) + { + IDEBaseWindow* pCurWin = pIDEShell->GetCurWindow(); + if ( pCurWin ) + aDesc = pCurWin->CreateEntryDescriptor(); + } + + Window* pParent = Application::GetDefDialogParent(); + OrganizeDialog* pDlg = new OrganizeDialog( pParent, tabId, aDesc ); + pDlg->Execute(); + delete pDlg; +} + +//---------------------------------------------------------------------------- + +sal_Bool IsValidSbxName( const String& rName ) +{ + for ( sal_uInt16 nChar = 0; nChar < rName.Len(); nChar++ ) + { + sal_Bool bValid = ( ( rName.GetChar(nChar) >= 'A' && rName.GetChar(nChar) <= 'Z' ) || + ( rName.GetChar(nChar) >= 'a' && rName.GetChar(nChar) <= 'z' ) || + ( rName.GetChar(nChar) >= '0' && rName.GetChar(nChar) <= '9' && nChar ) || + ( rName.GetChar(nChar) == '_' ) ); + if ( !bValid ) + return sal_False; + } + return sal_True; +} + +static sal_Bool StringCompareLessThan( const String& rStr1, const String& rStr2 ) +{ + return (rStr1.CompareIgnoreCaseToAscii( rStr2 ) == COMPARE_LESS); +} + +//---------------------------------------------------------------------------- + +Sequence< ::rtl::OUString > GetMergedLibraryNames( const Reference< script::XLibraryContainer >& xModLibContainer, const Reference< script::XLibraryContainer >& xDlgLibContainer ) +{ + // create a sorted list of module library names + ::std::vector<String> aModLibList; + if ( xModLibContainer.is() ) + { + Sequence< ::rtl::OUString > aModLibNames = xModLibContainer->getElementNames(); + sal_Int32 nModLibCount = aModLibNames.getLength(); + const ::rtl::OUString* pModLibNames = aModLibNames.getConstArray(); + for ( sal_Int32 i = 0 ; i < nModLibCount ; i++ ) + aModLibList.push_back( pModLibNames[ i ] ); + ::std::sort( aModLibList.begin() , aModLibList.end() , StringCompareLessThan ); + } + + // create a sorted list of dialog library names + ::std::vector<String> aDlgLibList; + if ( xDlgLibContainer.is() ) + { + Sequence< ::rtl::OUString > aDlgLibNames = xDlgLibContainer->getElementNames(); + sal_Int32 nDlgLibCount = aDlgLibNames.getLength(); + const ::rtl::OUString* pDlgLibNames = aDlgLibNames.getConstArray(); + for ( sal_Int32 i = 0 ; i < nDlgLibCount ; i++ ) + aDlgLibList.push_back( pDlgLibNames[ i ] ); + ::std::sort( aDlgLibList.begin() , aDlgLibList.end() , StringCompareLessThan ); + } + + // merge both lists + ::std::vector<String> aLibList( aModLibList.size() + aDlgLibList.size() ); + ::std::merge( aModLibList.begin(), aModLibList.end(), aDlgLibList.begin(), aDlgLibList.end(), aLibList.begin(), StringCompareLessThan ); + ::std::vector<String>::iterator aIterEnd = ::std::unique( aLibList.begin(), aLibList.end() ); // move unique elements to the front + aLibList.erase( aIterEnd, aLibList.end() ); // remove duplicates + + // copy to sequence + sal_Int32 nLibCount = aLibList.size(); + Sequence< ::rtl::OUString > aSeqLibNames( nLibCount ); + for ( sal_Int32 i = 0 ; i < nLibCount ; i++ ) + aSeqLibNames.getArray()[ i ] = aLibList[ i ]; + + return aSeqLibNames; +} + +//---------------------------------------------------------------------------- + +bool RenameModule( Window* pErrorParent, const ScriptDocument& rDocument, const String& rLibName, const String& rOldName, const String& rNewName ) +{ + if ( !rDocument.hasModule( rLibName, rOldName ) ) + { + OSL_FAIL( "BasicIDE::RenameModule: old module name is invalid!" ); + return false; + } + + if ( rDocument.hasModule( rLibName, rNewName ) ) + { + ErrorBox aError( pErrorParent, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_SBXNAMEALLREADYUSED2 ) ) ); + aError.Execute(); + return false; + } + + // #i74440 + if ( rNewName.Len() == 0 ) + { + ErrorBox aError( pErrorParent, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_BADSBXNAME ) ) ); + aError.Execute(); + return false; + } + + if ( !rDocument.renameModule( rLibName, rOldName, rNewName ) ) + return false; + + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + if ( pIDEShell ) + { + IDEBaseWindow* pWin = pIDEShell->FindWindow( rDocument, rLibName, rNewName, BASICIDE_TYPE_MODULE, sal_True ); + if ( pWin ) + { + // set new name in window + pWin->SetName( rNewName ); + + // set new module in module window + ModulWindow* pModWin = (ModulWindow*)pWin; + pModWin->SetSbModule( (SbModule*)pModWin->GetBasic()->FindModule( rNewName ) ); + + // update tabwriter + sal_uInt16 nId = (sal_uInt16)(pIDEShell->GetIDEWindowTable()).GetKey( pWin ); + DBG_ASSERT( nId, "No entry in Tabbar!" ); + if ( nId ) + { + BasicIDETabBar* pTabBar = (BasicIDETabBar*)pIDEShell->GetTabBar(); + pTabBar->SetPageText( nId, rNewName ); + pTabBar->Sort(); + pTabBar->MakeVisible( pTabBar->GetCurPageId() ); + } + } + } + return true; +} + + +//---------------------------------------------------------------------------- + +namespace +{ + struct MacroExecutionData + { + ScriptDocument aDocument; + SbMethodRef xMethod; + + MacroExecutionData() + :aDocument( ScriptDocument::NoDocument ) + ,xMethod( NULL ) + { + } + }; + + class MacroExecution + { + public: + DECL_STATIC_LINK( MacroExecution, ExecuteMacroEvent, MacroExecutionData* ); + }; + + + IMPL_STATIC_LINK( MacroExecution, ExecuteMacroEvent, MacroExecutionData*, i_pData ) + { + (void)pThis; + ENSURE_OR_RETURN( i_pData, "wrong MacroExecutionData", 0L ); + // take ownership of the data + ::std::auto_ptr< MacroExecutionData > pData( i_pData ); + + DBG_ASSERT( pData->xMethod->GetParent()->GetFlags() & SBX_EXTSEARCH, "Kein EXTSEARCH!" ); + + // in case this is a document-local macro, try to protect the document's Undo Manager from + // flawed scripts + ::std::auto_ptr< ::framework::DocumentUndoGuard > pUndoGuard; + if ( pData->aDocument.isDocument() ) + pUndoGuard.reset( new ::framework::DocumentUndoGuard( pData->aDocument.getDocument() ) ); + + BasicIDE::RunMethod( pData->xMethod ); + + return 1L; + } +} + +//---------------------------------------------------------------------------- + +::rtl::OUString ChooseMacro( const uno::Reference< frame::XModel >& rxLimitToDocument, sal_Bool bChooseOnly, const ::rtl::OUString& rMacroDesc ) +{ + (void)rMacroDesc; + + BasicIDEDLL::Init(); + + IDE_DLL()->GetExtraData()->ChoosingMacro() = sal_True; + + String aScriptURL; + sal_Bool bError = sal_False; + SbMethod* pMethod = NULL; + + ::std::auto_ptr< MacroChooser > pChooser( new MacroChooser( NULL, sal_True ) ); + if ( bChooseOnly || !SvtModuleOptions().IsBasicIDE() ) + pChooser->SetMode( MACROCHOOSER_CHOOSEONLY ); + + if ( !bChooseOnly && rxLimitToDocument.is() ) + // Hack! + pChooser->SetMode( MACROCHOOSER_RECORDING ); + + short nRetValue = pChooser->Execute(); + + IDE_DLL()->GetExtraData()->ChoosingMacro() = sal_False; + + switch ( nRetValue ) + { + case MACRO_OK_RUN: + { + pMethod = pChooser->GetMacro(); + if ( !pMethod && pChooser->GetMode() == MACROCHOOSER_RECORDING ) + pMethod = pChooser->CreateMacro(); + + if ( !pMethod ) + break; + + SbModule* pModule = pMethod->GetModule(); + ENSURE_OR_BREAK( pModule, "BasicIDE::ChooseMacro: No Module found!" ); + + StarBASIC* pBasic = (StarBASIC*)pModule->GetParent(); + ENSURE_OR_BREAK( pBasic, "BasicIDE::ChooseMacro: No Basic found!" ); + + BasicManager* pBasMgr = BasicIDE::FindBasicManager( pBasic ); + ENSURE_OR_BREAK( pBasMgr, "BasicIDE::ChooseMacro: No BasicManager found!" ); + + // name + String aName; + aName += pBasic->GetName(); + aName += '.'; + aName += pModule->GetName(); + aName += '.'; + aName += pMethod->GetName(); + + // language + String aLanguage = String::CreateFromAscii("Basic"); + + // location + String aLocation; + ScriptDocument aDocument( ScriptDocument::getDocumentForBasicManager( pBasMgr ) ); + if ( aDocument.isDocument() ) + { + // document basic + aLocation = String::CreateFromAscii("document"); + + if ( rxLimitToDocument.is() ) + { + uno::Reference< frame::XModel > xLimitToDocument( rxLimitToDocument ); + + uno::Reference< document::XEmbeddedScripts > xScripts( rxLimitToDocument, UNO_QUERY ); + if ( !xScripts.is() ) + { // the document itself does not support embedding scripts + uno::Reference< document::XScriptInvocationContext > xContext( rxLimitToDocument, UNO_QUERY ); + if ( xContext.is() ) + xScripts = xContext->getScriptContainer(); + if ( xScripts.is() ) + { // but it is able to refer to a document which actually does support this + xLimitToDocument.set( xScripts, UNO_QUERY ); + if ( !xLimitToDocument.is() ) + { + OSL_ENSURE( false, "BasicIDE::ChooseMacro: a script container which is no document!?" ); + xLimitToDocument = rxLimitToDocument; + } + } + } + + if ( xLimitToDocument != aDocument.getDocument() ) + { + // error + bError = sal_True; + ErrorBox( NULL, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_ERRORCHOOSEMACRO ) ) ).Execute(); + } + } + } + else + { + // application basic + aLocation = String::CreateFromAscii("application"); + } + + // script URL + if ( !bError ) + { + aScriptURL = String::CreateFromAscii("vnd.sun.star.script:"); + aScriptURL += aName; + aScriptURL += String::CreateFromAscii("?language="); + aScriptURL += aLanguage; + aScriptURL += String::CreateFromAscii("&location="); + aScriptURL += aLocation; + } + + if ( !rxLimitToDocument.is() ) + { + MacroExecutionData* pExecData = new MacroExecutionData; + pExecData->aDocument = aDocument; + pExecData->xMethod = pMethod; // keep alive until the event has been processed + Application::PostUserEvent( STATIC_LINK( NULL, MacroExecution, ExecuteMacroEvent ), pExecData ); + } + } + break; + } + + return aScriptURL; +} + +//---------------------------------------------------------------------------- + +Sequence< ::rtl::OUString > GetMethodNames( const ScriptDocument& rDocument, const String& rLibName, const String& rModName ) + throw(NoSuchElementException ) +{ + Sequence< ::rtl::OUString > aSeqMethods; + + // get module + ::rtl::OUString aOUSource; + if ( rDocument.getModule( rLibName, rModName, aOUSource ) ) + { + SbModuleRef xModule = new SbModule( rModName ); + xModule->SetSource32( aOUSource ); + sal_uInt16 nCount = xModule->GetMethods()->Count(); + sal_uInt16 nRealCount = nCount; + for ( sal_uInt16 i = 0; i < nCount; i++ ) + { + SbMethod* pMethod = (SbMethod*)xModule->GetMethods()->Get( i ); + if( pMethod->IsHidden() ) + --nRealCount; + } + aSeqMethods.realloc( nRealCount ); + + sal_uInt16 iTarget = 0; + for ( sal_uInt16 i = 0 ; i < nCount; ++i ) + { + SbMethod* pMethod = (SbMethod*)xModule->GetMethods()->Get( i ); + if( pMethod->IsHidden() ) + continue; + DBG_ASSERT( pMethod, "Method not found! (NULL)" ); + aSeqMethods.getArray()[ iTarget++ ] = pMethod->GetName(); + } + } + + return aSeqMethods; +} + +//---------------------------------------------------------------------------- + +sal_Bool HasMethod( const ScriptDocument& rDocument, const String& rLibName, const String& rModName, const String& rMethName ) +{ + sal_Bool bHasMethod = sal_False; + + ::rtl::OUString aOUSource; + if ( rDocument.hasModule( rLibName, rModName ) && rDocument.getModule( rLibName, rModName, aOUSource ) ) + { + SbModuleRef xModule = new SbModule( rModName ); + xModule->SetSource32( aOUSource ); + SbxArray* pMethods = xModule->GetMethods(); + if ( pMethods ) + { + SbMethod* pMethod = (SbMethod*)pMethods->Find( rMethName, SbxCLASS_METHOD ); + if ( pMethod && !pMethod->IsHidden() ) + bHasMethod = sal_True; + } + } + + return bHasMethod; +} +} //namespace BasicIDE +//---------------------------------------------------------------------------- + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/basobj3.cxx b/basctl/source/basicide/basobj3.cxx new file mode 100644 index 000000000000..ff27f5452ae2 --- /dev/null +++ b/basctl/source/basicide/basobj3.cxx @@ -0,0 +1,519 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include <ide_pch.hxx> + +#include <vector> +#include <algorithm> +#include <basic/sbx.hxx> +#include <unotools/moduleoptions.hxx> + +#include <iderdll.hxx> +#include <iderdll2.hxx> +#include <basobj.hxx> +#include <basidesh.hxx> +#include <objdlg.hxx> +#include <bastypes.hxx> +#include <basdoc.hxx> +#include <basidesh.hrc> + +#include <baside2.hxx> +#include <baside3.hxx> +#include <basicmod.hxx> +#include <localizationmgr.hxx> +#include "dlged.hxx" +#include <dlgeddef.hxx> +#include <comphelper/processfactory.hxx> +#include <com/sun/star/script/XLibraryContainer.hpp> +#include <com/sun/star/script/XLibraryContainerPassword.hpp> +#include <com/sun/star/container/XNameContainer.hpp> +#include <xmlscript/xmldlg_imexp.hxx> +#include <rtl/uri.hxx> +#include <osl/process.h> +#include <osl/file.hxx> + +using namespace comphelper; +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::container; + + +//---------------------------------------------------------------------------- + +extern "C" { + SAL_DLLPUBLIC_EXPORT long basicide_handle_basic_error( void* pPtr ) + { + return BasicIDE::HandleBasicError( (StarBASIC*)pPtr ); + } +} + +namespace BasicIDE +{ +//---------------------------------------------------------------------------- + +SbMethod* CreateMacro( SbModule* pModule, const String& rMacroName ) +{ + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + + if( pDispatcher ) + { + pDispatcher->Execute( SID_BASICIDE_STOREALLMODULESOURCES ); + } + + if ( pModule->GetMethods()->Find( rMacroName, SbxCLASS_METHOD ) ) + return 0; + + String aMacroName( rMacroName ); + if ( aMacroName.Len() == 0 ) + { + if ( !pModule->GetMethods()->Count() ) + aMacroName = String( RTL_CONSTASCII_USTRINGPARAM( "Main" ) ); + else + { + sal_Bool bValid = sal_False; + String aStdMacroText( RTL_CONSTASCII_USTRINGPARAM( "Macro" ) ); + sal_uInt16 nMacro = 1; + while ( !bValid ) + { + aMacroName = aStdMacroText; + aMacroName += String::CreateFromInt32( nMacro ); + // Pruefen, ob vorhanden... + bValid = pModule->GetMethods()->Find( aMacroName, SbxCLASS_METHOD ) ? sal_False : sal_True; + nMacro++; + } + } + } + + ::rtl::OUString aOUSource( pModule->GetSource32() ); + + // Nicht zu viele Leerzeilen erzeugen... + sal_Int32 nSourceLen = aOUSource.getLength(); + if ( nSourceLen > 2 ) + { + const sal_Unicode* pStr = aOUSource.getStr(); + if ( pStr[ nSourceLen - 1 ] != LINE_SEP ) + aOUSource += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "\n\n" ) ); + else if ( pStr[ nSourceLen - 2 ] != LINE_SEP ) + aOUSource += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "\n" ) ); + else if ( pStr[ nSourceLen - 3 ] == LINE_SEP ) + aOUSource = aOUSource.copy( 0, nSourceLen-1 ); + } + + ::rtl::OUString aSubStr; + aSubStr = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Sub " ) ); + aSubStr += aMacroName; + aSubStr += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "\n\nEnd Sub" ) ); + + aOUSource += aSubStr; + + // update module in library + ScriptDocument aDocument( ScriptDocument::NoDocument ); + SbxObject* pParent = pModule->GetParent(); + StarBASIC* pBasic = PTR_CAST(StarBASIC,pParent); + DBG_ASSERT(pBasic, "BasicIDE::CreateMacro: No Basic found!"); + if ( pBasic ) + { + BasicManager* pBasMgr = BasicIDE::FindBasicManager( pBasic ); + DBG_ASSERT(pBasMgr, "BasicIDE::CreateMacro: No BasicManager found!"); + if ( pBasMgr ) + { + aDocument = ScriptDocument::getDocumentForBasicManager( pBasMgr ); + OSL_ENSURE( aDocument.isValid(), "BasicIDE::CreateMacro: no document for the given BasicManager!" ); + if ( aDocument.isValid() ) + { + String aLibName = pBasic->GetName(); + String aModName = pModule->GetName(); + OSL_VERIFY( aDocument.updateModule( aLibName, aModName, aOUSource ) ); + } + } + } + + SbMethod* pMethod = (SbMethod*)pModule->GetMethods()->Find( aMacroName, SbxCLASS_METHOD ); + + if( pDispatcher ) + { + pDispatcher->Execute( SID_BASICIDE_UPDATEALLMODULESOURCES ); + } + + if ( aDocument.isAlive() ) + BasicIDE::MarkDocumentModified( aDocument ); + + return pMethod; +} + +//---------------------------------------------------------------------------- + +bool RenameDialog( Window* pErrorParent, const ScriptDocument& rDocument, const String& rLibName, const String& rOldName, const String& rNewName ) + throw(ElementExistException, NoSuchElementException) +{ + if ( !rDocument.hasDialog( rLibName, rOldName ) ) + { + OSL_FAIL( "BasicIDE::RenameDialog: old module name is invalid!" ); + return false; + } + + if ( rDocument.hasDialog( rLibName, rNewName ) ) + { + ErrorBox aError( pErrorParent, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_SBXNAMEALLREADYUSED2 ) ) ); + aError.Execute(); + return false; + } + + // #i74440 + if ( rNewName.Len() == 0 ) + { + ErrorBox aError( pErrorParent, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_BADSBXNAME ) ) ); + aError.Execute(); + return false; + } + + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + IDEBaseWindow* pWin = pIDEShell ? pIDEShell->FindWindow( rDocument, rLibName, rOldName, BASICIDE_TYPE_DIALOG, sal_False ) : NULL; + Reference< XNameContainer > xExistingDialog; + if ( pWin ) + xExistingDialog = ((DialogWindow*)pWin)->GetEditor()->GetDialog(); + + if ( xExistingDialog.is() ) + LocalizationMgr::renameStringResourceIDs( rDocument, rLibName, rNewName, xExistingDialog ); + + if ( !rDocument.renameDialog( rLibName, rOldName, rNewName, xExistingDialog ) ) + return false; + + if ( pWin ) + { + // set new name in window + pWin->SetName( rNewName ); + + // update property browser + ((DialogWindow*)pWin)->UpdateBrowser(); + + // update tabwriter + sal_uInt16 nId = (sal_uInt16)(pIDEShell->GetIDEWindowTable()).GetKey( pWin ); + DBG_ASSERT( nId, "No entry in Tabbar!" ); + if ( nId ) + { + BasicIDETabBar* pTabBar = (BasicIDETabBar*)pIDEShell->GetTabBar(); + pTabBar->SetPageText( nId, rNewName ); + pTabBar->Sort(); + pTabBar->MakeVisible( pTabBar->GetCurPageId() ); + } + } + return true; +} + +//---------------------------------------------------------------------------- + +bool RemoveDialog( const ScriptDocument& rDocument, const String& rLibName, const String& rDlgName ) +{ + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + if ( pIDEShell ) + { + DialogWindow* pDlgWin = pIDEShell->FindDlgWin( rDocument, rLibName, rDlgName, sal_False ); + if( pDlgWin ) + { + Reference< container::XNameContainer > xDialogModel = pDlgWin->GetDialog(); + LocalizationMgr::removeResourceForDialog( rDocument, rLibName, rDlgName, xDialogModel ); + } + } + + return rDocument.removeDialog( rLibName, rDlgName ); +} + +//---------------------------------------------------------------------------- + +StarBASIC* FindBasic( const SbxVariable* pVar ) +{ + const SbxVariable* pSbx = pVar; + while ( pSbx && !pSbx->ISA( StarBASIC ) ) + pSbx = pSbx->GetParent(); + + DBG_ASSERT( !pSbx || pSbx->ISA( StarBASIC ), "Find Basic: Kein Basic!" ); + return (StarBASIC*)pSbx; +} + +//---------------------------------------------------------------------------- + +BasicManager* FindBasicManager( StarBASIC* pLib ) +{ + ScriptDocuments aDocuments( ScriptDocument::getAllScriptDocuments( ScriptDocument::AllWithApplication ) ); + for ( ScriptDocuments::const_iterator doc = aDocuments.begin(); + doc != aDocuments.end(); + ++doc + ) + { + BasicManager* pBasicMgr = doc->getBasicManager(); + OSL_ENSURE( pBasicMgr, "BasicIDE::FindBasicManager: no basic manager for the document!" ); + if ( !pBasicMgr ) + continue; + + Sequence< ::rtl::OUString > aLibNames( doc->getLibraryNames() ); + sal_Int32 nLibCount = aLibNames.getLength(); + const ::rtl::OUString* pLibNames = aLibNames.getConstArray(); + + for ( sal_Int32 i = 0 ; i < nLibCount ; i++ ) + { + StarBASIC* pL = pBasicMgr->GetLib( pLibNames[ i ] ); + if ( pL == pLib ) + return pBasicMgr; + } + } + return NULL; +} + +//---------------------------------------------------------------------------- + +void MarkDocumentModified( const ScriptDocument& rDocument ) +{ + // Muss ja nicht aus einem Document kommen... + if ( rDocument.isApplication() ) + { + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + if ( pIDEShell ) + pIDEShell->SetAppBasicModified(); + } + else + { + rDocument.setDocumentModified(); + } + + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + { + pBindings->Invalidate( SID_SIGNATURE ); + pBindings->Invalidate( SID_SAVEDOC ); + pBindings->Update( SID_SAVEDOC ); + } + + // Objectcatalog updaten... + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + ObjectCatalog* pObjCatalog = pIDEShell ? pIDEShell->GetObjectCatalog() : 0; + if ( pObjCatalog ) + pObjCatalog->UpdateEntries(); +} + +//---------------------------------------------------------------------------- + +void RunMethod( SbMethod* pMethod ) +{ + SbxValues aRes; + aRes.eType = SbxVOID; + pMethod->Get( aRes ); +} + +//---------------------------------------------------------------------------- + +void StopBasic() +{ + StarBASIC::Stop(); + BasicIDEShell* pShell = IDE_DLL()->GetShell(); + if ( pShell ) + { + IDEWindowTable& rWindows = pShell->GetIDEWindowTable(); + IDEBaseWindow* pWin = rWindows.First(); + while ( pWin ) + { + // BasicStopped von Hand rufen, da das Stop-Notify ggf. sonst nicht + // durchkommen kann. + pWin->BasicStopped(); + pWin = rWindows.Next(); + } + } + BasicIDE::BasicStopped(); +} + +//---------------------------------------------------------------------------- + +void BasicStopped( sal_Bool* pbAppWindowDisabled, + sal_Bool* pbDispatcherLocked, sal_uInt16* pnWaitCount, + SfxUInt16Item** ppSWActionCount, SfxUInt16Item** ppSWLockViewCount ) +{ + // Nach einem Error oder dem expliziten abbrechen des Basics muessen + // ggf. einige Locks entfernt werden... + + if ( pbAppWindowDisabled ) + *pbAppWindowDisabled = sal_False; + if ( pbDispatcherLocked ) + *pbDispatcherLocked = sal_False; + if ( pnWaitCount ) + *pnWaitCount = 0; + if ( ppSWActionCount ) + *ppSWActionCount = 0; + if ( ppSWLockViewCount ) + *ppSWLockViewCount = 0; + + // AppWait ? + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + if( pIDEShell ) + { + sal_uInt16 nWait = 0; + while ( pIDEShell->GetViewFrame()->GetWindow().IsWait() ) + { + pIDEShell->GetViewFrame()->GetWindow().LeaveWait(); + nWait++; + } + if ( pnWaitCount ) + *pnWaitCount = nWait; + } + + Window* pDefParent = Application::GetDefDialogParent(); + if ( pDefParent && !pDefParent->IsEnabled() ) + { + pDefParent->Enable( sal_True ); + if ( pbAppWindowDisabled ) + *pbAppWindowDisabled = sal_True; + } + +} + +//---------------------------------------------------------------------------- + +void InvalidateDebuggerSlots() +{ + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + { + pBindings->Invalidate( SID_BASICSTOP ); + pBindings->Update( SID_BASICSTOP ); + pBindings->Invalidate( SID_BASICRUN ); + pBindings->Update( SID_BASICRUN ); + pBindings->Invalidate( SID_BASICCOMPILE ); + pBindings->Update( SID_BASICCOMPILE ); + pBindings->Invalidate( SID_BASICSTEPOVER ); + pBindings->Update( SID_BASICSTEPOVER ); + pBindings->Invalidate( SID_BASICSTEPINTO ); + pBindings->Update( SID_BASICSTEPINTO ); + pBindings->Invalidate( SID_BASICSTEPOUT ); + pBindings->Update( SID_BASICSTEPOUT ); + pBindings->Invalidate( SID_BASICIDE_TOGGLEBRKPNT ); + pBindings->Update( SID_BASICIDE_TOGGLEBRKPNT ); + pBindings->Invalidate( SID_BASICIDE_STAT_POS ); + pBindings->Update( SID_BASICIDE_STAT_POS ); + } +} + +//---------------------------------------------------------------------------- + +long HandleBasicError( StarBASIC* pBasic ) +{ + BasicIDEDLL::Init(); + BasicIDE::BasicStopped(); + + // no error output during macro choosing + if ( IDE_DLL()->GetExtraData()->ChoosingMacro() ) + return 1; + if ( IDE_DLL()->GetExtraData()->ShellInCriticalSection() ) + return 2; + + long nRet = 0; + BasicIDEShell* pIDEShell = 0; + if ( SvtModuleOptions().IsBasicIDE() ) + { + BasicManager* pBasMgr = BasicIDE::FindBasicManager( pBasic ); + if ( pBasMgr ) + { + sal_Bool bProtected = sal_False; + ScriptDocument aDocument( ScriptDocument::getDocumentForBasicManager( pBasMgr ) ); + OSL_ENSURE( aDocument.isValid(), "BasicIDE::HandleBasicError: no document for the given BasicManager!" ); + if ( aDocument.isValid() ) + { + ::rtl::OUString aOULibName( pBasic->GetName() ); + Reference< script::XLibraryContainer > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ) ); + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) ) + { + Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); + if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aOULibName ) && !xPasswd->isLibraryPasswordVerified( aOULibName ) ) + { + bProtected = sal_True; + } + } + } + + if ( !bProtected ) + { + pIDEShell = IDE_DLL()->GetShell(); + if ( !pIDEShell ) + { + SfxAllItemSet aArgs( SFX_APP()->GetPool() ); + SfxRequest aRequest( SID_BASICIDE_APPEAR, SFX_CALLMODE_SYNCHRON, aArgs ); + SFX_APP()->ExecuteSlot( aRequest ); + pIDEShell = IDE_DLL()->GetShell(); + } + } + } + } + + if ( pIDEShell ) + nRet = pIDEShell->CallBasicErrorHdl( pBasic ); + else + ErrorHandler::HandleError( StarBASIC::GetErrorCode() ); + + return nRet; +} + +//---------------------------------------------------------------------------- + +SfxBindings* GetBindingsPtr() +{ + SfxBindings* pBindings = NULL; + + SfxViewFrame* pFrame = NULL; + BasicIDEDLL* pIDEDLL = IDE_DLL(); + if ( pIDEDLL && pIDEDLL->GetShell() ) + { + pFrame = pIDEDLL->GetShell()->GetViewFrame(); + } + else + { + SfxViewFrame* pView = SfxViewFrame::GetFirst(); + while ( pView ) + { + SfxObjectShell* pObjShell = pView->GetObjectShell(); + if ( pObjShell && pObjShell->ISA( BasicDocShell ) ) + { + pFrame = pView; + break; + } + pView = SfxViewFrame::GetNext( *pView ); + } + } + if ( pFrame != NULL ) + pBindings = &pFrame->GetBindings(); + + return pBindings; +} + +} //namespace BasicIDE + +//---------------------------------------------------------------------------- + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/bastype2.cxx b/basctl/source/basicide/bastype2.cxx new file mode 100644 index 000000000000..1fd2953c5175 --- /dev/null +++ b/basctl/source/basicide/bastype2.cxx @@ -0,0 +1,880 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include <memory> + +#include "vcl/bitmap.hxx" + +#include <ide_pch.hxx> + + +#include <basidesh.hrc> +#include <bastypes.hxx> +#include <bastype2.hxx> +#include <basobj.hxx> +#include <baside2.hrc> +#include <iderid.hxx> +#include <tools/urlobj.hxx> +#include <tools/diagnose_ex.h> +#include <basic/sbx.hxx> +#include <svtools/imagemgr.hxx> +#include <com/sun/star/script/XLibraryContainer.hpp> +#include <com/sun/star/script/XLibraryContainerPassword.hpp> +#include <com/sun/star/frame/XModuleManager.hpp> +#include <comphelper/processfactory.hxx> +#include <comphelper/componentcontext.hxx> +#include <map> +#include <com/sun/star/script/ModuleType.hpp> +#include <com/sun/star/script/vba/XVBAModuleInfo.hpp> +#include <com/sun/star/container/XNameContainer.hpp> +#include <com/sun/star/lang/XServiceInfo.hpp> +#include <com/sun/star/container/XNamed.hpp> + +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star; + +void ModuleInfoHelper::getObjectName( const uno::Reference< container::XNameContainer >& rLib, const String& rModName, String& rObjName ) +{ + try + { + uno::Reference< script::vba::XVBAModuleInfo > xVBAModuleInfo( rLib, uno::UNO_QUERY ); + if ( xVBAModuleInfo.is() && xVBAModuleInfo->hasModuleInfo( rModName ) ) + { + script::ModuleInfo aModuleInfo = xVBAModuleInfo->getModuleInfo( rModName ); + uno::Any aObject( aModuleInfo.ModuleObject ); + uno::Reference< lang::XServiceInfo > xServiceInfo( aObject, uno::UNO_QUERY ); + if( xServiceInfo.is() && xServiceInfo->supportsService( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "ooo.vba.excel.Worksheet" )) ) ) + { + uno::Reference< container::XNamed > xNamed( aObject, uno::UNO_QUERY ); + if( xNamed.is() ) + rObjName = xNamed->getName(); + } + } + } + catch( uno::Exception& ) + { + } +} + +sal_Int32 ModuleInfoHelper::getModuleType( const uno::Reference< container::XNameContainer >& rLib, const String& rModName ) +{ + sal_Int32 nType = script::ModuleType::NORMAL; + uno::Reference< script::vba::XVBAModuleInfo > xVBAModuleInfo( rLib, uno::UNO_QUERY ); + if ( xVBAModuleInfo.is() && xVBAModuleInfo->hasModuleInfo( rModName ) ) + { + script::ModuleInfo aModuleInfo = xVBAModuleInfo->getModuleInfo( rModName ); + nType = aModuleInfo.ModuleType; + } + return nType; +} + +BasicEntry::~BasicEntry() +{ +} + +BasicDocumentEntry::BasicDocumentEntry( const ScriptDocument& rDocument, LibraryLocation eLocation, BasicEntryType eType ) + :BasicEntry( eType ) + ,m_aDocument( rDocument ) + ,m_eLocation( eLocation ) +{ + OSL_ENSURE( m_aDocument.isValid(), "BasicDocumentEntry::BasicDocumentEntry: illegal document!" ); +} + +BasicDocumentEntry::~BasicDocumentEntry() +{ +} + +BasicLibEntry::BasicLibEntry( const ScriptDocument& rDocument, LibraryLocation eLocation, const String& rLibName, BasicEntryType eType ) + :BasicDocumentEntry( rDocument, eLocation, eType ) + ,m_aLibName( rLibName ) +{ +} + +BasicLibEntry::~BasicLibEntry() +{ +} + +BasicEntryDescriptor::BasicEntryDescriptor() + :m_aDocument( ScriptDocument::getApplicationScriptDocument() ) + ,m_eLocation( LIBRARY_LOCATION_UNKNOWN ) + ,m_eType( OBJ_TYPE_UNKNOWN ) +{ +} + +BasicEntryDescriptor::BasicEntryDescriptor( const ScriptDocument& rDocument, LibraryLocation eLocation, const String& rLibName, const String& rLibSubName, const String& rName, BasicEntryType eType ) + :m_aDocument( rDocument ) + ,m_eLocation( eLocation ) + ,m_aLibName( rLibName ) + ,m_aLibSubName( rLibSubName ) + ,m_aName( rName ) + ,m_eType( eType ) +{ + OSL_ENSURE( m_aDocument.isValid(), "BasicEntryDescriptor::BasicEntryDescriptor: invalid document!" ); +} + +BasicEntryDescriptor::BasicEntryDescriptor( const ScriptDocument& rDocument, LibraryLocation eLocation, const String& rLibName, const String& rLibSubName, const String& rName, const String& rMethodName, BasicEntryType eType ) + :m_aDocument( rDocument ) + ,m_eLocation( eLocation ) + ,m_aLibName( rLibName ) + ,m_aLibSubName( rLibSubName ) + ,m_aName( rName ) + ,m_aMethodName( rMethodName ) + ,m_eType( eType ) +{ + OSL_ENSURE( m_aDocument.isValid(), "BasicEntryDescriptor::BasicEntryDescriptor: invalid document!" ); +} + +BasicEntryDescriptor::~BasicEntryDescriptor() +{ +} + +BasicEntryDescriptor::BasicEntryDescriptor( const BasicEntryDescriptor& rDesc ) + :m_aDocument( rDesc.m_aDocument ) + ,m_eLocation( rDesc.m_eLocation ) + ,m_aLibName( rDesc.m_aLibName ) + ,m_aLibSubName( rDesc.m_aLibSubName ) + ,m_aName( rDesc.m_aName ) + ,m_aMethodName( rDesc.m_aMethodName ) + ,m_eType( rDesc.m_eType ) +{ +} + +BasicEntryDescriptor& BasicEntryDescriptor::operator=( const BasicEntryDescriptor& rDesc ) +{ + m_aDocument = rDesc.m_aDocument; + m_eLocation = rDesc.m_eLocation; + m_aLibName = rDesc.m_aLibName; + m_aLibSubName = rDesc.m_aLibSubName; + m_aName = rDesc.m_aName; + m_aMethodName = rDesc.m_aMethodName; + m_eType = rDesc.m_eType; + + return *this; +} + +bool BasicEntryDescriptor::operator==( const BasicEntryDescriptor& rDesc ) const +{ + return m_aDocument == rDesc.m_aDocument && + m_eLocation == rDesc.m_eLocation && + m_aLibName == rDesc.m_aLibName && + m_aLibSubName == rDesc.m_aLibSubName && + m_aName == rDesc.m_aName && + m_aMethodName == rDesc.m_aMethodName && + m_eType == rDesc.m_eType; +} + +BasicTreeListBox::BasicTreeListBox( Window* pParent, const ResId& rRes ) : + SvTreeListBox( pParent, IDEResId( sal::static_int_cast<sal_uInt16>( rRes.GetId() ) ) ), + m_aNotifier( *this ) +{ + SetNodeDefaultImages(); + SetSelectionMode( SINGLE_SELECTION ); + nMode = 0xFF; // Alles +} + + + +BasicTreeListBox::~BasicTreeListBox() +{ + m_aNotifier.dispose(); + + // UserDaten zerstoeren + SvLBoxEntry* pEntry = First(); + while ( pEntry ) + { + delete (BasicEntry*)pEntry->GetUserData(); + pEntry = Next( pEntry ); + } +} + +void BasicTreeListBox::ScanEntry( const ScriptDocument& rDocument, LibraryLocation eLocation ) +{ + OSL_ENSURE( rDocument.isAlive(), "BasicTreeListBox::ScanEntry: illegal document!" ); + if ( !rDocument.isAlive() ) + return; + + // can be called multiple times for updating! + + // eigentlich prueffen, ob Basic bereits im Baum ?! + SetUpdateMode( sal_False ); + + // level 1: BasicManager (application, document, ...) + SvLBoxEntry* pDocumentRootEntry = FindRootEntry( rDocument, eLocation ); + if ( pDocumentRootEntry && IsExpanded( pDocumentRootEntry ) ) + ImpCreateLibEntries( pDocumentRootEntry, rDocument, eLocation ); + if ( !pDocumentRootEntry ) + { + String aRootName( GetRootEntryName( rDocument, eLocation ) ); + Image aImage; + GetRootEntryBitmaps( rDocument, aImage ); + pDocumentRootEntry = AddEntry( + aRootName, + aImage, + 0, true, + std::auto_ptr< BasicEntry >( new BasicDocumentEntry( rDocument, eLocation ) ) ); + } + + SetUpdateMode( sal_True ); +} + +void BasicTreeListBox::ImpCreateLibEntries( SvLBoxEntry* pDocumentRootEntry, const ScriptDocument& rDocument, LibraryLocation eLocation ) +{ + // get a sorted list of library names + Sequence< ::rtl::OUString > aLibNames( rDocument.getLibraryNames() ); + sal_Int32 nLibCount = aLibNames.getLength(); + const ::rtl::OUString* pLibNames = aLibNames.getConstArray(); + + for ( sal_Int32 i = 0 ; i < nLibCount ; i++ ) + { + String aLibName = pLibNames[ i ]; + + if ( eLocation == rDocument.getLibraryLocation( aLibName ) ) + { + // check, if the module library is loaded + sal_Bool bModLibLoaded = sal_False; + ::rtl::OUString aOULibName( aLibName ); + Reference< script::XLibraryContainer > xModLibContainer( rDocument.getLibraryContainer( E_SCRIPTS ) ); + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryLoaded( aOULibName ) ) + bModLibLoaded = sal_True; + + // check, if the dialog library is loaded + sal_Bool bDlgLibLoaded = sal_False; + Reference< script::XLibraryContainer > xDlgLibContainer( rDocument.getLibraryContainer( E_DIALOGS ) ); + if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryLoaded( aOULibName ) ) + bDlgLibLoaded = sal_True; + + sal_Bool bLoaded = bModLibLoaded || bDlgLibLoaded; + + // if only one of the libraries is loaded, load also the other + if ( bLoaded ) + { + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && !xModLibContainer->isLibraryLoaded( aOULibName ) ) + xModLibContainer->loadLibrary( aOULibName ); + + if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && !xDlgLibContainer->isLibraryLoaded( aOULibName ) ) + xDlgLibContainer->loadLibrary( aOULibName ); + } + + // create tree list box entry + sal_uInt16 nId; + if ( ( nMode & BROWSEMODE_DIALOGS ) && !( nMode & BROWSEMODE_MODULES ) ) + nId = bLoaded ? RID_IMG_DLGLIB : RID_IMG_DLGLIBNOTLOADED; + else + nId = bLoaded ? RID_IMG_MODLIB : RID_IMG_MODLIBNOTLOADED; + SvLBoxEntry* pLibRootEntry = FindEntry( pDocumentRootEntry, aLibName, OBJ_TYPE_LIBRARY ); + if ( pLibRootEntry ) + { + SetEntryBitmaps( pLibRootEntry, Image( IDEResId( nId ) ) ); + if ( IsExpanded( pLibRootEntry ) ) + ImpCreateLibSubEntries( pLibRootEntry, rDocument, aLibName ); + } + else + { + pLibRootEntry = AddEntry( + aLibName, + Image( IDEResId( nId ) ), + pDocumentRootEntry, true, + std::auto_ptr< BasicEntry >( new BasicEntry( OBJ_TYPE_LIBRARY ) ) ); + } + } + } +} + +void BasicTreeListBox::ImpCreateLibSubEntries( SvLBoxEntry* pLibRootEntry, const ScriptDocument& rDocument, const String& rLibName ) +{ + ::rtl::OUString aOULibName( rLibName ); + + // modules + if ( nMode & BROWSEMODE_MODULES ) + { + Reference< script::XLibraryContainer > xModLibContainer( rDocument.getLibraryContainer( E_SCRIPTS ) ); + + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryLoaded( aOULibName ) ) + { + try + { + if( rDocument.isInVBAMode() ) + ImpCreateLibSubEntriesInVBAMode( pLibRootEntry, rDocument, rLibName ); + else + { + // get a sorted list of module names + Sequence< ::rtl::OUString > aModNames = rDocument.getObjectNames( E_SCRIPTS, rLibName ); + sal_Int32 nModCount = aModNames.getLength(); + const ::rtl::OUString* pModNames = aModNames.getConstArray(); + + for ( sal_Int32 i = 0 ; i < nModCount ; i++ ) + { + String aModName = pModNames[ i ]; + SvLBoxEntry* pModuleEntry = FindEntry( pLibRootEntry, aModName, OBJ_TYPE_MODULE ); + if ( !pModuleEntry ) + pModuleEntry = AddEntry( + aModName, + Image( IDEResId( RID_IMG_MODULE ) ), + pLibRootEntry, false, + std::auto_ptr< BasicEntry >( new BasicEntry( OBJ_TYPE_MODULE ) ) ); + + // methods + if ( nMode & BROWSEMODE_SUBS ) + { + Sequence< ::rtl::OUString > aNames = BasicIDE::GetMethodNames( rDocument, rLibName, aModName ); + sal_Int32 nCount = aNames.getLength(); + const ::rtl::OUString* pNames = aNames.getConstArray(); + + for ( sal_Int32 j = 0 ; j < nCount ; j++ ) + { + String aName = pNames[ j ]; + SvLBoxEntry* pEntry = FindEntry( pModuleEntry, aName, OBJ_TYPE_METHOD ); + if ( !pEntry ) + pEntry = AddEntry( + aName, + Image( IDEResId( RID_IMG_MACRO ) ), + pModuleEntry, false, + std::auto_ptr< BasicEntry >( new BasicEntry( OBJ_TYPE_METHOD ) ) ); + } + } + } + } + } + catch ( const container::NoSuchElementException& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + } + + // dialogs + if ( nMode & BROWSEMODE_DIALOGS ) + { + Reference< script::XLibraryContainer > xDlgLibContainer( rDocument.getLibraryContainer( E_DIALOGS ) ); + + if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryLoaded( aOULibName ) ) + { + try + { + // get a sorted list of dialog names + Sequence< ::rtl::OUString > aDlgNames( rDocument.getObjectNames( E_DIALOGS, rLibName ) ); + sal_Int32 nDlgCount = aDlgNames.getLength(); + const ::rtl::OUString* pDlgNames = aDlgNames.getConstArray(); + + for ( sal_Int32 i = 0 ; i < nDlgCount ; i++ ) + { + String aDlgName = pDlgNames[ i ]; + SvLBoxEntry* pDialogEntry = FindEntry( pLibRootEntry, aDlgName, OBJ_TYPE_DIALOG ); + if ( !pDialogEntry ) + pDialogEntry = AddEntry( + aDlgName, + Image( IDEResId( RID_IMG_DIALOG ) ), + pLibRootEntry, false, + std::auto_ptr< BasicEntry >( new BasicEntry( OBJ_TYPE_DIALOG ) ) ); + } + } + catch ( container::NoSuchElementException& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + } +} + +void BasicTreeListBox::ImpCreateLibSubEntriesInVBAMode( SvLBoxEntry* pLibRootEntry, const ScriptDocument& rDocument, const String& rLibName ) +{ + + ::std::vector< std::pair< BasicEntryType, ::rtl::OUString > > aEntries; + aEntries.push_back( ::std::make_pair( OBJ_TYPE_DOCUMENT_OBJECTS, String( IDEResId( RID_STR_DOCUMENT_OBJECTS ) ) ) ); + aEntries.push_back( ::std::make_pair( OBJ_TYPE_USERFORMS, String( IDEResId( RID_STR_USERFORMS ) ) ) ); + aEntries.push_back( ::std::make_pair( OBJ_TYPE_NORMAL_MODULES, String( IDEResId( RID_STR_NORMAL_MODULES ) ) ) ); + aEntries.push_back( ::std::make_pair( OBJ_TYPE_CLASS_MODULES, String( IDEResId( RID_STR_CLASS_MODULES ) ) ) ); + + ::std::vector< std::pair< BasicEntryType, ::rtl::OUString > >::iterator iter; + for( iter = aEntries.begin(); iter != aEntries.end(); ++iter ) + { + BasicEntryType eType = iter->first; + ::rtl::OUString aEntryName = iter->second; + SvLBoxEntry* pLibSubRootEntry = FindEntry( pLibRootEntry, aEntryName, eType ); + if( pLibSubRootEntry ) + { + SetEntryBitmaps( pLibSubRootEntry, Image( IDEResId( RID_IMG_MODLIB ) ) ); + if ( IsExpanded( pLibSubRootEntry ) ) + ImpCreateLibSubSubEntriesInVBAMode( pLibSubRootEntry, rDocument, rLibName ); + } + else + { + pLibSubRootEntry = AddEntry( + aEntryName, + Image( IDEResId( RID_IMG_MODLIB ) ), + pLibRootEntry, true, + std::auto_ptr< BasicEntry >( new BasicEntry( eType ) ) ); + } + } +} + +void BasicTreeListBox::ImpCreateLibSubSubEntriesInVBAMode( SvLBoxEntry* pLibSubRootEntry, const ScriptDocument& rDocument, const String& rLibName ) +{ + uno::Reference< container::XNameContainer > xLib = rDocument.getOrCreateLibrary( E_SCRIPTS, rLibName ); + if( !xLib.is() ) + return; + + try + { + // get a sorted list of module names + Sequence< ::rtl::OUString > aModNames = rDocument.getObjectNames( E_SCRIPTS, rLibName ); + sal_Int32 nModCount = aModNames.getLength(); + const ::rtl::OUString* pModNames = aModNames.getConstArray(); + + BasicEntryDescriptor aDesc( GetEntryDescriptor( pLibSubRootEntry ) ); + BasicEntryType eCurrentType( aDesc.GetType() ); + + for ( sal_Int32 i = 0 ; i < nModCount ; i++ ) + { + String aModName = pModNames[ i ]; + BasicEntryType eType = OBJ_TYPE_UNKNOWN; + switch( ModuleInfoHelper::getModuleType( xLib, aModName ) ) + { + case script::ModuleType::DOCUMENT: + eType = OBJ_TYPE_DOCUMENT_OBJECTS; + break; + case script::ModuleType::FORM: + eType = OBJ_TYPE_USERFORMS; + break; + case script::ModuleType::NORMAL: + eType = OBJ_TYPE_NORMAL_MODULES; + break; + case script::ModuleType::CLASS: + eType = OBJ_TYPE_CLASS_MODULES; + break; + } + if( eType != eCurrentType ) + continue; + + // display a nice friendly name in the ObjectModule tab, + // combining the objectname and module name, e.g. Sheet1 ( Financials ) + String aEntryName( aModName ); + if( eType == OBJ_TYPE_DOCUMENT_OBJECTS ) + { + String sObjName; + ModuleInfoHelper::getObjectName( xLib, aModName, sObjName ); + if( sObjName.Len() ) + { + aEntryName.AppendAscii(" (").Append(sObjName).AppendAscii(")"); + } + } + SvLBoxEntry* pModuleEntry = FindEntry( pLibSubRootEntry, aEntryName, OBJ_TYPE_MODULE ); + if ( !pModuleEntry ) + pModuleEntry = AddEntry( + aEntryName, + Image( IDEResId( RID_IMG_MODULE ) ), + pLibSubRootEntry, false, + std::auto_ptr< BasicEntry >( new BasicEntry( OBJ_TYPE_MODULE ) ) ); + + // methods + if ( nMode & BROWSEMODE_SUBS ) + { + Sequence< ::rtl::OUString > aNames = BasicIDE::GetMethodNames( rDocument, rLibName, aModName ); + sal_Int32 nCount = aNames.getLength(); + const ::rtl::OUString* pNames = aNames.getConstArray(); + + for ( sal_Int32 j = 0 ; j < nCount ; j++ ) + { + String aName = pNames[ j ]; + SvLBoxEntry* pEntry = FindEntry( pModuleEntry, aName, OBJ_TYPE_METHOD ); + if ( !pEntry ) + pEntry = AddEntry( + aName, + Image( IDEResId( RID_IMG_MACRO ) ), + pModuleEntry, false, + std::auto_ptr< BasicEntry >( new BasicEntry( OBJ_TYPE_METHOD ) ) ); + } + } + } + } + catch ( const container::NoSuchElementException& ) + { + DBG_UNHANDLED_EXCEPTION(); + } +} + +SvLBoxEntry* BasicTreeListBox::ImpFindEntry( SvLBoxEntry* pParent, const String& rText ) +{ + sal_uLong nRootPos = 0; + SvLBoxEntry* pEntry = pParent ? FirstChild( pParent ) : GetEntry( nRootPos ); + while ( pEntry ) + { + if ( GetEntryText( pEntry ) == rText ) + return pEntry; + + pEntry = pParent ? NextSibling( pEntry ) : GetEntry( ++nRootPos ); + } + return 0; +} + +void BasicTreeListBox::onDocumentCreated( const ScriptDocument& /*_rDocument*/ ) +{ + UpdateEntries(); +} + +void BasicTreeListBox::onDocumentOpened( const ScriptDocument& /*_rDocument*/ ) +{ + UpdateEntries(); +} + +void BasicTreeListBox::onDocumentSave( const ScriptDocument& /*_rDocument*/ ) +{ + // not interested in +} + +void BasicTreeListBox::onDocumentSaveDone( const ScriptDocument& /*_rDocument*/ ) +{ + // not interested in +} + +void BasicTreeListBox::onDocumentSaveAs( const ScriptDocument& /*_rDocument*/ ) +{ + // not interested in +} + +void BasicTreeListBox::onDocumentSaveAsDone( const ScriptDocument& /*_rDocument*/ ) +{ + UpdateEntries(); +} + +void BasicTreeListBox::onDocumentClosed( const ScriptDocument& /*_rDocument*/ ) +{ + UpdateEntries(); +} + +void BasicTreeListBox::onDocumentTitleChanged( const ScriptDocument& /*_rDocument*/ ) +{ + // not interested in +} + +void BasicTreeListBox::onDocumentModeChanged( const ScriptDocument& /*_rDocument*/ ) +{ + // not interested in +} + +void BasicTreeListBox::UpdateEntries() +{ + BasicEntryDescriptor aCurDesc( GetEntryDescriptor( FirstSelected() ) ); + + // Erstmal die vorhandenen Eintraege auf existens pruefen: + SvLBoxEntry* pLastValid = 0; + SvLBoxEntry* pEntry = First(); + while ( pEntry ) + { + if ( IsValidEntry( pEntry ) ) + pLastValid = pEntry; + else + { + delete (BasicEntry*)pEntry->GetUserData(); + GetModel()->Remove( pEntry ); + } + pEntry = pLastValid ? Next( pLastValid ) : First(); + } + + // Jetzt ueber die Basics rennen und in die Zweige eintragen + ScanAllEntries(); + + SetCurrentEntry( aCurDesc ); +} + +SvLBoxEntry* BasicTreeListBox::CloneEntry( SvLBoxEntry* pSource ) +{ + SvLBoxEntry* pNew = SvTreeListBox::CloneEntry( pSource ); + BasicEntry* pUser = (BasicEntry*)pSource->GetUserData(); + + DBG_ASSERT( pUser, "User-Daten?!" ); + DBG_ASSERT( pUser->GetType() != OBJ_TYPE_DOCUMENT, "BasicTreeListBox::CloneEntry: document?!" ); + + BasicEntry* pNewUser = new BasicEntry( *pUser ); + pNew->SetUserData( pNewUser ); + return pNew; +} + +SvLBoxEntry* BasicTreeListBox::FindEntry( SvLBoxEntry* pParent, const String& rText, BasicEntryType eType ) +{ + sal_uLong nRootPos = 0; + SvLBoxEntry* pEntry = pParent ? FirstChild( pParent ) : GetEntry( nRootPos ); + while ( pEntry ) + { + BasicEntry* pBasicEntry = (BasicEntry*)pEntry->GetUserData(); + DBG_ASSERT( pBasicEntry, "FindEntry: Kein BasicEntry ?!" ); + if ( ( pBasicEntry->GetType() == eType ) && ( GetEntryText( pEntry ) == rText ) ) + return pEntry; + + pEntry = pParent ? NextSibling( pEntry ) : GetEntry( ++nRootPos ); + } + return 0; +} + +long BasicTreeListBox::ExpandingHdl() +{ + // Expanding oder Collaps? + sal_Bool bOK = sal_True; + if ( GetModel()->GetDepth( GetHdlEntry() ) == 1 ) + { + SvLBoxEntry* pCurEntry = GetCurEntry(); + BasicEntryDescriptor aDesc( GetEntryDescriptor( pCurEntry ) ); + ScriptDocument aDocument( aDesc.GetDocument() ); + OSL_ENSURE( aDocument.isAlive(), "BasicTreeListBox::ExpandingHdl: no document, or document is dead!" ); + if ( aDocument.isAlive() ) + { + String aLibName( aDesc.GetLibName() ); + String aLibSubName( aDesc.GetLibSubName() ); + String aName( aDesc.GetName() ); + String aMethodName( aDesc.GetMethodName() ); + + if ( aLibName.Len() && !aLibSubName.Len() && !aName.Len() && !aMethodName.Len() ) + { + // check password, if library is password protected and not verified + ::rtl::OUString aOULibName( aLibName ); + Reference< script::XLibraryContainer > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ) ); + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) ) + { + Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); + if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aOULibName ) && !xPasswd->isLibraryPasswordVerified( aOULibName ) ) + { + String aPassword; + bOK = QueryPassword( xModLibContainer, aLibName, aPassword ); + } + } + } + } + } + return bOK; +} + +sal_Bool BasicTreeListBox::IsEntryProtected( SvLBoxEntry* pEntry ) +{ + sal_Bool bProtected = sal_False; + if ( pEntry && ( GetModel()->GetDepth( pEntry ) == 1 ) ) + { + BasicEntryDescriptor aDesc( GetEntryDescriptor( pEntry ) ); + ScriptDocument aDocument( aDesc.GetDocument() ); + OSL_ENSURE( aDocument.isAlive(), "BasicTreeListBox::IsEntryProtected: no document, or document is dead!" ); + if ( aDocument.isAlive() ) + { + ::rtl::OUString aOULibName( aDesc.GetLibName() ); + Reference< script::XLibraryContainer > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ) ); + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) ) + { + Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); + if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aOULibName ) && !xPasswd->isLibraryPasswordVerified( aOULibName ) ) + { + bProtected = sal_True; + } + } + } + } + return bProtected; +} + +SvLBoxEntry* BasicTreeListBox::AddEntry( + const String& rText, + const Image& rImage, + SvLBoxEntry* pParent, + bool bChildrenOnDemand, + std::auto_ptr< BasicEntry > aUserData +) +{ + SvLBoxEntry* p = InsertEntry( + rText, rImage, rImage, pParent, bChildrenOnDemand, LIST_APPEND, + aUserData.release() ); // XXX possible leak + return p; +} + +void BasicTreeListBox::SetEntryBitmaps( SvLBoxEntry * pEntry, const Image& rImage ) +{ + SetExpandedEntryBmp( pEntry, rImage ); + SetCollapsedEntryBmp( pEntry, rImage ); +} + +LibraryType BasicTreeListBox::GetLibraryType() const +{ + LibraryType eType = LIBRARY_TYPE_ALL; + if ( ( nMode & BROWSEMODE_MODULES ) && !( nMode & BROWSEMODE_DIALOGS ) ) + eType = LIBRARY_TYPE_MODULE; + else if ( !( nMode & BROWSEMODE_MODULES ) && ( nMode & BROWSEMODE_DIALOGS ) ) + eType = LIBRARY_TYPE_DIALOG; + return eType; +} + +String BasicTreeListBox::GetRootEntryName( const ScriptDocument& rDocument, LibraryLocation eLocation ) const +{ + return rDocument.getTitle( eLocation, GetLibraryType() ); +} + +void BasicTreeListBox::GetRootEntryBitmaps( const ScriptDocument& rDocument, Image& rImage ) +{ + OSL_ENSURE( rDocument.isValid(), "BasicTreeListBox::GetRootEntryBitmaps: illegal document!" ); + if ( !rDocument.isValid() ) + return; + + if ( rDocument.isDocument() ) + { + ::rtl::OUString sFactoryURL; + ::comphelper::ComponentContext aContext( ::comphelper::getProcessServiceFactory() ); + Reference< ::com::sun::star::frame::XModuleManager > xModuleManager; + if ( aContext.createComponent( "com.sun.star.frame.ModuleManager", xModuleManager ) ) + { + try + { + ::rtl::OUString sModule( xModuleManager->identify( rDocument.getDocument() ) ); + Reference< container::XNameAccess > xModuleConfig( xModuleManager, UNO_QUERY ); + if ( xModuleConfig.is() ) + { + Sequence< beans::PropertyValue > aModuleDescr; + xModuleConfig->getByName( sModule ) >>= aModuleDescr; + sal_Int32 nCount = aModuleDescr.getLength(); + const beans::PropertyValue* pModuleDescr = aModuleDescr.getConstArray(); + for ( sal_Int32 i = 0; i < nCount; ++i ) + { + if ( pModuleDescr[ i ].Name.equalsAsciiL( + RTL_CONSTASCII_STRINGPARAM( "ooSetupFactoryEmptyDocumentURL" ) ) ) + { + pModuleDescr[ i ].Value >>= sFactoryURL; + break; + } + } + } + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + + if ( sFactoryURL.getLength() ) + { + rImage = SvFileInformationManager::GetFileImage( INetURLObject( sFactoryURL ), sal_False ); + } + else + { + // default icon + rImage = Image( IDEResId( RID_IMG_DOCUMENT ) ); + } + } + else + { + rImage = Image( IDEResId( RID_IMG_INSTALLATION ) ); + } +} + +void BasicTreeListBox::SetCurrentEntry( BasicEntryDescriptor& rDesc ) +{ + SvLBoxEntry* pCurEntry = 0; + BasicEntryDescriptor aDesc( rDesc ); + if ( aDesc.GetType() == OBJ_TYPE_UNKNOWN ) + { + aDesc = BasicEntryDescriptor( + ScriptDocument::getApplicationScriptDocument(), + LIBRARY_LOCATION_USER, String::CreateFromAscii( "Standard" ), + String(), String::CreateFromAscii( "." ), OBJ_TYPE_UNKNOWN ); + } + ScriptDocument aDocument( aDesc.GetDocument() ); + OSL_ENSURE( aDocument.isValid(), "BasicTreeListBox::SetCurrentEntry: invalid document!" ); + LibraryLocation eLocation( aDesc.GetLocation() ); + SvLBoxEntry* pRootEntry = FindRootEntry( aDocument, eLocation ); + if ( pRootEntry ) + { + pCurEntry = pRootEntry; + String aLibName( aDesc.GetLibName() ); + if ( aLibName.Len() ) + { + Expand( pRootEntry ); + SvLBoxEntry* pLibEntry = FindEntry( pRootEntry, aLibName, OBJ_TYPE_LIBRARY ); + if ( pLibEntry ) + { + pCurEntry = pLibEntry; + String aLibSubName( aDesc.GetLibSubName() ); + if( aLibSubName.Len() ) + { + Expand( pLibEntry ); + SvLBoxEntry* pLibSubEntry = ImpFindEntry( pLibEntry, aLibSubName ); + if( pLibSubEntry ) + { + pCurEntry = pLibSubEntry; + } + } + String aName( aDesc.GetName() ); + if ( aName.Len() ) + { + Expand( pCurEntry ); + BasicEntryType eType = OBJ_TYPE_MODULE; + if ( aDesc.GetType() == OBJ_TYPE_DIALOG ) + eType = OBJ_TYPE_DIALOG; + SvLBoxEntry* pEntry = FindEntry( pCurEntry, aName, eType ); + if ( pEntry ) + { + pCurEntry = pEntry; + String aMethodName( aDesc.GetMethodName() ); + if ( aMethodName.Len() ) + { + Expand( pEntry ); + SvLBoxEntry* pSubEntry = FindEntry( pEntry, aMethodName, OBJ_TYPE_METHOD ); + if ( pSubEntry ) + { + pCurEntry = pSubEntry; + } + else + { + pSubEntry = FirstChild( pEntry ); + if ( pSubEntry ) + pCurEntry = pSubEntry; + } + } + } + else + { + pEntry = FirstChild( pLibEntry ); + if ( pEntry ) + pCurEntry = pEntry; + } + } + } + else + { + pLibEntry = FirstChild( pRootEntry ); + if ( pLibEntry ) + pCurEntry = pLibEntry; + } + } + } + else + { + pRootEntry = First(); + if ( pRootEntry ) + pCurEntry = pRootEntry; + } + + SetCurEntry( pCurEntry ); +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/bastype2.hxx b/basctl/source/basicide/bastype2.hxx new file mode 100644 index 000000000000..6300f6c28e0a --- /dev/null +++ b/basctl/source/basicide/bastype2.hxx @@ -0,0 +1,222 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#ifndef _BASTYPE2_HXX +#define _BASTYPE2_HXX + +#include "doceventnotifier.hxx" + +#include <memory> +#include "tools/solar.h" + +#define _SVICNVW_HXX +#include <svtools/svtreebx.hxx> +#include <svl/lstner.hxx> +#include <basic/sbstar.hxx> +#include <sbxitem.hxx> +#include "basobj.hxx" + +enum BasicEntryType { OBJ_TYPE_UNKNOWN, OBJ_TYPE_DOCUMENT, OBJ_TYPE_LIBRARY, OBJ_TYPE_MODULE, OBJ_TYPE_DIALOG, OBJ_TYPE_METHOD, OBJ_TYPE_DOCUMENT_OBJECTS, OBJ_TYPE_USERFORMS, OBJ_TYPE_NORMAL_MODULES, OBJ_TYPE_CLASS_MODULES }; + +#define BROWSEMODE_MODULES 0x01 +#define BROWSEMODE_SUBS 0x02 +#define BROWSEMODE_DIALOGS 0x04 + +class SbMethod; +class SbxObject; +class SbModule; +class SvLBoxEntry; +class SbxVariable; +class String; + + +class BasicEntry +{ +private: + BasicEntryType m_eType; + +public: + BasicEntry( BasicEntryType eType ) { m_eType = eType; } + BasicEntry( const BasicEntry& r ) { m_eType = r.m_eType; } + virtual ~BasicEntry(); + + BasicEntryType GetType() const { return m_eType; } +}; + +class BasicDocumentEntry : public BasicEntry +{ +private: + ScriptDocument m_aDocument; + LibraryLocation m_eLocation; + +public: + BasicDocumentEntry( const ScriptDocument& rDocument, LibraryLocation eLocation, BasicEntryType eType = OBJ_TYPE_DOCUMENT ); + virtual ~BasicDocumentEntry(); + + const ScriptDocument& + GetDocument() const { return m_aDocument; } + LibraryLocation GetLocation() const { return m_eLocation; } +}; + +class BasicLibEntry : public BasicDocumentEntry +{ +private: + String m_aLibName; + +public: + BasicLibEntry( const ScriptDocument& rDocument, LibraryLocation eLocation, const String& rLibName, BasicEntryType eType = OBJ_TYPE_LIBRARY ); + virtual ~BasicLibEntry(); + + const String& GetLibName() const { return m_aLibName; } +}; + +class BasicEntryDescriptor +{ + ScriptDocument m_aDocument; + LibraryLocation m_eLocation; + String m_aLibName; + String m_aLibSubName; // for vba entry: Document Objects, Class Modules, Forms and Normal Modules + String m_aName; + String m_aMethodName; + BasicEntryType m_eType; + +public: + BasicEntryDescriptor(); + BasicEntryDescriptor( const ScriptDocument& rDocument, LibraryLocation eLocation, const String& rLibName, const String& rLibSubName, const String& rName, BasicEntryType eType ); + BasicEntryDescriptor( const ScriptDocument& rDocument, LibraryLocation eLocation, const String& rLibName, const String& rLibSubName, const String& rName, const String& rMethodName, BasicEntryType eType ); + virtual ~BasicEntryDescriptor(); + + BasicEntryDescriptor( const BasicEntryDescriptor& rDesc ); + BasicEntryDescriptor& operator=( const BasicEntryDescriptor& rDesc ); + bool operator==( const BasicEntryDescriptor& rDesc ) const; + + const ScriptDocument& + GetDocument() const { return m_aDocument; } + void SetDocument( const ScriptDocument& rDocument ) { m_aDocument = rDocument; } + + LibraryLocation GetLocation() const { return m_eLocation; } + void SetLocation( LibraryLocation eLocation ) { m_eLocation = eLocation; } + + const String& GetLibName() const { return m_aLibName; } + void SetLibName( const String& aLibName ) { m_aLibName = aLibName; } + + const String& GetLibSubName() const { return m_aLibSubName; } + void SetLibSubName( const String& aLibSubName ) { m_aLibSubName = aLibSubName; } + + const String& GetName() const { return m_aName; } + void SetName( const String& aName ) { m_aName = aName; } + + const String& GetMethodName() const { return m_aMethodName; } + void SetMethodName( const String& aMethodName ) { m_aMethodName = aMethodName; } + + BasicEntryType GetType() const { return m_eType; } + void SetType( BasicEntryType eType ) { m_eType = eType; } +}; + + +/**************************************** + Zuordnung von Typen und Pointern in BasicEntrys: + + OBJ_TYPE_DOCUMENT BasicDocumentEntry + OBJ_TYPE_LIBRARY BasicEntry + OBJ_TYPE_MODULE BasicEntry + OBJ_TYPE_DIALOG BasicEntry + OBJ_TYPE_METHOD BasicEntry + +******************************************/ + +class BasicTreeListBox :public SvTreeListBox + ,public ::basctl::DocumentEventListener +{ +private: + sal_uInt16 nMode; + ::basctl::DocumentEventNotifier m_aNotifier; + + void SetEntryBitmaps( SvLBoxEntry * pEntry, const Image& rImage ); + +protected: + virtual void RequestingChilds( SvLBoxEntry* pParent ); + virtual void ExpandedHdl(); + virtual SvLBoxEntry* CloneEntry( SvLBoxEntry* pSource ); + virtual long ExpandingHdl(); + + void ImpCreateLibEntries( SvLBoxEntry* pShellRootEntry, const ScriptDocument& rDocument, LibraryLocation eLocation ); + void ImpCreateLibSubEntries( SvLBoxEntry* pLibRootEntry, const ScriptDocument& rDocument, const String& rLibName ); + void ImpCreateLibSubEntriesInVBAMode( SvLBoxEntry* pLibRootEntry, const ScriptDocument& rDocument, const String& rLibName ); + void ImpCreateLibSubSubEntriesInVBAMode( SvLBoxEntry* pLibSubRootEntry, const ScriptDocument& rDocument, const String& rLibName ); + SvLBoxEntry* ImpFindEntry( SvLBoxEntry* pParent, const String& rText ); + + // DocumentEventListener + virtual void onDocumentCreated( const ScriptDocument& _rDocument ); + virtual void onDocumentOpened( const ScriptDocument& _rDocument ); + virtual void onDocumentSave( const ScriptDocument& _rDocument ); + virtual void onDocumentSaveDone( const ScriptDocument& _rDocument ); + virtual void onDocumentSaveAs( const ScriptDocument& _rDocument ); + virtual void onDocumentSaveAsDone( const ScriptDocument& _rDocument ); + virtual void onDocumentClosed( const ScriptDocument& _rDocument ); + virtual void onDocumentTitleChanged( const ScriptDocument& _rDocument ); + virtual void onDocumentModeChanged( const ScriptDocument& _rDocument ); + +public: + BasicTreeListBox( Window* pParent, const ResId& rRes ); + ~BasicTreeListBox(); + + void ScanEntry( const ScriptDocument& rDocument, LibraryLocation eLocation ); + void ScanAllEntries(); + void UpdateEntries(); + + sal_Bool IsEntryProtected( SvLBoxEntry* pEntry ); + + void SetMode( sal_uInt16 nM ) { nMode = nM; } + sal_uInt16 GetMode() const { return nMode; } + + SbModule* FindModule( SvLBoxEntry* pEntry ); + SbxVariable* FindVariable( SvLBoxEntry* pEntry ); + SvLBoxEntry* FindRootEntry( const ScriptDocument& rDocument, LibraryLocation eLocation ); + SvLBoxEntry* FindEntry( SvLBoxEntry* pParent, const String& rText, BasicEntryType eType ); + + BasicEntryDescriptor GetEntryDescriptor( SvLBoxEntry* pEntry ); + + sal_uInt16 ConvertType( BasicEntryType eType ); + bool IsValidEntry( SvLBoxEntry* pEntry ); + + SvLBoxEntry* AddEntry( const String& rText, const Image& rImage, + SvLBoxEntry* pParent, bool bChildrenOnDemand, + std::auto_ptr< BasicEntry > aUserData ); + + String GetRootEntryName( const ScriptDocument& rDocument, LibraryLocation eLocation ) const; + void GetRootEntryBitmaps( const ScriptDocument& rDocument, Image& rImage ); + + void SetCurrentEntry( BasicEntryDescriptor& rDesc ); + +private: + LibraryType GetLibraryType() const; +}; + +#endif // _BASTYPE2_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/bastype3.cxx b/basctl/source/basicide/bastype3.cxx new file mode 100644 index 000000000000..6f49212dd2c1 --- /dev/null +++ b/basctl/source/basicide/bastype3.cxx @@ -0,0 +1,507 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + + +#include <ide_pch.hxx> + +#define _SI_NOSBXCONTROLS + +#include <basic/sbx.hxx> +#include <bastype2.hxx> +#include <basobj.hxx> +#include <baside2.hrc> +#include <iderid.hxx> +#include <bastypes.hxx> +#include <basdoc.hxx> +#include <com/sun/star/script/XLibraryContainer.hpp> +#include <com/sun/star/script/XLibraryContainerPassword.hpp> +#include <deque> + +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star; + + +typedef std::deque< SvLBoxEntry* > EntryArray; + + +void BasicTreeListBox::RequestingChilds( SvLBoxEntry* pEntry ) +{ + BasicEntryDescriptor aDesc( GetEntryDescriptor( pEntry ) ); + ScriptDocument aDocument( aDesc.GetDocument() ); + OSL_ENSURE( aDocument.isAlive(), "BasicTreeListBox::RequestingChilds: invalid document!" ); + if ( !aDocument.isAlive() ) + return; + + LibraryLocation eLocation( aDesc.GetLocation() ); + BasicEntryType eType( aDesc.GetType() ); + + if ( eType == OBJ_TYPE_DOCUMENT ) + { + ImpCreateLibEntries( pEntry, aDocument, eLocation ); + } + else if ( eType == OBJ_TYPE_LIBRARY ) + { + String aLibName( aDesc.GetLibName() ); + ::rtl::OUString aOULibName( aLibName ); + + // check password + sal_Bool bOK = sal_True; + Reference< script::XLibraryContainer > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ) ); + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) ) + { + Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); + if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aOULibName ) && !xPasswd->isLibraryPasswordVerified( aOULibName ) ) + { + String aPassword; + bOK = QueryPassword( xModLibContainer, aLibName, aPassword ); + } + } + + if ( bOK ) + { + // load module library + sal_Bool bModLibLoaded = sal_False; + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) ) + { + if ( !xModLibContainer->isLibraryLoaded( aOULibName ) ) + { + EnterWait(); + xModLibContainer->loadLibrary( aOULibName ); + LeaveWait(); + } + bModLibLoaded = xModLibContainer->isLibraryLoaded( aOULibName ); + } + + // load dialog library + sal_Bool bDlgLibLoaded = sal_False; + Reference< script::XLibraryContainer > xDlgLibContainer( aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); + if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) ) + { + if ( !xDlgLibContainer->isLibraryLoaded( aOULibName ) ) + { + EnterWait(); + xDlgLibContainer->loadLibrary( aOULibName ); + LeaveWait(); + } + bDlgLibLoaded = xDlgLibContainer->isLibraryLoaded( aOULibName ); + } + + if ( bModLibLoaded || bDlgLibLoaded ) + { + // create the sub entries + ImpCreateLibSubEntries( pEntry, aDocument, aLibName ); + + // exchange image + bool bDlgMode = ( nMode & BROWSEMODE_DIALOGS ) && !( nMode & BROWSEMODE_MODULES ); + Image aImage( IDEResId( bDlgMode ? RID_IMG_DLGLIB : RID_IMG_MODLIB ) ); + SetEntryBitmaps( pEntry, aImage ); + } + else + { + OSL_FAIL( "BasicTreeListBox::RequestingChilds: Error loading library!" ); + } + } + } + else if ( eType == OBJ_TYPE_DOCUMENT_OBJECTS + || eType == OBJ_TYPE_USERFORMS + || eType == OBJ_TYPE_NORMAL_MODULES + || eType == OBJ_TYPE_CLASS_MODULES ) + { + String aLibName( aDesc.GetLibName() ); + ImpCreateLibSubSubEntriesInVBAMode( pEntry, aDocument, aLibName ); + } + else { + OSL_FAIL( "BasicTreeListBox::RequestingChilds: Unknown Type!" ); + } +} + +void BasicTreeListBox::ExpandedHdl() +{ + SvLBoxEntry* pEntry = GetHdlEntry(); + DBG_ASSERT( pEntry, "Was wurde zugeklappt?" ); + // Die OnDemand erzeugten Childs loeschen, + // SubChilds werden automatisch geloescht. + if ( !IsExpanded( pEntry ) && pEntry->HasChildsOnDemand() ) + { + SvLBoxEntry* pChild = FirstChild( pEntry ); + while ( pChild ) + { + GetModel()->Remove( pChild ); // Ruft auch den DTOR + pChild = FirstChild( pEntry ); + } + } +} + +void BasicTreeListBox::ScanAllEntries() +{ + ScanEntry( ScriptDocument::getApplicationScriptDocument(), LIBRARY_LOCATION_USER ); + ScanEntry( ScriptDocument::getApplicationScriptDocument(), LIBRARY_LOCATION_SHARE ); + + ScriptDocuments aDocuments( ScriptDocument::getAllScriptDocuments( ScriptDocument::DocumentsSorted ) ); + for ( ScriptDocuments::const_iterator doc = aDocuments.begin(); + doc != aDocuments.end(); + ++doc + ) + { + if ( doc->isAlive() ) + ScanEntry( *doc, LIBRARY_LOCATION_DOCUMENT ); + } +} + +SbxVariable* BasicTreeListBox::FindVariable( SvLBoxEntry* pEntry ) +{ + if ( !pEntry ) + return 0; + + String aLib, aModOrObj, aSubOrPropOrSObj, aPropOrSubInSObj; + ScriptDocument aDocument( ScriptDocument::getApplicationScriptDocument() ); + EntryArray aEntries; + + while ( pEntry ) + { + sal_uInt16 nDepth = GetModel()->GetDepth( pEntry ); + switch ( nDepth ) + { + case 4: + case 3: + case 2: + case 1: + { + aEntries.push_front( pEntry ); + } + break; + case 0: + { + aDocument = ((BasicDocumentEntry*)pEntry->GetUserData())->GetDocument(); + } + break; + } + pEntry = GetParent( pEntry ); + } + + SbxVariable* pVar = 0; + bool bDocumentObjects = false; + if ( !aEntries.empty() ) + { + for ( size_t n = 0; n < aEntries.size(); n++ ) + { + SvLBoxEntry* pLE = aEntries[n]; + DBG_ASSERT( pLE, "Can not find entry in array" ); + BasicEntry* pBE = (BasicEntry*)pLE->GetUserData(); + DBG_ASSERT( pBE, "The data in the entry not found!" ); + String aName( GetEntryText( pLE ) ); + + switch ( pBE->GetType() ) + { + case OBJ_TYPE_LIBRARY: + { + BasicManager* pBasMgr = aDocument.getBasicManager(); + if ( pBasMgr ) + pVar = pBasMgr->GetLib( aName ); + } + break; + case OBJ_TYPE_MODULE: + { + DBG_ASSERT( pVar && pVar->IsA( TYPE(StarBASIC) ), "FindVariable: Ungueltiges Basic" ); + // extract the module name from the string like "Sheet1 (Example1)" + if( bDocumentObjects ) + { + sal_uInt16 nIndex = 0; + aName = aName.GetToken( 0, ' ', nIndex ); + } + pVar = ((StarBASIC*)pVar)->FindModule( aName ); + } + break; + case OBJ_TYPE_METHOD: + { + DBG_ASSERT( pVar && ( (pVar->IsA( TYPE(SbModule) )) || (pVar->IsA( TYPE(SbxObject) )) ), "FindVariable: Ungueltiges Modul/Objekt" ); + pVar = ((SbxObject*)pVar)->GetMethods()->Find( aName, SbxCLASS_METHOD ); + } + break; + case OBJ_TYPE_DIALOG: + { + // sbx dialogs removed + } + break; + case OBJ_TYPE_DOCUMENT_OBJECTS: + bDocumentObjects = true; + case OBJ_TYPE_USERFORMS: + case OBJ_TYPE_NORMAL_MODULES: + case OBJ_TYPE_CLASS_MODULES: + { + // skip, to find the child entry. + continue; + } + default: + { + OSL_FAIL( "FindVariable: Unbekannter Typ!" ); + pVar = 0; + } + break; + } + if ( !pVar ) + break; + } + } + + return pVar; +} + +BasicEntryDescriptor BasicTreeListBox::GetEntryDescriptor( SvLBoxEntry* pEntry ) +{ + ScriptDocument aDocument( ScriptDocument::getApplicationScriptDocument() ); + LibraryLocation eLocation = LIBRARY_LOCATION_UNKNOWN; + String aLibName; + String aLibSubName; + String aName; + String aMethodName; + BasicEntryType eType = OBJ_TYPE_UNKNOWN; + + if ( !pEntry ) + return BasicEntryDescriptor( aDocument, eLocation, aLibName, aLibSubName, aName, aMethodName, eType ); + + EntryArray aEntries; + + while ( pEntry ) + { + sal_uInt16 nDepth = GetModel()->GetDepth( pEntry ); + switch ( nDepth ) + { + case 4: + case 3: + case 2: + case 1: + { + aEntries.push_front( pEntry ); + } + break; + case 0: + { + BasicDocumentEntry* pBasicDocumentEntry = (BasicDocumentEntry*)pEntry->GetUserData(); + if ( pBasicDocumentEntry ) + { + aDocument = pBasicDocumentEntry->GetDocument(); + eLocation = pBasicDocumentEntry->GetLocation(); + eType = OBJ_TYPE_DOCUMENT; + } + } + break; + } + pEntry = GetParent( pEntry ); + } + + if ( !aEntries.empty() ) + { + for ( size_t n = 0; n < aEntries.size(); n++ ) + { + SvLBoxEntry* pLE = aEntries[n]; + DBG_ASSERT( pLE, "Entrie im Array nicht gefunden" ); + BasicEntry* pBE = (BasicEntry*)pLE->GetUserData(); + DBG_ASSERT( pBE, "Keine Daten im Eintrag gefunden!" ); + + switch ( pBE->GetType() ) + { + case OBJ_TYPE_LIBRARY: + { + aLibName = GetEntryText( pLE ); + eType = pBE->GetType(); + } + break; + case OBJ_TYPE_MODULE: + { + aName = GetEntryText( pLE ); + eType = pBE->GetType(); + } + break; + case OBJ_TYPE_METHOD: + { + aMethodName = GetEntryText( pLE ); + eType = pBE->GetType(); + } + break; + case OBJ_TYPE_DIALOG: + { + aName = GetEntryText( pLE ); + eType = pBE->GetType(); + } + break; + case OBJ_TYPE_DOCUMENT_OBJECTS: + case OBJ_TYPE_USERFORMS: + case OBJ_TYPE_NORMAL_MODULES: + case OBJ_TYPE_CLASS_MODULES: + { + aLibSubName = GetEntryText( pLE ); + eType = pBE->GetType(); + } + break; + default: + { + OSL_FAIL( "GetEntryDescriptor: Unbekannter Typ!" ); + eType = OBJ_TYPE_UNKNOWN; + } + break; + } + + if ( eType == OBJ_TYPE_UNKNOWN ) + break; + } + } + + return BasicEntryDescriptor( aDocument, eLocation, aLibName, aLibSubName, aName, aMethodName, eType ); +} + +sal_uInt16 BasicTreeListBox::ConvertType( BasicEntryType eType ) +{ + sal_uInt16 nType = OBJ_TYPE_UNKNOWN; + + switch ( eType ) + { + case OBJ_TYPE_DOCUMENT: + { + nType = BASICIDE_TYPE_SHELL; + } + break; + case OBJ_TYPE_LIBRARY: + { + nType = BASICIDE_TYPE_LIBRARY; + } + break; + case OBJ_TYPE_MODULE: + { + nType = BASICIDE_TYPE_MODULE; + } + break; + case OBJ_TYPE_DIALOG: + { + nType = BASICIDE_TYPE_DIALOG; + } + break; + case OBJ_TYPE_METHOD: + { + nType = BASICIDE_TYPE_METHOD; + } + break; + default: ; + } + + return nType; +} + +bool BasicTreeListBox::IsValidEntry( SvLBoxEntry* pEntry ) +{ + bool bIsValid = false; + + BasicEntryDescriptor aDesc( GetEntryDescriptor( pEntry ) ); + ScriptDocument aDocument( aDesc.GetDocument() ); + LibraryLocation eLocation( aDesc.GetLocation() ); + String aLibName( aDesc.GetLibName() ); + String aName( aDesc.GetName() ); + String aMethodName( aDesc.GetMethodName() ); + BasicEntryType eType( aDesc.GetType() ); + + switch ( eType ) + { + case OBJ_TYPE_DOCUMENT: + { + bIsValid = aDocument.isAlive() + && ( aDocument.isApplication() + || GetRootEntryName( aDocument, eLocation ) == GetEntryText( pEntry ) + ); + } + break; + case OBJ_TYPE_LIBRARY: + { + bIsValid = aDocument.hasLibrary( E_SCRIPTS, aLibName ) || aDocument.hasLibrary( E_DIALOGS, aLibName ); + } + break; + case OBJ_TYPE_MODULE: + { + bIsValid = aDocument.hasModule( aLibName, aName ); + } + break; + case OBJ_TYPE_DIALOG: + { + bIsValid = aDocument.hasDialog( aLibName, aName ); + } + break; + case OBJ_TYPE_METHOD: + { + bIsValid = BasicIDE::HasMethod( aDocument, aLibName, aName, aMethodName ); + } + break; + case OBJ_TYPE_DOCUMENT_OBJECTS: + case OBJ_TYPE_USERFORMS: + case OBJ_TYPE_NORMAL_MODULES: + case OBJ_TYPE_CLASS_MODULES: + { + bIsValid = true; + } + break; + default: ; + } + + return bIsValid; +} + +SbModule* BasicTreeListBox::FindModule( SvLBoxEntry* pEntry ) +{ + SbxVariable* pVar = FindVariable( pEntry ); + if ( pVar && pVar->IsA( TYPE(SbModule ) ) ) + return (SbModule*)pVar; + return 0; +} + +SvLBoxEntry* BasicTreeListBox::FindRootEntry( const ScriptDocument& rDocument, LibraryLocation eLocation ) +{ + OSL_ENSURE( rDocument.isValid(), "BasicTreeListBox::FindRootEntry: invalid document!" ); + sal_uLong nRootPos = 0; + SvLBoxEntry* pRootEntry = GetEntry( nRootPos ); + while ( pRootEntry ) + { + DBG_ASSERT( (((BasicEntry*)pRootEntry->GetUserData())->GetType() == OBJ_TYPE_DOCUMENT ), "Kein Shelleintrag?" ); + BasicDocumentEntry* pBasicDocumentEntry = (BasicDocumentEntry*)pRootEntry->GetUserData(); + if ( pBasicDocumentEntry && ( pBasicDocumentEntry->GetDocument() == rDocument ) && pBasicDocumentEntry->GetLocation() == eLocation ) + return pRootEntry; + pRootEntry = GetEntry( ++nRootPos ); + } + return 0; +} + +String CreateMgrAndLibStr( const String& rMgrName, const String& rLibName ) +{ + String aName( '[' ); + aName += rMgrName; + aName += String( RTL_CONSTASCII_USTRINGPARAM( "]." ) ); + aName += rLibName; + return aName; +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/bastype3.hxx b/basctl/source/basicide/bastype3.hxx new file mode 100644 index 000000000000..bc27eaa6cf90 --- /dev/null +++ b/basctl/source/basicide/bastype3.hxx @@ -0,0 +1,67 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#ifndef _BASTYPE3_HXX +#define _BASTYPE3_HXX + +#include <svheader.hxx> + +#include <svtools/svmedit.hxx> + +#include <iderid.hxx> + +class EditorWindow; + +#ifndef NO_SPECIALEDIT + +class ExtendedEdit : public Edit +{ +private: + Accelerator aAcc; + Link aAccHdl; + Link aGotFocusHdl; + Link aLoseFocusHdl; + +protected: + DECL_LINK( EditAccHdl, Accelerator * ); + DECL_LINK( ImplGetFocusHdl, Control* ); + DECL_LINK( ImplLoseFocusHdl, Control* ); + +public: + ExtendedEdit( Window* pParent, IDEResId nRes ); + + void SetAccHdl( const Link& rLink ) { aAccHdl = rLink; } + void SetLoseFocusHdl( const Link& rLink ) { aLoseFocusHdl = rLink; } + void SetGotFocusHdl( const Link& rLink ) { aGotFocusHdl = rLink; } + Accelerator& GetAccelerator() { return aAcc; } +}; + +#endif //NO_SPECIALEDIT + +#endif // _BASTYPE3_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/bastype4.hxx b/basctl/source/basicide/bastype4.hxx new file mode 100644 index 000000000000..000eec70755e --- /dev/null +++ b/basctl/source/basicide/bastype4.hxx @@ -0,0 +1,69 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#ifndef _BASTYPE4_HXX +#define _BASTYPE4_HXX + + +#include <svtools/tabbar.hxx> + +class EditEngine; +class EditView; + +class ExtendedTabBar : public TabBar +{ + EditEngine* pEditEngine; + EditView* pEditView; + sal_Bool bIsInKeyInput; +#if _SOLAR__PRIVATE + void ImpCheckEditEngine( sal_Bool bKeepNewText ); +#endif +protected: + virtual void MouseButtonDown( const MouseEvent& rMEvt ); + virtual void MouseButtonUp( const MouseEvent& rMEvt ); + virtual void MouseMove( const MouseEvent& rMEvt ); + virtual void LoseFocus(); + virtual void KeyInput( const KeyEvent& rKEvent ); + virtual void Paint( const Rectangle& ); + + virtual sal_Bool StartRenamingTab( sal_uInt16 nCurId ); + virtual sal_Bool AllowRenamingTab( sal_uInt16 nCurId, const String& rNewName ); + virtual void TabRenamed( sal_uInt16 nCurId, const String& rNewName ); + +public: + ExtendedTabBar( Window* pParent, WinBits nStyle ); + ~ExtendedTabBar(); + + void RenameSelectedTab(); + sal_Bool IsInEditMode() const { return pEditEngine ? sal_True : sal_False; } + void StopEditMode( sal_Bool bKeepCurText = sal_False ); +}; + +#endif //_BASTYPE4_HXX + + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/bastypes.cxx b/basctl/source/basicide/bastypes.cxx new file mode 100644 index 000000000000..10a78a57494f --- /dev/null +++ b/basctl/source/basicide/bastypes.cxx @@ -0,0 +1,1054 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + + +#include <vector> +#include <algorithm> + +#include <ide_pch.hxx> + + +#include <basic/sbx.hxx> +#include <helpid.hrc> +#include <basidesh.hrc> +#include <bastypes.hxx> +#include <bastype2.hxx> +#include <baside2.hxx> // Leider brauche ich teilweise pModulWindow... +#include <baside3.hxx> +#include <baside2.hrc> +#include <svtools/textview.hxx> +#include <svtools/texteng.hxx> +#include <basobj.hxx> +#include <sbxitem.hxx> +#include <iderdll.hxx> + +#include <sfx2/passwd.hxx> + +#include <com/sun/star/script/XLibraryContainer2.hpp> +#include <com/sun/star/script/XLibraryContainerPassword.hpp> +#include <com/sun/star/script/ModuleType.hpp> + +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star; + +using ::std::vector; + +DBG_NAME( IDEBaseWindow ) + +const char* pRegName = "BasicIDETabBar"; + +TYPEINIT0( IDEBaseWindow ) +TYPEINIT1( SbxItem, SfxPoolItem ); + +IDEBaseWindow::IDEBaseWindow( Window* pParent, const ScriptDocument& rDocument, String aLibName, String aName ) + :Window( pParent, WinBits( WB_3DLOOK ) ) + ,m_aDocument( rDocument ) + ,m_aLibName( aLibName ) + ,m_aName( aName ) +{ + DBG_CTOR( IDEBaseWindow, 0 ); + pShellHScrollBar = 0; + pShellVScrollBar = 0; + nStatus = 0; +} + + + +IDEBaseWindow::~IDEBaseWindow() +{ + DBG_DTOR( IDEBaseWindow, 0 ); + if ( pShellVScrollBar ) + pShellVScrollBar->SetScrollHdl( Link() ); + if ( pShellHScrollBar ) + pShellHScrollBar->SetScrollHdl( Link() ); +} + + + +void IDEBaseWindow::Init() +{ + DBG_CHKTHIS( IDEBaseWindow, 0 ); + if ( pShellVScrollBar ) + pShellVScrollBar->SetScrollHdl( LINK( this, IDEBaseWindow, ScrollHdl ) ); + if ( pShellHScrollBar ) + pShellHScrollBar->SetScrollHdl( LINK( this, IDEBaseWindow, ScrollHdl ) ); + DoInit(); // virtuell... +} + + + +void IDEBaseWindow::DoInit() +{ +} + + + +void IDEBaseWindow::GrabScrollBars( ScrollBar* pHScroll, ScrollBar* pVScroll ) +{ + DBG_CHKTHIS( IDEBaseWindow, 0 ); + pShellHScrollBar = pHScroll; + pShellVScrollBar = pVScroll; +// Init(); // macht kein Sinn, fuehrt zu flackern, fuehr zu Fehlern... +} + + + +IMPL_LINK_INLINE_START( IDEBaseWindow, ScrollHdl, ScrollBar *, pCurScrollBar ) +{ + DBG_CHKTHIS( IDEBaseWindow, 0 ); + DoScroll( pCurScrollBar ); + return 0; +} +IMPL_LINK_INLINE_END( IDEBaseWindow, ScrollHdl, ScrollBar *, pCurScrollBar ) + + + +void IDEBaseWindow::ExecuteCommand( SfxRequest& ) +{ + DBG_CHKTHIS( IDEBaseWindow, 0 ); +} + + + +void IDEBaseWindow::GetState( SfxItemSet& ) +{ + DBG_CHKTHIS( IDEBaseWindow, 0 ); +} + + +long IDEBaseWindow::Notify( NotifyEvent& rNEvt ) +{ + long nDone = 0; + + if ( rNEvt.GetType() == EVENT_KEYINPUT ) + { + KeyEvent aKEvt = *rNEvt.GetKeyEvent(); + KeyCode aCode = aKEvt.GetKeyCode(); + sal_uInt16 nCode = aCode.GetCode(); + + switch ( nCode ) + { + case KEY_PAGEUP: + case KEY_PAGEDOWN: + { + if ( aCode.IsMod1() ) + { + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + if ( pIDEShell ) + pIDEShell->NextPage( nCode == KEY_PAGEUP ); + + nDone = 1; + } + } + break; + } + } + + return nDone ? nDone : Window::Notify( rNEvt ); +} + + +void IDEBaseWindow::DoScroll( ScrollBar* ) +{ + DBG_CHKTHIS( IDEBaseWindow, 0 ); +} + + +void IDEBaseWindow::StoreData() +{ +} + +sal_Bool IDEBaseWindow::CanClose() +{ + return sal_True; +} + +sal_Bool IDEBaseWindow::AllowUndo() +{ + return sal_True; +} + + + +void IDEBaseWindow::UpdateData() +{ +} + + +String IDEBaseWindow::GetTitle() +{ + return String(); +} + + + +String IDEBaseWindow::CreateQualifiedName() +{ + String aName; + if ( m_aLibName.Len() ) + { + LibraryLocation eLocation = m_aDocument.getLibraryLocation( m_aLibName ); + aName = m_aDocument.getTitle( eLocation ); + aName += '.'; + aName += m_aLibName; + aName += '.'; + aName += GetTitle(); + } + + return aName; +} + +void IDEBaseWindow::SetReadOnly( sal_Bool ) +{ +} + +sal_Bool IDEBaseWindow::IsReadOnly() +{ + return sal_False; +} + +void IDEBaseWindow::BasicStarted() +{ +} + +void IDEBaseWindow::BasicStopped() +{ +} + +sal_Bool IDEBaseWindow::IsModified() +{ + return sal_True; +} + +sal_Bool IDEBaseWindow::IsPasteAllowed() +{ + return sal_False; +} + +Window* IDEBaseWindow::GetLayoutWindow() +{ + return this; +} + +::svl::IUndoManager* IDEBaseWindow::GetUndoManager() +{ + return NULL; +} + +BreakPointList::BreakPointList() +{} + +BreakPointList::BreakPointList(BreakPointList const & rList) +{ + for (size_t i = 0; i < rList.size(); ++i) + maBreakPoints.push_back( new BreakPoint(*rList.at( i ) ) ); +} + +BreakPointList::~BreakPointList() +{ + reset(); +} + +void BreakPointList::reset() +{ + for ( size_t i = 0, n = maBreakPoints.size(); i < n; ++i ) + delete maBreakPoints[ i ]; + maBreakPoints.clear(); +} + +void BreakPointList::transfer(BreakPointList & rList) +{ + reset(); + for (size_t i = 0; i < rList.size(); ++i) + maBreakPoints.push_back( rList.at( i ) ); + rList.reset(); +} + +void BreakPointList::InsertSorted( BreakPoint* pNewBrk ) +{ + for ( vector< BreakPoint* >::iterator i = maBreakPoints.begin(); i < maBreakPoints.end(); ++i ) + { + if ( pNewBrk->nLine <= (*i)->nLine ) + { + DBG_ASSERT( ( (*i)->nLine != pNewBrk->nLine ) || pNewBrk->bTemp, "BreakPoint existiert schon!" ); + maBreakPoints.insert( i, pNewBrk ); + return; + } + } + // Keine Einfuegeposition gefunden => LIST_APPEND + maBreakPoints.push_back( pNewBrk ); +} + +void BreakPointList::SetBreakPointsInBasic( SbModule* pModule ) +{ + pModule->ClearAllBP(); + + for ( size_t i = 0, n = maBreakPoints.size(); i < n; ++i ) + { + BreakPoint* pBrk = maBreakPoints[ i ]; + if ( pBrk->bEnabled ) + pModule->SetBP( (sal_uInt16)pBrk->nLine ); + } +} + +BreakPoint* BreakPointList::FindBreakPoint( size_t nLine ) +{ + for ( size_t i = 0, n = maBreakPoints.size(); i < n; ++i ) + { + BreakPoint* pBrk = maBreakPoints[ i ]; + if ( pBrk->nLine == nLine ) + return pBrk; + } + return NULL; +} + +void BreakPointList::AdjustBreakPoints( size_t nLine, bool bInserted ) +{ + for ( size_t i = 0; i < maBreakPoints.size(); ) + { + BreakPoint* pBrk = maBreakPoints[ i ]; + bool bDelBrk = false; + if ( pBrk->nLine == nLine ) + { + if ( bInserted ) + pBrk->nLine++; + else + bDelBrk = true; + } + else if ( pBrk->nLine > nLine ) + { + if ( bInserted ) + pBrk->nLine++; + else + pBrk->nLine--; + } + + if ( bDelBrk ) + { + delete remove( pBrk ); + } + else + { + ++i; + } + } +} + +void BreakPointList::ResetHitCount() +{ + for ( size_t i = 0, n = maBreakPoints.size(); i < n; ++i ) + { + BreakPoint* pBrk = maBreakPoints[ i ]; + pBrk->nHitCount = 0; + } +} + +size_t BreakPointList::size() const +{ + return maBreakPoints.size(); +} + +BreakPoint* BreakPointList::at( size_t i ) +{ + if ( i < maBreakPoints.size() ) + return maBreakPoints[ i ]; + else + return NULL; +} + +const BreakPoint* BreakPointList::at( size_t i ) const +{ + return maBreakPoints[ i ]; +} + +BreakPoint* BreakPointList::remove( BreakPoint* ptr ) +{ + for ( vector< BreakPoint* >::iterator i = maBreakPoints.begin(); i < maBreakPoints.end(); ++i ) + { + if ( ptr == *i ) + { + maBreakPoints.erase( i ); + return ptr; + } + } + return NULL; +} + +void BreakPointList::push_back( BreakPoint* item ) +{ + maBreakPoints.push_back( item ); +} + +void BreakPointList::clear() +{ + maBreakPoints.clear(); +} + + +void IDEBaseWindow::Deactivating() +{ +} + +sal_uInt16 IDEBaseWindow::GetSearchOptions() +{ + return 0; +} + + +BasicDockingWindow::BasicDockingWindow( Window* pParent ) : + DockingWindow( pParent, WB_BORDER | WB_3DLOOK | WB_DOCKABLE | WB_MOVEABLE | + WB_SIZEABLE | WB_ROLLABLE | + WB_DOCKABLE | WB_CLIPCHILDREN ) +{ +} + + + +sal_Bool BasicDockingWindow::Docking( const Point& rPos, Rectangle& rRect ) +{ + ModulWindowLayout* pLayout = (ModulWindowLayout*)GetParent(); + Rectangle aTmpRec( rRect ); + sal_Bool bDock = IsDockingPrevented() ? sal_False : pLayout->IsToBeDocked( this, rPos, aTmpRec ); + if ( bDock ) + { + rRect.SetSize( aTmpRec.GetSize() ); + } + else // Alte Groesse einstellen + { + if ( !aFloatingPosAndSize.IsEmpty() ) + rRect.SetSize( aFloatingPosAndSize.GetSize() ); + } + return !bDock; // bFloat +} + + + +void BasicDockingWindow::EndDocking( const Rectangle& rRect, sal_Bool bFloatMode ) +{ + if ( bFloatMode ) + DockingWindow::EndDocking( rRect, bFloatMode ); + else + { + SetFloatingMode( sal_False ); + ModulWindowLayout* pLayout = (ModulWindowLayout*)GetParent(); + pLayout->DockaWindow( this ); + } +} + + + +void BasicDockingWindow::ToggleFloatingMode() +{ + ModulWindowLayout* pLayout = (ModulWindowLayout*)GetParent(); + if ( IsFloatingMode() ) + { + if ( !aFloatingPosAndSize.IsEmpty() ) + SetPosSizePixel( GetParent()->ScreenToOutputPixel( aFloatingPosAndSize.TopLeft() ), + aFloatingPosAndSize.GetSize() ); + } + pLayout->DockaWindow( this ); +} + + + +sal_Bool BasicDockingWindow::PrepareToggleFloatingMode() +{ + if ( IsFloatingMode() ) + { + // Position und Groesse auf dem Desktop merken... + aFloatingPosAndSize.SetPos( GetParent()->OutputToScreenPixel( GetPosPixel() ) ); + aFloatingPosAndSize.SetSize( GetSizePixel() ); + } + return sal_True; +} + + + +void BasicDockingWindow::StartDocking() +{ + // Position und Groesse auf dem Desktop merken... + if ( IsFloatingMode() ) + { + aFloatingPosAndSize.SetPos( GetParent()->OutputToScreenPixel( GetPosPixel() ) ); + aFloatingPosAndSize.SetSize( GetSizePixel() ); + } +} + + + +ExtendedEdit::ExtendedEdit( Window* pParent, IDEResId nRes ) : + Edit( pParent, nRes ) +{ + aAcc.SetSelectHdl( LINK( this, ExtendedEdit, EditAccHdl ) ); + Control::SetGetFocusHdl( LINK( this, ExtendedEdit, ImplGetFocusHdl ) ); + Control::SetLoseFocusHdl( LINK( this, ExtendedEdit, ImplLoseFocusHdl ) ); +} + +IMPL_LINK( ExtendedEdit, ImplGetFocusHdl, Control*, EMPTYARG ) +{ + Application::InsertAccel( &aAcc ); + aLoseFocusHdl.Call( this ); + return 0; +} + + +IMPL_LINK( ExtendedEdit, ImplLoseFocusHdl, Control*, EMPTYARG ) +{ + Application::RemoveAccel( &aAcc ); + return 0; +} + + +IMPL_LINK_INLINE_START( ExtendedEdit, EditAccHdl, Accelerator *, pAcc ) +{ + aAccHdl.Call( pAcc ); + return 0; +} +IMPL_LINK_INLINE_END( ExtendedEdit, EditAccHdl, Accelerator *, pAcc ) + + + +struct TabBarDDInfo +{ + sal_uLong npTabBar; + sal_uInt16 nPage; + + TabBarDDInfo() { npTabBar = 0; nPage = 0; } + TabBarDDInfo( sal_uLong _npTabBar, sal_uInt16 _nPage ) { npTabBar = _npTabBar; nPage = _nPage; } +}; + + +BasicIDETabBar::BasicIDETabBar( Window* pParent ) : + TabBar( pParent, WinBits( WB_3DLOOK | WB_SCROLL | WB_BORDER | WB_SIZEABLE | WB_DRAG ) ) +{ + EnableEditMode( sal_True ); + + SetHelpId( HID_BASICIDE_TABBAR ); +} + +void BasicIDETabBar::MouseButtonDown( const MouseEvent& rMEvt ) +{ + if ( rMEvt.IsLeft() && ( rMEvt.GetClicks() == 2 ) && !IsInEditMode() ) + { + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if( pDispatcher ) + { + pDispatcher->Execute( SID_BASICIDE_MODULEDLG ); + } + } + else + { + TabBar::MouseButtonDown( rMEvt ); + } +} + +void BasicIDETabBar::Command( const CommandEvent& rCEvt ) +{ + if ( ( rCEvt.GetCommand() == COMMAND_CONTEXTMENU ) && !IsInEditMode() ) + { + Point aPos( rCEvt.IsMouseEvent() ? rCEvt.GetMousePosPixel() : Point(1,1) ); + if ( rCEvt.IsMouseEvent() ) // Richtige Tab selektieren + { + Point aP = PixelToLogic( aPos ); + MouseEvent aMouseEvent( aP, 1, MOUSE_SIMPLECLICK, MOUSE_LEFT ); + TabBar::MouseButtonDown( aMouseEvent ); + } + + PopupMenu aPopup( IDEResId( RID_POPUP_TABBAR ) ); + if ( GetPageCount() == 0 ) + { + aPopup.EnableItem( SID_BASICIDE_DELETECURRENT, sal_False ); + aPopup.EnableItem( SID_BASICIDE_RENAMECURRENT, sal_False ); + aPopup.EnableItem( SID_BASICIDE_HIDECURPAGE, sal_False ); + } + + if ( StarBASIC::IsRunning() ) + { + aPopup.EnableItem(SID_BASICIDE_DELETECURRENT, false); + aPopup.EnableItem( SID_BASICIDE_RENAMECURRENT, false); + aPopup.EnableItem(SID_BASICIDE_MODULEDLG, false); + } + + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + if ( pIDEShell ) + { + ScriptDocument aDocument( pIDEShell->GetCurDocument() ); + ::rtl::OUString aOULibName( pIDEShell->GetCurLibName() ); + Reference< script::XLibraryContainer2 > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); + Reference< script::XLibraryContainer2 > xDlgLibContainer( aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); + if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) ) || + ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryReadOnly( aOULibName ) ) ) + { + aPopup.EnableItem( aPopup.GetItemId( 0 ), sal_False ); + aPopup.EnableItem( SID_BASICIDE_DELETECURRENT, sal_False ); + aPopup.EnableItem( SID_BASICIDE_RENAMECURRENT, sal_False ); + aPopup.RemoveDisabledEntries(); + } + if ( aDocument.isInVBAMode() ) + { + // disable to delete or remove object modules in IDE + BasicManager* pBasMgr = aDocument.getBasicManager(); + if ( pBasMgr ) + { + StarBASIC* pBasic = pBasMgr->GetLib( aOULibName ); + if( pBasic ) + { + IDEWindowTable& aIDEWindowTable = pIDEShell->GetIDEWindowTable(); + IDEBaseWindow* pWin = aIDEWindowTable.Get( GetCurPageId() ); + if( pWin && pWin->ISA( ModulWindow ) ) + { + SbModule* pActiveModule = (SbModule*)pBasic->FindModule( pWin->GetName() ); + if( pActiveModule && ( pActiveModule->GetModuleType() == script::ModuleType::DOCUMENT ) ) + { + aPopup.EnableItem( SID_BASICIDE_DELETECURRENT, sal_False ); + aPopup.EnableItem( SID_BASICIDE_RENAMECURRENT, sal_False ); + } + } + } + } + } + } + + + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if ( pDispatcher ) + pDispatcher->Execute( aPopup.Execute( this, aPos ) ); + } +} + +long BasicIDETabBar::AllowRenaming() +{ + sal_Bool bValid = BasicIDE::IsValidSbxName( GetEditText() ); + + if ( !bValid ) + ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_BADSBXNAME ) ) ).Execute(); + + return bValid ? TABBAR_RENAMING_YES : TABBAR_RENAMING_NO; +} + + +void BasicIDETabBar::EndRenaming() +{ + if ( !IsEditModeCanceled() ) + { + SfxUInt16Item aID( SID_BASICIDE_ARG_TABID, GetEditPageId() ); + SfxStringItem aNewName( SID_BASICIDE_ARG_MODULENAME, GetEditText() ); + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if( pDispatcher ) + { + pDispatcher->Execute( SID_BASICIDE_NAMECHANGEDONTAB, + SFX_CALLMODE_SYNCHRON, &aID, &aNewName, 0L ); + } + } +} + + +void BasicIDETabBar::Sort() +{ + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + if ( pIDEShell ) + { + IDEWindowTable& aIDEWindowTable = pIDEShell->GetIDEWindowTable(); + TabBarSortHelper aTabBarSortHelper; + ::std::vector<TabBarSortHelper> aModuleList; + ::std::vector<TabBarSortHelper> aDialogList; + sal_uInt16 nPageCount = GetPageCount(); + sal_uInt16 i; + + // create module and dialog lists for sorting + for ( i = 0; i < nPageCount; i++) + { + sal_uInt16 nId = GetPageId( i ); + aTabBarSortHelper.nPageId = nId; + aTabBarSortHelper.aPageText = GetPageText( nId ); + IDEBaseWindow* pWin = aIDEWindowTable.Get( nId ); + + if ( pWin->IsA( TYPE( ModulWindow ) ) ) + { + aModuleList.push_back( aTabBarSortHelper ); + } + else if ( pWin->IsA( TYPE( DialogWindow ) ) ) + { + aDialogList.push_back( aTabBarSortHelper ); + } + } + + // sort module and dialog lists by page text + ::std::sort( aModuleList.begin() , aModuleList.end() ); + ::std::sort( aDialogList.begin() , aDialogList.end() ); + + + sal_uInt16 nModules = sal::static_int_cast<sal_uInt16>( aModuleList.size() ); + sal_uInt16 nDialogs = sal::static_int_cast<sal_uInt16>( aDialogList.size() ); + + // move module pages to new positions + for (i = 0; i < nModules; i++) + { + MovePage( aModuleList[i].nPageId , i ); + } + + // move dialog pages to new positions + for (i = 0; i < nDialogs; i++) + { + MovePage( aDialogList[i].nPageId , nModules + i ); + } + } +} + +void CutLines( ::rtl::OUString& rStr, sal_Int32 nStartLine, sal_Int32 nLines, sal_Bool bEraseTrailingEmptyLines ) +{ + sal_Int32 nStartPos = 0; + sal_Int32 nLine = 0; + while ( nLine < nStartLine ) + { + nStartPos = searchEOL( rStr, nStartPos ); + if( nStartPos == -1 ) + break; + nStartPos++; // nicht das \n. + nLine++; + } + + DBG_ASSERTWARNING( nStartPos != -1, "CutLines: Startzeile nicht gefunden!" ); + + if ( nStartPos != -1 ) + { + sal_Int32 nEndPos = nStartPos; + + for ( sal_Int32 i = 0; i < nLines; i++ ) + nEndPos = searchEOL( rStr, nEndPos+1 ); + + if ( nEndPos == -1 ) // kann bei letzter Zeile passieren + nEndPos = rStr.getLength(); + else + nEndPos++; + + ::rtl::OUString aEndStr = rStr.copy( nEndPos ); + rStr = rStr.copy( 0, nStartPos ); + rStr += aEndStr; + } + if ( bEraseTrailingEmptyLines ) + { + sal_Int32 n = nStartPos; + sal_Int32 nLen = rStr.getLength(); + while ( ( n < nLen ) && ( rStr.getStr()[ n ] == LINE_SEP || + rStr.getStr()[ n ] == LINE_SEP_CR ) ) + { + n++; + } + + if ( n > nStartPos ) + { + ::rtl::OUString aEndStr = rStr.copy( n ); + rStr = rStr.copy( 0, nStartPos ); + rStr += aEndStr; + } + } +} + +sal_uLong CalcLineCount( SvStream& rStream ) +{ + sal_uLong nLFs = 0; + sal_uLong nCRs = 0; + char c; + + rStream.Seek( 0 ); + rStream >> c; + while ( !rStream.IsEof() ) + { + if ( c == '\n' ) + nLFs++; + else if ( c == '\r' ) + nCRs++; + rStream >> c; + } + + rStream.Seek( 0 ); + if ( nLFs > nCRs ) + return nLFs; + return nCRs; +} + +LibInfoKey::LibInfoKey( const ScriptDocument& rDocument, const String& rLibName ) + :m_aDocument( rDocument ) + ,m_aLibName( rLibName ) +{ +} + +LibInfoKey::~LibInfoKey() +{ +} + +LibInfoKey::LibInfoKey( const LibInfoKey& rKey ) + :m_aDocument( rKey.m_aDocument ) + ,m_aLibName( rKey.m_aLibName ) +{ +} + +LibInfoKey& LibInfoKey::operator=( const LibInfoKey& rKey ) +{ + m_aDocument = rKey.m_aDocument; + m_aLibName = rKey.m_aLibName; + return *this; +} + +bool LibInfoKey::operator==( const LibInfoKey& rKey ) const +{ + bool bRet = false; + if ( m_aDocument == rKey.m_aDocument && m_aLibName == rKey.m_aLibName ) + bRet = true; + return bRet; +} + +LibInfoItem::LibInfoItem( const ScriptDocument& rDocument, const String& rLibName, const String& rCurrentName, sal_uInt16 nCurrentType ) + :m_aDocument( rDocument ) + ,m_aLibName( rLibName ) + ,m_aCurrentName( rCurrentName ) + ,m_nCurrentType( nCurrentType ) +{ +} + +LibInfoItem::~LibInfoItem() +{ +} + +LibInfoItem::LibInfoItem( const LibInfoItem& rItem ) + :m_aDocument( rItem.m_aDocument ) + ,m_aLibName( rItem.m_aLibName ) + ,m_aCurrentName( rItem.m_aCurrentName ) + ,m_nCurrentType( rItem.m_nCurrentType ) +{ +} + +LibInfoItem& LibInfoItem::operator=( const LibInfoItem& rItem ) +{ + m_aDocument = rItem.m_aDocument; + m_aLibName = rItem.m_aLibName; + m_aCurrentName = rItem.m_aCurrentName; + m_nCurrentType = rItem.m_nCurrentType; + + return *this; +} + +LibInfos::LibInfos() +{ +} + +LibInfos::~LibInfos() +{ + LibInfoMap::iterator end = m_aLibInfoMap.end(); + for ( LibInfoMap::iterator it = m_aLibInfoMap.begin(); it != end; ++it ) + delete it->second; + m_aLibInfoMap.clear(); +} + +void LibInfos::InsertInfo( LibInfoItem* pItem ) +{ + LibInfoKey aKey( pItem->GetDocument(), pItem->GetLibName() ); + LibInfoMap::iterator it = m_aLibInfoMap.find( aKey ); + if ( it != m_aLibInfoMap.end() ) + { + LibInfoItem* pI = it->second; + m_aLibInfoMap.erase( it ); + delete pI; + } + m_aLibInfoMap.insert( LibInfoMap::value_type( aKey, pItem ) ); +} + +void LibInfos::RemoveInfoFor( const ScriptDocument& _rDocument ) +{ + for ( LibInfoMap::iterator it = m_aLibInfoMap.begin(); + it != m_aLibInfoMap.end(); + ) + { + if ( it->first.GetDocument() != _rDocument ) + { + ++it; + continue; + } + + LibInfoItem* pItem = it->second; + + LibInfoMap::iterator next_it = it; ++next_it; + m_aLibInfoMap.erase( it ); + it = next_it; + + delete pItem; + } +} + +LibInfoItem* LibInfos::GetInfo( const LibInfoKey& rKey ) +{ + LibInfoItem* pItem = 0; + LibInfoMap::iterator it = m_aLibInfoMap.find( rKey ); + if ( it != m_aLibInfoMap.end() ) + pItem = it->second; + return pItem; +} + +SbxItem::SbxItem(sal_uInt16 nWhich_, const ScriptDocument& rDocument, const String& aLibName, const String& aName, sal_uInt16 nType ) + :SfxPoolItem( nWhich_ ) + ,m_aDocument(rDocument) + ,m_aLibName(aLibName) + ,m_aName(aName) + ,m_nType(nType) +{ +} + +SbxItem::SbxItem(sal_uInt16 nWhich_, const ScriptDocument& rDocument, const String& aLibName, const String& aName, const String& aMethodName, sal_uInt16 nType ) + :SfxPoolItem( nWhich_ ) + ,m_aDocument(rDocument) + ,m_aLibName(aLibName) + ,m_aName(aName) + ,m_aMethodName(aMethodName) + ,m_nType(nType) +{ +} + +SbxItem::SbxItem(const SbxItem& rCopy) + :SfxPoolItem( rCopy ) + ,m_aDocument( rCopy.m_aDocument ) +{ + m_aLibName = rCopy.m_aLibName; + m_aName = rCopy.m_aName; + m_aMethodName = rCopy.m_aMethodName; + m_nType = rCopy.m_nType; +} + +int SbxItem::operator==( const SfxPoolItem& rCmp) const +{ + DBG_ASSERT( rCmp.ISA( SbxItem ), "==: Kein SbxItem!" ); + return ( SfxPoolItem::operator==( rCmp ) && ( m_aDocument == ((const SbxItem&)rCmp).m_aDocument ) + && ( m_aLibName == ((const SbxItem&)rCmp).m_aLibName ) + && ( m_aName == ((const SbxItem&)rCmp).m_aName ) + && ( m_aMethodName == ((const SbxItem&)rCmp).m_aMethodName ) + && ( m_nType == ((const SbxItem&)rCmp).m_nType ) ); +} + +SfxPoolItem *SbxItem::Clone( SfxItemPool* ) const +{ + return new SbxItem(*this); +} + +sal_Bool QueryDel( const String& rName, const ResId& rId, Window* pParent ) +{ + String aQuery( rId ); + String aName( rName ); + aName += '\''; + aName.Insert( '\'', 0 ); + aQuery.SearchAndReplace( String( RTL_CONSTASCII_USTRINGPARAM( "XX" ) ), aName ); + QueryBox aQueryBox( pParent, WB_YES_NO | WB_DEF_YES, aQuery ); + if ( aQueryBox.Execute() == RET_YES ) + return sal_True; + return sal_False; +} + +sal_Bool QueryDelMacro( const String& rName, Window* pParent ) +{ + return QueryDel( rName, IDEResId( RID_STR_QUERYDELMACRO ), pParent ); +} + +sal_Bool QueryReplaceMacro( const String& rName, Window* pParent ) +{ + return QueryDel( rName, IDEResId( RID_STR_QUERYREPLACEMACRO ), pParent ); +} + +sal_Bool QueryDelDialog( const String& rName, Window* pParent ) +{ + return QueryDel( rName, IDEResId( RID_STR_QUERYDELDIALOG ), pParent ); +} + +sal_Bool QueryDelLib( const String& rName, sal_Bool bRef, Window* pParent ) +{ + return QueryDel( rName, IDEResId( bRef ? RID_STR_QUERYDELLIBREF : RID_STR_QUERYDELLIB ), pParent ); +} + +sal_Bool QueryDelModule( const String& rName, Window* pParent ) +{ + return QueryDel( rName, IDEResId( RID_STR_QUERYDELMODULE ), pParent ); +} + +sal_Bool QueryPassword( const Reference< script::XLibraryContainer >& xLibContainer, const String& rLibName, String& rPassword, sal_Bool bRepeat, sal_Bool bNewTitle ) +{ + sal_Bool bOK = sal_False; + sal_uInt16 nRet = 0; + + do + { + // password dialog + SfxPasswordDialog* pDlg = new SfxPasswordDialog( Application::GetDefDialogParent() ); + pDlg->SetMinLen( 1 ); + + // set new title + if ( bNewTitle ) + { + String aTitle( IDEResId( RID_STR_ENTERPASSWORD ) ); + aTitle.SearchAndReplace( String( RTL_CONSTASCII_USTRINGPARAM( "XX" ) ), rLibName ); + pDlg->SetText( aTitle ); + } + + // execute dialog + nRet = pDlg->Execute(); + + // verify password + if ( nRet == RET_OK ) + { + ::rtl::OUString aOULibName( rLibName ); + if ( xLibContainer.is() && xLibContainer->hasByName( aOULibName ) ) + { + Reference< script::XLibraryContainerPassword > xPasswd( xLibContainer, UNO_QUERY ); + if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aOULibName ) && !xPasswd->isLibraryPasswordVerified( aOULibName ) ) + { + rPassword = pDlg->GetPassword(); + ::rtl::OUString aOUPassword( rPassword ); + bOK = xPasswd->verifyLibraryPassword( aOULibName, aOUPassword ); + + if ( !bOK ) + { + ErrorBox aErrorBox( Application::GetDefDialogParent(), WB_OK, String( IDEResId( RID_STR_WRONGPASSWORD ) ) ); + aErrorBox.Execute(); + } + } + } + } + + delete pDlg; + } + while ( bRepeat && !bOK && nRet == RET_OK ); + + return bOK; +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/brkdlg.cxx b/basctl/source/basicide/brkdlg.cxx new file mode 100644 index 000000000000..7c640c5a6979 --- /dev/null +++ b/basctl/source/basicide/brkdlg.cxx @@ -0,0 +1,274 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include <limits> + +#include <vcl/sound.hxx> + +#define _SVX_NOIDERESIDS +#include <brkdlg.hxx> +#include <brkdlg.hrc> +#include <basidesh.hxx> +#include <basidesh.hrc> +#include <iderdll.hxx> +#include <sfx2/dispatch.hxx> +#include <sfx2/viewfrm.hxx> + +// FIXME Why does BreakPointDialog allow only sal_uInt16 for break-point line +// numbers, whereas BreakPoint supports sal_uLong? + +bool lcl_ParseText( String aText, size_t& rLineNr ) +{ + // aText should look like "# n" where + // n > 0 && n < std::numeric_limits< sal_uInt16 >::max(). + // All spaces are ignored, so there can even be spaces within the + // number n. (Maybe it would be better to ignore all whitespace instead + // of just spaces.) + aText.EraseAllChars(' '); + sal_Unicode cFirst = aText.GetChar(0); + if (cFirst != '#' && !(cFirst >= '0' && cFirst <= '9')) + return false; + if (cFirst == '#') + aText.Erase(0, 1); + // XXX Assumes that sal_uInt16 is contained within sal_Int32: + sal_Int32 n = aText.ToInt32(); + if ( n <= 0 ) + return false; + rLineNr = static_cast< size_t >(n); + return true; +} + +BreakPointDialog::BreakPointDialog( Window* pParent, BreakPointList& rBrkPntList ) : + ModalDialog( pParent, IDEResId( RID_BASICIDE_BREAKPOINTDLG ) ), + aComboBox( this, IDEResId( RID_CB_BRKPOINTS ) ), + aOKButton( this, IDEResId( RID_PB_OK ) ), + aCancelButton( this, IDEResId( RID_PB_CANCEL ) ), + aNewButton( this, IDEResId( RID_PB_NEW ) ), + aDelButton( this, IDEResId( RID_PB_DEL ) ), + aCheckBox( this, IDEResId( RID_CHKB_ACTIVE ) ), + aBrkText( this, IDEResId( RID_FT_BRKPOINTS ) ), + aPassText( this, IDEResId( RID_FT_PASS ) ), + aNumericField( this, IDEResId( RID_FLD_PASS ) ), + m_rOriginalBreakPointList(rBrkPntList), + m_aModifiedBreakPointList(rBrkPntList) +{ + FreeResource(); + + aComboBox.SetUpdateMode( sal_False ); + for ( size_t i = 0, n = m_aModifiedBreakPointList.size(); i < n; ++i ) + { + BreakPoint* pBrk = m_aModifiedBreakPointList.at( i ); + String aEntryStr( RTL_CONSTASCII_USTRINGPARAM( "# " ) ); + aEntryStr += String::CreateFromInt32( pBrk->nLine ); + aComboBox.InsertEntry( aEntryStr, COMBOBOX_APPEND ); + } + aComboBox.SetUpdateMode( sal_True ); + + aOKButton.SetClickHdl( LINK( this, BreakPointDialog, ButtonHdl ) ); + aNewButton.SetClickHdl( LINK( this, BreakPointDialog, ButtonHdl ) ); + aDelButton.SetClickHdl( LINK( this, BreakPointDialog, ButtonHdl ) ); + + aCheckBox.SetClickHdl( LINK( this, BreakPointDialog, CheckBoxHdl ) ); + aComboBox.SetSelectHdl( LINK( this, BreakPointDialog, ComboBoxHighlightHdl ) ); + aComboBox.SetModifyHdl( LINK( this, BreakPointDialog, EditModifyHdl ) ); + aComboBox.GrabFocus(); + + aNumericField.SetMin( 0 ); + aNumericField.SetMax( 0x7FFFFFFF ); + aNumericField.SetSpinSize( 1 ); + aNumericField.SetStrictFormat( sal_True ); + aNumericField.SetModifyHdl( LINK( this, BreakPointDialog, EditModifyHdl ) ); + + aComboBox.SetText( aComboBox.GetEntry( 0 ) ); + UpdateFields( m_aModifiedBreakPointList.at( 0 ) ); + + CheckButtons(); +} + +void BreakPointDialog::SetCurrentBreakPoint( BreakPoint* pBrk ) +{ + String aStr( RTL_CONSTASCII_USTRINGPARAM( "# " ) ); + aStr += String::CreateFromInt32( pBrk->nLine ); + aComboBox.SetText( aStr ); + UpdateFields( pBrk ); +} + +void BreakPointDialog::CheckButtons() +{ + // "New" button is enabled if the combo box edit contains a valid line + // number that is not already present in the combo box list; otherwise + // "OK" and "Delete" buttons are enabled: + size_t nLine; + if (lcl_ParseText(aComboBox.GetText(), nLine) + && m_aModifiedBreakPointList.FindBreakPoint(nLine) == 0) + { + aNewButton.Enable(); + aOKButton.Disable(); + aDelButton.Disable(); + } + else + { + aNewButton.Disable(); + aOKButton.Enable(); + aDelButton.Enable(); + } +} + +IMPL_LINK_INLINE_START( BreakPointDialog, CheckBoxHdl, CheckBox *, pChkBx ) +{ + BreakPoint* pBrk = GetSelectedBreakPoint(); + if ( pBrk ) + pBrk->bEnabled = pChkBx->IsChecked(); + + return 0; +} +IMPL_LINK_INLINE_END( BreakPointDialog, CheckBoxHdl, CheckBox *, pChkBx ) + + + +IMPL_LINK( BreakPointDialog, ComboBoxHighlightHdl, ComboBox *, pBox ) +{ + aNewButton.Disable(); + aOKButton.Enable(); + aDelButton.Enable(); + + sal_uInt16 nEntry = pBox->GetEntryPos( pBox->GetText() ); + BreakPoint* pBrk = m_aModifiedBreakPointList.at( nEntry ); + DBG_ASSERT( pBrk, "Kein passender Breakpoint zur Liste ?" ); + UpdateFields( pBrk ); + + return 0; +} + + + +IMPL_LINK( BreakPointDialog, EditModifyHdl, Edit *, pEdit ) +{ + if ( pEdit == &aComboBox ) + CheckButtons(); + else if ( pEdit == &aNumericField ) + { + BreakPoint* pBrk = GetSelectedBreakPoint(); + if ( pBrk ) + pBrk->nStopAfter = pEdit->GetText().ToInt32(); + } + return 0; +} + + + +IMPL_LINK( BreakPointDialog, ButtonHdl, Button *, pButton ) +{ + if ( pButton == &aOKButton ) + { + m_rOriginalBreakPointList.transfer(m_aModifiedBreakPointList); + EndDialog( 1 ); + } + else if ( pButton == &aNewButton ) + { + // Checkbox beruecksichtigen! + String aText( aComboBox.GetText() ); + size_t nLine; + bool bValid = lcl_ParseText( aText, nLine ); + if ( bValid ) + { + BreakPoint* pBrk = new BreakPoint( nLine ); + pBrk->bEnabled = aCheckBox.IsChecked(); + pBrk->nStopAfter = (size_t) aNumericField.GetValue(); + m_aModifiedBreakPointList.InsertSorted( pBrk ); + String aEntryStr( RTL_CONSTASCII_USTRINGPARAM( "# " ) ); + aEntryStr += String::CreateFromInt32( pBrk->nLine ); + aComboBox.InsertEntry( aEntryStr, COMBOBOX_APPEND ); + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if( pDispatcher ) + { + pDispatcher->Execute( SID_BASICIDE_BRKPNTSCHANGED ); + } + } + else + { + aComboBox.SetText( aText ); + aComboBox.GrabFocus(); + Sound::Beep(); + } + CheckButtons(); + } + else if ( pButton == &aDelButton ) + { + size_t nEntry = aComboBox.GetEntryPos( aComboBox.GetText() ); + BreakPoint* pBrk = m_aModifiedBreakPointList.at( nEntry ); + if ( pBrk ) + { + delete m_aModifiedBreakPointList.remove( pBrk ); + aComboBox.RemoveEntry( nEntry ); + if ( nEntry && !( nEntry < aComboBox.GetEntryCount() ) ) + nEntry--; + aComboBox.SetText( aComboBox.GetEntry( nEntry ) ); + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + + if( pDispatcher ) + { + pDispatcher->Execute( SID_BASICIDE_BRKPNTSCHANGED ); + } + } + CheckButtons(); + } + + return 0; +} + + + +void BreakPointDialog::UpdateFields( BreakPoint* pBrk ) +{ + if ( pBrk ) + { + aCheckBox.Check( pBrk->bEnabled ); + aNumericField.SetValue( pBrk->nStopAfter ); + } +} + + + +BreakPoint* BreakPointDialog::GetSelectedBreakPoint() +{ + size_t nEntry = aComboBox.GetEntryPos( aComboBox.GetText() ); + BreakPoint* pBrk = m_aModifiedBreakPointList.at( nEntry ); + return pBrk; +} + + + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/brkdlg.hrc b/basctl/source/basicide/brkdlg.hrc new file mode 100644 index 000000000000..921990d35e6c --- /dev/null +++ b/basctl/source/basicide/brkdlg.hrc @@ -0,0 +1,45 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#ifndef _BRKDLG_HRC +#define _BRKDLG_HRC + +#include <svl/solar.hrc> + +#define RID_BASICIDE_BREAKPOINTDLG ( RID_BASICIDE_START + 80 ) + +#define RID_CB_BRKPOINTS 2 +#define RID_PB_OK 3 +#define RID_PB_CANCEL 4 +#define RID_PB_NEW 5 +#define RID_PB_DEL 6 +#define RID_CHKB_ACTIVE 7 +#define RID_FT_PASS 8 +#define RID_FT_BRKPOINTS 9 +#define RID_FLD_PASS 10 + +#endif // _BRKDLG_HRC + diff --git a/basctl/source/basicide/brkdlg.hxx b/basctl/source/basicide/brkdlg.hxx new file mode 100644 index 000000000000..04777bb70518 --- /dev/null +++ b/basctl/source/basicide/brkdlg.hxx @@ -0,0 +1,75 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _BRKDLG_HXX +#define _BRKDLG_HXX + +#include <svheader.hxx> +#include <bastypes.hxx> +#include <vcl/dialog.hxx> + +#include <vcl/button.hxx> +#include <vcl/field.hxx> +#include <vcl/fixed.hxx> + +class BreakPointDialog : public ModalDialog +{ +private: + ComboBox aComboBox; + OKButton aOKButton; + CancelButton aCancelButton; + PushButton aNewButton; + PushButton aDelButton; +// PushButton aShowButton; + CheckBox aCheckBox; + FixedText aBrkText; + FixedText aPassText; + NumericField aNumericField; + + BreakPointList & m_rOriginalBreakPointList; + BreakPointList m_aModifiedBreakPointList; + +protected: + void CheckButtons(); + DECL_LINK( CheckBoxHdl, CheckBox * ); + DECL_LINK( ComboBoxHighlightHdl, ComboBox * ); + DECL_LINK( EditModifyHdl, Edit * ); + DECL_LINK( ButtonHdl, Button * ); + void UpdateFields( BreakPoint* pBrk ); + BreakPoint* GetSelectedBreakPoint(); + + +public: + BreakPointDialog( Window* pParent, BreakPointList& rBrkList ); + + void SetCurrentBreakPoint( BreakPoint* pBrk ); +}; + +#endif // _BRKDLG_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/brkdlg.src b/basctl/source/basicide/brkdlg.src new file mode 100644 index 000000000000..93f8b9f35cfe --- /dev/null +++ b/basctl/source/basicide/brkdlg.src @@ -0,0 +1,134 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#include "helpid.hrc" +#include <brkdlg.hrc> +ModalDialog RID_BASICIDE_BREAKPOINTDLG +{ + HelpId = "basctl:RID_BASICIDE_BREAKPOINTDLG" ; + OutputSize = TRUE ; + SVLook = TRUE ; + Size = MAP_APPFONT ( 178 , 116 ) ; + Moveable = TRUE ; + // Closeable = TRUE; + ComboBox RID_CB_BRKPOINTS + { + HelpID = "basctl:ComboBox:RID_BASICIDE_BREAKPOINTDLG:RID_CB_BRKPOINTS"; + Pos = MAP_APPFONT ( 6 , 14 ) ; + Size = MAP_APPFONT ( 110 , 70 ) ; + TabStop = TRUE ; + }; + OKButton RID_PB_OK + { + Pos = MAP_APPFONT ( 122 , 6 ) ; + Size = MAP_APPFONT ( 50 , 14 ) ; + TabStop = TRUE ; + }; + CancelButton RID_PB_CANCEL + { + Pos = MAP_APPFONT ( 122 , 23 ) ; + Size = MAP_APPFONT ( 50 , 14 ) ; + TabStop = TRUE ; + }; + PushButton RID_PB_NEW + { + HelpID = "basctl:PushButton:RID_BASICIDE_BREAKPOINTDLG:RID_PB_NEW"; + Pos = MAP_APPFONT ( 122 , 57 ) ; + Size = MAP_APPFONT ( 50 , 14 ) ; + TabStop = TRUE ; + Text [ en-US ] = "New" ; + }; + PushButton RID_PB_DEL + { + HelpID = "basctl:PushButton:RID_BASICIDE_BREAKPOINTDLG:RID_PB_DEL"; + Pos = MAP_APPFONT ( 122 , 74 ) ; + Size = MAP_APPFONT ( 50 , 14 ) ; + TabStop = TRUE ; + Text [ en-US ] = "Delete" ; + }; + CheckBox RID_CHKB_ACTIVE + { + HelpID = "basctl:CheckBox:RID_BASICIDE_BREAKPOINTDLG:RID_CHKB_ACTIVE"; + Pos = MAP_APPFONT ( 6 , 87 ) ; + Size = MAP_APPFONT ( 40 , 12 ) ; + TabStop = TRUE ; + Text [ en-US ] = "Active" ; + }; + FixedText RID_FT_PASS + { + Pos = MAP_APPFONT ( 6 , 102 ) ; + Size = MAP_APPFONT ( 75 , 10 ) ; + Text [ en-US ] = "Pass Count:" ; + }; + FixedText RID_FT_BRKPOINTS + { + Pos = MAP_APPFONT ( 6 , 3 ) ; + Size = MAP_APPFONT ( 110, 10 ) ; + Text [ en-US ] = "Breakpoints" ; + }; + NumericField RID_FLD_PASS + { + HelpID = "basctl:NumericField:RID_BASICIDE_BREAKPOINTDLG:RID_FLD_PASS"; + Border = TRUE ; + Pos = MAP_APPFONT ( 81 , 100 ) ; + Size = MAP_APPFONT ( 35 , 12 ) ; + TabStop = TRUE ; + }; + Text [ en-US ] = "Manage Breakpoints" ; +}; + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/basctl/source/basicide/doceventnotifier.cxx b/basctl/source/basicide/doceventnotifier.cxx new file mode 100644 index 000000000000..a47c269f2c3d --- /dev/null +++ b/basctl/source/basicide/doceventnotifier.cxx @@ -0,0 +1,280 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include "doceventnotifier.hxx" +#include "scriptdocument.hxx" + +/** === begin UNO includes === **/ +#include <com/sun/star/document/XEventBroadcaster.hpp> +/** === end UNO includes === **/ + +#include <vcl/svapp.hxx> + +#include <tools/diagnose_ex.h> + +#include <comphelper/componentcontext.hxx> +#include <comphelper/processfactory.hxx> + +#include <osl/mutex.hxx> +#include <sal/macros.h> + +#include <cppuhelper/compbase1.hxx> +#include <cppuhelper/basemutex.hxx> + +//........................................................................ +namespace basctl +{ +//........................................................................ + + /** === begin UNO using === **/ + using ::com::sun::star::document::XEventBroadcaster; + using ::com::sun::star::document::XEventListener; + using ::com::sun::star::document::EventObject; + using ::com::sun::star::uno::RuntimeException; + using ::com::sun::star::uno::Reference; + using ::com::sun::star::uno::UNO_QUERY_THROW; + using ::com::sun::star::uno::Exception; + using ::com::sun::star::frame::XModel; + using ::com::sun::star::uno::UNO_QUERY; + /** === end UNO using === **/ + namespace csslang = ::com::sun::star::lang; + + //==================================================================== + //= DocumentEventNotifier_Impl + //==================================================================== + typedef ::cppu::WeakComponentImplHelper1 < XEventListener + > DocumentEventNotifier_Impl_Base; + + enum ListenerAction + { + RegisterListener, + RemoveListener + }; + + /** impl class for DocumentEventNotifier + */ + class DocumentEventNotifier_Impl :public ::boost::noncopyable + ,public ::cppu::BaseMutex + ,public DocumentEventNotifier_Impl_Base + { + public: + DocumentEventNotifier_Impl( DocumentEventListener& _rListener, const Reference< XModel >& _rxDocument ); + + // document::XEventListener + virtual void SAL_CALL notifyEvent( const EventObject& Event ) throw (RuntimeException); + + // lang::XEventListener + virtual void SAL_CALL disposing( const csslang::EventObject& Event ) throw (RuntimeException); + + // ComponentHelper + virtual void SAL_CALL disposing(); + + protected: + ~DocumentEventNotifier_Impl(); + + private: + /// determines whether the instance is already disposed + bool impl_isDisposed_nothrow() const { return m_pListener == NULL; } + + /// disposes the instance + void impl_dispose_nothrow(); + + /// registers or revokes the instance as listener at the global event broadcaster + void impl_listenerAction_nothrow( ListenerAction _eAction ); + + private: + DocumentEventListener* m_pListener; + Reference< XModel > m_xModel; + }; + + //-------------------------------------------------------------------- + DocumentEventNotifier_Impl::DocumentEventNotifier_Impl( DocumentEventListener& _rListener, const Reference< XModel >& _rxDocument ) + :DocumentEventNotifier_Impl_Base( m_aMutex ) + ,m_pListener( &_rListener ) + ,m_xModel( _rxDocument ) + { + osl_incrementInterlockedCount( &m_refCount ); + impl_listenerAction_nothrow( RegisterListener ); + osl_decrementInterlockedCount( &m_refCount ); + } + + //-------------------------------------------------------------------- + DocumentEventNotifier_Impl::~DocumentEventNotifier_Impl() + { + if ( !impl_isDisposed_nothrow() ) + { + acquire(); + dispose(); + } + } + + //-------------------------------------------------------------------- + void SAL_CALL DocumentEventNotifier_Impl::notifyEvent( const EventObject& _rEvent ) throw (RuntimeException) + { + ::osl::ClearableMutexGuard aGuard( m_aMutex ); + + OSL_PRECOND( !impl_isDisposed_nothrow(), "DocumentEventNotifier_Impl::notifyEvent: disposed, but still getting events?" ); + if ( impl_isDisposed_nothrow() ) + return; + + Reference< XModel > xDocument( _rEvent.Source, UNO_QUERY ); + OSL_ENSURE( xDocument.is(), "DocumentEventNotifier_Impl::notifyEvent: illegal source document!" ); + if ( !xDocument.is() ) + return; + + struct EventEntry + { + const sal_Char* pEventName; + void (DocumentEventListener::*listenerMethod)( const ScriptDocument& _rDocument ); + }; + EventEntry aEvents[] = { + { "OnNew", &DocumentEventListener::onDocumentCreated }, + { "OnLoad", &DocumentEventListener::onDocumentOpened }, + { "OnSave", &DocumentEventListener::onDocumentSave }, + { "OnSaveDone", &DocumentEventListener::onDocumentSaveDone }, + { "OnSaveAs", &DocumentEventListener::onDocumentSaveAs }, + { "OnSaveAsDone", &DocumentEventListener::onDocumentSaveAsDone }, + { "OnUnload", &DocumentEventListener::onDocumentClosed }, + { "OnTitleChanged", &DocumentEventListener::onDocumentTitleChanged }, + { "OnModeChanged", &DocumentEventListener::onDocumentModeChanged } + }; + + for ( size_t i=0; i < SAL_N_ELEMENTS( aEvents ); ++i ) + { + if ( !_rEvent.EventName.equalsAscii( aEvents[i].pEventName ) ) + continue; + + ScriptDocument aDocument( xDocument ); + { + // the listener implementations usually require the SolarMutex, so lock it here. + // But ensure the proper order of locking the solar and the own mutex + aGuard.clear(); + SolarMutexGuard aSolarGuard; + ::osl::MutexGuard aGuard2( m_aMutex ); + + if ( impl_isDisposed_nothrow() ) + // somebody took the chance to dispose us -> bail out + return; + + (m_pListener->*aEvents[i].listenerMethod)( aDocument ); + } + break; + } + } + + //-------------------------------------------------------------------- + void SAL_CALL DocumentEventNotifier_Impl::disposing( const csslang::EventObject& /*Event*/ ) throw (RuntimeException) + { + SolarMutexGuard aSolarGuard; + ::osl::MutexGuard aGuard( m_aMutex ); + + if ( !impl_isDisposed_nothrow() ) + impl_dispose_nothrow(); + } + + //-------------------------------------------------------------------- + void SAL_CALL DocumentEventNotifier_Impl::disposing() + { + impl_listenerAction_nothrow( RemoveListener ); + impl_dispose_nothrow(); + } + + //-------------------------------------------------------------------- + void DocumentEventNotifier_Impl::impl_dispose_nothrow() + { + m_pListener = NULL; + m_xModel.clear(); + } + + //-------------------------------------------------------------------- + void DocumentEventNotifier_Impl::impl_listenerAction_nothrow( ListenerAction _eAction ) + { + try + { + Reference< XEventBroadcaster > xBroadcaster; + if ( m_xModel.is() ) + xBroadcaster.set( m_xModel, UNO_QUERY_THROW ); + else + { + ::comphelper::ComponentContext aContext( ::comphelper::getProcessServiceFactory() ); + xBroadcaster.set( + aContext.createComponent( "com.sun.star.frame.GlobalEventBroadcaster" ), + UNO_QUERY_THROW ); + } + + void ( SAL_CALL XEventBroadcaster::*listenerAction )( const Reference< XEventListener >& ) = + ( _eAction == RegisterListener ) ? &XEventBroadcaster::addEventListener : &XEventBroadcaster::removeEventListener; + (xBroadcaster.get()->*listenerAction)( this ); + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + + //==================================================================== + //= DocumentEventNotifier + //==================================================================== + //-------------------------------------------------------------------- + DocumentEventNotifier::DocumentEventNotifier( DocumentEventListener& _rListener, const Reference< XModel >& _rxDocument ) + :m_pImpl( new DocumentEventNotifier_Impl( _rListener, _rxDocument ) ) + { + } + + //-------------------------------------------------------------------- + DocumentEventNotifier::DocumentEventNotifier( DocumentEventListener& _rListener ) + :m_pImpl( new DocumentEventNotifier_Impl( _rListener, Reference< XModel >() ) ) + { + } + + //-------------------------------------------------------------------- + DocumentEventNotifier::~DocumentEventNotifier() + { + } + + //-------------------------------------------------------------------- + void DocumentEventNotifier::dispose() + { + m_pImpl->dispose(); + } + + //==================================================================== + //= DocumentEventListener + //==================================================================== + DocumentEventListener::~DocumentEventListener() + { + } + +//........................................................................ +} // namespace basctl +//........................................................................ + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/docsignature.cxx b/basctl/source/basicide/docsignature.cxx new file mode 100644 index 000000000000..19cf14004612 --- /dev/null +++ b/basctl/source/basicide/docsignature.cxx @@ -0,0 +1,118 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include "docsignature.hxx" +#include "scriptdocument.hxx" + +/** === begin UNO includes === **/ +/** === end UNO includes === **/ + +#include <sfx2/objsh.hxx> +#include <sfx2/signaturestate.hxx> + +//........................................................................ +namespace basctl +{ +//........................................................................ + + /** === begin UNO using === **/ + using ::com::sun::star::uno::Reference; + using ::com::sun::star::uno::UNO_QUERY; + using ::com::sun::star::uno::UNO_QUERY_THROW; + using ::com::sun::star::uno::Exception; + using ::com::sun::star::uno::RuntimeException; + using ::com::sun::star::frame::XModel; + /** === end UNO using === **/ + + //==================================================================== + //= DocumentSignature_Data + //==================================================================== + struct DocumentSignature_Data + { + SfxObjectShell* pShell; + + DocumentSignature_Data() : pShell( NULL ) { } + }; + + //==================================================================== + //= DocumentSignature + //==================================================================== + //-------------------------------------------------------------------- + DocumentSignature::DocumentSignature( const ScriptDocument& _rDocument ) + :m_pData( new DocumentSignature_Data ) + { + if ( _rDocument.isDocument() ) + { + Reference< XModel > xDocument( _rDocument.getDocument() ); + // find object shell for document + SfxObjectShell* pShell = SfxObjectShell::GetFirst(); + while ( pShell ) + { + if ( pShell->GetModel() == xDocument ) + break; + pShell = SfxObjectShell::GetNext( *pShell ); + } + m_pData->pShell = pShell; + } + } + + //-------------------------------------------------------------------- + DocumentSignature::~DocumentSignature() + { + } + + //-------------------------------------------------------------------- + bool DocumentSignature::supportsSignatures() const + { + return ( m_pData->pShell != NULL ); + } + + //-------------------------------------------------------------------- + void DocumentSignature::signScriptingContent() const + { + OSL_PRECOND( supportsSignatures(), "DocumentSignature::signScriptingContent: signatures not supported by this document!" ); + if ( m_pData->pShell ) + m_pData->pShell->SignScriptingContent(); + } + + //-------------------------------------------------------------------- + sal_uInt16 DocumentSignature::getScriptingSignatureState() const + { + if ( m_pData->pShell ) + return m_pData->pShell->GetScriptingSignatureState(); + return SIGNATURESTATE_NOSIGNATURES; + } + +//........................................................................ +} // namespace basctl +//........................................................................ + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/documentenumeration.cxx b/basctl/source/basicide/documentenumeration.cxx new file mode 100644 index 000000000000..e9cfa14b1ee0 --- /dev/null +++ b/basctl/source/basicide/documentenumeration.cxx @@ -0,0 +1,206 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include "documentenumeration.hxx" + +/** === begin UNO includes === **/ +#include <com/sun/star/frame/XDesktop.hpp> +#include <com/sun/star/frame/XModel2.hpp> +#include <com/sun/star/frame/FrameSearchFlag.hpp> +#include <com/sun/star/lang/XServiceInfo.hpp> +#include <com/sun/star/frame/XFramesSupplier.hpp> +/** === end UNO includes === **/ + +#include <tools/diagnose_ex.h> + +#include <comphelper/stl_types.hxx> + +//........................................................................ +namespace basctl { namespace docs { +//........................................................................ + + /** === begin UNO using === **/ + using ::com::sun::star::uno::Exception; + using ::com::sun::star::uno::Reference; + using ::com::sun::star::uno::UNO_QUERY_THROW; + using ::com::sun::star::uno::UNO_SET_THROW; + using ::com::sun::star::frame::XDesktop; + using ::com::sun::star::container::XEnumerationAccess; + using ::com::sun::star::container::XEnumeration; + using ::com::sun::star::uno::Any; + using ::com::sun::star::frame::XModel; + using ::com::sun::star::frame::XFramesSupplier; + using ::com::sun::star::frame::XFrames; + using ::com::sun::star::frame::XController; + using ::com::sun::star::frame::XModel2; + using ::com::sun::star::uno::UNO_QUERY; + using ::com::sun::star::lang::XServiceInfo; + using ::com::sun::star::uno::Sequence; + using ::com::sun::star::frame::XFrame; + /** === end UNO using === **/ + namespace FrameSearchFlag = ::com::sun::star::frame::FrameSearchFlag; + + //==================================================================== + //= DocumentEnumeration_Data + //==================================================================== + struct DocumentEnumeration_Data + { + ::comphelper::ComponentContext aContext; + const IDocumentDescriptorFilter* pFilter; + + DocumentEnumeration_Data( const ::comphelper::ComponentContext& _rContext, const IDocumentDescriptorFilter* _pFilter ) + :aContext( _rContext ) + ,pFilter( _pFilter ) + { + } + }; + + //==================================================================== + //= DocumentEnumeration + //==================================================================== + //-------------------------------------------------------------------- + DocumentEnumeration::DocumentEnumeration( const ::comphelper::ComponentContext& _rContext, const IDocumentDescriptorFilter* _pFilter ) + :m_pData( new DocumentEnumeration_Data( _rContext, _pFilter ) ) + { + } + + //-------------------------------------------------------------------- + DocumentEnumeration::~DocumentEnumeration() + { + } + + //-------------------------------------------------------------------- + namespace + { + //................................................................ + void lcl_getDocumentControllers_nothrow( DocumentDescriptor& _io_rDocDesc ) + { + OSL_PRECOND( _io_rDocDesc.xModel.is(), "lcl_getDocumentControllers_nothrow: illegal model!" ); + + _io_rDocDesc.aControllers.clear(); + try + { + Reference< XModel2 > xModel2( _io_rDocDesc.xModel, UNO_QUERY ); + if ( xModel2.is() ) + { + Reference< XEnumeration > xEnum( xModel2->getControllers(), UNO_SET_THROW ); + while ( xEnum->hasMoreElements() ) + { + Reference< XController > xController( xEnum->nextElement(), UNO_QUERY_THROW ); + _io_rDocDesc.aControllers.push_back( xController ); + } + } + else if ( _io_rDocDesc.xModel.is() ) + _io_rDocDesc.aControllers.push_back( _io_rDocDesc.xModel->getCurrentController() ); + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + + //................................................................ + void lcl_getDocuments_nothrow( const Sequence< Reference< XFrame > >& _rFrames, Documents& _out_rDocuments, + const IDocumentDescriptorFilter* _pFilter ) + { + // ensure we don't encounter some models multiple times + ::std::set< Reference< XModel >, ::comphelper::OInterfaceCompare< XModel > > aEncounteredModels; + + for ( const Reference< XFrame >* pFrame = _rFrames.getConstArray(); + pFrame != _rFrames.getConstArray() + _rFrames.getLength(); + ++pFrame + ) + { + try + { + OSL_ENSURE( pFrame->is(), "lcl_getDocuments_nothrow: illegal frame!" ); + if ( !pFrame->is() ) + continue; + Reference< XController > xController( (*pFrame)->getController() ); + if ( !xController.is() ) + continue; + + Reference< XModel > xModel( xController->getModel() ); + if ( !xModel.is() ) + // though it's legal for a controller to not have a model, we're not interested in + // those + continue; + + if ( aEncounteredModels.find( xModel ) != aEncounteredModels.end() ) + // there might be multiple frames for the same model + // handle it only once + continue; + aEncounteredModels.insert( xModel ); + + // create a DocumentDescriptor + DocumentDescriptor aDescriptor; + aDescriptor.xModel = xModel; + lcl_getDocumentControllers_nothrow( aDescriptor ); + + // consult filter, if there is one + if ( _pFilter && !_pFilter->includeDocument( aDescriptor ) ) + continue; + + _out_rDocuments.push_back( aDescriptor ); + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + } + } + + //-------------------------------------------------------------------- + void DocumentEnumeration::getDocuments( Documents& _out_rDocuments ) const + { + _out_rDocuments.clear(); + + try + { + const Reference< XDesktop > xDesktop( m_pData->aContext.createComponent( "com.sun.star.frame.Desktop" ), UNO_QUERY_THROW ); + const Reference< XFramesSupplier > xSuppFrames( xDesktop, UNO_QUERY_THROW ); + const Reference< XFrames > xFrames( xSuppFrames->getFrames(), UNO_SET_THROW ); + const Sequence< Reference< XFrame > > aFrames( xFrames->queryFrames( FrameSearchFlag::ALL ) ); + + lcl_getDocuments_nothrow( aFrames, _out_rDocuments, m_pData->pFilter ); + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + +//........................................................................ +} } // namespace basctl::docs +//........................................................................ + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/documentenumeration.hxx b/basctl/source/basicide/documentenumeration.hxx new file mode 100644 index 000000000000..6778c676c15c --- /dev/null +++ b/basctl/source/basicide/documentenumeration.hxx @@ -0,0 +1,109 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef BASCTL_DOCUMENTENUMERATION_HXX +#define BASCTL_DOCUMENTENUMERATION_HXX + +/** === begin UNO includes === **/ +#include <com/sun/star/frame/XModel.hpp> +#include <com/sun/star/frame/XController.hpp> +/** === end UNO includes === **/ + +#include <comphelper/componentcontext.hxx> + +#include <memory> +#include <vector> + +//........................................................................ +namespace basctl { namespace docs { +//........................................................................ + + typedef ::com::sun::star::uno::Reference< ::com::sun::star::frame::XModel > Model; + typedef ::std::vector< ::com::sun::star::uno::Reference< ::com::sun::star::frame::XController > > Controllers; + + struct DocumentDescriptor + { + Model xModel; + Controllers aControllers; + }; + + typedef ::std::vector< DocumentDescriptor > Documents; + + //==================================================================== + //= IDocumentDescriptorFilter + //==================================================================== + /// allows pre-filtering when enumerating document descriptors + class SAL_NO_VTABLE IDocumentDescriptorFilter + { + public: + virtual bool includeDocument( const DocumentDescriptor& _rDocument ) const = 0; + }; + + //==================================================================== + //= DocumentEnumeration + //==================================================================== + struct DocumentEnumeration_Data; + /** is a helper class for enumerating documents in OOo + + If you need a list of all open documents in OOo, this is little bit of + a hassle: You need to iterate though all components at the desktop, which + might or might not be documents. + + Additionally, you need to examine the existing documents' frames + for sub frames, which might contain sub documents (e.g. embedded objects + edited out-place). + + DocumentEnumeration relieves you from this hassle. + */ + class DocumentEnumeration + { + public: + DocumentEnumeration( const ::comphelper::ComponentContext& _rContext, const IDocumentDescriptorFilter* _pFilter = NULL ); + ~DocumentEnumeration(); + + /** retrieves a list of all currently known documents in the application + + @param _out_rDocuments + output parameter taking the collected document information + @ + */ + void getDocuments( + Documents& _out_rDocuments + ) const; + + private: + ::std::auto_ptr< DocumentEnumeration_Data > m_pData; + }; + +//........................................................................ +} } // namespace basctl::docs +//........................................................................ + +#endif // BASCTL_DOCUMENTENUMERATION_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/ide_pch.cxx b/basctl/source/basicide/ide_pch.cxx new file mode 100644 index 000000000000..44937011dc2f --- /dev/null +++ b/basctl/source/basicide/ide_pch.cxx @@ -0,0 +1,33 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" +#include <ide_pch.hxx> + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/ide_pch.hxx b/basctl/source/basicide/ide_pch.hxx new file mode 100644 index 000000000000..b0d6e2d5de9e --- /dev/null +++ b/basctl/source/basicide/ide_pch.hxx @@ -0,0 +1,71 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#include <svheader.hxx> + +#define ITEMID_SEARCH 0 +#define ITEMID_SIZE 0 + +#include <vcl/wrkwin.hxx> +#include <vcl/msgbox.hxx> +#include <vcl/menu.hxx> + +#include <svl/svarray.hxx> +#include <svl/itemset.hxx> +#include <svl/aeitem.hxx> +#include <svl/stritem.hxx> +#include <svl/whiter.hxx> +#include <svl/intitem.hxx> +#include <svl/srchitem.hxx> + +#define _BASIC_TEXTPORTIONS +#include <basic/sbdef.hxx> +#include <basic/sbstar.hxx> +#include <basic/sbmeth.hxx> +#include <basic/sbmod.hxx> +#include <basic/basmgr.hxx> + +#include <sfx2/app.hxx> +#include <sfx2/objface.hxx> +#include <sfx2/printer.hxx> +#include <sfx2/viewsh.hxx> +#include <sfx2/event.hxx> +#include <sfx2/bindings.hxx> +#include <sfx2/request.hxx> +#include <sfx2/childwin.hxx> +#include <sfx2/viewfrm.hxx> +#include <sfx2/objsh.hxx> +#include <sfx2/genlink.hxx> +#include <sfx2/dispatch.hxx> +#include <sfx2/minfitem.hxx> +#include <sfx2/dinfdlg.hxx> +#include <sfx2/docfac.hxx> +#include <sfx2/progress.hxx> +#include <editeng/sizeitem.hxx> + + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/iderdll.cxx b/basctl/source/basicide/iderdll.cxx new file mode 100644 index 000000000000..8e59d4d7e2e0 --- /dev/null +++ b/basctl/source/basicide/iderdll.cxx @@ -0,0 +1,216 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + + +#include <ide_pch.hxx> + + +#include <svheader.hxx> +#include <sfx2/app.hxx> +#include <sfx2/dispatch.hxx> +#include <sfx2/genlink.hxx> + + +#include <svl/solar.hrc> +#include <iderdll.hxx> +#include <iderdll2.hxx> +#include <iderid.hxx> +#include <svx/svxids.hrc> +#include <basidesh.hxx> +#include <basidesh.hrc> +#include <basobj.hxx> +#include <bastypes.hxx> +#include <basdoc.hxx> +#include <basicmod.hxx> +#include <propbrw.hxx> + + +#define ITEMID_SEARCH 0 +#include <svl/srchitem.hxx> +#include <com/sun/star/script/XLibraryContainerPassword.hpp> + +using ::rtl::OUString; +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; + + +static BasicIDEDLL* pBasicIDEDLL = 0; + +BasicIDEDLL* BasicIDEDLL::GetDLL() +{ + return pBasicIDEDLL; +} + +IDEResId::IDEResId( sal_uInt16 nId ): + ResId( nId, *(*(BasicIDEModule**)GetAppData(SHL_IDE))->GetResMgr() ) +{ +} + +BasicIDEDLL::BasicIDEDLL() +{ + pBasicIDEDLL = this; + pShell = 0; + pExtraData = 0; + + GetExtraData(); // damit GlobalErrorHdl gesetzt wird. +} + +BasicIDEDLL::~BasicIDEDLL() +{ + delete pExtraData; + *(BasicIDEDLL**)GetAppData(SHL_IDE) = NULL; +} + +void BasicIDEDLL::Init() +{ + if ( pBasicIDEDLL ) + return; + + SfxObjectFactory* pFact = &BasicDocShell::Factory(); + (void)pFact; + + ByteString aResMgrName( "basctl" ); + ResMgr* pMgr = ResMgr::CreateResMgr( + aResMgrName.GetBuffer(), Application::GetSettings().GetUILocale() ); + + BASIC_MOD() = new BasicIDEModule( pMgr, &BasicDocShell::Factory() ); + + new BasicIDEDLL; + SfxModule* pMod = BASIC_MOD(); + + SfxObjectFactory& rFactory = BasicDocShell::Factory(); + rFactory.SetDocumentServiceName( String::CreateFromAscii( "com.sun.star.script.BasicIDE" ) ); + + BasicDocShell::RegisterInterface( pMod ); + BasicIDEShell::RegisterFactory( SVX_INTERFACE_BASIDE_VIEWSH ); + BasicIDEShell::RegisterInterface( pMod ); + + PropBrwMgr::RegisterChildWindow(); +} + +/************************************************************************* +|* +|* Deinitialisierung +|* +\************************************************************************/ +void BasicIDEDLL::Exit() +{ + // the BasicIDEModule must be destroyed + BasicIDEModule** ppShlPtr = (BasicIDEModule**) GetAppData(SHL_IDE); + delete (*ppShlPtr); + (*ppShlPtr) = NULL; + DELETEZ( pBasicIDEDLL ); +} + +BasicIDEData* BasicIDEDLL::GetExtraData() +{ + if ( !pExtraData ) + pExtraData = new BasicIDEData; + return pExtraData; +} + +BasicIDEData::BasicIDEData() : aObjCatPos( INVPOSITION, INVPOSITION ) +{ + nBasicDialogCount = 0; + bChoosingMacro = sal_False; + bShellInCriticalSection = sal_False; + pSearchItem = new SvxSearchItem( SID_SEARCH_ITEM ); + + StarBASIC::SetGlobalBreakHdl( LINK( this, BasicIDEData, GlobalBasicBreakHdl ) ); + + pAccelerator = 0; +} + +BasicIDEData::~BasicIDEData() +{ + // ErrorHdl zuruecksetzen ist zwar sauberer, aber diese Instanz wird + // sowieso sehr spaet, nach dem letzten Basic, zerstoert. + // Durch den Aufruf werden dann aber wieder AppDaten erzeugt und nicht + // mehr zerstoert => MLK's beim Purify +// StarBASIC::SetGlobalErrorHdl( Link() ); +// StarBASIC::SetGlobalBreakHdl( Link() ); +// StarBASIC::setGlobalStarScriptListener( XEngineListenerRef() ); + + delete pSearchItem; + //delete pAccelerator; +} + +SvxSearchItem& BasicIDEData::GetSearchItem() const +{ + return *pSearchItem; +} + +void BasicIDEData::SetSearchItem( const SvxSearchItem& rItem ) +{ + delete pSearchItem; + pSearchItem = (SvxSearchItem*)rItem.Clone(); +} + +IMPL_LINK( BasicIDEData, GlobalBasicBreakHdl, StarBASIC *, pBasic ) +{ + long nRet = 0; + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + if ( pIDEShell ) + { + BasicManager* pBasMgr = BasicIDE::FindBasicManager( pBasic ); + if ( pBasMgr ) + { + // Hier lande ich zweimal, wenn Step into protected Basic + // => schlecht, wenn Passwortabfrage 2x, ausserdem sieht man in + // dem PasswordDlg nicht, fuer welche Lib... + // => An dieser Stelle keine Passwort-Abfrage starten + ScriptDocument aDocument( ScriptDocument::getDocumentForBasicManager( pBasMgr ) ); + OSL_ENSURE( aDocument.isValid(), "BasicIDEData::GlobalBasicBreakHdl: no document for the basic manager!" ); + if ( aDocument.isValid() ) + { + ::rtl::OUString aOULibName( pBasic->GetName() ); + Reference< script::XLibraryContainer > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) ) + { + Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); + if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aOULibName ) && !xPasswd->isLibraryPasswordVerified( aOULibName ) ) + { + // Ein Step-Out muesste mich aus den geschuetzten Bereich befoerdern... + nRet = SbDEBUG_STEPOUT; + } + else + { + nRet = pIDEShell->CallBasicBreakHdl( pBasic ); + } + } + } + } + } + + return nRet; +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
\ No newline at end of file diff --git a/basctl/source/basicide/iderdll2.hxx b/basctl/source/basicide/iderdll2.hxx new file mode 100644 index 000000000000..00456cb7a9d6 --- /dev/null +++ b/basctl/source/basicide/iderdll2.hxx @@ -0,0 +1,109 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _IDERDLL2_HXX +#define _IDERDLL2_HXX + +class StarBASIC; +class SvxSearchItem; +class Accelerator; + +#include <tools/string.hxx> +#include <tools/gen.hxx> +#include <tools/link.hxx> + +#include <bastypes.hxx> +#include <bastype2.hxx> + +#define INVPOSITION 0x7fff + +class BasicIDEData +{ +private: + Accelerator* pAccelerator; + SvxSearchItem* pSearchItem; + + LibInfos aLibInfos; + + BasicEntryDescriptor m_aLastEntryDesc; + + Point aObjCatPos; + Size aObjCatSize; + + String aAddLibPath; + String aAddLibFilter; + + sal_uInt16 nBasicDialogCount; + + sal_Bool OLD_bRelMacroRecording; + sal_Bool bChoosingMacro; + sal_Bool bShellInCriticalSection; + +protected: + DECL_LINK( GlobalBasicBreakHdl, StarBASIC * ); + +public: + BasicIDEData(); + ~BasicIDEData(); + + LibInfos& GetLibInfos() { return aLibInfos; } + + BasicEntryDescriptor& GetLastEntryDescriptor() { return m_aLastEntryDesc; } + void SetLastEntryDescriptor( BasicEntryDescriptor& rDesc ) { m_aLastEntryDesc = rDesc; } + + sal_Bool& ChoosingMacro() { return bChoosingMacro; } + sal_Bool& ShellInCriticalSection() { return bShellInCriticalSection; } + + sal_uInt16 GetBasicDialogCount() const { return nBasicDialogCount; } + void IncBasicDialogCount() { nBasicDialogCount++; } + void DecBasicDialogCount() { nBasicDialogCount--; } + + SvxSearchItem& GetSearchItem() const; + void SetSearchItem( const SvxSearchItem& rItem ); + + void SetObjectCatalogPos( const Point& rPnt ) + { aObjCatPos = rPnt; } + const Point& GetObjectCatalogPos() const + { return aObjCatPos; } + + void SetObjectCatalogSize( const Size& rSize ) + { aObjCatSize = rSize; } + const Size& GetObjectCatalogSize() const + { return aObjCatSize; } + + const String& GetAddLibPath() const { return aAddLibPath; } + void SetAddLibPath( const String& rPath ) { aAddLibPath = rPath; } + + const String& GetAddLibFilter() const { return aAddLibFilter; } + void SetAddLibFilter( const String& rFilter ) { aAddLibFilter = rFilter; } +}; + + +#endif //_IDERDLL2_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/idetemp.hxx b/basctl/source/basicide/idetemp.hxx new file mode 100644 index 000000000000..7700d94f0748 --- /dev/null +++ b/basctl/source/basicide/idetemp.hxx @@ -0,0 +1,67 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#ifndef _IDETEMP_HXX +#define _IDETEMP_HXX + + +enum SvxChooseControlEnum +{ + SVX_SNAP_PUSHBUTTON, + SVX_SNAP_CHECKBOX, + SVX_SNAP_RADIOBUTTON, + SVX_SNAP_SPINBUTTON, + SVX_SNAP_FIXEDTEXT, + SVX_SNAP_GROUPBOX, + SVX_SNAP_LISTBOX, + SVX_SNAP_COMBOBOX, + SVX_SNAP_EDIT, + SVX_SNAP_HSCROLLBAR, + SVX_SNAP_VSCROLLBAR, + SVX_SNAP_PREVIEW, + SVX_SNAP_SELECT, + SVX_SNAP_URLBUTTON, + SVX_SNAP_NOTHING, + SVX_SNAP_IMAGECONTROL, + SVX_SNAP_PROGRESSBAR, + SVX_SNAP_HFIXEDLINE, + SVX_SNAP_VFIXEDLINE, + SVX_SNAP_DATEFIELD, + SVX_SNAP_TIMEFIELD, + SVX_SNAP_NUMERICFIELD, + SVX_SNAP_CURRENCYFIELD, + SVX_SNAP_FORMATTEDFIELD, + SVX_SNAP_PATTERNFIELD, + SVX_SNAP_FILECONTROL, + SVX_SNAP_TREECONTROL +}; + +#define SvxChooseControlItem SfxAllEnumItem + +#endif + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/localizationmgr.cxx b/basctl/source/basicide/localizationmgr.cxx new file mode 100644 index 000000000000..499de79960d3 --- /dev/null +++ b/basctl/source/basicide/localizationmgr.cxx @@ -0,0 +1,1180 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#include "precompiled_basctl.hxx" +#include <ide_pch.hxx> + +#include <basidesh.hxx> +#include <baside3.hxx> +#include <basobj.hxx> +#include <iderdll.hxx> +#include "dlged.hxx" + +#include <localizationmgr.hxx> +#include <com/sun/star/resource/XStringResourceSupplier.hpp> +#include <com/sun/star/frame/XLayoutManager.hpp> + +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::lang; +using namespace ::com::sun::star::beans; +using namespace ::com::sun::star::resource; + +static ::rtl::OUString aDot( RTL_CONSTASCII_USTRINGPARAM( "." )); +static ::rtl::OUString aEsc( RTL_CONSTASCII_USTRINGPARAM( "&" )); +static ::rtl::OUString aSemi( RTL_CONSTASCII_USTRINGPARAM( ";" )); + + +LocalizationMgr::LocalizationMgr( BasicIDEShell* pIDEShell, + const ScriptDocument& rDocument, String aLibName, + const Reference< XStringResourceManager >& xStringResourceManager ) + : m_xStringResourceManager( xStringResourceManager ) + , m_pIDEShell( pIDEShell ) + , m_aDocument( rDocument ) + , m_aLibName( aLibName ) +{ +} + +bool LocalizationMgr::isLibraryLocalized( void ) +{ + bool bRet = false; + if( m_xStringResourceManager.is() ) + { + Sequence< Locale > aLocaleSeq = m_xStringResourceManager->getLocales(); + bRet = ( aLocaleSeq.getLength() > 0 ); + } + return bRet; +} + +void LocalizationMgr::handleTranslationbar( void ) +{ + static ::rtl::OUString aLayoutManagerName( RTL_CONSTASCII_USTRINGPARAM( "LayoutManager" )); + static ::rtl::OUString aToolBarResName( RTL_CONSTASCII_USTRINGPARAM( "private:resource/toolbar/translationbar" )); + + Reference< beans::XPropertySet > xFrameProps + ( m_pIDEShell->GetViewFrame()->GetFrame().GetFrameInterface(), uno::UNO_QUERY ); + if ( xFrameProps.is() ) + { + Reference< ::com::sun::star::frame::XLayoutManager > xLayoutManager; + uno::Any a = xFrameProps->getPropertyValue( aLayoutManagerName ); + a >>= xLayoutManager; + if ( xLayoutManager.is() ) + { + if ( !isLibraryLocalized() ) + { + xLayoutManager->destroyElement( aToolBarResName ); + } + else + { + xLayoutManager->createElement( aToolBarResName ); + xLayoutManager->requestElement( aToolBarResName ); + } + } + } +} + + +// TODO: -> export from toolkit + +struct LanguageDependentProp +{ + const char* pPropName; + sal_Int32 nPropNameLength; +}; + +static LanguageDependentProp aLanguageDependentProp[] = +{ + { "Text", 4 }, + { "Label", 5 }, + { "Title", 5 }, + { "HelpText", 8 }, + { "CurrencySymbol", 14 }, + { "StringItemList", 14 }, + { 0, 0 } +}; + +bool isLanguageDependentProperty( ::rtl::OUString aName ) +{ + bool bRet = false; + + LanguageDependentProp* pLangDepProp = aLanguageDependentProp; + while( pLangDepProp->pPropName != 0 ) + { + if( aName.equalsAsciiL( pLangDepProp->pPropName, pLangDepProp->nPropNameLength )) + { + bRet = true; + break; + } + pLangDepProp++; + } + return bRet; +} + + +void LocalizationMgr::implEnableDisableResourceForAllLibraryDialogs( HandleResourceMode eMode ) +{ + Sequence< ::rtl::OUString > aDlgNames = m_aDocument.getObjectNames( E_DIALOGS, m_aLibName ); + sal_Int32 nDlgCount = aDlgNames.getLength(); + const ::rtl::OUString* pDlgNames = aDlgNames.getConstArray(); + + Reference< XStringResourceResolver > xDummyStringResolver; + for( sal_Int32 i = 0 ; i < nDlgCount ; i++ ) + { + String aDlgName = pDlgNames[ i ]; + DialogWindow* pWin = m_pIDEShell->FindDlgWin( m_aDocument, m_aLibName, aDlgName, sal_False ); + if( pWin && pWin->IsA( TYPE( DialogWindow ) ) ) + { + DialogWindow* pDialogWin = static_cast< DialogWindow* >( pWin ); + Reference< container::XNameContainer > xDialog = pDialogWin->GetDialog(); + if( xDialog.is() ) + { + // Handle dialog itself as control + Any aDialogCtrl; + aDialogCtrl <<= xDialog; + implHandleControlResourceProperties( aDialogCtrl, aDlgName, + ::rtl::OUString(), m_xStringResourceManager, xDummyStringResolver, eMode ); + + // Handle all controls + Sequence< ::rtl::OUString > aNames = xDialog->getElementNames(); + const ::rtl::OUString* pNames = aNames.getConstArray(); + sal_Int32 nCtrls = aNames.getLength(); + for( sal_Int32 j = 0 ; j < nCtrls ; ++j ) + { + ::rtl::OUString aCtrlName( pNames[j] ); + Any aCtrl = xDialog->getByName( aCtrlName ); + implHandleControlResourceProperties( aCtrl, aDlgName, + aCtrlName, m_xStringResourceManager, xDummyStringResolver, eMode ); + } + } + } + } +} + + +::rtl::OUString implCreatePureResourceId + ( const ::rtl::OUString& aDialogName, const ::rtl::OUString& aCtrlName, + const ::rtl::OUString& aPropName, + Reference< XStringResourceManager > xStringResourceManager ) +{ + sal_Int32 nUniqueId = xStringResourceManager->getUniqueNumericId(); + ::rtl::OUString aPureIdStr = ::rtl::OUString::valueOf( nUniqueId ); + aPureIdStr += aDot; + aPureIdStr += aDialogName; + aPureIdStr += aDot; + if( aCtrlName.getLength() ) + { + aPureIdStr += aCtrlName; + aPureIdStr += aDot; + } + aPureIdStr += aPropName; + return aPureIdStr; +} + +extern bool localesAreEqual( const ::com::sun::star::lang::Locale& rLocaleLeft, + const ::com::sun::star::lang::Locale& rLocaleRight ); + +// Works on xStringResourceManager's current language for SET_IDS/RESET_IDS, +// anyway only one language should exist when calling this method then, +// either the first one for mode SET_IDS or the last one for mode RESET_IDS +sal_Int32 LocalizationMgr::implHandleControlResourceProperties + ( Any aControlAny, const ::rtl::OUString& aDialogName, const ::rtl::OUString& aCtrlName, + Reference< XStringResourceManager > xStringResourceManager, + Reference< XStringResourceResolver > xSourceStringResolver, HandleResourceMode eMode ) +{ + sal_Int32 nChangedCount = 0; + + Reference< XPropertySet > xPropertySet; + aControlAny >>= xPropertySet; + if( xPropertySet.is() ) + { + Sequence< Locale > aLocaleSeq = xStringResourceManager->getLocales(); + sal_Int32 nLocaleCount = aLocaleSeq.getLength(); + if( nLocaleCount == 0 ) + return 0; + + Reference< XPropertySetInfo > xPropertySetInfo = xPropertySet->getPropertySetInfo(); + if( xPropertySetInfo.is() ) + { + // get sequence of control properties + Sequence< Property > aPropSeq = xPropertySetInfo->getProperties(); + const Property* pProps = aPropSeq.getConstArray(); + sal_Int32 nCtrlProps = aPropSeq.getLength(); + + // create a map of tab indices and control names, sorted by tab index + for( sal_Int32 j = 0 ; j < nCtrlProps ; ++j ) + { + const Property& rProp = pProps[j]; + ::rtl::OUString aPropName = rProp.Name; + TypeClass eType = rProp.Type.getTypeClass(); + bool bLanguageDependentProperty = + (eType == TypeClass_STRING || eType == TypeClass_SEQUENCE) + && isLanguageDependentProperty( aPropName ); + if( !bLanguageDependentProperty ) + continue; + + if( eType == TypeClass_STRING ) + { + Any aPropAny = xPropertySet->getPropertyValue( aPropName ); + ::rtl::OUString aPropStr; + aPropAny >>= aPropStr; + + // Replace string by id, add id+string to StringResource + if( eMode == SET_IDS ) + { + bool bEscAlreadyExisting = (aPropStr.getLength() && aPropStr.getStr()[0] == '&' ); + if( bEscAlreadyExisting ) + continue; + + ::rtl::OUString aPureIdStr = implCreatePureResourceId + ( aDialogName, aCtrlName, aPropName, xStringResourceManager ); + + // Set Id for all locales + const Locale* pLocales = aLocaleSeq.getConstArray(); + for( sal_Int32 i = 0 ; i < nLocaleCount ; i++ ) + { + const Locale& rLocale = pLocales[ i ]; + xStringResourceManager->setStringForLocale( aPureIdStr, aPropStr, rLocale ); + } + + ::rtl::OUString aPropIdStr = aEsc; + aPropIdStr += aPureIdStr; + // TODO?: Change here and in toolkit + (void)aSemi; + aPropAny <<= aPropIdStr; + xPropertySet->setPropertyValue( aPropName, aPropAny ); + } + // Replace id by string from StringResource + else if( eMode == RESET_IDS ) + { + if( aPropStr.getLength() > 1 ) + { + ::rtl::OUString aPureIdStr = aPropStr.copy( 1 ); + ::rtl::OUString aNewPropStr = aPropStr; + try + { + aNewPropStr = xStringResourceManager->resolveString( aPureIdStr ); + } + catch(MissingResourceException&) + { + } + aPropAny <<= aNewPropStr; + xPropertySet->setPropertyValue( aPropName, aPropAny ); + } + } + // Remove Id for all locales + else if( eMode == REMOVE_IDS_FROM_RESOURCE ) + { + if( aPropStr.getLength() > 1 ) + { + ::rtl::OUString aPureIdStr = aPropStr.copy( 1 ); + + const Locale* pLocales = aLocaleSeq.getConstArray(); + for( sal_Int32 i = 0 ; i < nLocaleCount ; i++ ) + { + const Locale& rLocale = pLocales[ i ]; + try + { + xStringResourceManager->removeIdForLocale( aPureIdStr, rLocale ); + } + catch(MissingResourceException&) + { + } + } + } + } + // Rename resource id + else if( eMode == RENAME_DIALOG_IDS || eMode == RENAME_CONTROL_IDS ) + { + ::rtl::OUString aSourceIdStr = aPropStr; + ::rtl::OUString aPureSourceIdStr = aSourceIdStr.copy( 1 ); + + ::rtl::OUString aPureIdStr = implCreatePureResourceId + ( aDialogName, aCtrlName, aPropName, xStringResourceManager ); + + // Set new Id and remove old one for all locales + const Locale* pLocales = aLocaleSeq.getConstArray(); + for( sal_Int32 i = 0 ; i < nLocaleCount ; i++ ) + { + const Locale& rLocale = pLocales[ i ]; + ::rtl::OUString aResStr; + try + { + aResStr = xStringResourceManager->resolveStringForLocale + ( aPureSourceIdStr, rLocale ); + xStringResourceManager->removeIdForLocale( aPureSourceIdStr, rLocale ); + xStringResourceManager->setStringForLocale( aPureIdStr, aResStr, rLocale ); + } + catch(MissingResourceException&) + {} + } + + ::rtl::OUString aPropIdStr = aEsc; + aPropIdStr += aPureIdStr; + // TODO?: Change here and in toolkit + (void)aSemi; + aPropAny <<= aPropIdStr; + xPropertySet->setPropertyValue( aPropName, aPropAny ); + } + // Replace string by string from source StringResourceResolver + else if( eMode == MOVE_RESOURCES && xSourceStringResolver.is() ) + { + ::rtl::OUString aSourceIdStr = aPropStr; + ::rtl::OUString aPureSourceIdStr = aSourceIdStr.copy( 1 ); + + ::rtl::OUString aPureIdStr = implCreatePureResourceId + ( aDialogName, aCtrlName, aPropName, xStringResourceManager ); + + const Locale& rDefaultLocale = xSourceStringResolver->getDefaultLocale(); + + // Set Id for all locales + const Locale* pLocales = aLocaleSeq.getConstArray(); + for( sal_Int32 i = 0 ; i < nLocaleCount ; i++ ) + { + const Locale& rLocale = pLocales[ i ]; + ::rtl::OUString aResStr; + try + { + aResStr = xSourceStringResolver->resolveStringForLocale + ( aPureSourceIdStr, rLocale ); + } + catch(MissingResourceException&) + { + aResStr = xSourceStringResolver->resolveStringForLocale + ( aPureSourceIdStr, rDefaultLocale ); + } + xStringResourceManager->setStringForLocale( aPureIdStr, aResStr, rLocale ); + } + + ::rtl::OUString aPropIdStr = aEsc; + aPropIdStr += aPureIdStr; + // TODO?: Change here and in toolkit + (void)aSemi; + aPropAny <<= aPropIdStr; + xPropertySet->setPropertyValue( aPropName, aPropAny ); + } + // Copy string from source to target resource + else if( eMode == COPY_RESOURCES && xSourceStringResolver.is() ) + { + ::rtl::OUString aSourceIdStr = aPropStr; + ::rtl::OUString aPureSourceIdStr = aSourceIdStr.copy( 1 ); + + const Locale& rDefaultLocale = xSourceStringResolver->getDefaultLocale(); + + // Copy Id for all locales + const Locale* pLocales = aLocaleSeq.getConstArray(); + for( sal_Int32 i = 0 ; i < nLocaleCount ; i++ ) + { + const Locale& rLocale = pLocales[ i ]; + ::rtl::OUString aResStr; + try + { + aResStr = xSourceStringResolver->resolveStringForLocale + ( aPureSourceIdStr, rLocale ); + } + catch(MissingResourceException&) + { + aResStr = xSourceStringResolver->resolveStringForLocale + ( aPureSourceIdStr, rDefaultLocale ); + } + xStringResourceManager->setStringForLocale( aPureSourceIdStr, aResStr, rLocale ); + } + } + nChangedCount++; + } + + // Listbox / Combobox + else if( eType == TypeClass_SEQUENCE ) + { + Any aPropAny = xPropertySet->getPropertyValue( aPropName ); + Sequence< ::rtl::OUString > aPropStrings; + aPropAny >>= aPropStrings; + + const ::rtl::OUString* pPropStrings = aPropStrings.getConstArray(); + sal_Int32 nPropStringCount = aPropStrings.getLength(); + if( nPropStringCount == 0 ) + continue; + + // Replace string by id, add id+string to StringResource + if( eMode == SET_IDS ) + { + Sequence< ::rtl::OUString > aIdStrings; + aIdStrings.realloc( nPropStringCount ); + ::rtl::OUString* pIdStrings = aIdStrings.getArray(); + + ::rtl::OUString aIdStrBase = aDot; + aIdStrBase += aCtrlName; + aIdStrBase += aDot; + aIdStrBase += aPropName; + + const Locale* pLocales = aLocaleSeq.getConstArray(); + sal_Int32 i; + for ( i = 0; i < nPropStringCount; ++i ) + { + ::rtl::OUString aPropStr = pPropStrings[i]; + bool bEscAlreadyExisting = (aPropStr.getLength() && aPropStr.getStr()[0] == '&' ); + if( bEscAlreadyExisting ) + { + pIdStrings[i] = aPropStr; + continue; + } + + sal_Int32 nUniqueId = xStringResourceManager->getUniqueNumericId(); + ::rtl::OUString aPureIdStr = ::rtl::OUString::valueOf( nUniqueId ); + aPureIdStr += aIdStrBase; + + // Set Id for all locales + for( sal_Int32 iLocale = 0 ; iLocale < nLocaleCount ; iLocale++ ) + { + const Locale& rLocale = pLocales[ iLocale ]; + xStringResourceManager->setStringForLocale( aPureIdStr, aPropStr, rLocale ); + } + + ::rtl::OUString aPropIdStr = aEsc; + aPropIdStr += aPureIdStr; + pIdStrings[i] = aPropIdStr; + } + aPropAny <<= aIdStrings; + xPropertySet->setPropertyValue( aPropName, aPropAny ); + } + // Replace id by string from StringResource + else if( eMode == RESET_IDS ) + { + Sequence< ::rtl::OUString > aNewPropStrings; + aNewPropStrings.realloc( nPropStringCount ); + ::rtl::OUString* pNewPropStrings = aNewPropStrings.getArray(); + + sal_Int32 i; + for ( i = 0; i < nPropStringCount; ++i ) + { + ::rtl::OUString aIdStr = pPropStrings[i]; + ::rtl::OUString aNewPropStr = aIdStr; + if( aIdStr.getLength() > 1 ) + { + ::rtl::OUString aPureIdStr = aIdStr.copy( 1 ); + try + { + aNewPropStr = xStringResourceManager->resolveString( aPureIdStr ); + } + catch(MissingResourceException&) + { + } + } + pNewPropStrings[i] = aNewPropStr; + } + aPropAny <<= aNewPropStrings; + xPropertySet->setPropertyValue( aPropName, aPropAny ); + } + // Remove Id for all locales + else if( eMode == REMOVE_IDS_FROM_RESOURCE ) + { + Sequence< ::rtl::OUString > aNewPropStrings; + aNewPropStrings.realloc( nPropStringCount ); + + const Locale* pLocales = aLocaleSeq.getConstArray(); + sal_Int32 i; + for ( i = 0; i < nPropStringCount; ++i ) + { + ::rtl::OUString aIdStr = pPropStrings[i]; + if( aIdStr.getLength() > 1 ) + { + ::rtl::OUString aPureIdStr = aIdStr.copy( 1 ); + + for( sal_Int32 iLocale = 0 ; iLocale < nLocaleCount ; iLocale++ ) + { + const Locale& rLocale = pLocales[iLocale]; + try + { + xStringResourceManager->removeIdForLocale( aPureIdStr, rLocale ); + } + catch(MissingResourceException&) + { + } + } + } + } + } + // Rename resource id + else if( eMode == RENAME_CONTROL_IDS ) + { + Sequence< ::rtl::OUString > aIdStrings; + aIdStrings.realloc( nPropStringCount ); + ::rtl::OUString* pIdStrings = aIdStrings.getArray(); + + ::rtl::OUString aIdStrBase = aDot; + aIdStrBase += aCtrlName; + aIdStrBase += aDot; + aIdStrBase += aPropName; + + const Locale* pLocales = aLocaleSeq.getConstArray(); + sal_Int32 i; + for ( i = 0; i < nPropStringCount; ++i ) + { + ::rtl::OUString aSourceIdStr = pPropStrings[i]; + ::rtl::OUString aPureSourceIdStr = aSourceIdStr.copy( 1 ); + + sal_Int32 nUniqueId = xStringResourceManager->getUniqueNumericId(); + ::rtl::OUString aPureIdStr = ::rtl::OUString::valueOf( nUniqueId ); + aPureIdStr += aIdStrBase; + + // Set Id for all locales + for( sal_Int32 iLocale = 0 ; iLocale < nLocaleCount ; iLocale++ ) + { + const Locale& rLocale = pLocales[ iLocale ]; + + ::rtl::OUString aResStr; + try + { + aResStr = xStringResourceManager->resolveStringForLocale + ( aPureSourceIdStr, rLocale ); + xStringResourceManager->removeIdForLocale( aPureSourceIdStr, rLocale ); + xStringResourceManager->setStringForLocale( aPureIdStr, aResStr, rLocale ); + } + catch(MissingResourceException&) + {} + } + + ::rtl::OUString aPropIdStr = aEsc; + aPropIdStr += aPureIdStr; + pIdStrings[i] = aPropIdStr; + } + aPropAny <<= aIdStrings; + xPropertySet->setPropertyValue( aPropName, aPropAny ); + } + // Replace string by string from source StringResourceResolver + else if( eMode == MOVE_RESOURCES && xSourceStringResolver.is() ) + { + Sequence< ::rtl::OUString > aIdStrings; + aIdStrings.realloc( nPropStringCount ); + ::rtl::OUString* pIdStrings = aIdStrings.getArray(); + + ::rtl::OUString aIdStrBase = aDot; + aIdStrBase += aCtrlName; + aIdStrBase += aDot; + aIdStrBase += aPropName; + + const Locale& rDefaultLocale = xSourceStringResolver->getDefaultLocale(); + + const Locale* pLocales = aLocaleSeq.getConstArray(); + sal_Int32 i; + for ( i = 0; i < nPropStringCount; ++i ) + { + ::rtl::OUString aSourceIdStr = pPropStrings[i]; + ::rtl::OUString aPureSourceIdStr = aSourceIdStr.copy( 1 ); + + sal_Int32 nUniqueId = xStringResourceManager->getUniqueNumericId(); + ::rtl::OUString aPureIdStr = ::rtl::OUString::valueOf( nUniqueId ); + aPureIdStr += aIdStrBase; + + // Set Id for all locales + for( sal_Int32 iLocale = 0 ; iLocale < nLocaleCount ; iLocale++ ) + { + const Locale& rLocale = pLocales[ iLocale ]; + + ::rtl::OUString aResStr; + try + { + aResStr = xSourceStringResolver->resolveStringForLocale + ( aPureSourceIdStr, rLocale ); + } + catch(MissingResourceException&) + { + aResStr = xSourceStringResolver->resolveStringForLocale + ( aPureSourceIdStr, rDefaultLocale ); + } + xStringResourceManager->setStringForLocale( aPureIdStr, aResStr, rLocale ); + } + + ::rtl::OUString aPropIdStr = aEsc; + aPropIdStr += aPureIdStr; + pIdStrings[i] = aPropIdStr; + } + aPropAny <<= aIdStrings; + xPropertySet->setPropertyValue( aPropName, aPropAny ); + } + // Copy string from source to target resource + else if( eMode == COPY_RESOURCES && xSourceStringResolver.is() ) + { + const Locale& rDefaultLocale = xSourceStringResolver->getDefaultLocale(); + + const Locale* pLocales = aLocaleSeq.getConstArray(); + sal_Int32 i; + for ( i = 0; i < nPropStringCount; ++i ) + { + ::rtl::OUString aSourceIdStr = pPropStrings[i]; + ::rtl::OUString aPureSourceIdStr = aSourceIdStr.copy( 1 ); + + // Set Id for all locales + for( sal_Int32 iLocale = 0 ; iLocale < nLocaleCount ; iLocale++ ) + { + const Locale& rLocale = pLocales[ iLocale ]; + + ::rtl::OUString aResStr; + try + { + aResStr = xSourceStringResolver->resolveStringForLocale + ( aPureSourceIdStr, rLocale ); + } + catch(MissingResourceException&) + { + aResStr = xSourceStringResolver->resolveStringForLocale + ( aPureSourceIdStr, rDefaultLocale ); + } + xStringResourceManager->setStringForLocale( aPureSourceIdStr, aResStr, rLocale ); + } + } + } + nChangedCount++; + } + } + } + } + return nChangedCount; +} + + +void LocalizationMgr::handleAddLocales( Sequence< Locale > aLocaleSeq ) +{ + const Locale* pLocales = aLocaleSeq.getConstArray(); + sal_Int32 nLocaleCount = aLocaleSeq.getLength(); + + if( isLibraryLocalized() ) + { + for( sal_Int32 i = 0 ; i < nLocaleCount ; i++ ) + { + const Locale& rLocale = pLocales[ i ]; + m_xStringResourceManager->newLocale( rLocale ); + } + } + else + { + DBG_ASSERT( nLocaleCount==1, "LocalizationMgr::handleAddLocales(): Only one first locale allowed" ); + + const Locale& rLocale = pLocales[ 0 ]; + m_xStringResourceManager->newLocale( rLocale ); + enableResourceForAllLibraryDialogs(); + } + + BasicIDE::MarkDocumentModified( m_aDocument ); + + // update locale toolbar + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_BASICIDE_CURRENT_LANG ); + + handleTranslationbar(); +} + + +void LocalizationMgr::handleRemoveLocales( Sequence< Locale > aLocaleSeq ) +{ + const Locale* pLocales = aLocaleSeq.getConstArray(); + sal_Int32 nLocaleCount = aLocaleSeq.getLength(); + bool bConsistant = true; + bool bModified = false; + + for( sal_Int32 i = 0 ; i < nLocaleCount ; i++ ) + { + const Locale& rLocale = pLocales[ i ]; + bool bRemove = true; + + // Check if last locale + Sequence< Locale > aResLocaleSeq = m_xStringResourceManager->getLocales(); + if( aResLocaleSeq.getLength() == 1 ) + { + const Locale& rLastResLocale = aResLocaleSeq.getConstArray()[ 0 ]; + if( localesAreEqual( rLocale, rLastResLocale ) ) + { + disableResourceForAllLibraryDialogs(); + } + else + { + // Inconsistancy, keep last locale + bConsistant = false; + bRemove = false; + } + } + + if( bRemove ) + { + try + { + m_xStringResourceManager->removeLocale( rLocale ); + bModified = true; + } + catch(IllegalArgumentException&) + { + bConsistant = false; + } + } + } + if( bModified ) + { + BasicIDE::MarkDocumentModified( m_aDocument ); + + // update slots + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + { + pBindings->Invalidate( SID_BASICIDE_CURRENT_LANG ); + pBindings->Invalidate( SID_BASICIDE_MANAGE_LANG ); + } + + handleTranslationbar(); + } + + DBG_ASSERT( bConsistant, + "LocalizationMgr::handleRemoveLocales(): sequence contains unsupported locales" ); + (void)bConsistant; +} + +void LocalizationMgr::handleSetDefaultLocale( Locale aLocale ) +{ + if( m_xStringResourceManager.is() ) + { + try + { + m_xStringResourceManager->setDefaultLocale( aLocale ); + } + catch(IllegalArgumentException&) + { + OSL_FAIL( "LocalizationMgr::handleSetDefaultLocale: Invalid locale" ); + } + + // update locale toolbar + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_BASICIDE_CURRENT_LANG ); + } +} + +void LocalizationMgr::handleSetCurrentLocale( ::com::sun::star::lang::Locale aLocale ) +{ + if( m_xStringResourceManager.is() ) + { + try + { + m_xStringResourceManager->setCurrentLocale( aLocale, false ); + } + catch(IllegalArgumentException&) + { + OSL_FAIL( "LocalizationMgr::handleSetCurrentLocale: Invalid locale" ); + } + + // update locale toolbar + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_BASICIDE_CURRENT_LANG ); + + IDEBaseWindow* pCurWin = m_pIDEShell->GetCurWindow(); + if ( pCurWin && !pCurWin->IsSuspended() && pCurWin->IsA( TYPE( DialogWindow ) ) ) + { + DialogWindow* pDlgWin = (DialogWindow*)pCurWin; + DlgEditor* pWinEditor = pDlgWin->GetEditor(); + if( pWinEditor ) + pWinEditor->UpdatePropertyBrowserDelayed(); + } + } +} + +void LocalizationMgr::handleBasicStarted( void ) +{ + if( m_xStringResourceManager.is() ) + m_aLocaleBeforeBasicStart = m_xStringResourceManager->getCurrentLocale(); +} + +void LocalizationMgr::handleBasicStopped( void ) +{ + try + { + if( m_xStringResourceManager.is() ) + m_xStringResourceManager->setCurrentLocale( m_aLocaleBeforeBasicStart, true ); + } + catch(IllegalArgumentException&) + { + } +} + + +DialogWindow* FindDialogWindowForEditor( DlgEditor* pEditor ) +{ + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + IDEWindowTable& aIDEWindowTable = pIDEShell->GetIDEWindowTable(); + IDEBaseWindow* pWin = aIDEWindowTable.First(); + DialogWindow* pFoundDlgWin = NULL; + while( pWin ) + { + if ( !pWin->IsSuspended() && pWin->IsA( TYPE( DialogWindow ) ) ) + { + DialogWindow* pDlgWin = (DialogWindow*)pWin; + DlgEditor* pWinEditor = pDlgWin->GetEditor(); + if( pWinEditor == pEditor ) + { + pFoundDlgWin = pDlgWin; + break; + } + } + pWin = aIDEWindowTable.Next(); + } + return pFoundDlgWin; +} + + +void LocalizationMgr::setControlResourceIDsForNewEditorObject( DlgEditor* pEditor, + Any aControlAny, const ::rtl::OUString& aCtrlName ) +{ + // Get library for DlgEditor + DialogWindow* pDlgWin = FindDialogWindowForEditor( pEditor ); + if( !pDlgWin ) + return; + ScriptDocument aDocument( pDlgWin->GetDocument() ); + DBG_ASSERT( aDocument.isValid(), "LocalizationMgr::setControlResourceIDsForNewEditorObject: invalid document!" ); + if ( !aDocument.isValid() ) + return; + const String& rLibName = pDlgWin->GetLibName(); + Reference< container::XNameContainer > xDialogLib( aDocument.getLibrary( E_DIALOGS, rLibName, sal_True ) ); + Reference< XStringResourceManager > xStringResourceManager = + LocalizationMgr::getStringResourceFromDialogLibrary( xDialogLib ); + + // Set resource property + if( !xStringResourceManager.is() || xStringResourceManager->getLocales().getLength() == 0 ) + return; + + ::rtl::OUString aDialogName = pDlgWin->GetName(); + Reference< XStringResourceResolver > xDummyStringResolver; + sal_Int32 nChangedCount = implHandleControlResourceProperties + ( aControlAny, aDialogName, aCtrlName, xStringResourceManager, + xDummyStringResolver, SET_IDS ); + + if( nChangedCount ) + BasicIDE::MarkDocumentModified( aDocument ); +} + +void LocalizationMgr::renameControlResourceIDsForEditorObject( DlgEditor* pEditor, + ::com::sun::star::uno::Any aControlAny, const ::rtl::OUString& aNewCtrlName ) +{ + // Get library for DlgEditor + DialogWindow* pDlgWin = FindDialogWindowForEditor( pEditor ); + if( !pDlgWin ) + return; + ScriptDocument aDocument( pDlgWin->GetDocument() ); + DBG_ASSERT( aDocument.isValid(), "LocalizationMgr::renameControlResourceIDsForEditorObject: invalid document!" ); + if ( !aDocument.isValid() ) + return; + const String& rLibName = pDlgWin->GetLibName(); + Reference< container::XNameContainer > xDialogLib( aDocument.getLibrary( E_DIALOGS, rLibName, sal_True ) ); + Reference< XStringResourceManager > xStringResourceManager = + LocalizationMgr::getStringResourceFromDialogLibrary( xDialogLib ); + + // Set resource property + if( !xStringResourceManager.is() || xStringResourceManager->getLocales().getLength() == 0 ) + return; + + ::rtl::OUString aDialogName = pDlgWin->GetName(); + Reference< XStringResourceResolver > xDummyStringResolver; + implHandleControlResourceProperties + ( aControlAny, aDialogName, aNewCtrlName, xStringResourceManager, + xDummyStringResolver, RENAME_CONTROL_IDS ); +} + + +void LocalizationMgr::deleteControlResourceIDsForDeletedEditorObject( DlgEditor* pEditor, + Any aControlAny, const ::rtl::OUString& aCtrlName ) +{ + // Get library for DlgEditor + DialogWindow* pDlgWin = FindDialogWindowForEditor( pEditor ); + if( !pDlgWin ) + return; + ScriptDocument aDocument( pDlgWin->GetDocument() ); + DBG_ASSERT( aDocument.isValid(), "LocalizationMgr::deleteControlResourceIDsForDeletedEditorObject: invalid document!" ); + if ( !aDocument.isValid() ) + return; + const String& rLibName = pDlgWin->GetLibName(); + Reference< container::XNameContainer > xDialogLib( aDocument.getLibrary( E_DIALOGS, rLibName, sal_True ) ); + Reference< XStringResourceManager > xStringResourceManager = + LocalizationMgr::getStringResourceFromDialogLibrary( xDialogLib ); + + ::rtl::OUString aDialogName = pDlgWin->GetName(); + Reference< XStringResourceResolver > xDummyStringResolver; + sal_Int32 nChangedCount = implHandleControlResourceProperties + ( aControlAny, aDialogName, aCtrlName, xStringResourceManager, + xDummyStringResolver, REMOVE_IDS_FROM_RESOURCE ); + + if( nChangedCount ) + BasicIDE::MarkDocumentModified( aDocument ); +} + +void LocalizationMgr::setStringResourceAtDialog( const ScriptDocument& rDocument, const String& aLibName, + const String& aDlgName, Reference< container::XNameContainer > xDialogModel ) +{ + static ::rtl::OUString aResourceResolverPropName( RTL_CONSTASCII_USTRINGPARAM( "ResourceResolver" )); + + // Get library + Reference< container::XNameContainer > xDialogLib( rDocument.getLibrary( E_DIALOGS, aLibName, sal_True ) ); + Reference< XStringResourceManager > xStringResourceManager = + LocalizationMgr::getStringResourceFromDialogLibrary( xDialogLib ); + + // Set resource property + if( xStringResourceManager.is() ) + { + // Not very elegant as dialog may or may not be localized yet + // TODO: Find better place, where dialog is created + if( xStringResourceManager->getLocales().getLength() > 0 ) + { + Any aDialogCtrl; + aDialogCtrl <<= xDialogModel; + Reference< XStringResourceResolver > xDummyStringResolver; + implHandleControlResourceProperties( aDialogCtrl, aDlgName, + ::rtl::OUString(), xStringResourceManager, + xDummyStringResolver, SET_IDS ); + } + + Reference< beans::XPropertySet > xDlgPSet( xDialogModel, UNO_QUERY ); + Any aStringResourceManagerAny; + aStringResourceManagerAny <<= xStringResourceManager; + xDlgPSet->setPropertyValue( aResourceResolverPropName, aStringResourceManagerAny ); + } +} + +void LocalizationMgr::renameStringResourceIDs( const ScriptDocument& rDocument, const String& aLibName, + const String& aDlgName, Reference< container::XNameContainer > xDialogModel ) +{ + // Get library + Reference< container::XNameContainer > xDialogLib( rDocument.getLibrary( E_DIALOGS, aLibName, sal_True ) ); + Reference< XStringResourceManager > xStringResourceManager = + LocalizationMgr::getStringResourceFromDialogLibrary( xDialogLib ); + if( !xStringResourceManager.is() ) + return; + + Any aDialogCtrl; + aDialogCtrl <<= xDialogModel; + Reference< XStringResourceResolver > xDummyStringResolver; + implHandleControlResourceProperties( aDialogCtrl, aDlgName, + ::rtl::OUString(), xStringResourceManager, + xDummyStringResolver, RENAME_DIALOG_IDS ); + + // Handle all controls + Sequence< ::rtl::OUString > aNames = xDialogModel->getElementNames(); + const ::rtl::OUString* pNames = aNames.getConstArray(); + sal_Int32 nCtrls = aNames.getLength(); + for( sal_Int32 i = 0 ; i < nCtrls ; ++i ) + { + ::rtl::OUString aCtrlName( pNames[i] ); + Any aCtrl = xDialogModel->getByName( aCtrlName ); + implHandleControlResourceProperties( aCtrl, aDlgName, + aCtrlName, xStringResourceManager, + xDummyStringResolver, RENAME_DIALOG_IDS ); + } +} + +void LocalizationMgr::removeResourceForDialog( const ScriptDocument& rDocument, const String& aLibName, + const String& aDlgName, Reference< container::XNameContainer > xDialogModel ) +{ + // Get library + Reference< container::XNameContainer > xDialogLib( rDocument.getLibrary( E_DIALOGS, aLibName, sal_True ) ); + Reference< XStringResourceManager > xStringResourceManager = + LocalizationMgr::getStringResourceFromDialogLibrary( xDialogLib ); + if( !xStringResourceManager.is() ) + return; + + Any aDialogCtrl; + aDialogCtrl <<= xDialogModel; + Reference< XStringResourceResolver > xDummyStringResolver; + implHandleControlResourceProperties( aDialogCtrl, aDlgName, + ::rtl::OUString(), xStringResourceManager, + xDummyStringResolver, REMOVE_IDS_FROM_RESOURCE ); + + // Handle all controls + Sequence< ::rtl::OUString > aNames = xDialogModel->getElementNames(); + const ::rtl::OUString* pNames = aNames.getConstArray(); + sal_Int32 nCtrls = aNames.getLength(); + for( sal_Int32 i = 0 ; i < nCtrls ; ++i ) + { + ::rtl::OUString aCtrlName( pNames[i] ); + Any aCtrl = xDialogModel->getByName( aCtrlName ); + implHandleControlResourceProperties( aCtrl, aDlgName, + aCtrlName, xStringResourceManager, + xDummyStringResolver, REMOVE_IDS_FROM_RESOURCE ); + } +} + +void LocalizationMgr::resetResourceForDialog( Reference< container::XNameContainer > xDialogModel, + Reference< XStringResourceManager > xStringResourceManager ) +{ + if( !xStringResourceManager.is() ) + return; + + // Dialog as control + ::rtl::OUString aDummyName; + Any aDialogCtrl; + aDialogCtrl <<= xDialogModel; + Reference< XStringResourceResolver > xDummyStringResolver; + implHandleControlResourceProperties( aDialogCtrl, aDummyName, + aDummyName, xStringResourceManager, xDummyStringResolver, RESET_IDS ); + + // Handle all controls + Sequence< ::rtl::OUString > aNames = xDialogModel->getElementNames(); + const ::rtl::OUString* pNames = aNames.getConstArray(); + sal_Int32 nCtrls = aNames.getLength(); + for( sal_Int32 i = 0 ; i < nCtrls ; ++i ) + { + ::rtl::OUString aCtrlName( pNames[i] ); + Any aCtrl = xDialogModel->getByName( aCtrlName ); + implHandleControlResourceProperties( aCtrl, aDummyName, + aCtrlName, xStringResourceManager, xDummyStringResolver, RESET_IDS ); + } +} + +void LocalizationMgr::setResourceIDsForDialog( Reference< container::XNameContainer > xDialogModel, + Reference< XStringResourceManager > xStringResourceManager ) +{ + if( !xStringResourceManager.is() ) + return; + + // Dialog as control + ::rtl::OUString aDummyName; + Any aDialogCtrl; + aDialogCtrl <<= xDialogModel; + Reference< XStringResourceResolver > xDummyStringResolver; + implHandleControlResourceProperties( aDialogCtrl, aDummyName, + aDummyName, xStringResourceManager, xDummyStringResolver, SET_IDS ); + + // Handle all controls + Sequence< ::rtl::OUString > aNames = xDialogModel->getElementNames(); + const ::rtl::OUString* pNames = aNames.getConstArray(); + sal_Int32 nCtrls = aNames.getLength(); + for( sal_Int32 i = 0 ; i < nCtrls ; ++i ) + { + ::rtl::OUString aCtrlName( pNames[i] ); + Any aCtrl = xDialogModel->getByName( aCtrlName ); + implHandleControlResourceProperties( aCtrl, aDummyName, + aCtrlName, xStringResourceManager, xDummyStringResolver, SET_IDS ); + } +} + +void LocalizationMgr::copyResourcesForPastedEditorObject( DlgEditor* pEditor, + Any aControlAny, const ::rtl::OUString& aCtrlName, + Reference< XStringResourceResolver > xSourceStringResolver ) +{ + // Get library for DlgEditor + DialogWindow* pDlgWin = FindDialogWindowForEditor( pEditor ); + if( !pDlgWin ) + return; + ScriptDocument aDocument( pDlgWin->GetDocument() ); + DBG_ASSERT( aDocument.isValid(), "LocalizationMgr::copyResourcesForPastedEditorObject: invalid document!" ); + if ( !aDocument.isValid() ) + return; + const String& rLibName = pDlgWin->GetLibName(); + Reference< container::XNameContainer > xDialogLib( aDocument.getLibrary( E_DIALOGS, rLibName, sal_True ) ); + Reference< XStringResourceManager > xStringResourceManager = + LocalizationMgr::getStringResourceFromDialogLibrary( xDialogLib ); + + // Set resource property + if( !xStringResourceManager.is() || xStringResourceManager->getLocales().getLength() == 0 ) + return; + + ::rtl::OUString aDialogName = pDlgWin->GetName(); + implHandleControlResourceProperties + ( aControlAny, aDialogName, aCtrlName, xStringResourceManager, + xSourceStringResolver, MOVE_RESOURCES ); +} + +void LocalizationMgr::copyResourceForDroppedDialog( Reference< container::XNameContainer > xDialogModel, + const ::rtl::OUString& aDialogName, Reference< XStringResourceManager > xStringResourceManager, + Reference< XStringResourceResolver > xSourceStringResolver ) +{ + if( !xStringResourceManager.is() ) + return; + + // Dialog as control + ::rtl::OUString aDummyName; + Any aDialogCtrl; + aDialogCtrl <<= xDialogModel; + implHandleControlResourceProperties( aDialogCtrl, aDialogName, + aDummyName, xStringResourceManager, xSourceStringResolver, MOVE_RESOURCES ); + + // Handle all controls + Sequence< ::rtl::OUString > aNames = xDialogModel->getElementNames(); + const ::rtl::OUString* pNames = aNames.getConstArray(); + sal_Int32 nCtrls = aNames.getLength(); + for( sal_Int32 i = 0 ; i < nCtrls ; ++i ) + { + ::rtl::OUString aCtrlName( pNames[i] ); + Any aCtrl = xDialogModel->getByName( aCtrlName ); + implHandleControlResourceProperties( aCtrl, aDialogName, + aCtrlName, xStringResourceManager, xSourceStringResolver, MOVE_RESOURCES ); + } +} + +void LocalizationMgr::copyResourceForDialog( + const Reference< container::XNameContainer >& xDialogModel, + const Reference< XStringResourceResolver >& xSourceStringResolver, + const Reference< XStringResourceManager >& xTargetStringResourceManager ) +{ + if( !xDialogModel.is() || !xSourceStringResolver.is() || !xTargetStringResourceManager.is() ) + return; + + ::rtl::OUString aDummyName; + Any aDialogCtrl; + aDialogCtrl <<= xDialogModel; + implHandleControlResourceProperties + ( aDialogCtrl, aDummyName, aDummyName, xTargetStringResourceManager, + xSourceStringResolver, COPY_RESOURCES ); + + // Handle all controls + Sequence< ::rtl::OUString > aNames = xDialogModel->getElementNames(); + const ::rtl::OUString* pNames = aNames.getConstArray(); + sal_Int32 nCtrls = aNames.getLength(); + for( sal_Int32 i = 0 ; i < nCtrls ; ++i ) + { + ::rtl::OUString aCtrlName( pNames[i] ); + Any aCtrl = xDialogModel->getByName( aCtrlName ); + implHandleControlResourceProperties( aCtrl, aDummyName, aDummyName, + xTargetStringResourceManager, xSourceStringResolver, COPY_RESOURCES ); + } +} + +Reference< XStringResourceManager > LocalizationMgr::getStringResourceFromDialogLibrary + ( Reference< container::XNameContainer > xDialogLib ) +{ + Reference< XStringResourceManager > xStringResourceManager; + if( xDialogLib.is() ) + { + Reference< resource::XStringResourceSupplier > xStringResourceSupplier( xDialogLib, UNO_QUERY ); + if( xStringResourceSupplier.is() ) + { + Reference< resource::XStringResourceResolver > + xStringResourceResolver = xStringResourceSupplier->getStringResource(); + + xStringResourceManager = + Reference< resource::XStringResourceManager >( xStringResourceResolver, UNO_QUERY ); + } + } + return xStringResourceManager; +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/macrodlg.cxx b/basctl/source/basicide/macrodlg.cxx new file mode 100644 index 000000000000..f6fdd7754805 --- /dev/null +++ b/basctl/source/basicide/macrodlg.cxx @@ -0,0 +1,910 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include <memory> + +#include <ide_pch.hxx> + + +#include <macrodlg.hxx> +#include <macrodlg.hrc> +#include <basidesh.hrc> +#include <basidesh.hxx> +#include <baside2.hrc> // ID's fuer Imagese +#include <basobj.hxx> +#include <baside3.hxx> + +#include <iderdll.hxx> +#include <iderdll2.hxx> +#include <iderid.hxx> + +#include <moduldlg.hxx> +#include <basic/sbx.hxx> + +#include <bastypes.hxx> +#include <sbxitem.hxx> +#include <sfx2/minfitem.hxx> + +#include <com/sun/star/script/XLibraryContainer2.hpp> +#include <com/sun/star/document/MacroExecMode.hpp> + +#include <map> +using ::std::map; +using ::std::pair; + +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; + +MacroChooser::MacroChooser( Window* pParnt, sal_Bool bCreateEntries ) : + SfxModalDialog( pParnt, IDEResId( RID_MACROCHOOSER ) ), + aMacroNameTxt( this, IDEResId( RID_TXT_MACRONAME ) ), + aMacroNameEdit( this, IDEResId( RID_ED_MACRONAME ) ), + aMacroFromTxT( this, IDEResId( RID_TXT_MACROFROM ) ), + aMacrosSaveInTxt( this, IDEResId( RID_TXT_SAVEMACRO ) ), + aBasicBox( this, IDEResId( RID_CTRL_LIB ) ), + aMacrosInTxt( this, IDEResId( RID_TXT_MACROSIN ) ), + aMacroBox( this, IDEResId( RID_CTRL_MACRO ) ), + aRunButton( this, IDEResId( RID_PB_RUN ) ), + aCloseButton( this, IDEResId( RID_PB_CLOSE ) ), + aAssignButton( this, IDEResId( RID_PB_ASSIGN ) ), + aEditButton( this, IDEResId( RID_PB_EDIT ) ), + aNewDelButton( this, IDEResId( RID_PB_DEL ) ), + aOrganizeButton( this, IDEResId( RID_PB_ORG ) ), + aHelpButton( this, IDEResId( RID_PB_HELP ) ), + aNewLibButton( this, IDEResId( RID_PB_NEWLIB ) ), + aNewModButton( this, IDEResId( RID_PB_NEWMOD ) ) +{ + FreeResource(); + + nMode = MACROCHOOSER_ALL; + bNewDelIsDel = sal_True; + + // Der Sfx fragt den BasicManager nicht, ob modified + // => Speichern anschmeissen, wenn Aenderung, aber kein Sprung in + // die BasicIDE. + bForceStoreBasic = sal_False; + + aMacrosInTxtBaseStr = aMacrosInTxt.GetText(); + + aMacroBox.SetSelectionMode( SINGLE_SELECTION ); + aMacroBox.SetHighlightRange(); // ueber ganze Breite selektieren + + aRunButton.SetClickHdl( LINK( this, MacroChooser, ButtonHdl ) ); + aCloseButton.SetClickHdl( LINK( this, MacroChooser, ButtonHdl ) ); + aAssignButton.SetClickHdl( LINK( this, MacroChooser, ButtonHdl ) ); + aEditButton.SetClickHdl( LINK( this, MacroChooser, ButtonHdl ) ); + aNewDelButton.SetClickHdl( LINK( this, MacroChooser, ButtonHdl ) ); + aOrganizeButton.SetClickHdl( LINK( this, MacroChooser, ButtonHdl ) ); + + // Buttons only for MACROCHOOSER_RECORDING + aNewLibButton.SetClickHdl( LINK( this, MacroChooser, ButtonHdl ) ); + aNewModButton.SetClickHdl( LINK( this, MacroChooser, ButtonHdl ) ); + aNewLibButton.Hide(); // default + aNewModButton.Hide(); // default + aMacrosSaveInTxt.Hide(); // default + + aMacrosInTxt.SetStyle( WB_NOMULTILINE | WB_PATHELLIPSIS ); + + aMacroNameEdit.SetModifyHdl( LINK( this, MacroChooser, EditModifyHdl ) ); + + aBasicBox.SetSelectHdl( LINK( this, MacroChooser, BasicSelectHdl ) ); + + aMacroBox.SetDoubleClickHdl( LINK( this, MacroChooser, MacroDoubleClickHdl ) ); + aMacroBox.SetSelectHdl( LINK( this, MacroChooser, MacroSelectHdl ) ); + + aBasicBox.SetMode( BROWSEMODE_MODULES ); + aBasicBox.SetStyle( WB_TABSTOP | WB_BORDER | + WB_HASLINES | WB_HASLINESATROOT | + WB_HASBUTTONS | WB_HASBUTTONSATROOT | + WB_HSCROLL ); + + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if( pDispatcher ) + { + pDispatcher->Execute( SID_BASICIDE_STOREALLMODULESOURCES ); + } + + if ( bCreateEntries ) + aBasicBox.ScanAllEntries(); +} + +MacroChooser::~MacroChooser() +{ + if ( bForceStoreBasic ) + SFX_APP()->SaveBasicAndDialogContainer(); +} + +void MacroChooser::StoreMacroDescription() +{ + BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( aBasicBox.FirstSelected() ) ); + String aMethodName; + SvLBoxEntry* pEntry = aMacroBox.FirstSelected(); + if ( pEntry ) + aMethodName = aMacroBox.GetEntryText( pEntry ); + else + aMethodName = aMacroNameEdit.GetText(); + if ( aMethodName.Len() ) + { + aDesc.SetMethodName( aMethodName ); + aDesc.SetType( OBJ_TYPE_METHOD ); + } + + BasicIDEData* pData = IDE_DLL()->GetExtraData(); + if ( pData ) + pData->SetLastEntryDescriptor( aDesc ); +} + +void MacroChooser::RestoreMacroDescription() +{ + BasicEntryDescriptor aDesc; + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + if ( pIDEShell ) + { + IDEBaseWindow* pCurWin = pIDEShell->GetCurWindow(); + if ( pCurWin ) + aDesc = pCurWin->CreateEntryDescriptor(); + } + else + { + BasicIDEData* pData = IDE_DLL()->GetExtraData(); + if ( pData ) + aDesc = pData->GetLastEntryDescriptor(); + } + + aBasicBox.SetCurrentEntry( aDesc ); + + String aLastMacro( aDesc.GetMethodName() ); + if ( aLastMacro.Len() ) + { + // find entry in macro box + SvLBoxEntry* pEntry = 0; + sal_uLong nPos = 0; + SvLBoxEntry* pE = aMacroBox.GetEntry( nPos ); + while ( pE ) + { + if ( aMacroBox.GetEntryText( pE ) == aLastMacro ) + { + pEntry = pE; + break; + } + pE = aMacroBox.GetEntry( ++nPos ); + } + + if ( pEntry ) + aMacroBox.SetCurEntry( pEntry ); + else + { + aMacroNameEdit.SetText( aLastMacro ); + aMacroNameEdit.SetSelection( Selection( 0, 0 ) ); + } + } +} + +short MacroChooser::Execute() +{ + RestoreMacroDescription(); + aRunButton.GrabFocus(); + + // #104198 Check if "wrong" document is active + SvLBoxEntry* pSelectedEntry = aBasicBox.GetCurEntry(); + BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pSelectedEntry ) ); + const ScriptDocument& rSelectedDoc( aDesc.GetDocument() ); + + // App Basic is always ok, so only check if shell was found + if( rSelectedDoc.isDocument() && !rSelectedDoc.isActive() ) + { + // Search for the right entry + sal_uLong nRootPos = 0; + SvLBoxEntry* pRootEntry = aBasicBox.GetEntry( nRootPos ); + while( pRootEntry ) + { + BasicEntryDescriptor aCmpDesc( aBasicBox.GetEntryDescriptor( pRootEntry ) ); + const ScriptDocument& rCmpDoc( aCmpDesc.GetDocument() ); + if ( rCmpDoc.isDocument() && rCmpDoc.isActive() ) + { + SvLBoxEntry* pEntry = pRootEntry; + SvLBoxEntry* pLastValid = pEntry; + while ( pEntry ) + { + pLastValid = pEntry; + pEntry = aBasicBox.FirstChild( pEntry ); + } + if( pLastValid ) + aBasicBox.SetCurEntry( pLastValid ); + } + pRootEntry = aBasicBox.GetEntry( ++nRootPos ); + } + } + + CheckButtons(); + UpdateFields(); + + if ( StarBASIC::IsRunning() ) + aCloseButton.GrabFocus(); + + Window* pPrevDlgParent = Application::GetDefDialogParent(); + Application::SetDefDialogParent( this ); + short nRet = ModalDialog::Execute(); + // #57314# Wenn die BasicIDE aktiviert wurde, dann nicht den DefModalDialogParent auf das inaktive Dokument zuruecksetzen. + if ( Application::GetDefDialogParent() == this ) + Application::SetDefDialogParent( pPrevDlgParent ); + return nRet; +} + + +void MacroChooser::EnableButton( Button& rButton, sal_Bool bEnable ) +{ + if ( bEnable ) + { + if ( nMode == MACROCHOOSER_CHOOSEONLY || nMode == MACROCHOOSER_RECORDING ) + { + // Nur der RunButton kann enabled werden + if ( &rButton == &aRunButton ) + rButton.Enable(); + else + rButton.Disable(); + } + else + rButton.Enable(); + } + else + rButton.Disable(); +} + + + + +SbMethod* MacroChooser::GetMacro() +{ + SbMethod* pMethod = 0; + SbModule* pModule = aBasicBox.FindModule( aBasicBox.GetCurEntry() ); + if ( pModule ) + { + SvLBoxEntry* pEntry = aMacroBox.FirstSelected(); + if ( pEntry ) + { + String aMacroName( aMacroBox.GetEntryText( pEntry ) ); + pMethod = (SbMethod*)pModule->GetMethods()->Find( aMacroName, SbxCLASS_METHOD ); + } + } + return pMethod; +} + + + +void MacroChooser::DeleteMacro() +{ + SbMethod* pMethod = GetMacro(); + DBG_ASSERT( pMethod, "DeleteMacro: Kein Macro !" ); + if ( pMethod && QueryDelMacro( pMethod->GetName(), this ) ) + { + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if( pDispatcher ) + { + pDispatcher->Execute( SID_BASICIDE_STOREALLMODULESOURCES ); + } + + // Aktuelles Doc als geaendert markieren: + StarBASIC* pBasic = BasicIDE::FindBasic( pMethod ); + DBG_ASSERT( pBasic, "Basic?!" ); + BasicManager* pBasMgr = BasicIDE::FindBasicManager( pBasic ); + DBG_ASSERT( pBasMgr, "BasMgr?" ); + ScriptDocument aDocument( ScriptDocument::getDocumentForBasicManager( pBasMgr ) ); + if ( aDocument.isDocument() ) // Muss ja nicht aus einem Document kommen... + { + aDocument.setDocumentModified(); + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_SAVEDOC ); + } + + SbModule* pModule = pMethod->GetModule(); + DBG_ASSERT( pModule, "DeleteMacro: Kein Modul?!" ); + ::rtl::OUString aSource( pModule->GetSource32() ); + sal_uInt16 nStart, nEnd; + pMethod->GetLineRange( nStart, nEnd ); + pModule->GetMethods()->Remove( pMethod ); + CutLines( aSource, nStart-1, nEnd-nStart+1, sal_True ); + pModule->SetSource32( aSource ); + + // update module in library + String aLibName = pBasic->GetName(); + String aModName = pModule->GetName(); + OSL_VERIFY( aDocument.updateModule( aLibName, aModName, aSource ) ); + + SvLBoxEntry* pEntry = aMacroBox.FirstSelected(); + DBG_ASSERT( pEntry, "DeleteMacro: Entry ?!" ); + aMacroBox.GetModel()->Remove( pEntry ); + bForceStoreBasic = sal_True; + } +} + +SbMethod* MacroChooser::CreateMacro() +{ + SbMethod* pMethod = 0; + SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry(); + BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) ); + ScriptDocument aDocument( aDesc.GetDocument() ); + OSL_ENSURE( aDocument.isAlive(), "MacroChooser::CreateMacro: no document!" ); + if ( !aDocument.isAlive() ) + return NULL; + + String aLibName( aDesc.GetLibName() ); + + if ( !aLibName.Len() ) + aLibName = String::CreateFromAscii( "Standard" ); + + aDocument.getOrCreateLibrary( E_SCRIPTS, aLibName ); + + ::rtl::OUString aOULibName( aLibName ); + Reference< script::XLibraryContainer > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ) ); + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && !xModLibContainer->isLibraryLoaded( aOULibName ) ) + xModLibContainer->loadLibrary( aOULibName ); + Reference< script::XLibraryContainer > xDlgLibContainer( aDocument.getLibraryContainer( E_DIALOGS ) ); + if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && !xDlgLibContainer->isLibraryLoaded( aOULibName ) ) + xDlgLibContainer->loadLibrary( aOULibName ); + + BasicManager* pBasMgr = aDocument.getBasicManager(); + StarBASIC* pBasic = pBasMgr ? pBasMgr->GetLib( aLibName ) : 0; + if ( pBasic ) + { + SbModule* pModule = 0; + String aModName( aDesc.GetName() ); + if ( aModName.Len() ) + { + // extract the module name from the string like "Sheet1 (Example1)" + if( aDesc.GetLibSubName().Equals( String( IDEResId( RID_STR_DOCUMENT_OBJECTS ) ) ) ) + { + sal_uInt16 nIndex = 0; + aModName = aModName.GetToken( 0, ' ', nIndex ); + } + pModule = pBasic->FindModule( aModName ); + } + else if ( pBasic->GetModules()->Count() ) + pModule = (SbModule*)pBasic->GetModules()->Get( 0 ); + + if ( !pModule ) + { + pModule = createModImpl( static_cast<Window*>( this ), + aDocument, aBasicBox, aLibName, aModName ); + } + + String aSubName = aMacroNameEdit.GetText(); + DBG_ASSERT( !pModule || !pModule->GetMethods()->Find( aSubName, SbxCLASS_METHOD ), "Macro existiert schon!" ); + pMethod = pModule ? BasicIDE::CreateMacro( pModule, aSubName ) : NULL; + } + + return pMethod; +} + +void MacroChooser::SaveSetCurEntry( SvTreeListBox& rBox, SvLBoxEntry* pEntry ) +{ + // Durch das Highlight wird das Edit sonst platt gemacht: + + String aSaveText( aMacroNameEdit.GetText() ); + Selection aCurSel( aMacroNameEdit.GetSelection() ); + + rBox.SetCurEntry( pEntry ); + aMacroNameEdit.SetText( aSaveText ); + aMacroNameEdit.SetSelection( aCurSel ); +} + +void MacroChooser::CheckButtons() +{ + SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry(); + BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) ); + SvLBoxEntry* pMacroEntry = aMacroBox.FirstSelected(); + SbMethod* pMethod = GetMacro(); + + // check, if corresponding libraries are readonly + sal_Bool bReadOnly = sal_False; + sal_uInt16 nDepth = pCurEntry ? aBasicBox.GetModel()->GetDepth( pCurEntry ) : 0; + if ( nDepth == 1 || nDepth == 2 ) + { + ScriptDocument aDocument( aDesc.GetDocument() ); + ::rtl::OUString aOULibName( aDesc.GetLibName() ); + Reference< script::XLibraryContainer2 > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); + Reference< script::XLibraryContainer2 > xDlgLibContainer( aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); + if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) ) || + ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryReadOnly( aOULibName ) ) ) + { + bReadOnly = sal_True; + } + } + + if ( nMode != MACROCHOOSER_RECORDING ) + { + // Run... + sal_Bool bEnable = pMethod ? sal_True : sal_False; + if ( ( nMode != MACROCHOOSER_CHOOSEONLY ) && StarBASIC::IsRunning() ) + bEnable = sal_False; + EnableButton( aRunButton, bEnable ); + } + + // Organisieren immer moeglich ? + + // Assign... + EnableButton( aAssignButton, pMethod ? sal_True : sal_False ); + + // Edit... + EnableButton( aEditButton, pMacroEntry ? sal_True : sal_False ); + + // aOrganizeButton + EnableButton( aOrganizeButton, !StarBASIC::IsRunning() && ( nMode == MACROCHOOSER_ALL )); + + // aNewDelButton.... + bool bProtected = aBasicBox.IsEntryProtected( pCurEntry ); + bool bShare = ( aDesc.GetLocation() == LIBRARY_LOCATION_SHARE ); + EnableButton( aNewDelButton, + !StarBASIC::IsRunning() && ( nMode == MACROCHOOSER_ALL ) && !bProtected && !bReadOnly && !bShare ); + sal_Bool bPrev = bNewDelIsDel; + bNewDelIsDel = pMethod ? sal_True : sal_False; + if ( ( bPrev != bNewDelIsDel ) && ( nMode == MACROCHOOSER_ALL ) ) + { + String aBtnText( bNewDelIsDel ? IDEResId( RID_STR_BTNDEL) : IDEResId( RID_STR_BTNNEW ) ); + aNewDelButton.SetText( aBtnText ); + } + + if ( nMode == MACROCHOOSER_RECORDING ) + { + // save button + if ( !bProtected && !bReadOnly && !bShare ) + aRunButton.Enable(); + else + aRunButton.Disable(); + + // new library button + if ( !bShare ) + aNewLibButton.Enable(); + else + aNewLibButton.Disable(); + + // new module button + if ( !bProtected && !bReadOnly && !bShare ) + aNewModButton.Enable(); + else + aNewModButton.Disable(); + } +} + + + +IMPL_LINK_INLINE_START( MacroChooser, MacroDoubleClickHdl, SvTreeListBox *, EMPTYARG ) +{ + StoreMacroDescription(); + if ( nMode == MACROCHOOSER_RECORDING ) + { + SbMethod* pMethod = GetMacro(); + if ( pMethod && !QueryReplaceMacro( pMethod->GetName(), this ) ) + return 0; + } + + EndDialog( MACRO_OK_RUN ); + return 0; +} +IMPL_LINK_INLINE_END( MacroChooser, MacroDoubleClickHdl, SvTreeListBox *, EMPTYARG ) + +IMPL_LINK( MacroChooser, MacroSelectHdl, SvTreeListBox *, pBox ) +{ + // Wird auch gerufen, wenn Deselektiert! + // 2 Funktionsaufrufe in jedem SelectHdl, nur weil Olli + // keinen separatren DeselctHdl einfuehren wollte: + // Also: Feststellen, ob Select oder Deselect: + if ( pBox->IsSelected( pBox->GetHdlEntry() ) ) + { + UpdateFields(); + CheckButtons(); + } + return 0; +} + +IMPL_LINK( MacroChooser, BasicSelectHdl, SvTreeListBox *, pBox ) +{ + static String aSpaceStr = String::CreateFromAscii(" "); + + // Wird auch gerufen, wenn Deselektiert! + // 2 Funktionsaufrufe in jedem SelectHdl, nur weil Olli + // keinen separatren DeselctHdl einfuehren wollte: + // Also: Feststellen, ob Select oder Deselect: + if ( !pBox->IsSelected( pBox->GetHdlEntry() ) ) + return 0; + + SbModule* pModule = aBasicBox.FindModule( aBasicBox.GetCurEntry() ); + + aMacroBox.Clear(); + if ( pModule ) + { + String aStr = aMacrosInTxtBaseStr; + aStr += aSpaceStr; + aStr += pModule->GetName(); + + aMacrosInTxt.SetText( aStr ); + + // Die Macros sollen in der Reihenfolge angezeigt werden, + // wie sie im Modul stehen. + + map< sal_uInt16, SbMethod* > aMacros; + size_t nMacroCount = pModule->GetMethods()->Count(); + for ( size_t iMeth = 0; iMeth < nMacroCount; iMeth++ ) + { + SbMethod* pMethod = (SbMethod*)pModule->GetMethods()->Get( iMeth ); + if( pMethod->IsHidden() ) + continue; + DBG_ASSERT( pMethod, "Methode nicht gefunden! (NULL)" ); + // Eventuell weiter vorne ? + sal_uInt16 nStart, nEnd; + pMethod->GetLineRange( nStart, nEnd ); + aMacros.insert( map< sal_uInt16, SbMethod*>::value_type( nStart, pMethod ) ); + } + + aMacroBox.SetUpdateMode( sal_False ); + for ( map< sal_uInt16, SbMethod* >::iterator it = aMacros.begin(); it != aMacros.end(); ++it ) + aMacroBox.InsertEntry( (*it).second->GetName() ); + aMacroBox.SetUpdateMode( sal_True ); + + if ( aMacroBox.GetEntryCount() ) + { + SvLBoxEntry* pEntry = aMacroBox.GetEntry( 0 ); + DBG_ASSERT( pEntry, "Entry ?!" ); + aMacroBox.SetCurEntry( pEntry ); + } + } + + UpdateFields(); + CheckButtons(); + return 0; +} + + + +IMPL_LINK( MacroChooser, EditModifyHdl, Edit *, pEdit ) +{ + (void)pEdit; + + // Das Modul, in dem bei Neu das Macro landet, selektieren, + // wenn BasicManager oder Lib selektiert. + SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry(); + if ( pCurEntry ) + { + sal_uInt16 nDepth = aBasicBox.GetModel()->GetDepth( pCurEntry ); + if ( ( nDepth == 1 ) && ( aBasicBox.IsEntryProtected( pCurEntry ) ) ) + { + // Dann auf die entsprechende Std-Lib stellen... + SvLBoxEntry* pManagerEntry = aBasicBox.GetModel()->GetParent( pCurEntry ); + pCurEntry = aBasicBox.GetModel()->FirstChild( pManagerEntry ); + } + if ( nDepth < 2 ) + { + SvLBoxEntry* pNewEntry = pCurEntry; + while ( pCurEntry && ( nDepth < 2 ) ) + { + pCurEntry = aBasicBox.FirstChild( pCurEntry ); + if ( pCurEntry ) + { + pNewEntry = pCurEntry; + nDepth = aBasicBox.GetModel()->GetDepth( pCurEntry ); + } + } + SaveSetCurEntry( aBasicBox, pNewEntry ); + } + if ( aMacroBox.GetEntryCount() ) + { + String aEdtText( aMacroNameEdit.GetText() ); + sal_Bool bFound = sal_False; + for ( sal_uInt16 n = 0; n < aMacroBox.GetEntryCount(); n++ ) + { + SvLBoxEntry* pEntry = aMacroBox.GetEntry( n ); + DBG_ASSERT( pEntry, "Entry ?!" ); + if ( aMacroBox.GetEntryText( pEntry ).CompareIgnoreCaseToAscii( aEdtText ) == COMPARE_EQUAL ) + { + SaveSetCurEntry( aMacroBox, pEntry ); + bFound = sal_True; + break; + } + } + if ( !bFound ) + { + SvLBoxEntry* pEntry = aMacroBox.FirstSelected(); + // Wenn es den Eintrag gibt ->Select ->Desription... + if ( pEntry ) + aMacroBox.Select( pEntry, sal_False ); + } + } + } + + CheckButtons(); + return 0; +} + + + +IMPL_LINK( MacroChooser, ButtonHdl, Button *, pButton ) +{ + // ausser bei New/Record wird die Description durch LoseFocus uebernommen. + if ( pButton == &aRunButton ) + { + StoreMacroDescription(); + + // #116444# check security settings before macro execution + if ( nMode == MACROCHOOSER_ALL ) + { + SbMethod* pMethod = GetMacro(); + SbModule* pModule = pMethod ? pMethod->GetModule() : NULL; + StarBASIC* pBasic = pModule ? (StarBASIC*)pModule->GetParent() : NULL; + BasicManager* pBasMgr = pBasic ? BasicIDE::FindBasicManager( pBasic ) : NULL; + if ( pBasMgr ) + { + ScriptDocument aDocument( ScriptDocument::getDocumentForBasicManager( pBasMgr ) ); + if ( aDocument.isDocument() && !aDocument.allowMacros() ) + { + WarningBox( this, WB_OK, String( IDEResId( RID_STR_CANNOTRUNMACRO ) ) ).Execute(); + return 0; + } + } + } + else if ( nMode == MACROCHOOSER_RECORDING ) + { + sal_Bool bValid = BasicIDE::IsValidSbxName( aMacroNameEdit.GetText() ); + if ( !bValid ) + { + ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_BADSBXNAME ) ) ).Execute(); + aMacroNameEdit.SetSelection( Selection( 0, aMacroNameEdit.GetText().Len() ) ); + aMacroNameEdit.GrabFocus(); + return 0; + } + + SbMethod* pMethod = GetMacro(); + if ( pMethod && !QueryReplaceMacro( pMethod->GetName(), this ) ) + return 0; + } + + EndDialog( MACRO_OK_RUN ); + } + else if ( pButton == &aCloseButton ) + { + StoreMacroDescription(); + EndDialog( MACRO_CLOSE ); + } + else if ( ( pButton == &aEditButton ) || ( pButton == &aNewDelButton ) ) + { + SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry(); + BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) ); + ScriptDocument aDocument( aDesc.GetDocument() ); + DBG_ASSERT( aDocument.isAlive(), "MacroChooser::ButtonHdl: no document, or document is dead!" ); + if ( !aDocument.isAlive() ) + return 0; + BasicManager* pBasMgr = aDocument.getBasicManager(); + String aLib( aDesc.GetLibName() ); + String aMod( aDesc.GetName() ); + // extract the module name from the string like "Sheet1 (Example1)" + if( aDesc.GetLibSubName().Equals( String( IDEResId( RID_STR_DOCUMENT_OBJECTS ) ) ) ) + { + sal_uInt16 nIndex = 0; + aMod = aMod.GetToken( 0, ' ', nIndex ); + } + String aSub( aDesc.GetMethodName() ); + SfxMacroInfoItem aInfoItem( SID_BASICIDE_ARG_MACROINFO, pBasMgr, aLib, aMod, aSub, String() ); + if ( pButton == &aEditButton ) + { + SvLBoxEntry* pEntry = aMacroBox.FirstSelected(); + if ( pEntry ) + aInfoItem.SetMethod( aMacroBox.GetEntryText( pEntry ) ); + StoreMacroDescription(); + SfxAllItemSet aArgs( SFX_APP()->GetPool() ); + SfxRequest aRequest( SID_BASICIDE_APPEAR, SFX_CALLMODE_SYNCHRON, aArgs ); + SFX_APP()->ExecuteSlot( aRequest ); + + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if( pDispatcher ) + pDispatcher->Execute( SID_BASICIDE_EDITMACRO, SFX_CALLMODE_ASYNCHRON, &aInfoItem, 0L ); + EndDialog( MACRO_EDIT ); + } + else + { + if ( bNewDelIsDel ) + { + DeleteMacro(); + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if( pDispatcher ) + { + pDispatcher->Execute( SID_BASICIDE_UPDATEMODULESOURCE, + SFX_CALLMODE_SYNCHRON, &aInfoItem, 0L ); + } + CheckButtons(); + UpdateFields(); + //if ( aMacroBox.GetCurEntry() ) // OV-Bug ? + // aMacroBox.Select( aMacroBox.GetCurEntry() ); + } + else + { + sal_Bool bValid = BasicIDE::IsValidSbxName( aMacroNameEdit.GetText() ); + if ( !bValid ) + { + ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_BADSBXNAME ) ) ).Execute(); + aMacroNameEdit.SetSelection( Selection( 0, aMacroNameEdit.GetText().Len() ) ); + aMacroNameEdit.GrabFocus(); + return 1; + } + SbMethod* pMethod = CreateMacro(); + if ( pMethod ) + { + aInfoItem.SetMethod( pMethod->GetName() ); + aInfoItem.SetModule( pMethod->GetModule()->GetName() ); + aInfoItem.SetLib( pMethod->GetModule()->GetParent()->GetName() ); + SfxAllItemSet aArgs( SFX_APP()->GetPool() ); + SfxRequest aRequest( SID_BASICIDE_APPEAR, SFX_CALLMODE_SYNCHRON, aArgs ); + SFX_APP()->ExecuteSlot( aRequest ); + + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if ( pDispatcher ) + pDispatcher->Execute( SID_BASICIDE_EDITMACRO, SFX_CALLMODE_ASYNCHRON, &aInfoItem, 0L ); + StoreMacroDescription(); + EndDialog( MACRO_NEW ); + } + } + } + } + + else if ( pButton == &aAssignButton ) + { + SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry(); + BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) ); + ScriptDocument aDocument( aDesc.GetDocument() ); + DBG_ASSERT( aDocument.isAlive(), "MacroChooser::ButtonHdl: no document, or document is dead!" ); + if ( !aDocument.isAlive() ) + return 0; + BasicManager* pBasMgr = aDocument.getBasicManager(); + String aLib( aDesc.GetLibName() ); + String aMod( aDesc.GetName() ); + String aSub( aMacroNameEdit.GetText() ); + SbMethod* pMethod = GetMacro(); + DBG_ASSERT( pBasMgr, "BasMgr?" ); + DBG_ASSERT( pMethod, "Method?" ); + String aComment( GetInfo( pMethod ) ); + SfxMacroInfoItem aItem( SID_MACROINFO, pBasMgr, aLib, aMod, aSub, aComment ); + SfxAllItemSet Args( SFX_APP()->GetPool() ); + SfxRequest aRequest( SID_CONFIG, SFX_CALLMODE_SYNCHRON, Args ); + aRequest.AppendItem( aItem ); + SFX_APP()->ExecuteSlot( aRequest ); + } + else if ( pButton == &aNewLibButton ) + { + SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry(); + BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) ); + ScriptDocument aDocument( aDesc.GetDocument() ); + createLibImpl( static_cast<Window*>( this ), aDocument, NULL, &aBasicBox ); + } + else if ( pButton == &aNewModButton ) + { + SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry(); + BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) ); + ScriptDocument aDocument( aDesc.GetDocument() ); + String aLibName( aDesc.GetLibName() ); + String aModName; + createModImpl( static_cast<Window*>( this ), aDocument, + aBasicBox, aLibName, aModName, true ); + } + else if ( pButton == &aOrganizeButton ) + { + StoreMacroDescription(); + + BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( aBasicBox.FirstSelected() ) ); + OrganizeDialog* pDlg = new OrganizeDialog( this, 0, aDesc ); + sal_uInt16 nRet = pDlg->Execute(); + delete pDlg; + + if ( nRet ) // Nicht einfach nur geschlossen + { + EndDialog( MACRO_EDIT ); + return 0; + } + + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + if ( pIDEShell && pIDEShell->IsAppBasicModified() ) + bForceStoreBasic = sal_True; + + aBasicBox.UpdateEntries(); + } + return 0; +} + + + +void MacroChooser::UpdateFields() +{ + SvLBoxEntry* pMacroEntry = aMacroBox.GetCurEntry(); + String aEmptyStr; + + aMacroNameEdit.SetText( aEmptyStr ); + if ( pMacroEntry ) + aMacroNameEdit.SetText( aMacroBox.GetEntryText( pMacroEntry ) ); +} + +void MacroChooser::SetMode( sal_uInt16 nM ) +{ + nMode = nM; + if ( nMode == MACROCHOOSER_ALL ) + { + aRunButton.SetText( String( IDEResId( RID_STR_RUN ) ) ); + EnableButton( aNewDelButton, sal_True ); + EnableButton( aOrganizeButton, sal_True ); + } + else if ( nMode == MACROCHOOSER_CHOOSEONLY ) + { + aRunButton.SetText( String( IDEResId( RID_STR_CHOOSE ) ) ); + EnableButton( aNewDelButton, sal_False ); + EnableButton( aOrganizeButton, sal_False ); + } + else if ( nMode == MACROCHOOSER_RECORDING ) + { + aRunButton.SetText( String( IDEResId( RID_STR_RECORD ) ) ); + EnableButton( aNewDelButton, sal_False ); + EnableButton( aOrganizeButton, sal_False ); + + aAssignButton.Hide(); + aEditButton.Hide(); + aNewDelButton.Hide(); + aOrganizeButton.Hide(); + aMacroFromTxT.Hide(); + + aNewLibButton.Show(); + aNewModButton.Show(); + aMacrosSaveInTxt.Show(); + + Point aHelpPos = aHelpButton.GetPosPixel(); + Point aHelpPosLogic = PixelToLogic( aHelpPos, MapMode(MAP_APPFONT) ); + aHelpPosLogic.Y() -= 34; + aHelpPos = LogicToPixel( aHelpPosLogic, MapMode(MAP_APPFONT) ); + aHelpButton.SetPosPixel( aHelpPos ); + } + CheckButtons(); +} + +String MacroChooser::GetInfo( SbxVariable* pVar ) +{ + String aComment; + SbxInfoRef xInfo = pVar->GetInfo(); + if ( xInfo.Is() ) + aComment = xInfo->GetComment(); + return aComment; +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/macrodlg.hrc b/basctl/source/basicide/macrodlg.hrc new file mode 100644 index 000000000000..ae96e1b0b92f --- /dev/null +++ b/basctl/source/basicide/macrodlg.hrc @@ -0,0 +1,59 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#ifndef _MACRODLG_HRC +#define _MACRODLG_HRC + +#include <svl/solar.hrc> + +#define RID_MACROCHOOSER ( RID_BASICIDE_START + 50 ) +#define RID_STR_BTNDEL ( RID_BASICIDE_START + 51 ) +#define RID_STR_BTNNEW ( RID_BASICIDE_START + 52 ) +#define RID_STR_CHOOSE ( RID_BASICIDE_START + 53 ) +#define RID_STR_RUN ( RID_BASICIDE_START + 54 ) +#define RID_STR_RECORD ( RID_BASICIDE_START + 56 ) + +#define RID_CTRL_MACRO 1 +#define RID_CTRL_LIB 2 +#define RID_TXT_MACRONAME 3 +#define RID_TXT_MACROFROM 4 +#define RID_ED_MACRONAME 5 +#define RID_TXT_DESCRIPTION 6 +#define RID_PB_RUN 8 +#define RID_PB_CLOSE 9 +#define RID_PB_EDIT 10 +#define RID_PB_ORG 11 +#define RID_PB_DEL 12 +#define RID_PB_ASSIGN 13 +#define RID_PB_HELP 15 +#define RID_ML_DESCRIPTION 16 +#define RID_TXT_MACROSIN 17 +#define RID_TXT_SAVEMACRO 18 +#define RID_PB_NEWLIB 19 +#define RID_PB_NEWMOD 20 + +#endif // _MACRODLG_HRC + diff --git a/basctl/source/basicide/macrodlg.hxx b/basctl/source/basicide/macrodlg.hxx new file mode 100644 index 000000000000..85cce75898e9 --- /dev/null +++ b/basctl/source/basicide/macrodlg.hxx @@ -0,0 +1,114 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +// +#ifndef _MACRODLG_HXX +#define _MACRODLG_HXX + +#include <svheader.hxx> + +#include <bastype2.hxx> +#include <bastype3.hxx> +#include <sfx2/basedlgs.hxx> +#include <vcl/fixed.hxx> + +#include <vcl/button.hxx> + +#define MACRO_CLOSE 10 +#define MACRO_OK_RUN 11 +#define MACRO_NEW 12 +#define MACRO_EDIT 14 +#define MACRO_ORGANIZE 15 +#define MACRO_ASSIGN 16 + +#define MACROCHOOSER_ALL 1 +#define MACROCHOOSER_CHOOSEONLY 2 +#define MACROCHOOSER_RECORDING 3 + +class BasicManager; + +class MacroChooser : public SfxModalDialog +{ +private: + FixedText aMacroNameTxt; + Edit aMacroNameEdit; + FixedText aMacroFromTxT; + FixedText aMacrosSaveInTxt; + BasicTreeListBox aBasicBox; + FixedText aMacrosInTxt; + String aMacrosInTxtBaseStr; + SvTreeListBox aMacroBox; + + PushButton aRunButton; + CancelButton aCloseButton; + PushButton aAssignButton; + PushButton aEditButton; + PushButton aNewDelButton; + PushButton aOrganizeButton; + HelpButton aHelpButton; + PushButton aNewLibButton; + PushButton aNewModButton; + + sal_Bool bNewDelIsDel; + sal_Bool bForceStoreBasic; + + sal_uInt16 nMode; + + DECL_LINK( MacroSelectHdl, SvTreeListBox * ); + DECL_LINK( MacroDoubleClickHdl, SvTreeListBox * ); + DECL_LINK( BasicSelectHdl, SvTreeListBox * ); + DECL_LINK( EditModifyHdl, Edit * ); + DECL_LINK( ButtonHdl, Button * ); + + void CheckButtons(); + void SaveSetCurEntry( SvTreeListBox& rBox, SvLBoxEntry* pEntry ); + void UpdateFields(); + + void EnableButton( Button& rButton, sal_Bool bEnable ); + + String GetInfo( SbxVariable* pVar ); + + void StoreMacroDescription(); + void RestoreMacroDescription(); + +public: + MacroChooser( Window* pParent, sal_Bool bCreateEntries = sal_True ); + ~MacroChooser(); + + SbMethod* GetMacro(); + void DeleteMacro(); + SbMethod* CreateMacro(); + + virtual short Execute(); + + void SetMode( sal_uInt16 nMode ); + sal_uInt16 GetMode() const { return nMode; } +}; + +#endif // _MACRODLG_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/macrodlg.src b/basctl/source/basicide/macrodlg.src new file mode 100644 index 000000000000..9dd8a7fac99f --- /dev/null +++ b/basctl/source/basicide/macrodlg.src @@ -0,0 +1,234 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#include <sfx2/sfx.hrc> +#include <macrodlg.hrc> +#include <basidesh.hrc> +#include <helpid.hrc> +ModalDialog RID_MACROCHOOSER +{ + HelpId = "basctl:ModalDialog:RID_MACROCHOOSER" ; + OutputSize = TRUE ; + SVLook = TRUE ; + Size = MAP_APPFONT ( 287 , 165 ) ; + Text [ en-US ] = "%PRODUCTNAME Basic Macros" ; + Moveable = TRUE ; + // Closeable = TRUE; + + FixedText RID_TXT_MACROSIN + { + Pos = MAP_APPFONT ( 122 , 30 ) ; + Size = MAP_APPFONT ( 100 , 10 ) ; + Text [ en-US ] = "Existing macros ~in:"; + }; + Control RID_CTRL_MACRO + { + HelpID = HID_BASICIDE_MACROS ; + Border = TRUE ; + Pos = MAP_APPFONT ( 122 , 41 ) ; + Size = MAP_APPFONT ( 100 , 117 ) ; + // Size = MAP_APPFONT ( 100 , 117 ) ; + TabStop = TRUE ; + }; + Control RID_CTRL_LIB + { + HelpID = HID_BASICIDE_LIBS ; + Border = TRUE ; + Pos = MAP_APPFONT ( 6 , 41 ) ; + Size = MAP_APPFONT ( 110 , 117 ) ; + TabStop = TRUE ; + }; + FixedText RID_TXT_MACRONAME + { + Pos = MAP_APPFONT ( 6 , 3 ) ; + Size = MAP_APPFONT ( 100 , 10 ) ; + Text [ en-US ] = "~Macro name" ; + }; + Edit RID_ED_MACRONAME + { + HelpID = "basctl:Edit:RID_MACROCHOOSER:RID_ED_MACRONAME"; + Border = TRUE ; + SVLook = TRUE ; + Pos = MAP_APPFONT ( 6 , 14 ) ; + Size = MAP_APPFONT ( 110 , 12 ) ; + TabStop = TRUE ; + }; + FixedText RID_TXT_MACROFROM + { + Pos = MAP_APPFONT ( 6 , 30 ) ; + Size = MAP_APPFONT ( 100 , 10 ) ; + Text [ en-US ] = "Macro ~from" ; + }; + FixedText RID_TXT_SAVEMACRO + { + Pos = MAP_APPFONT ( 6 , 30 ) ; + Size = MAP_APPFONT ( 100 , 10 ) ; + Text [ en-US ] = "Save m~acro in"; + }; + + FixedText RID_TXT_DESCRIPTION + { + Pos = MAP_APPFONT ( 6 , 117 ) ; + Size = MAP_APPFONT ( 100 , 10 ) ; + Text [ en-US ] = "De~scription" ; + }; + PushButton RID_PB_RUN + { + HelpID = "basctl:PushButton:RID_MACROCHOOSER:RID_PB_RUN"; + Pos = MAP_APPFONT ( 231 , 6 ) ; + Size = MAP_APPFONT ( 50 , 14 ) ; + DefButton = TRUE; + Text [ en-US ] = "R~un" ; + TabStop = TRUE ; + }; + CancelButton RID_PB_CLOSE + { + Pos = MAP_APPFONT ( 231 , 23 ) ; + Size = MAP_APPFONT ( 50 , 14 ) ; + TabStop = TRUE ; + Text [ en-US ] = "Close"; + }; + + PushButton RID_PB_ASSIGN + { + HelpID = "basctl:PushButton:RID_MACROCHOOSER:RID_PB_ASSIGN"; + Pos = MAP_APPFONT ( 231 , 60 ) ; + Size = MAP_APPFONT ( 50 , 14 ) ; + Text [ en-US ] = "~Assign..." ; + TabStop = TRUE ; + }; + PushButton RID_PB_EDIT + { + HelpID = "basctl:PushButton:RID_MACROCHOOSER:RID_PB_EDIT"; + Size = MAP_APPFONT ( 50 , 14 ) ; + Pos = MAP_APPFONT ( 231 , 77 ) ; + Text [ en-US ] = "~Edit" ; + TabStop = TRUE ; + }; + PushButton RID_PB_NEWLIB + { + HelpID = "basctl:PushButton:RID_MACROCHOOSER:RID_PB_NEWLIB"; + Pos = MAP_APPFONT ( 231 , 60 ) ; + Size = MAP_APPFONT ( 50 , 14 ) ; + Text [ en-US ] = "New ~Library"; + }; + PushButton RID_PB_NEWMOD + { + HelpID = "basctl:PushButton:RID_MACROCHOOSER:RID_PB_NEWMOD"; + Size = MAP_APPFONT ( 50 , 14 ) ; + Pos = MAP_APPFONT ( 231 , 77 ) ; + Text [ en-US ] = "New M~odule"; + }; + PushButton RID_PB_DEL + { + HelpID = "basctl:PushButton:RID_MACROCHOOSER:RID_PB_DEL"; + Pos = MAP_APPFONT ( 231 , 94 ) ; + Size = MAP_APPFONT ( 50 , 14 ) ; + Text [ en-US ] = "~Delete" ; + TabStop = TRUE ; + }; + PushButton RID_PB_ORG + { + HelpID = "basctl:PushButton:RID_MACROCHOOSER:RID_PB_ORG"; + Pos = MAP_APPFONT ( 231 , 114 ) ; + Size = MAP_APPFONT ( 50 , 14 ) ; + Text [ en-US ] = "~Organizer..." ; + }; + HelpButton RID_PB_HELP + { + Pos = MAP_APPFONT ( 231 , 131 ) ; + Size = MAP_APPFONT ( 50 , 14 ) ; + TabStop = TRUE ; + }; + MultiLineEdit RID_ML_DESCRIPTION + { + HelpID = "basctl:MultiLineEdit:RID_MACROCHOOSER:RID_ML_DESCRIPTION"; + Border = TRUE ; + Pos = MAP_APPFONT ( 6 , 131 ) ; + Size = MAP_APPFONT ( 216 , 28 ) ; + TabStop = TRUE ; + VScroll = TRUE ; + IgnoreTab = TRUE ; + }; +}; +String RID_STR_STDMACRONAME +{ + Text [ en-US ] = "Macro" ; +}; +String RID_STR_BTNDEL +{ + Text [ en-US ] = "~Delete" ; +}; +String RID_STR_BTNNEW +{ + Text [ en-US ] = "~New" ; +}; +String RID_STR_CLOSE +{ + Text [ en-US ] = "Close" ; +}; +String RID_STR_CHOOSE +{ + Text [ en-US ] = "Choose" ; +}; +String RID_STR_RUN +{ + Text [ en-US ] = "Run" ; +}; + +String RID_STR_RECORD +{ + Text [ en-US ] = "~Save" ; +}; + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/basctl/source/basicide/makefile.mk b/basctl/source/basicide/makefile.mk new file mode 100644 index 000000000000..210d0db3df3e --- /dev/null +++ b/basctl/source/basicide/makefile.mk @@ -0,0 +1,99 @@ +#************************************************************************* +# +# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +# +# Copyright 2000, 2010 Oracle and/or its affiliates. +# +# OpenOffice.org - a multi-platform office productivity suite +# +# This file is part of OpenOffice.org. +# +# OpenOffice.org is free software: you can redistribute it and/or modify +# it under the terms of the GNU Lesser General Public License version 3 +# only, as published by the Free Software Foundation. +# +# OpenOffice.org 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 version 3 for more details +# (a copy is included in the LICENSE file that accompanied this code). +# +# You should have received a copy of the GNU Lesser General Public License +# version 3 along with OpenOffice.org. If not, see +# <http://www.openoffice.org/license.html> +# for a copy of the LGPLv3 License. +# +#************************************************************************* + +PRJ=..$/.. + +PRJNAME=basctl +TARGET=basicide +VISIBILITY_HIDDEN=TRUE + +PROJECTPCH4DLL=TRUE +PROJECTPCH=ide_pch +PROJECTPCHSOURCE=ide_pch + +# --- Settings ----------------------------------------------------------- + +.INCLUDE : settings.mk + +.IF "$(basicdebug)" != "" || "$(BASICDEBUG)" != "" +CDEFS+=-DBASICDEBUG +.ENDIF + +# --- Allgemein ---------------------------------------------------------- + +EXCEPTIONSFILES= \ + $(SLO)$/basdoc.obj \ + $(SLO)$/basicbox.obj \ + $(SLO)$/basicrenderable.obj \ + $(SLO)$/baside2.obj \ + $(SLO)$/baside2b.obj \ + $(SLO)$/baside3.obj \ + $(SLO)$/basidectrlr.obj \ + $(SLO)$/basides1.obj \ + $(SLO)$/basides2.obj \ + $(SLO)$/basides3.obj \ + $(SLO)$/basidesh.obj \ + $(SLO)$/basobj2.obj \ + $(SLO)$/basobj3.obj \ + $(SLO)$/bastype2.obj \ + $(SLO)$/bastype3.obj \ + $(SLO)$/bastypes.obj \ + $(SLO)$/brkdlg.obj \ + $(SLO)$/doceventnotifier.obj \ + $(SLO)$/docsignature.obj \ + $(SLO)$/documentenumeration.obj \ + $(SLO)$/iderdll.obj \ + $(SLO)$/localizationmgr.obj \ + $(SLO)$/macrodlg.obj \ + $(SLO)$/moduldl2.obj \ + $(SLO)$/moduldlg.obj \ + $(SLO)$/objdlg.obj \ + $(SLO)$/register.obj \ + $(SLO)$/scriptdocument.obj \ + $(SLO)$/tbxctl.obj \ + $(SLO)$/unomodel.obj + +SLOFILES = $(EXCEPTIONSFILES) + +SRS1NAME=$(TARGET) +SRC1FILES= basidesh.src macrodlg.src moptions.src moduldlg.src objdlg.src brkdlg.src basicprint.src + +.INCLUDE : target.mk + +$(INCCOM)$/dllname.hxx: makefile.mk +.IF "$(GUI)"=="UNX" + $(RM) $@ + echo \#define DLL_NAME \"libbasctl$(DLLPOSTFIX)$(DLLPOST)\" >$@ +.ELSE + echo \#define DLL_NAME \"basctl$(DLLPOSTFIX)$(DLLPOST)\" >$@ +.ENDIF + +$(SLO)$/basiclib.obj : $(INCCOM)$/dllname.hxx + +$(INCCOM)$/basicide.hrc: basidesh.hrc + @-$(COPY) basidesh.hrc $@ + diff --git a/basctl/source/basicide/moduldl2.cxx b/basctl/source/basicide/moduldl2.cxx new file mode 100644 index 000000000000..ec8175e173d3 --- /dev/null +++ b/basctl/source/basicide/moduldl2.cxx @@ -0,0 +1,1708 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#define GLOBALOVERFLOW + +#include <ide_pch.hxx> + +#include <svtools/filedlg.hxx> + +#include <sot/storinfo.hxx> + +#include <moduldlg.hrc> +#include <moduldlg.hxx> +#include <basidesh.hrc> +#include <basidesh.hxx> +#include <bastypes.hxx> +#include <basobj.hxx> +#include <baside2.hrc> +#include <iderdll.hxx> +#include <iderdll2.hxx> +#include <svx/passwd.hxx> +#include <sbxitem.hxx> +#include <basdoc.hxx> +#include <ucbhelper/content.hxx> +#include "rtl/uri.hxx" +#include <tools/urlobj.hxx> +#include <tools/diagnose_ex.h> + +#include <sot/storage.hxx> +#include <com/sun/star/ui/dialogs/XFilePicker.hpp> +#include <com/sun/star/ui/dialogs/XFolderPicker.hpp> +#include <com/sun/star/ui/dialogs/XFilterManager.hpp> +#include <com/sun/star/ui/dialogs/TemplateDescription.hpp> +#include <com/sun/star/script/XLibraryContainer2.hpp> +#include <com/sun/star/script/XLibraryContainerPassword.hpp> +#include <com/sun/star/script/XLibraryContainerExport.hpp> +#include <com/sun/star/ucb/XSimpleFileAccess.hpp> +#include "com/sun/star/ucb/XCommandEnvironment.hpp" +#include <com/sun/star/ucb/NameClash.hpp> +#include "com/sun/star/packages/manifest/XManifestWriter.hpp" +#include <unotools/pathoptions.hxx> +#include <comphelper/processfactory.hxx> + +#include <com/sun/star/util/VetoException.hpp> +#include <com/sun/star/script/ModuleSizeExceededRequest.hpp> + +using namespace ::comphelper; +using ::rtl::OUString; +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::lang; +using namespace ::com::sun::star::ucb; +using namespace ::com::sun::star::ui::dialogs; + + +typedef ::cppu::WeakImplHelper1< task::XInteractionHandler > HandlerImpl_BASE; + +class DummyInteractionHandler : public HandlerImpl_BASE +{ + Reference< task::XInteractionHandler > m_xHandler; +public: + DummyInteractionHandler( const Reference< task::XInteractionHandler >& xHandler ) : m_xHandler( xHandler ){} + + virtual void SAL_CALL handle( const Reference< task::XInteractionRequest >& rRequest ) throw (::com::sun::star::uno::RuntimeException) + { + if ( m_xHandler.is() ) + { + script::ModuleSizeExceededRequest aModSizeException; + if ( rRequest->getRequest() >>= aModSizeException ) + m_xHandler->handle( rRequest ); + } + } +}; + +//---------------------------------------------------------------------------- +// BasicLibUserData +//---------------------------------------------------------------------------- +class BasicLibUserData +{ +private: + ScriptDocument m_aDocument; + +public: + BasicLibUserData( const ScriptDocument& rDocument ) : m_aDocument( rDocument ) { } + virtual ~BasicLibUserData() {}; + + const ScriptDocument& + GetDocument() const { return m_aDocument; } +}; + + +//---------------------------------------------------------------------------- +// BasicLibLBoxString +//---------------------------------------------------------------------------- + +class BasicLibLBoxString : public SvLBoxString +{ +public: + BasicLibLBoxString( SvLBoxEntry* pEntry, sal_uInt16 nFlags, const String& rTxt ) : + SvLBoxString( pEntry, nFlags, rTxt ) {} + + virtual void Paint( const Point& rPos, SvLBox& rDev, sal_uInt16 nFlags, SvLBoxEntry* pEntry ); +}; + +//---------------------------------------------------------------------------- + +void BasicLibLBoxString::Paint( const Point& rPos, SvLBox& rDev, sal_uInt16, SvLBoxEntry* pEntry ) +{ + // Change text color if library is read only: + bool bReadOnly = false; + if (pEntry && pEntry->GetUserData()) + { + ScriptDocument aDocument( + static_cast< BasicLibUserData * >(pEntry->GetUserData())-> + GetDocument() ); + + rtl::OUString aLibName( + static_cast< SvLBoxString * >(pEntry->GetItem(1))->GetText()); + Reference< script::XLibraryContainer2 > xModLibContainer( + aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY); + Reference< script::XLibraryContainer2 > xDlgLibContainer( + aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY); + bReadOnly + = (xModLibContainer.is() && xModLibContainer->hasByName(aLibName) + && xModLibContainer->isLibraryReadOnly(aLibName)) + || (xDlgLibContainer.is() && xDlgLibContainer->hasByName(aLibName) + && xDlgLibContainer->isLibraryReadOnly(aLibName)); + } + if (bReadOnly) + rDev.DrawCtrlText(rPos, GetText(), 0, STRING_LEN, TEXT_DRAW_DISABLE); + else + rDev.DrawText(rPos, GetText()); +} + + +//---------------------------------------------------------------------------- +// BasicCheckBox +//---------------------------------------------------------------------------- + +BasicCheckBox::BasicCheckBox( Window* pParent, const ResId& rResId ) + :SvTabListBox( pParent, rResId ) + ,m_aDocument( ScriptDocument::getApplicationScriptDocument() ) +{ + nMode = LIBMODE_MANAGER; + long aTabs_[] = { 1, 12 }; // Mindestens einen braucht die TabPos... + // 12 wegen der Checkbox + SetTabs( aTabs_ ); + Init(); +} + +//---------------------------------------------------------------------------- + +BasicCheckBox::~BasicCheckBox() +{ + delete pCheckButton; + + // delete user data + SvLBoxEntry* pEntry = First(); + while ( pEntry ) + { + delete (BasicLibUserData*)pEntry->GetUserData(); + pEntry = Next( pEntry ); + } +} + +//---------------------------------------------------------------------------- + +void BasicCheckBox::Init() +{ + pCheckButton = new SvLBoxButtonData(this); + + if ( nMode == LIBMODE_CHOOSER ) + EnableCheckButton( pCheckButton ); + else + EnableCheckButton( 0 ); + + SetHighlightRange(); +} + +//---------------------------------------------------------------------------- + +void BasicCheckBox::SetMode( sal_uInt16 n ) +{ + nMode = n; + + if ( nMode == LIBMODE_CHOOSER ) + EnableCheckButton( pCheckButton ); + else + EnableCheckButton( 0 ); +} + +//---------------------------------------------------------------------------- + +SvLBoxEntry* BasicCheckBox::DoInsertEntry( const String& rStr, sal_uLong nPos ) +{ + return SvTabListBox::InsertEntryToColumn( rStr, nPos, 0 ); +} + +//---------------------------------------------------------------------------- + +SvLBoxEntry* BasicCheckBox::FindEntry( const String& rName ) +{ + sal_uLong nCount = GetEntryCount(); + for ( sal_uLong i = 0; i < nCount; i++ ) + { + SvLBoxEntry* pEntry = GetEntry( i ); + DBG_ASSERT( pEntry, "pEntry?!" ); + if ( rName.CompareIgnoreCaseToAscii( GetEntryText( pEntry, 0 ) ) == COMPARE_EQUAL ) + return pEntry; + } + return 0; +} + +//---------------------------------------------------------------------------- + +void BasicCheckBox::CheckEntryPos( sal_uLong nPos, sal_Bool bCheck ) +{ + if ( nPos < GetEntryCount() ) + { + SvLBoxEntry* pEntry = GetEntry( nPos ); + + if ( bCheck != GetCheckButtonState( pEntry ) ) + SetCheckButtonState( pEntry, + bCheck + ? SvButtonState(SV_BUTTON_CHECKED) + : SvButtonState(SV_BUTTON_UNCHECKED) ); + } +} + +//---------------------------------------------------------------------------- + +sal_Bool BasicCheckBox::IsChecked( sal_uLong nPos ) const +{ + if ( nPos < GetEntryCount() ) + return (GetCheckButtonState( GetEntry( nPos ) ) == SV_BUTTON_CHECKED); + return sal_False; +} + +//---------------------------------------------------------------------------- + +void BasicCheckBox::InitEntry( SvLBoxEntry* pEntry, const XubString& rTxt, const Image& rImg1, const Image& rImg2, SvLBoxButtonKind eButtonKind ) +{ + SvTabListBox::InitEntry( pEntry, rTxt, rImg1, rImg2, eButtonKind ); + + if ( nMode == LIBMODE_MANAGER ) + { + // initialize all columns with own string class (column 0 == bitmap) + sal_uInt16 nCount = pEntry->ItemCount(); + for ( sal_uInt16 nCol = 1; nCol < nCount; ++nCol ) + { + SvLBoxString* pCol = (SvLBoxString*)pEntry->GetItem( nCol ); + BasicLibLBoxString* pStr = new BasicLibLBoxString( pEntry, 0, pCol->GetText() ); + pEntry->ReplaceItem( pStr, nCol ); + } + } +} + +//---------------------------------------------------------------------------- + +sal_Bool BasicCheckBox::EditingEntry( SvLBoxEntry* pEntry, Selection& ) +{ + if ( nMode != LIBMODE_MANAGER ) + return sal_False; + + DBG_ASSERT( pEntry, "Kein Eintrag?" ); + + // check, if Standard library + String aLibName = GetEntryText( pEntry, 0 ); + if ( aLibName.EqualsIgnoreCaseAscii( "Standard" ) ) + { + ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_CANNOTCHANGENAMESTDLIB ) ) ).Execute(); + return sal_False; + } + + // check, if library is readonly + ::rtl::OUString aOULibName( aLibName ); + Reference< script::XLibraryContainer2 > xModLibContainer( m_aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); + Reference< script::XLibraryContainer2 > xDlgLibContainer( m_aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); + if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) && !xModLibContainer->isLibraryLink( aOULibName ) ) || + ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryReadOnly( aOULibName ) && !xDlgLibContainer->isLibraryLink( aOULibName ) ) ) + { + ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_LIBISREADONLY ) ) ).Execute(); + return sal_False; + } + + // i24094: Password verification necessary for renaming + sal_Bool bOK = sal_True; + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && !xModLibContainer->isLibraryLoaded( aOULibName ) ) + { + // check password + Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); + if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aOULibName ) && !xPasswd->isLibraryPasswordVerified( aOULibName ) ) + { + String aPassword; + Reference< script::XLibraryContainer > xModLibContainer1( xModLibContainer, UNO_QUERY ); + bOK = QueryPassword( xModLibContainer1, aLibName, aPassword ); + } + if ( !bOK ) + return sal_False; + } + + // TODO: check if library is reference/link + + return sal_True; +} + +//---------------------------------------------------------------------------- + +sal_Bool BasicCheckBox::EditedEntry( SvLBoxEntry* pEntry, const String& rNewText ) +{ + sal_Bool bValid = ( rNewText.Len() <= 30 ) && BasicIDE::IsValidSbxName( rNewText ); + String aCurText( GetEntryText( pEntry, 0 ) ); + if ( bValid && ( aCurText != rNewText ) ) + { + try + { + ::rtl::OUString aOUOldName( aCurText ); + ::rtl::OUString aOUNewName( rNewText ); + + Reference< script::XLibraryContainer2 > xModLibContainer( m_aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); + if ( xModLibContainer.is() ) + { + xModLibContainer->renameLibrary( aOUOldName, aOUNewName ); + } + + Reference< script::XLibraryContainer2 > xDlgLibContainer( m_aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); + if ( xDlgLibContainer.is() ) + { + xDlgLibContainer->renameLibrary( aOUOldName, aOUNewName ); + } + + BasicIDE::MarkDocumentModified( m_aDocument ); + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + { + pBindings->Invalidate( SID_BASICIDE_LIBSELECTOR ); + pBindings->Update( SID_BASICIDE_LIBSELECTOR ); + } + } + catch ( container::ElementExistException& ) + { + ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_SBXNAMEALLREADYUSED ) ) ).Execute(); + return sal_False; + } + catch ( container::NoSuchElementException& ) + { + DBG_UNHANDLED_EXCEPTION(); + return sal_False; + } + } + + if ( !bValid ) + { + if ( rNewText.Len() > 30 ) + ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_LIBNAMETOLONG ) ) ).Execute(); + else + ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_BADSBXNAME ) ) ).Execute(); + } + + return bValid; +} + +//---------------------------------------------------------------------------- +// NewObjectDialog +//---------------------------------------------------------------------------- + +IMPL_LINK(NewObjectDialog, OkButtonHandler, Button *, EMPTYARG) +{ + if (BasicIDE::IsValidSbxName(aEdit.GetText())) + EndDialog(1); + else + { + ErrorBox(this, WB_OK | WB_DEF_OK, + String(IDEResId(RID_STR_BADSBXNAME))).Execute(); + aEdit.GrabFocus(); + } + return 0; +} + +NewObjectDialog::NewObjectDialog(Window * pParent, sal_uInt16 nMode, + bool bCheckName) + : ModalDialog( pParent, IDEResId( RID_DLG_NEWLIB ) ), + aText( this, IDEResId( RID_FT_NEWLIB ) ), + aEdit( this, IDEResId( RID_ED_LIBNAME ) ), + aOKButton( this, IDEResId( RID_PB_OK ) ), + aCancelButton( this, IDEResId( RID_PB_CANCEL ) ) +{ + FreeResource(); + aEdit.GrabFocus(); + + if ( nMode == NEWOBJECTMODE_LIB ) + { + SetText( String( IDEResId( RID_STR_NEWLIB ) ) ); + } + else if ( nMode == NEWOBJECTMODE_MOD ) + { + SetText( String( IDEResId( RID_STR_NEWMOD ) ) ); + } + else if ( nMode == NEWOBJECTMODE_METH ) + { + SetText( String( IDEResId( RID_STR_NEWMETH ) ) ); + } + else + { + SetText( String( IDEResId( RID_STR_NEWDLG ) ) ); + } + + if (bCheckName) + aOKButton.SetClickHdl(LINK(this, NewObjectDialog, OkButtonHandler)); +} + +//---------------------------------------------------------------------------- + +NewObjectDialog::~NewObjectDialog() +{ +} + +//---------------------------------------------------------------------------- +// ExportDialog +//---------------------------------------------------------------------------- + +IMPL_LINK(ExportDialog, OkButtonHandler, Button *, EMPTYARG) +{ + mbExportAsPackage = maExportAsPackageButton.IsChecked(); + EndDialog(1); + return 0; +} + +ExportDialog::ExportDialog( Window * pParent ) + : ModalDialog( pParent, IDEResId( RID_DLG_EXPORT ) ), + maExportAsPackageButton( this, IDEResId( RB_EXPORTASPACKAGE ) ), + maExportAsBasicButton( this, IDEResId( RB_EXPORTASBASIC ) ), + maOKButton( this, IDEResId( RID_PB_OK ) ), + maCancelButton( this, IDEResId( RID_PB_CANCEL ) ) +{ + FreeResource(); + maExportAsPackageButton.Check(); + maOKButton.SetClickHdl(LINK(this, ExportDialog, OkButtonHandler)); +} + +//---------------------------------------------------------------------------- + +ExportDialog::~ExportDialog() +{ +} + +//---------------------------------------------------------------------------- +// LibPage +//---------------------------------------------------------------------------- + +LibPage::LibPage( Window * pParent ) + :TabPage( pParent, IDEResId( RID_TP_LIBS ) ) + ,aBasicsText( this, IDEResId( RID_STR_BASICS ) ) + ,aBasicsBox( this, IDEResId( RID_LB_BASICS ) ) + ,aLibText( this, IDEResId( RID_STR_LIB ) ) + ,aLibBox( this, IDEResId( RID_TRLBOX ) ) + ,aEditButton( this, IDEResId( RID_PB_EDIT ) ) + ,aCloseButton( this, IDEResId( RID_PB_CLOSE ) ) + ,aPasswordButton( this, IDEResId( RID_PB_PASSWORD ) ) + ,aNewLibButton( this, IDEResId( RID_PB_NEWLIB ) ) + ,aInsertLibButton( this, IDEResId( RID_PB_APPEND ) ) + ,aExportButton( this, IDEResId( RID_PB_EXPORT ) ) + ,aDelButton( this, IDEResId( RID_PB_DELETE ) ) + ,m_aCurDocument( ScriptDocument::getApplicationScriptDocument() ) + ,m_eCurLocation( LIBRARY_LOCATION_UNKNOWN ) +{ + FreeResource(); + pTabDlg = 0; + + aEditButton.SetClickHdl( LINK( this, LibPage, ButtonHdl ) ); + aNewLibButton.SetClickHdl( LINK( this, LibPage, ButtonHdl ) ); + aPasswordButton.SetClickHdl( LINK( this, LibPage, ButtonHdl ) ); + aExportButton.SetClickHdl( LINK( this, LibPage, ButtonHdl ) ); + aInsertLibButton.SetClickHdl( LINK( this, LibPage, ButtonHdl ) ); + aDelButton.SetClickHdl( LINK( this, LibPage, ButtonHdl ) ); + aCloseButton.SetClickHdl( LINK( this, LibPage, ButtonHdl ) ); + aLibBox.SetSelectHdl( LINK( this, LibPage, TreeListHighlightHdl ) ); + + aBasicsBox.SetSelectHdl( LINK( this, LibPage, BasicSelectHdl ) ); + + aLibBox.SetMode( LIBMODE_MANAGER ); + aLibBox.EnableInplaceEditing( sal_True ); + aLibBox.SetStyle( WB_HSCROLL | WB_BORDER | WB_TABSTOP ); + aCloseButton.GrabFocus(); + + long aTabs[] = { 2, 30, 120 }; + aLibBox.SetTabs( aTabs, MAP_PIXEL ); + + FillListBox(); + aBasicsBox.SelectEntryPos( 0 ); + SetCurLib(); + + CheckButtons(); +} + +//---------------------------------------------------------------------------- + +LibPage::~LibPage() +{ + sal_uInt16 nCount = aBasicsBox.GetEntryCount(); + for ( sal_uInt16 i = 0; i < nCount; ++i ) + { + BasicDocumentEntry* pEntry = (BasicDocumentEntry*)aBasicsBox.GetEntryData( i ); + delete pEntry; + } +} + +//---------------------------------------------------------------------------- + +void LibPage::CheckButtons() +{ + SvLBoxEntry* pCur = aLibBox.GetCurEntry(); + if ( pCur ) + { + String aLibName = aLibBox.GetEntryText( pCur, 0 ); + ::rtl::OUString aOULibName( aLibName ); + Reference< script::XLibraryContainer2 > xModLibContainer( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); + Reference< script::XLibraryContainer2 > xDlgLibContainer( m_aCurDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); + + if ( m_eCurLocation == LIBRARY_LOCATION_SHARE ) + { + aPasswordButton.Disable(); + aNewLibButton.Disable(); + aInsertLibButton.Disable(); + aDelButton.Disable(); + } + else if ( aLibName.EqualsIgnoreCaseAscii( "Standard" ) ) + { + aPasswordButton.Disable(); + aNewLibButton.Enable(); + aInsertLibButton.Enable(); + aExportButton.Disable(); + aDelButton.Disable(); + if ( !aLibBox.HasFocus() ) + aCloseButton.GrabFocus(); + } + else if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) ) || + ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryReadOnly( aOULibName ) ) ) + { + aPasswordButton.Disable(); + aNewLibButton.Enable(); + aInsertLibButton.Enable(); + if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) && !xModLibContainer->isLibraryLink( aOULibName ) ) || + ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryReadOnly( aOULibName ) && !xDlgLibContainer->isLibraryLink( aOULibName ) ) ) + aDelButton.Disable(); + else + aDelButton.Enable(); + } + else + { + if ( xModLibContainer.is() && !xModLibContainer->hasByName( aOULibName ) ) + aPasswordButton.Disable(); + else + aPasswordButton.Enable(); + + aNewLibButton.Enable(); + aInsertLibButton.Enable(); + aExportButton.Enable(); + aDelButton.Enable(); + } + } +} + +//---------------------------------------------------------------------------- + +void LibPage::ActivatePage() +{ + SetCurLib(); +} + +//---------------------------------------------------------------------------- + + +void LibPage::DeactivatePage() +{ +} + +//---------------------------------------------------------------------------- + + +IMPL_LINK_INLINE_START( LibPage, TreeListHighlightHdl, SvTreeListBox *, pBox ) +{ + if ( pBox->IsSelected( pBox->GetHdlEntry() ) ) + CheckButtons(); + return 0; +} +IMPL_LINK_INLINE_END( LibPage, TreeListHighlightHdl, SvTreeListBox *, pBox ) + +//---------------------------------------------------------------------------- + +IMPL_LINK_INLINE_START( LibPage, BasicSelectHdl, ListBox *, pBox ) +{ + (void)pBox; + SetCurLib(); + CheckButtons(); + return 0; +} +IMPL_LINK_INLINE_END( LibPage, BasicSelectHdl, ListBox *, pBox ) + +//---------------------------------------------------------------------------- + +IMPL_LINK( LibPage, ButtonHdl, Button *, pButton ) +{ + if ( pButton == &aEditButton ) + { + SfxAllItemSet aArgs( SFX_APP()->GetPool() ); + SfxRequest aRequest( SID_BASICIDE_APPEAR, SFX_CALLMODE_SYNCHRON, aArgs ); + SFX_APP()->ExecuteSlot( aRequest ); + + SfxUsrAnyItem aDocItem( SID_BASICIDE_ARG_DOCUMENT_MODEL, makeAny( m_aCurDocument.getDocumentOrNull() ) ); + SvLBoxEntry* pCurEntry = aLibBox.GetCurEntry(); + DBG_ASSERT( pCurEntry, "Entry?!" ); + String aLibName( aLibBox.GetEntryText( pCurEntry, 0 ) ); + SfxStringItem aLibNameItem( SID_BASICIDE_ARG_LIBNAME, aLibName ); + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if ( pDispatcher ) + { + pDispatcher->Execute( SID_BASICIDE_LIBSELECTED, + SFX_CALLMODE_ASYNCHRON, &aDocItem, &aLibNameItem, 0L ); + } + EndTabDialog( 1 ); + return 0; + } + else if ( pButton == &aNewLibButton ) + NewLib(); + else if ( pButton == &aInsertLibButton ) + InsertLib(); + else if ( pButton == &aExportButton ) + Export(); + else if ( pButton == &aDelButton ) + DeleteCurrent(); + else if ( pButton == &aCloseButton ) + { + EndTabDialog( 0 ); + return 0; + } + else if ( pButton == &aPasswordButton ) + { + SvLBoxEntry* pCurEntry = aLibBox.GetCurEntry(); + String aLibName( aLibBox.GetEntryText( pCurEntry, 0 ) ); + ::rtl::OUString aOULibName( aLibName ); + + // load module library (if not loaded) + Reference< script::XLibraryContainer > xModLibContainer = m_aCurDocument.getLibraryContainer( E_SCRIPTS ); + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && !xModLibContainer->isLibraryLoaded( aOULibName ) ) + { + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + if ( pIDEShell ) + pIDEShell->GetViewFrame()->GetWindow().EnterWait(); + xModLibContainer->loadLibrary( aOULibName ); + if ( pIDEShell ) + pIDEShell->GetViewFrame()->GetWindow().LeaveWait(); + } + + // load dialog library (if not loaded) + Reference< script::XLibraryContainer > xDlgLibContainer = m_aCurDocument.getLibraryContainer( E_DIALOGS ); + if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && !xDlgLibContainer->isLibraryLoaded( aOULibName ) ) + { + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + if ( pIDEShell ) + pIDEShell->GetViewFrame()->GetWindow().EnterWait(); + xDlgLibContainer->loadLibrary( aOULibName ); + if ( pIDEShell ) + pIDEShell->GetViewFrame()->GetWindow().LeaveWait(); + } + + // check, if library is password protected + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) ) + { + Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); + if ( xPasswd.is() ) + { + sal_Bool bProtected = xPasswd->isLibraryPasswordProtected( aOULibName ); + + // change password dialog + SvxPasswordDialog* pDlg = new SvxPasswordDialog( this, sal_True, !bProtected ); + pDlg->SetCheckPasswordHdl( LINK( this, LibPage, CheckPasswordHdl ) ); + + if ( pDlg->Execute() == RET_OK ) + { + sal_Bool bNewProtected = xPasswd->isLibraryPasswordProtected( aOULibName ); + + if ( bNewProtected != bProtected ) + { + sal_uLong nPos = (sal_uLong)aLibBox.GetModel()->GetAbsPos( pCurEntry ); + aLibBox.GetModel()->Remove( pCurEntry ); + ImpInsertLibEntry( aLibName, nPos ); + aLibBox.SetCurEntry( aLibBox.GetEntry( nPos ) ); + } + + BasicIDE::MarkDocumentModified( m_aCurDocument ); + } + delete pDlg; + } + } + } + CheckButtons(); + return 0; +} + +//---------------------------------------------------------------------------- + +IMPL_LINK_INLINE_START( LibPage, CheckPasswordHdl, SvxPasswordDialog *, pDlg ) +{ + long nRet = 0; + + SvLBoxEntry* pCurEntry = aLibBox.GetCurEntry(); + ::rtl::OUString aOULibName( aLibBox.GetEntryText( pCurEntry, 0 ) ); + Reference< script::XLibraryContainerPassword > xPasswd( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); + + if ( xPasswd.is() ) + { + try + { + ::rtl::OUString aOUOldPassword( pDlg->GetOldPassword() ); + ::rtl::OUString aOUNewPassword( pDlg->GetNewPassword() ); + xPasswd->changeLibraryPassword( aOULibName, aOUOldPassword, aOUNewPassword ); + nRet = 1; + } + catch (...) + { + } + } + + return nRet; +} +IMPL_LINK_INLINE_END( LibPage, CheckPasswordHdl, SvxPasswordDialog *, pDlg ) + +//---------------------------------------------------------------------------- + +void LibPage::NewLib() +{ + createLibImpl( static_cast<Window*>( this ), m_aCurDocument, &aLibBox, NULL); +} + +//---------------------------------------------------------------------------- + +void LibPage::InsertLib() +{ + // file open dialog + Reference< lang::XMultiServiceFactory > xMSF( ::comphelper::getProcessServiceFactory() ); + Reference < XFilePicker > xFP; + if( xMSF.is() ) + { + Sequence <Any> aServiceType(1); + aServiceType[0] <<= TemplateDescription::FILEOPEN_SIMPLE; + xFP = Reference< XFilePicker >( xMSF->createInstanceWithArguments( + ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ui.dialogs.FilePicker" ) ), aServiceType ), UNO_QUERY ); + } + xFP->setTitle( String( IDEResId( RID_STR_APPENDLIBS ) ) ); + + // filter + ::rtl::OUString aTitle = String( IDEResId( RID_STR_BASIC ) ); + ::rtl::OUString aFilter; + aFilter = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "*.sbl;*.xlc;*.xlb" ) ); // library files + aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.sdw;*.sxw;*.odt" ) ); // text + aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.vor;*.stw;*.ott" ) ); // text template + aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.sgl;*.sxg;*.odm" ) ); // master document + aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.oth" ) ); // html document template + aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.sdc;*.sxc;*.ods" ) ); // spreadsheet + aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.stc;*.ots" ) ); // spreadsheet template + aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.sda;*.sxd;*.odg" ) ); // drawing + aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.std;*.otg" ) ); // drawing template + aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.sdd;*.sxi;*.odp" ) ); // presentation + aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.sti;*.otp" ) ); // presentation template + aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.sxm;*.odf" ) ); // formula + Reference< XFilterManager > xFltMgr(xFP, UNO_QUERY); + xFltMgr->appendFilter( aTitle, aFilter ); + + // set display directory and filter + String aPath( IDE_DLL()->GetExtraData()->GetAddLibPath() ); + if ( aPath.Len() ) + { + xFP->setDisplayDirectory( aPath ); + } + else + { + // macro path from configuration management + xFP->setDisplayDirectory( SvtPathOptions().GetWorkPath() ); + } + + String aLastFilter( IDE_DLL()->GetExtraData()->GetAddLibFilter() ); + if ( aLastFilter.Len() ) + { + xFltMgr->setCurrentFilter( aLastFilter ); + } + else + { + xFltMgr->setCurrentFilter( String( IDEResId( RID_STR_BASIC ) ) ); + } + + if ( xFP->execute() == RET_OK ) + { + IDE_DLL()->GetExtraData()->SetAddLibPath( xFP->getDisplayDirectory() ); + IDE_DLL()->GetExtraData()->SetAddLibFilter( xFltMgr->getCurrentFilter() ); + + // library containers for import + Reference< script::XLibraryContainer2 > xModLibContImport; + Reference< script::XLibraryContainer2 > xDlgLibContImport; + + // file URLs + Sequence< ::rtl::OUString > aFiles = xFP->getFiles(); + INetURLObject aURLObj( aFiles[0] ); + INetURLObject aModURLObj( aURLObj ); + INetURLObject aDlgURLObj( aURLObj ); + + String aBase = aURLObj.getBase(); + String aModBase = String::CreateFromAscii( "script" ); + String aDlgBase = String::CreateFromAscii( "dialog" ); + + if ( aBase == aModBase || aBase == aDlgBase ) + { + aModURLObj.setBase( aModBase ); + aDlgURLObj.setBase( aDlgBase ); + } + + if ( xMSF.is() ) + { + Reference< XSimpleFileAccess > xSFA( xMSF->createInstance( + ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ucb.SimpleFileAccess" ) ) ), UNO_QUERY ); + + if ( xSFA.is() ) + { + ::rtl::OUString aModURL( aModURLObj.GetMainURL( INetURLObject::NO_DECODE ) ); + if ( xSFA->exists( aModURL ) ) + { + Sequence <Any> aSeqModURL(1); + aSeqModURL[0] <<= aModURL; + xModLibContImport = Reference< script::XLibraryContainer2 >( xMSF->createInstanceWithArguments( + ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.script.DocumentScriptLibraryContainer" ) ), aSeqModURL ), UNO_QUERY ); + } + + ::rtl::OUString aDlgURL( aDlgURLObj.GetMainURL( INetURLObject::NO_DECODE ) ); + if ( xSFA->exists( aDlgURL ) ) + { + Sequence <Any> aSeqDlgURL(1); + aSeqDlgURL[0] <<= aDlgURL; + xDlgLibContImport = Reference< script::XLibraryContainer2 >( xMSF->createInstanceWithArguments( + ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.script.DocumentDialogLibraryContainer" ) ), aSeqDlgURL ), UNO_QUERY ); + } + } + } + + if ( xModLibContImport.is() || xDlgLibContImport.is() ) + { + LibDialog* pLibDlg = 0; + + Reference< script::XLibraryContainer > xModLibContImp( xModLibContImport, UNO_QUERY ); + Reference< script::XLibraryContainer > xDlgLibContImp( xDlgLibContImport, UNO_QUERY ); + Sequence< ::rtl::OUString > aLibNames = BasicIDE::GetMergedLibraryNames( xModLibContImp, xDlgLibContImp ); + sal_Int32 nLibCount = aLibNames.getLength(); + const ::rtl::OUString* pLibNames = aLibNames.getConstArray(); + for ( sal_Int32 i = 0 ; i < nLibCount ; i++ ) + { + // library import dialog + if ( !pLibDlg ) + { + pLibDlg = new LibDialog( this ); + pLibDlg->SetStorageName( aURLObj.getName() ); + pLibDlg->GetLibBox().SetMode( LIBMODE_CHOOSER ); + } + + // libbox entries + String aLibName( pLibNames[ i ] ); + String aOULibName( aLibName ); + if ( !( ( xModLibContImport.is() && xModLibContImport->hasByName( aOULibName ) && xModLibContImport->isLibraryLink( aOULibName ) ) || + ( xDlgLibContImport.is() && xDlgLibContImport->hasByName( aOULibName ) && xDlgLibContImport->isLibraryLink( aOULibName ) ) ) ) + { + SvLBoxEntry* pEntry = pLibDlg->GetLibBox().DoInsertEntry( aLibName ); + sal_uInt16 nPos = (sal_uInt16) pLibDlg->GetLibBox().GetModel()->GetAbsPos( pEntry ); + pLibDlg->GetLibBox().CheckEntryPos( nPos, sal_True); + } + } + + if ( !pLibDlg ) + InfoBox( this, String( IDEResId( RID_STR_NOLIBINSTORAGE ) ) ).Execute(); + else + { + sal_Bool bChanges = sal_False; + String aExtension( aURLObj.getExtension() ); + String aLibExtension( String::CreateFromAscii( "xlb" ) ); + String aContExtension( String::CreateFromAscii( "xlc" ) ); + + // disable reference checkbox for documents and sbls + if ( aExtension != aLibExtension && aExtension != aContExtension ) + pLibDlg->EnableReference( sal_False ); + + if ( pLibDlg->Execute() ) + { + sal_uLong nNewPos = aLibBox.GetEntryCount(); + sal_Bool bRemove = sal_False; + sal_Bool bReplace = pLibDlg->IsReplace(); + sal_Bool bReference = pLibDlg->IsReference(); + for ( sal_uInt16 nLib = 0; nLib < pLibDlg->GetLibBox().GetEntryCount(); nLib++ ) + { + if ( pLibDlg->GetLibBox().IsChecked( nLib ) ) + { + SvLBoxEntry* pEntry = pLibDlg->GetLibBox().GetEntry( nLib ); + DBG_ASSERT( pEntry, "Entry?!" ); + String aLibName( pLibDlg->GetLibBox().GetEntryText( pEntry, 0 ) ); + ::rtl::OUString aOULibName( aLibName ); + Reference< script::XLibraryContainer2 > xModLibContainer( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); + Reference< script::XLibraryContainer2 > xDlgLibContainer( m_aCurDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); + + // check, if the library is already existing + if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) ) || + ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) ) ) + { + if ( bReplace ) + { + // check, if the library is the Standard library + if ( aLibName.EqualsAscii( "Standard" ) ) + { + ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_REPLACESTDLIB ) ) ).Execute(); + continue; + } + + // check, if the library is readonly and not a link + if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) && !xModLibContainer->isLibraryLink( aOULibName ) ) || + ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryReadOnly( aOULibName ) && !xDlgLibContainer->isLibraryLink( aOULibName ) ) ) + { + String aErrStr( IDEResId( RID_STR_REPLACELIB ) ); + aErrStr.SearchAndReplace( String( RTL_CONSTASCII_USTRINGPARAM( "XX" ) ), aLibName ); + aErrStr += '\n'; + aErrStr += String( IDEResId( RID_STR_LIBISREADONLY ) ); + ErrorBox( this, WB_OK | WB_DEF_OK, aErrStr ).Execute(); + continue; + } + + // remove existing libraries + bRemove = sal_True; + } + else + { + String aErrStr; + if ( bReference ) + aErrStr = String( IDEResId( RID_STR_REFNOTPOSSIBLE ) ); + else + aErrStr = String( IDEResId( RID_STR_IMPORTNOTPOSSIBLE ) ); + aErrStr.SearchAndReplace( String( RTL_CONSTASCII_USTRINGPARAM( "XX" ) ), aLibName ); + aErrStr += '\n'; + aErrStr += String( IDEResId( RID_STR_SBXNAMEALLREADYUSED ) ); + ErrorBox( this, WB_OK | WB_DEF_OK, aErrStr ).Execute(); + continue; + } + } + + // check, if the library is password protected + sal_Bool bOK = sal_False; + String aPassword; + if ( xModLibContImport.is() && xModLibContImport->hasByName( aOULibName ) ) + { + Reference< script::XLibraryContainerPassword > xPasswd( xModLibContImport, UNO_QUERY ); + if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aOULibName ) && !xPasswd->isLibraryPasswordVerified( aOULibName ) && !bReference ) + { + bOK = QueryPassword( xModLibContImp, aLibName, aPassword, sal_True, sal_True ); + + if ( !bOK ) + { + String aErrStr( IDEResId( RID_STR_NOIMPORT ) ); + aErrStr.SearchAndReplace( String( RTL_CONSTASCII_USTRINGPARAM( "XX" ) ), aLibName ); + ErrorBox( this, WB_OK | WB_DEF_OK, aErrStr ).Execute(); + continue; + } + } + } + + // remove existing libraries + if ( bRemove ) + { + // remove listbox entry + SvLBoxEntry* pEntry_ = aLibBox.FindEntry( aLibName ); + if ( pEntry_ ) + aLibBox.SvTreeListBox::GetModel()->Remove( pEntry_ ); + + // remove module library + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) ) + xModLibContainer->removeLibrary( aOULibName ); + + // remove dialog library + if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) ) + xDlgLibContainer->removeLibrary( aOULibName ); + } + + // copy module library + if ( xModLibContImport.is() && xModLibContImport->hasByName( aOULibName ) && xModLibContainer.is() && !xModLibContainer->hasByName( aOULibName ) ) + { + Reference< container::XNameContainer > xModLib; + if ( bReference ) + { + // storage URL + INetURLObject aModStorageURLObj( aModURLObj ); + if ( aExtension == aContExtension ) + { + sal_Int32 nCount = aModStorageURLObj.getSegmentCount(); + aModStorageURLObj.insertName( aLibName, false, nCount-1 ); + aModStorageURLObj.setExtension( aLibExtension ); + aModStorageURLObj.setFinalSlash(); + } + ::rtl::OUString aModStorageURL( aModStorageURLObj.GetMainURL( INetURLObject::NO_DECODE ) ); + + // create library link + xModLib = Reference< container::XNameContainer >( xModLibContainer->createLibraryLink( aOULibName, aModStorageURL, sal_True ), UNO_QUERY); + } + else + { + // create library + xModLib = xModLibContainer->createLibrary( aOULibName ); + if ( xModLib.is() ) + { + // get import library + Reference< container::XNameContainer > xModLibImport; + Any aElement = xModLibContImport->getByName( aOULibName ); + aElement >>= xModLibImport; + + if ( xModLibImport.is() ) + { + // load library + if ( !xModLibContImport->isLibraryLoaded( aOULibName ) ) + xModLibContImport->loadLibrary( aOULibName ); + + // copy all modules + Sequence< ::rtl::OUString > aModNames = xModLibImport->getElementNames(); + sal_Int32 nModCount = aModNames.getLength(); + const ::rtl::OUString* pModNames = aModNames.getConstArray(); + for ( sal_Int32 i = 0 ; i < nModCount ; i++ ) + { + ::rtl::OUString aOUModName( pModNames[ i ] ); + Any aElement_ = xModLibImport->getByName( aOUModName ); + xModLib->insertByName( aOUModName, aElement_ ); + } + + // set password + if ( bOK ) + { + Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); + if ( xPasswd.is() ) + { + try + { + ::rtl::OUString aOUPassword( aPassword ); + xPasswd->changeLibraryPassword( aOULibName, ::rtl::OUString(), aOUPassword ); + } + catch (...) + { + } + } + } + } + } + } + } + + // copy dialog library + if ( xDlgLibContImport.is() && xDlgLibContImport->hasByName( aOULibName ) && xDlgLibContainer.is() && !xDlgLibContainer->hasByName( aOULibName ) ) + { + Reference< container::XNameContainer > xDlgLib; + if ( bReference ) + { + // storage URL + INetURLObject aDlgStorageURLObj( aDlgURLObj ); + if ( aExtension == aContExtension ) + { + sal_Int32 nCount = aDlgStorageURLObj.getSegmentCount(); + aDlgStorageURLObj.insertName( aLibName, false, nCount - 1 ); + aDlgStorageURLObj.setExtension( aLibExtension ); + aDlgStorageURLObj.setFinalSlash(); + } + ::rtl::OUString aDlgStorageURL( aDlgStorageURLObj.GetMainURL( INetURLObject::NO_DECODE ) ); + + // create library link + xDlgLib = Reference< container::XNameContainer >( xDlgLibContainer->createLibraryLink( aOULibName, aDlgStorageURL, sal_True ), UNO_QUERY); + } + else + { + // create library + xDlgLib = xDlgLibContainer->createLibrary( aOULibName ); + if ( xDlgLib.is() ) + { + // get import library + Reference< container::XNameContainer > xDlgLibImport; + Any aElement = xDlgLibContImport->getByName( aOULibName ); + aElement >>= xDlgLibImport; + + if ( xDlgLibImport.is() ) + { + // load library + if ( !xDlgLibContImport->isLibraryLoaded( aOULibName ) ) + xDlgLibContImport->loadLibrary( aOULibName ); + + // copy all dialogs + Sequence< ::rtl::OUString > aDlgNames = xDlgLibImport->getElementNames(); + sal_Int32 nDlgCount = aDlgNames.getLength(); + const ::rtl::OUString* pDlgNames = aDlgNames.getConstArray(); + for ( sal_Int32 i = 0 ; i < nDlgCount ; i++ ) + { + ::rtl::OUString aOUDlgName( pDlgNames[ i ] ); + Any aElement_ = xDlgLibImport->getByName( aOUDlgName ); + xDlgLib->insertByName( aOUDlgName, aElement_ ); + } + } + } + } + } + + // insert listbox entry + ImpInsertLibEntry( aLibName, aLibBox.GetEntryCount() ); + bChanges = sal_True; + } + } + + SvLBoxEntry* pFirstNew = aLibBox.GetEntry( nNewPos ); + if ( pFirstNew ) + aLibBox.SetCurEntry( pFirstNew ); + } + + delete pLibDlg; + if ( bChanges ) + BasicIDE::MarkDocumentModified( m_aCurDocument ); + } + } + } +} + +//---------------------------------------------------------------------------- + +void LibPage::Export( void ) +{ + SvLBoxEntry* pCurEntry = aLibBox.GetCurEntry(); + String aLibName( aLibBox.GetEntryText( pCurEntry, 0 ) ); + + // Password verification + ::rtl::OUString aOULibName( aLibName ); + Reference< script::XLibraryContainer2 > xModLibContainer( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); + + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && !xModLibContainer->isLibraryLoaded( aOULibName ) ) + { + sal_Bool bOK = sal_True; + + // check password + Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); + if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aOULibName ) && !xPasswd->isLibraryPasswordVerified( aOULibName ) ) + { + String aPassword; + Reference< script::XLibraryContainer > xModLibContainer1( xModLibContainer, UNO_QUERY ); + bOK = QueryPassword( xModLibContainer1, aLibName, aPassword ); + } + if ( !bOK ) + return; + } + + + Window* pWin = static_cast<Window*>( this ); + std::auto_ptr< ExportDialog > xNewDlg( new ExportDialog( pWin ) ); + + if ( xNewDlg->Execute() == RET_OK ) + { + try + { + if( xNewDlg->isExportAsPackage() ) + ExportAsPackage( aLibName ); + else + ExportAsBasic( aLibName ); + } + catch( util::VetoException& ) // user cancled operation + { + } + } +} + +void LibPage::implExportLib( const String& aLibName, const String& aTargetURL, + const Reference< task::XInteractionHandler >& Handler ) +{ + ::rtl::OUString aOULibName( aLibName ); + Reference< script::XLibraryContainerExport > xModLibContainerExport + ( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); + Reference< script::XLibraryContainerExport > xDlgLibContainerExport + ( m_aCurDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); + if ( xModLibContainerExport.is() ) + xModLibContainerExport->exportLibrary( aOULibName, aTargetURL, Handler ); + + if ( xDlgLibContainerExport.is() ) + xDlgLibContainerExport->exportLibrary( aOULibName, aTargetURL, Handler ); +} + + +//=========================================================================== +// Implementation XCommandEnvironment + +typedef cppu::WeakImplHelper1< XCommandEnvironment > LibCommandEnvironmentHelper; + +class OLibCommandEnvironment : public LibCommandEnvironmentHelper +{ + Reference< task::XInteractionHandler > mxInteraction; + +public: + OLibCommandEnvironment( Reference< task::XInteractionHandler > xInteraction ) + : mxInteraction( xInteraction ) + {} + + // Methods + virtual Reference< task::XInteractionHandler > SAL_CALL getInteractionHandler() + throw(RuntimeException); + virtual Reference< XProgressHandler > SAL_CALL getProgressHandler() + throw(RuntimeException); +}; + +Reference< task::XInteractionHandler > OLibCommandEnvironment::getInteractionHandler() + throw(RuntimeException) +{ + return mxInteraction; +} + +Reference< XProgressHandler > OLibCommandEnvironment::getProgressHandler() + throw(RuntimeException) +{ + Reference< XProgressHandler > xRet; + return xRet; +} + + + +void LibPage::ExportAsPackage( const String& aLibName ) +{ + // file open dialog + Reference< lang::XMultiServiceFactory > xMSF( ::comphelper::getProcessServiceFactory() ); + Reference< task::XInteractionHandler > xHandler; + Reference< XSimpleFileAccess > xSFA; + Reference < XFilePicker > xFP; + if( xMSF.is() ) + { + xHandler = Reference< task::XInteractionHandler >( xMSF->createInstance + ( DEFINE_CONST_UNICODE("com.sun.star.task.InteractionHandler") ), UNO_QUERY ); + + xSFA = Reference< XSimpleFileAccess > ( xMSF->createInstance( + ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ucb.SimpleFileAccess" ) ) ), UNO_QUERY ); + if( !xSFA.is() ) + { + OSL_FAIL( "No simpleFileAccess" ); + return; + } + + Sequence <Any> aServiceType(1); + aServiceType[0] <<= TemplateDescription::FILESAVE_SIMPLE; + xFP = Reference< XFilePicker >( xMSF->createInstanceWithArguments( + ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ui.dialogs.FilePicker" ) ), aServiceType ), UNO_QUERY ); + } + xFP->setTitle( String( IDEResId( RID_STR_EXPORTPACKAGE ) ) ); + + // filter + ::rtl::OUString aTitle = String( IDEResId( RID_STR_PACKAGE_BUNDLE ) ); + ::rtl::OUString aFilter; + aFilter = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "*.oxt" ) ); // library files + Reference< XFilterManager > xFltMgr(xFP, UNO_QUERY); + xFltMgr->appendFilter( aTitle, aFilter ); + + // set display directory and filter + String aPath( IDE_DLL()->GetExtraData()->GetAddLibPath() ); + if ( aPath.Len() ) + { + xFP->setDisplayDirectory( aPath ); + } + else + { + // macro path from configuration management + xFP->setDisplayDirectory( SvtPathOptions().GetWorkPath() ); + } + xFltMgr->setCurrentFilter( aTitle ); + + if ( xFP->execute() == RET_OK ) + { + IDE_DLL()->GetExtraData()->SetAddLibPath( xFP->getDisplayDirectory() ); + + Sequence< ::rtl::OUString > aFiles = xFP->getFiles(); + INetURLObject aURL( aFiles[0] ); + if( !aURL.getExtension().getLength() ) + aURL.setExtension( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "oxt" ) ) ); + + ::rtl::OUString aPackageURL( aURL.GetMainURL( INetURLObject::NO_DECODE ) ); + + String aTmpPath = SvtPathOptions().GetTempPath(); + INetURLObject aInetObj( aTmpPath ); + aInetObj.insertName( aLibName, sal_True, INetURLObject::LAST_SEGMENT, sal_True, INetURLObject::ENCODE_ALL ); + OUString aSourcePath = aInetObj.GetMainURL( INetURLObject::NO_DECODE ); + if( xSFA->exists( aSourcePath ) ) + xSFA->kill( aSourcePath ); + Reference< task::XInteractionHandler > xDummyHandler( new DummyInteractionHandler( xHandler ) ); + implExportLib( aLibName, aTmpPath, xDummyHandler ); + + Reference< XCommandEnvironment > xCmdEnv = + static_cast<XCommandEnvironment*>( new OLibCommandEnvironment( xHandler ) ); + + ::ucbhelper::Content sourceContent( aSourcePath, xCmdEnv ); + + ::rtl::OUStringBuffer buf; + buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("vnd.sun.star.zip://") ); + buf.append( ::rtl::Uri::encode( aPackageURL, + rtl_UriCharClassRegName, + rtl_UriEncodeIgnoreEscapes, + RTL_TEXTENCODING_UTF8 ) ); + buf.append( static_cast<sal_Unicode>('/') ); + OUString destFolder( buf.makeStringAndClear() ); + + if( xSFA->exists( aPackageURL ) ) + xSFA->kill( aPackageURL ); + + ::ucbhelper::Content destFolderContent( destFolder, xCmdEnv ); + destFolderContent.transferContent( + sourceContent, ::ucbhelper::InsertOperation_COPY, + OUString(), NameClash::OVERWRITE ); + + INetURLObject aMetaInfInetObj( aTmpPath ); + aMetaInfInetObj.insertName( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "META-INF" ) ), + sal_True, INetURLObject::LAST_SEGMENT, sal_True, INetURLObject::ENCODE_ALL ); + OUString aMetaInfFolder = aMetaInfInetObj.GetMainURL( INetURLObject::NO_DECODE ); + if( xSFA->exists( aMetaInfFolder ) ) + xSFA->kill( aMetaInfFolder ); + xSFA->createFolder( aMetaInfFolder ); + + ::std::vector< Sequence<beans::PropertyValue> > manifest; + const OUString strMediaType = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "MediaType" ) ); + const OUString strFullPath = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "FullPath" ) ); + const OUString strBasicMediaType = ::rtl::OUString + ( RTL_CONSTASCII_USTRINGPARAM( "application/vnd.sun.star.basic-library" ) ); + + Sequence<beans::PropertyValue> attribs( 2 ); + beans::PropertyValue * pattribs = attribs.getArray(); + pattribs[ 0 ].Name = strFullPath; + OUString fullPath = aLibName; + fullPath += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "/") ); + pattribs[ 0 ].Value <<= fullPath; + pattribs[ 1 ].Name = strMediaType; + pattribs[ 1 ].Value <<= strBasicMediaType; + manifest.push_back( attribs ); + + // write into pipe: + Reference<packages::manifest::XManifestWriter> xManifestWriter( xMSF->createInstance + ( DEFINE_CONST_UNICODE("com.sun.star.packages.manifest.ManifestWriter") ), UNO_QUERY ); + Reference<io::XOutputStream> xPipe( xMSF->createInstance + ( DEFINE_CONST_UNICODE("com.sun.star.io.Pipe") ), UNO_QUERY ); + xManifestWriter->writeManifestSequence( + xPipe, Sequence< Sequence<beans::PropertyValue> >( + &manifest[ 0 ], manifest.size() ) ); + + aMetaInfInetObj.insertName( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "manifest.xml" ) ), + sal_True, INetURLObject::LAST_SEGMENT, sal_True, INetURLObject::ENCODE_ALL ); + + // write buffered pipe data to content: + ::ucbhelper::Content manifestContent( aMetaInfInetObj.GetMainURL( INetURLObject::NO_DECODE ), xCmdEnv ); + manifestContent.writeStream( Reference<io::XInputStream>( xPipe, UNO_QUERY_THROW ), true ); + + ::ucbhelper::Content MetaInfContent( aMetaInfFolder, xCmdEnv ); + destFolderContent.transferContent( + MetaInfContent, ::ucbhelper::InsertOperation_COPY, + OUString(), NameClash::OVERWRITE ); + + if( xSFA->exists( aSourcePath ) ) + xSFA->kill( aSourcePath ); + if( xSFA->exists( aMetaInfFolder ) ) + xSFA->kill( aMetaInfFolder ); + } +} + +void LibPage::ExportAsBasic( const String& aLibName ) +{ + // Folder picker + Reference< lang::XMultiServiceFactory > xMSF( ::comphelper::getProcessServiceFactory() ); + Reference< XFolderPicker > xFolderPicker; + Reference< task::XInteractionHandler > xHandler; + if( xMSF.is() ) + { + xFolderPicker = Reference< XFolderPicker >( xMSF->createInstance( + ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ui.dialogs.FolderPicker" ) ) ), UNO_QUERY ); + + xHandler = Reference< task::XInteractionHandler >( xMSF->createInstance + ( DEFINE_CONST_UNICODE("com.sun.star.task.InteractionHandler") ), UNO_QUERY ); + } + + if( xFolderPicker.is() ) + { + xFolderPicker->setTitle( String( IDEResId( RID_STR_EXPORTBASIC ) ) ); + + // set display directory and filter + String aPath( IDE_DLL()->GetExtraData()->GetAddLibPath() ); + if( !aPath.Len() ) + aPath = SvtPathOptions().GetWorkPath(); + + // INetURLObject aURL(m_sSavePath, INET_PROT_FILE); + xFolderPicker->setDisplayDirectory( aPath ); + short nRet = xFolderPicker->execute(); + if( nRet == RET_OK ) + { + String aTargetURL = xFolderPicker->getDirectory(); + IDE_DLL()->GetExtraData()->SetAddLibPath( aTargetURL ); + + Reference< task::XInteractionHandler > xDummyHandler( new DummyInteractionHandler( xHandler ) ); + implExportLib( aLibName, aTargetURL, xDummyHandler ); + } + } +} + +//---------------------------------------------------------------------------- + +void LibPage::DeleteCurrent() +{ + SvLBoxEntry* pCurEntry = aLibBox.GetCurEntry(); + String aLibName( aLibBox.GetEntryText( pCurEntry, 0 ) ); + + // check, if library is link + sal_Bool bIsLibraryLink = sal_False; + ::rtl::OUString aOULibName( aLibName ); + Reference< script::XLibraryContainer2 > xModLibContainer( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); + Reference< script::XLibraryContainer2 > xDlgLibContainer( m_aCurDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); + if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryLink( aOULibName ) ) || + ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryLink( aOULibName ) ) ) + { + bIsLibraryLink = sal_True; + } + + if ( QueryDelLib( aLibName, bIsLibraryLink, this ) ) + { + // inform BasicIDE + SfxUsrAnyItem aDocItem( SID_BASICIDE_ARG_DOCUMENT_MODEL, makeAny( m_aCurDocument.getDocumentOrNull() ) ); + SfxStringItem aLibNameItem( SID_BASICIDE_ARG_LIBNAME, aLibName ); + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if( pDispatcher ) + { + pDispatcher->Execute( SID_BASICIDE_LIBREMOVED, + SFX_CALLMODE_SYNCHRON, &aDocItem, &aLibNameItem, 0L ); + } + + // remove library from module and dialog library containers + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) ) + xModLibContainer->removeLibrary( aOULibName ); + if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) ) + xDlgLibContainer->removeLibrary( aOULibName ); + + ((SvLBox&)aLibBox).GetModel()->Remove( pCurEntry ); + BasicIDE::MarkDocumentModified( m_aCurDocument ); + } +} + +//---------------------------------------------------------------------------- + +void LibPage::EndTabDialog( sal_uInt16 nRet ) +{ + DBG_ASSERT( pTabDlg, "TabDlg nicht gesetzt!" ); + if ( pTabDlg ) + pTabDlg->EndDialog( nRet ); +} + +//---------------------------------------------------------------------------- + +void LibPage::FillListBox() +{ + InsertListBoxEntry( ScriptDocument::getApplicationScriptDocument(), LIBRARY_LOCATION_USER ); + InsertListBoxEntry( ScriptDocument::getApplicationScriptDocument(), LIBRARY_LOCATION_SHARE ); + + ScriptDocuments aDocuments( ScriptDocument::getAllScriptDocuments( ScriptDocument::DocumentsSorted ) ); + for ( ScriptDocuments::const_iterator doc = aDocuments.begin(); + doc != aDocuments.end(); + ++doc + ) + { + InsertListBoxEntry( *doc, LIBRARY_LOCATION_DOCUMENT ); + } +} + +//---------------------------------------------------------------------------- + +void LibPage::InsertListBoxEntry( const ScriptDocument& rDocument, LibraryLocation eLocation ) +{ + String aEntryText( rDocument.getTitle( eLocation ) ); + sal_uInt16 nPos = aBasicsBox.InsertEntry( aEntryText, LISTBOX_APPEND ); + aBasicsBox.SetEntryData( nPos, new BasicDocumentEntry( rDocument, eLocation ) ); +} + +//---------------------------------------------------------------------------- + +void LibPage::SetCurLib() +{ + sal_uInt16 nSelPos = aBasicsBox.GetSelectEntryPos(); + BasicDocumentEntry* pEntry = (BasicDocumentEntry*)aBasicsBox.GetEntryData( nSelPos ); + if ( pEntry ) + { + ScriptDocument aDocument( pEntry->GetDocument() ); + DBG_ASSERT( aDocument.isAlive(), "LibPage::SetCurLib: no document, or document is dead!" ); + if ( !aDocument.isAlive() ) + return; + LibraryLocation eLocation = pEntry->GetLocation(); + if ( aDocument != m_aCurDocument || eLocation != m_eCurLocation ) + { + m_aCurDocument = aDocument; + m_eCurLocation = eLocation; + aLibBox.SetDocument( aDocument ); + aLibBox.Clear(); + + // get a sorted list of library names + Sequence< ::rtl::OUString > aLibNames = aDocument.getLibraryNames(); + sal_Int32 nLibCount = aLibNames.getLength(); + const ::rtl::OUString* pLibNames = aLibNames.getConstArray(); + + for ( sal_Int32 i = 0 ; i < nLibCount ; i++ ) + { + String aLibName( pLibNames[ i ] ); + if ( eLocation == aDocument.getLibraryLocation( aLibName ) ) + ImpInsertLibEntry( aLibName, i ); + } + + SvLBoxEntry* pEntry_ = aLibBox.FindEntry( String::CreateFromAscii( "Standard" ) ); + if ( !pEntry_ ) + pEntry_ = aLibBox.GetEntry( 0 ); + aLibBox.SetCurEntry( pEntry_ ); + } + } +} + +//---------------------------------------------------------------------------- + +SvLBoxEntry* LibPage::ImpInsertLibEntry( const String& rLibName, sal_uLong nPos ) +{ + // check, if library is password protected + sal_Bool bProtected = sal_False; + ::rtl::OUString aOULibName( rLibName ); + Reference< script::XLibraryContainer2 > xModLibContainer( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) ) + { + Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); + if ( xPasswd.is() ) + { + bProtected = xPasswd->isLibraryPasswordProtected( aOULibName ); + } + } + + SvLBoxEntry* pNewEntry = aLibBox.DoInsertEntry( rLibName, nPos ); + pNewEntry->SetUserData( new BasicLibUserData( m_aCurDocument ) ); + + if (bProtected) + { + Image aImage(IDEResId(RID_IMG_LOCKED)); + aLibBox.SetExpandedEntryBmp(pNewEntry, aImage); + aLibBox.SetCollapsedEntryBmp(pNewEntry, aImage); + } + + // check, if library is link + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryLink( aOULibName ) ) + { + String aLinkURL = xModLibContainer->getLibraryLinkURL( aOULibName ); + aLibBox.SetEntryText( aLinkURL, pNewEntry, 1 ); + } + + return pNewEntry; +} + +//---------------------------------------------------------------------------- + +// Helper function +void createLibImpl( Window* pWin, const ScriptDocument& rDocument, + BasicCheckBox* pLibBox, BasicTreeListBox* pBasicBox ) +{ + OSL_ENSURE( rDocument.isAlive(), "createLibImpl: invalid document!" ); + if ( !rDocument.isAlive() ) + return; + + // create library name + String aLibName; + String aLibStdName( String( RTL_CONSTASCII_USTRINGPARAM( "Library" ) ) ); + //String aLibStdName( IDEResId( RID_STR_STDLIBNAME ) ); + sal_Bool bValid = sal_False; + sal_uInt16 i = 1; + while ( !bValid ) + { + aLibName = aLibStdName; + aLibName += String::CreateFromInt32( i ); + if ( !rDocument.hasLibrary( E_SCRIPTS, aLibName ) && !rDocument.hasLibrary( E_DIALOGS, aLibName ) ) + bValid = sal_True; + i++; + } + + std::auto_ptr< NewObjectDialog > xNewDlg( new NewObjectDialog( pWin, NEWOBJECTMODE_LIB ) ); + xNewDlg->SetObjectName( aLibName ); + + if ( xNewDlg->Execute() ) + { + if ( xNewDlg->GetObjectName().Len() ) + aLibName = xNewDlg->GetObjectName(); + + if ( aLibName.Len() > 30 ) + { + ErrorBox( pWin, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_LIBNAMETOLONG ) ) ).Execute(); + } + else if ( !BasicIDE::IsValidSbxName( aLibName ) ) + { + ErrorBox( pWin, WB_OK | WB_DEF_OK, + String( IDEResId( RID_STR_BADSBXNAME ) ) ).Execute(); + } + else if ( rDocument.hasLibrary( E_SCRIPTS, aLibName ) || rDocument.hasLibrary( E_DIALOGS, aLibName ) ) + { + ErrorBox( pWin, WB_OK | WB_DEF_OK, + String( IDEResId( RID_STR_SBXNAMEALLREADYUSED2 ) ) ).Execute(); + } + else + { + try + { + // create module and dialog library + Reference< container::XNameContainer > xModLib( rDocument.getOrCreateLibrary( E_SCRIPTS, aLibName ) ); + Reference< container::XNameContainer > xDlgLib( rDocument.getOrCreateLibrary( E_DIALOGS, aLibName ) ); + + if( pLibBox ) + { + SvLBoxEntry* pEntry = pLibBox->DoInsertEntry( aLibName ); + pEntry->SetUserData( new BasicLibUserData( rDocument ) ); + pLibBox->SetCurEntry( pEntry ); + } + + // create a module + String aModName = rDocument.createObjectName( E_SCRIPTS, aLibName ); + ::rtl::OUString sModuleCode; + if ( !rDocument.createModule( aLibName, aModName, sal_True, sModuleCode ) ) + throw Exception(); + + SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, rDocument, aLibName, aModName, BASICIDE_TYPE_MODULE ); + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if( pDispatcher ) + { + pDispatcher->Execute( SID_BASICIDE_SBXINSERTED, + SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L ); + } + + if( pBasicBox ) + { + SvLBoxEntry* pEntry = pBasicBox->GetCurEntry(); + SvLBoxEntry* pRootEntry = NULL; + while( pEntry ) + { + pRootEntry = pEntry; + pEntry = pBasicBox->GetParent( pEntry ); + } + + sal_uInt16 nMode = pBasicBox->GetMode(); + bool bDlgMode = ( nMode & BROWSEMODE_DIALOGS ) && !( nMode & BROWSEMODE_MODULES ); + sal_uInt16 nId = bDlgMode ? RID_IMG_DLGLIB : RID_IMG_MODLIB; + SvLBoxEntry* pNewLibEntry = pBasicBox->AddEntry( + aLibName, + Image( IDEResId( nId ) ), + pRootEntry, false, + std::auto_ptr< BasicEntry >( new BasicEntry( OBJ_TYPE_LIBRARY ) ) ); + DBG_ASSERT( pNewLibEntry, "InsertEntry fehlgeschlagen!" ); + + if( pNewLibEntry ) + { + SvLBoxEntry* pEntry_ = pBasicBox->AddEntry( + aModName, + Image( IDEResId( RID_IMG_MODULE ) ), + pNewLibEntry, false, + std::auto_ptr< BasicEntry >( new BasicEntry( OBJ_TYPE_MODULE ) ) ); + DBG_ASSERT( pEntry_, "InsertEntry fehlgeschlagen!" ); + pBasicBox->SetCurEntry( pEntry_ ); + pBasicBox->Select( pBasicBox->GetCurEntry() ); // OV-Bug?! + } + } + } + catch ( uno::Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + } +} + +//---------------------------------------------------------------------------- + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/moduldlg.cxx b/basctl/source/basicide/moduldlg.cxx new file mode 100644 index 000000000000..9a29fd200326 --- /dev/null +++ b/basctl/source/basicide/moduldlg.cxx @@ -0,0 +1,1067 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include <memory> + +#include <ide_pch.hxx> + + +#include <moduldlg.hrc> +#include <moduldlg.hxx> +#include <basidesh.hrc> +#include <basidesh.hxx> +#include <bastypes.hxx> +#include <baside3.hxx> +#include <basobj.hxx> +#include <baside2.hrc> +#include <sbxitem.hxx> +#include <iderdll.hxx> + +#include <com/sun/star/io/XInputStreamProvider.hpp> +#include <com/sun/star/script/XLibraryContainer2.hpp> +#include <com/sun/star/script/XLibraryContainerPassword.hpp> +#include <com/sun/star/resource/XStringResourceManager.hpp> +#include <com/sun/star/lang/XMultiServiceFactory.hpp> +#include <comphelper/processfactory.hxx> +#include <xmlscript/xmldlg_imexp.hxx> + +#include "localizationmgr.hxx" +#include <basic/sbx.hxx> +#include <tools/diagnose_ex.h> + +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::lang; +using namespace ::com::sun::star::resource; + + +ExtBasicTreeListBox::ExtBasicTreeListBox( Window* pParent, const ResId& rRes ) + : BasicTreeListBox( pParent, rRes ) +{ +} + + + +ExtBasicTreeListBox::~ExtBasicTreeListBox() +{ +} + +sal_Bool ExtBasicTreeListBox::EditingEntry( SvLBoxEntry* pEntry, Selection& ) +{ + sal_Bool bRet = sal_False; + + if ( pEntry ) + { + sal_uInt16 nDepth = GetModel()->GetDepth( pEntry ); + if ( nDepth >= 2 ) + { + BasicEntryDescriptor aDesc( GetEntryDescriptor( pEntry ) ); + ScriptDocument aDocument( aDesc.GetDocument() ); + ::rtl::OUString aOULibName( aDesc.GetLibName() ); + Reference< script::XLibraryContainer2 > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); + Reference< script::XLibraryContainer2 > xDlgLibContainer( aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); + if ( !( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) ) || + ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryReadOnly( aOULibName ) ) ) ) + { + // allow editing only for libraries, which are not readonly + bRet = sal_True; + } + } + } + + return bRet; +} + +sal_Bool ExtBasicTreeListBox::EditedEntry( SvLBoxEntry* pEntry, const String& rNewText ) +{ + sal_Bool bValid = BasicIDE::IsValidSbxName( rNewText ); + if ( !bValid ) + { + ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_BADSBXNAME ) ) ).Execute(); + return sal_False; + } + + String aCurText( GetEntryText( pEntry ) ); + if ( aCurText == rNewText ) + // nothing to do + return sal_True; + + BasicEntryDescriptor aDesc( GetEntryDescriptor( pEntry ) ); + ScriptDocument aDocument( aDesc.GetDocument() ); + DBG_ASSERT( aDocument.isValid(), "ExtBasicTreeListBox::EditedEntry: no document!" ); + if ( !aDocument.isValid() ) + return sal_False; + String aLibName( aDesc.GetLibName() ); + BasicEntryType eType( aDesc.GetType() ); + + bool bSuccess = ( eType == OBJ_TYPE_MODULE ) + ? BasicIDE::RenameModule( this, aDocument, aLibName, aCurText, rNewText ) + : BasicIDE::RenameDialog( this, aDocument, aLibName, aCurText, rNewText ); + + if ( !bSuccess ) + return sal_False; + + BasicIDE::MarkDocumentModified( aDocument ); + + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if( pDispatcher ) + { + SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, aDocument, aLibName, rNewText, ConvertType( eType ) ); + pDispatcher->Execute( SID_BASICIDE_SBXRENAMED, + SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L ); + } + + // OV-Bug?! + SetEntryText( pEntry, rNewText ); + SetCurEntry( pEntry ); + SetCurEntry( pEntry ); + Select( pEntry, sal_False ); + Select( pEntry ); // damit Handler gerufen wird => Edit updaten + + return sal_True; +} + + +DragDropMode ExtBasicTreeListBox::NotifyStartDrag( TransferDataContainer&, SvLBoxEntry* pEntry ) +{ + DragDropMode nMode_ = SV_DRAGDROP_NONE; + + if ( pEntry ) + { + sal_uInt16 nDepth = GetModel()->GetDepth( pEntry ); + if ( nDepth >= 2 ) + { + nMode_ = SV_DRAGDROP_CTRL_COPY; + BasicEntryDescriptor aDesc( GetEntryDescriptor( pEntry ) ); + ScriptDocument aDocument( aDesc.GetDocument() ); + ::rtl::OUString aOULibName( aDesc.GetLibName() ); + // allow MOVE mode only for libraries, which are not readonly + Reference< script::XLibraryContainer2 > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); + Reference< script::XLibraryContainer2 > xDlgLibContainer( aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); + if ( !( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) ) || + ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryReadOnly( aOULibName ) ) ) ) + { + // Only allow copy for localized libraries + bool bAllowMove = true; + if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) ) + { + // Get StringResourceManager + Reference< container::XNameContainer > xDialogLib( aDocument.getLibrary( E_DIALOGS, aOULibName, sal_True ) ); + Reference< XStringResourceManager > xSourceMgr = + LocalizationMgr::getStringResourceFromDialogLibrary( xDialogLib ); + if( xSourceMgr.is() ) + bAllowMove = ( xSourceMgr->getLocales().getLength() == 0 ); + } + if( bAllowMove ) + nMode_ |= SV_DRAGDROP_CTRL_MOVE; + } + } + } + + return nMode_; +} + + +sal_Bool ExtBasicTreeListBox::NotifyAcceptDrop( SvLBoxEntry* pEntry ) +{ + // don't drop on a BasicManager (nDepth == 0) + sal_uInt16 nDepth = pEntry ? GetModel()->GetDepth( pEntry ) : 0; + sal_Bool bValid = nDepth ? sal_True : sal_False; + + // don't drop in the same library + SvLBoxEntry* pSelected = FirstSelected(); + if ( ( nDepth == 1 ) && ( pEntry == GetParent( pSelected ) ) ) + bValid = sal_False; + else if ( ( nDepth == 2 ) && ( GetParent( pEntry ) == GetParent( pSelected ) ) ) + bValid = sal_False; + + // don't drop on a library, which is not loaded, readonly or password protected + // or which already has a module/dialog with this name + if ( bValid && ( nDepth > 0 ) ) + { + // get source module/dialog name + BasicEntryDescriptor aSourceDesc( GetEntryDescriptor( pSelected ) ); + String aSourceName( aSourceDesc.GetName() ); + BasicEntryType eSourceType( aSourceDesc.GetType() ); + + // get target shell and target library name + BasicEntryDescriptor aDestDesc( GetEntryDescriptor( pEntry ) ); + const ScriptDocument& rDestDoc( aDestDesc.GetDocument() ); + String aDestLibName( aDestDesc.GetLibName() ); + ::rtl::OUString aOUDestLibName( aDestLibName ); + + // check if module library is not loaded, readonly or password protected + Reference< script::XLibraryContainer2 > xModLibContainer( rDestDoc.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOUDestLibName ) ) + { + if ( !xModLibContainer->isLibraryLoaded( aOUDestLibName ) ) + bValid = sal_False; + + if ( xModLibContainer->isLibraryReadOnly( aOUDestLibName ) ) + bValid = sal_False; + + Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); + if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aOUDestLibName ) && !xPasswd->isLibraryPasswordVerified( aOUDestLibName ) ) + bValid = sal_False; + } + + // check if dialog library is not loaded or readonly + Reference< script::XLibraryContainer2 > xDlgLibContainer( rDestDoc.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); + if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOUDestLibName ) ) + { + if ( !xDlgLibContainer->isLibraryLoaded( aOUDestLibName ) ) + bValid = sal_False; + + if ( xDlgLibContainer->isLibraryReadOnly( aOUDestLibName ) ) + bValid = sal_False; + } + + // check, if module/dialog with this name is already existing in target library + if ( ( eSourceType == OBJ_TYPE_MODULE && rDestDoc.hasModule( aDestLibName, aSourceName ) ) || + ( eSourceType == OBJ_TYPE_DIALOG && rDestDoc.hasDialog( aDestLibName, aSourceName ) ) ) + { + bValid = sal_False; + } + } + + return bValid; +} + + +sal_Bool ExtBasicTreeListBox::NotifyMoving( SvLBoxEntry* pTarget, SvLBoxEntry* pEntry, + SvLBoxEntry*& rpNewParent, sal_uLong& rNewChildPos ) +{ + return NotifyCopyingMoving( pTarget, pEntry, + rpNewParent, rNewChildPos, sal_True ); +} + + +sal_Bool ExtBasicTreeListBox::NotifyCopying( SvLBoxEntry* pTarget, SvLBoxEntry* pEntry, + SvLBoxEntry*& rpNewParent, sal_uLong& rNewChildPos ) +{ +// return sal_False; // Wie kopiere ich ein SBX ?! + return NotifyCopyingMoving( pTarget, pEntry, + rpNewParent, rNewChildPos, sal_False ); +} + + +void BasicIDEShell::CopyDialogResources( Reference< io::XInputStreamProvider >& io_xISP, + const ScriptDocument& rSourceDoc, const String& rSourceLibName, const ScriptDocument& rDestDoc, + const String& rDestLibName, const String& rDlgName ) +{ + if ( !io_xISP.is() ) + return; + + // Get StringResourceManager + Reference< container::XNameContainer > xSourceDialogLib( rSourceDoc.getLibrary( E_DIALOGS, rSourceLibName, sal_True ) ); + Reference< XStringResourceManager > xSourceMgr = + LocalizationMgr::getStringResourceFromDialogLibrary( xSourceDialogLib ); + if( !xSourceMgr.is() ) + return; + bool bSourceLocalized = ( xSourceMgr->getLocales().getLength() > 0 ); + + Reference< container::XNameContainer > xDestDialogLib( rDestDoc.getLibrary( E_DIALOGS, rDestLibName, sal_True ) ); + Reference< XStringResourceManager > xDestMgr = + LocalizationMgr::getStringResourceFromDialogLibrary( xDestDialogLib ); + if( !xDestMgr.is() ) + return; + bool bDestLocalized = ( xDestMgr->getLocales().getLength() > 0 ); + + if( !bSourceLocalized && !bDestLocalized ) + return; + + // create dialog model + Reference< lang::XMultiServiceFactory > xMSF = ::comphelper::getProcessServiceFactory(); + Reference< container::XNameContainer > xDialogModel = Reference< container::XNameContainer >( xMSF->createInstance + ( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialogModel" ) ) ), UNO_QUERY ); + Reference< io::XInputStream > xInput( io_xISP->createInputStream() ); + Reference< XComponentContext > xContext; + Reference< beans::XPropertySet > xProps( xMSF, UNO_QUERY ); + OSL_ASSERT( xProps.is() ); + OSL_VERIFY( xProps->getPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("DefaultContext")) ) >>= xContext ); + ::xmlscript::importDialogModel( xInput, xDialogModel, xContext, rSourceDoc.isDocument() ? rSourceDoc.getDocument() : Reference< frame::XModel >() ); + + if( xDialogModel.is() ) + { + if( bSourceLocalized && bDestLocalized ) + { + Reference< resource::XStringResourceResolver > xSourceStringResolver( xSourceMgr, UNO_QUERY ); + LocalizationMgr::copyResourceForDroppedDialog( xDialogModel, rDlgName, xDestMgr, xSourceStringResolver ); + } + else if( bSourceLocalized ) + { + LocalizationMgr::resetResourceForDialog( xDialogModel, xSourceMgr ); + } + else if( bDestLocalized ) + { + LocalizationMgr::setResourceIDsForDialog( xDialogModel, xDestMgr ); + } + io_xISP = ::xmlscript::exportDialogModel( xDialogModel, xContext, rDestDoc.isDocument() ? rDestDoc.getDocument() : Reference< frame::XModel >() ); + } +} + + +sal_Bool ExtBasicTreeListBox::NotifyCopyingMoving( SvLBoxEntry* pTarget, SvLBoxEntry* pEntry, + SvLBoxEntry*& rpNewParent, sal_uLong& rNewChildPos, sal_Bool bMove ) +{ + (void)pEntry; + DBG_ASSERT( pEntry, "Kein Eintrag?" ); // Hier ASS ok, sollte nicht mit + DBG_ASSERT( pTarget, "Kein Ziel?" ); // NULL (ganz vorne) erreicht werden + sal_uInt16 nDepth = GetModel()->GetDepth( pTarget ); + DBG_ASSERT( nDepth, "Tiefe?" ); + if ( nDepth == 1 ) + { + // Target = Basic => Modul/Dialog unter das Basic haengen... + rpNewParent = pTarget; + rNewChildPos = 0; + } + else if ( nDepth >= 2 ) + { + // Target = Modul/Dialog => Modul/Dialog unter das uebergeordnete Basic haengen... + rpNewParent = GetParent( pTarget ); + rNewChildPos = GetModel()->GetRelPos( pTarget ) + 1; + } + + // get target shell and target library name + BasicEntryDescriptor aDestDesc( GetEntryDescriptor( rpNewParent ) ); + const ScriptDocument& rDestDoc( aDestDesc.GetDocument() ); + String aDestLibName( aDestDesc.GetLibName() ); + + // get source shell, library name and module/dialog name + BasicEntryDescriptor aSourceDesc( GetEntryDescriptor( FirstSelected() ) ); + const ScriptDocument rSourceDoc( aSourceDesc.GetDocument() ); + String aSourceLibName( aSourceDesc.GetLibName() ); + String aSourceName( aSourceDesc.GetName() ); + BasicEntryType eType( aSourceDesc.GetType() ); + + // get dispatcher + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + + if ( bMove ) // move + { + // remove source module/dialog window + if ( rSourceDoc != rDestDoc || aSourceLibName != aDestLibName ) + { + if( pDispatcher ) + { + SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, rSourceDoc, aSourceLibName, aSourceName, ConvertType( eType ) ); + pDispatcher->Execute( SID_BASICIDE_SBXDELETED, + SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L ); + } + } + + try + { + if ( eType == OBJ_TYPE_MODULE ) // module + { + // get module + ::rtl::OUString aModule; + if ( rSourceDoc.getModule( aSourceLibName, aSourceName, aModule ) ) + { + // remove module from source library + if ( rSourceDoc.removeModule( aSourceLibName, aSourceName ) ) + { + BasicIDE::MarkDocumentModified( rSourceDoc ); + + // insert module into target library + if ( rDestDoc.insertModule( aDestLibName, aSourceName, aModule ) ) + BasicIDE::MarkDocumentModified( rDestDoc ); + } + } + } + else if ( eType == OBJ_TYPE_DIALOG ) // dialog + { + // get dialog + Reference< io::XInputStreamProvider > xISP; + if ( rSourceDoc.getDialog( aSourceLibName, aSourceName, xISP ) ) + { + BasicIDEShell::CopyDialogResources( xISP, rSourceDoc, + aSourceLibName, rDestDoc, aDestLibName, aSourceName ); + + // remove dialog from source library + if ( BasicIDE::RemoveDialog( rSourceDoc, aSourceLibName, aSourceName ) ) + { + BasicIDE::MarkDocumentModified( rSourceDoc ); + + // insert dialog into target library + if ( rDestDoc.insertDialog( aDestLibName, aSourceName, xISP ) ) + BasicIDE::MarkDocumentModified( rDestDoc ); + } + } + } + } + catch ( uno::Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + else // copy + { + try + { + if ( eType == OBJ_TYPE_MODULE ) // module + { + // get module + ::rtl::OUString aModule; + if ( rSourceDoc.getModule( aSourceLibName, aSourceName, aModule ) ) + { + // insert module into target library + if ( rDestDoc.insertModule( aDestLibName, aSourceName, aModule ) ) + BasicIDE::MarkDocumentModified( rDestDoc ); + } + } + else if ( eType == OBJ_TYPE_DIALOG ) // dialog + { + // get dialog + Reference< io::XInputStreamProvider > xISP; + if ( rSourceDoc.getDialog( aSourceLibName, aSourceName, xISP ) ) + { + BasicIDEShell::CopyDialogResources( xISP, rSourceDoc, + aSourceLibName, rDestDoc, aDestLibName, aSourceName ); + + // insert dialog into target library + if ( rDestDoc.insertDialog( aDestLibName, aSourceName, xISP ) ) + BasicIDE::MarkDocumentModified( rDestDoc ); + } + } + } + catch ( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + + // create target module/dialog window + if ( rSourceDoc != rDestDoc || aSourceLibName != aDestLibName ) + { + if( pDispatcher ) + { + SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, rDestDoc, aDestLibName, aSourceName, ConvertType( eType ) ); + pDispatcher->Execute( SID_BASICIDE_SBXINSERTED, + SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L ); + } + } + + return 2; // Aufklappen... +} + +OrganizeDialog::OrganizeDialog( Window* pParent, sal_Int16 tabId, BasicEntryDescriptor& rDesc ) + :TabDialog( pParent, IDEResId( RID_TD_ORGANIZE ) ) + ,aTabCtrl( this, IDEResId( RID_TC_ORGANIZE ) ) + ,m_aCurEntry( rDesc ) +{ + FreeResource(); + aTabCtrl.SetActivatePageHdl( LINK( this, OrganizeDialog, ActivatePageHdl ) ); + if( tabId == 0 ) + { + aTabCtrl.SetCurPageId( RID_TP_MOD ); + } + else if ( tabId == 1 ) + { + aTabCtrl.SetCurPageId( RID_TP_DLG ); + } + else + { + aTabCtrl.SetCurPageId( RID_TP_LIB ); + } + + ActivatePageHdl( &aTabCtrl ); + + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if( pDispatcher ) + { + pDispatcher->Execute( SID_BASICIDE_STOREALLMODULESOURCES ); + } +} + +OrganizeDialog::~OrganizeDialog() +{ + for ( sal_uInt16 i = 0; i < aTabCtrl.GetPageCount(); i++ ) + delete aTabCtrl.GetTabPage( aTabCtrl.GetPageId( i ) ); +}; + +short OrganizeDialog::Execute() +{ + Window* pPrevDlgParent = Application::GetDefDialogParent(); + Application::SetDefDialogParent( this ); + short nRet = TabDialog::Execute(); + Application::SetDefDialogParent( pPrevDlgParent ); + return nRet; +} + + +IMPL_LINK( OrganizeDialog, ActivatePageHdl, TabControl *, pTabCtrl ) +{ + sal_uInt16 nId = pTabCtrl->GetCurPageId(); + // Wenn TabPage noch nicht erzeugt wurde, dann erzeugen + if ( !pTabCtrl->GetTabPage( nId ) ) + { + TabPage* pNewTabPage = 0; + switch ( nId ) + { + case RID_TP_MOD: + { + pNewTabPage = new ObjectPage( pTabCtrl, IDEResId( RID_TP_MODULS ), BROWSEMODE_MODULES ); + ((ObjectPage*)pNewTabPage)->SetTabDlg( this ); + ((ObjectPage*)pNewTabPage)->SetCurrentEntry( m_aCurEntry ); + } + break; + case RID_TP_DLG: + { + pNewTabPage = new ObjectPage( pTabCtrl, IDEResId( RID_TP_DLGS ), BROWSEMODE_DIALOGS ); + ((ObjectPage*)pNewTabPage)->SetTabDlg( this ); + ((ObjectPage*)pNewTabPage)->SetCurrentEntry( m_aCurEntry ); + } + break; + case RID_TP_LIB: + { + pNewTabPage = new LibPage( pTabCtrl ); + ((LibPage*)pNewTabPage)->SetTabDlg( this ); + } + break; + default: OSL_FAIL( "PageHdl: Unbekannte ID!" ); + } + DBG_ASSERT( pNewTabPage, "Keine Page!" ); + pTabCtrl->SetTabPage( nId, pNewTabPage ); + } + return 0; +} + +ObjectPage::ObjectPage( Window * pParent, const ResId& rResId, sal_uInt16 nMode ) : + TabPage( pParent, rResId ), + aLibText( this, IDEResId( RID_STR_LIB ) ), + aBasicBox( this, IDEResId( RID_TRLBOX ) ), + aEditButton( this, IDEResId( RID_PB_EDIT ) ), + aCloseButton( this, IDEResId( RID_PB_CLOSE ) ), + aNewModButton( this, IDEResId( RID_PB_NEWMOD ) ), + aNewDlgButton( this, IDEResId( RID_PB_NEWDLG ) ), + aDelButton( this, IDEResId( RID_PB_DELETE ) ) +{ + FreeResource(); + pTabDlg = 0; + + aEditButton.SetClickHdl( LINK( this, ObjectPage, ButtonHdl ) ); + aDelButton.SetClickHdl( LINK( this, ObjectPage, ButtonHdl ) ); + aCloseButton.SetClickHdl( LINK( this, ObjectPage, ButtonHdl ) ); + aBasicBox.SetSelectHdl( LINK( this, ObjectPage, BasicBoxHighlightHdl ) ); + + if( nMode & BROWSEMODE_MODULES ) + { + aNewModButton.SetClickHdl( LINK( this, ObjectPage, ButtonHdl ) ); + aNewDlgButton.Hide(); + } + else if ( nMode & BROWSEMODE_DIALOGS ) + { + aNewDlgButton.SetClickHdl( LINK( this, ObjectPage, ButtonHdl ) ); + aNewModButton.Hide(); + } + + aBasicBox.SetDragDropMode( SV_DRAGDROP_CTRL_MOVE | SV_DRAGDROP_CTRL_COPY ); + aBasicBox.EnableInplaceEditing( sal_True ); + aBasicBox.SetMode( nMode ); + aBasicBox.SetStyle( WB_BORDER | WB_TABSTOP | + WB_HASLINES | WB_HASLINESATROOT | + WB_HASBUTTONS | WB_HASBUTTONSATROOT | + WB_HSCROLL ); + aBasicBox.ScanAllEntries(); + + aEditButton.GrabFocus(); + CheckButtons(); +} + +void ObjectPage::SetCurrentEntry( BasicEntryDescriptor& rDesc ) +{ + aBasicBox.SetCurrentEntry( rDesc ); +} + +void ObjectPage::ActivatePage() +{ + aBasicBox.UpdateEntries(); +} + +void ObjectPage::DeactivatePage() +{ +} + +void ObjectPage::CheckButtons() +{ + // enable/disable edit button + SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry(); + BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) ); + ScriptDocument aDocument( aDesc.GetDocument() ); + ::rtl::OUString aOULibName( aDesc.GetLibName() ); + String aLibSubName( aDesc.GetLibSubName() ); + sal_Bool bVBAEnabled = aDocument.isInVBAMode(); + sal_uInt16 nMode = aBasicBox.GetMode(); + + sal_uInt16 nDepth = pCurEntry ? aBasicBox.GetModel()->GetDepth( pCurEntry ) : 0; + if ( nDepth >= 2 ) + { + if( bVBAEnabled && ( nMode & BROWSEMODE_MODULES ) && ( nDepth == 2 ) ) + aEditButton.Disable(); + else + aEditButton.Enable(); + } + else + aEditButton.Disable(); + + // enable/disable new module/dialog buttons + LibraryLocation eLocation( aDesc.GetLocation() ); + sal_Bool bReadOnly = sal_False; + if ( nDepth > 0 ) + { + Reference< script::XLibraryContainer2 > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); + Reference< script::XLibraryContainer2 > xDlgLibContainer( aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); + if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) ) || + ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryReadOnly( aOULibName ) ) ) + { + bReadOnly = sal_True; + } + } + if ( bReadOnly || eLocation == LIBRARY_LOCATION_SHARE ) + { + aNewModButton.Disable(); + aNewDlgButton.Disable(); + } + else + { + aNewModButton.Enable(); + aNewDlgButton.Enable(); + } + + // enable/disable delete button + if ( nDepth >= 2 && !bReadOnly && eLocation != LIBRARY_LOCATION_SHARE ) + { + if( bVBAEnabled && ( nMode & BROWSEMODE_MODULES ) && ( ( nDepth == 2 ) || aLibSubName.Equals( String( IDEResId( RID_STR_DOCUMENT_OBJECTS ) ) ) ) ) + aDelButton.Disable(); + else + aDelButton.Enable(); + } + else + aDelButton.Disable(); +} + +IMPL_LINK( ObjectPage, BasicBoxHighlightHdl, BasicTreeListBox *, pBox ) +{ + if ( !pBox->IsSelected( pBox->GetHdlEntry() ) ) + return 0; + + CheckButtons(); + return 0; +} + +IMPL_LINK( ObjectPage, ButtonHdl, Button *, pButton ) +{ + if ( pButton == &aEditButton ) + { + SfxAllItemSet aArgs( SFX_APP()->GetPool() ); + SfxRequest aRequest( SID_BASICIDE_APPEAR, SFX_CALLMODE_SYNCHRON, aArgs ); + SFX_APP()->ExecuteSlot( aRequest ); + + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry(); + DBG_ASSERT( pCurEntry, "Entry?!" ); + if ( aBasicBox.GetModel()->GetDepth( pCurEntry ) >= 2 ) + { + BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) ); + if ( pDispatcher ) + { + String aModName( aDesc.GetName() ); + // extract the module name from the string like "Sheet1 (Example1)" + if( aDesc.GetLibSubName().Equals( String( IDEResId( RID_STR_DOCUMENT_OBJECTS ) ) ) ) + { + sal_uInt16 nIndex = 0; + aModName = aModName.GetToken( 0, ' ', nIndex ); + } + SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, aDesc.GetDocument(), aDesc.GetLibName(), + aModName, aBasicBox.ConvertType( aDesc.GetType() ) ); + pDispatcher->Execute( SID_BASICIDE_SHOWSBX, SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L ); + } + } + else // Nur Lib selektiert + { + DBG_ASSERT( aBasicBox.GetModel()->GetDepth( pCurEntry ) == 1, "Kein LibEntry?!" ); + ScriptDocument aDocument( ScriptDocument::getApplicationScriptDocument() ); + SvLBoxEntry* pParentEntry = aBasicBox.GetParent( pCurEntry ); + if ( pParentEntry ) + { + BasicDocumentEntry* pBasicDocumentEntry = (BasicDocumentEntry*)pParentEntry->GetUserData(); + if ( pBasicDocumentEntry ) + aDocument = pBasicDocumentEntry->GetDocument(); + } + SfxUsrAnyItem aDocItem( SID_BASICIDE_ARG_DOCUMENT_MODEL, makeAny( aDocument.getDocumentOrNull() ) ); + String aLibName( aBasicBox.GetEntryText( pCurEntry ) ); + SfxStringItem aLibNameItem( SID_BASICIDE_ARG_LIBNAME, aLibName ); + if ( pDispatcher ) + { + pDispatcher->Execute( SID_BASICIDE_LIBSELECTED, SFX_CALLMODE_ASYNCHRON, &aDocItem, &aLibNameItem, 0L ); + } + } + EndTabDialog( 1 ); + } + else if ( pButton == &aNewModButton ) + NewModule(); + else if ( pButton == &aNewDlgButton ) + NewDialog(); + else if ( pButton == &aDelButton ) + DeleteCurrent(); + else if ( pButton == &aCloseButton ) + EndTabDialog( 0 ); + + return 0; +} + +bool ObjectPage::GetSelection( ScriptDocument& rDocument, String& rLibName ) +{ + bool bRet = false; + + SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry(); + BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) ); + rDocument = aDesc.GetDocument(); + rLibName = aDesc.GetLibName(); + if ( !rLibName.Len() ) + rLibName = String::CreateFromAscii( "Standard" ); + + DBG_ASSERT( rDocument.isAlive(), "ObjectPage::GetSelection: no or dead ScriptDocument in the selection!" ); + if ( !rDocument.isAlive() ) + return false; + + // check if the module library is loaded + sal_Bool bOK = sal_True; + ::rtl::OUString aOULibName( rLibName ); + Reference< script::XLibraryContainer > xModLibContainer( rDocument.getLibraryContainer( E_SCRIPTS ) ); + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && !xModLibContainer->isLibraryLoaded( aOULibName ) ) + { + // check password + Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); + if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aOULibName ) && !xPasswd->isLibraryPasswordVerified( aOULibName ) ) + { + String aPassword; + bOK = QueryPassword( xModLibContainer, rLibName, aPassword ); + } + + // load library + if ( bOK ) + xModLibContainer->loadLibrary( aOULibName ); + } + + // check if the dialog library is loaded + Reference< script::XLibraryContainer > xDlgLibContainer( rDocument.getLibraryContainer( E_DIALOGS ) ); + if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && !xDlgLibContainer->isLibraryLoaded( aOULibName ) ) + { + // load library + if ( bOK ) + xDlgLibContainer->loadLibrary( aOULibName ); + } + + if ( bOK ) + bRet = true; + + return bRet; +} + +void ObjectPage::NewModule() +{ + ScriptDocument aDocument( ScriptDocument::getApplicationScriptDocument() ); + String aLibName; + + if ( GetSelection( aDocument, aLibName ) ) + { + String aModName; + createModImpl( static_cast<Window*>( this ), aDocument, + aBasicBox, aLibName, aModName, true ); + } +} + +void ObjectPage::NewDialog() +{ + ScriptDocument aDocument( ScriptDocument::getApplicationScriptDocument() ); + String aLibName; + + if ( GetSelection( aDocument, aLibName ) ) + { + aDocument.getOrCreateLibrary( E_DIALOGS, aLibName ); + + std::auto_ptr< NewObjectDialog > xNewDlg( + new NewObjectDialog(this, NEWOBJECTMODE_DLG, true)); + xNewDlg->SetObjectName( aDocument.createObjectName( E_DIALOGS, aLibName ) ); + + if (xNewDlg->Execute() != 0) + { + String aDlgName( xNewDlg->GetObjectName() ); + if (aDlgName.Len() == 0) + aDlgName = aDocument.createObjectName( E_DIALOGS, aLibName); + + if ( aDocument.hasDialog( aLibName, aDlgName ) ) + { + ErrorBox( this, WB_OK | WB_DEF_OK, + String( IDEResId( RID_STR_SBXNAMEALLREADYUSED2 ) ) ).Execute(); + } + else + { + Reference< io::XInputStreamProvider > xISP; + if ( !aDocument.createDialog( aLibName, aDlgName, xISP ) ) + return; + + SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, aDocument, aLibName, aDlgName, BASICIDE_TYPE_DIALOG ); + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if( pDispatcher ) + { + pDispatcher->Execute( SID_BASICIDE_SBXINSERTED, + SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L ); + } + LibraryLocation eLocation = aDocument.getLibraryLocation( aLibName ); + SvLBoxEntry* pRootEntry = aBasicBox.FindRootEntry( aDocument, eLocation ); + if ( pRootEntry ) + { + if ( !aBasicBox.IsExpanded( pRootEntry ) ) + aBasicBox.Expand( pRootEntry ); + SvLBoxEntry* pLibEntry = aBasicBox.FindEntry( pRootEntry, aLibName, OBJ_TYPE_LIBRARY ); + DBG_ASSERT( pLibEntry, "Libeintrag nicht gefunden!" ); + if ( pLibEntry ) + { + if ( !aBasicBox.IsExpanded( pLibEntry ) ) + aBasicBox.Expand( pLibEntry ); + SvLBoxEntry* pEntry = aBasicBox.FindEntry( pLibEntry, aDlgName, OBJ_TYPE_DIALOG ); + if ( !pEntry ) + { + pEntry = aBasicBox.AddEntry( + aDlgName, + Image( IDEResId( RID_IMG_DIALOG ) ), + pLibEntry, false, + std::auto_ptr< BasicEntry >( new BasicEntry( OBJ_TYPE_DIALOG ) ) ); + DBG_ASSERT( pEntry, "InsertEntry fehlgeschlagen!" ); + } + aBasicBox.SetCurEntry( pEntry ); + aBasicBox.Select( aBasicBox.GetCurEntry() ); // OV-Bug?! + } + } + } + } + } +} + +void ObjectPage::DeleteCurrent() +{ + SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry(); + DBG_ASSERT( pCurEntry, "Kein aktueller Eintrag!" ); + BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) ); + ScriptDocument aDocument( aDesc.GetDocument() ); + DBG_ASSERT( aDocument.isAlive(), "ObjectPage::DeleteCurrent: no document!" ); + if ( !aDocument.isAlive() ) + return; + String aLibName( aDesc.GetLibName() ); + String aName( aDesc.GetName() ); + BasicEntryType eType( aDesc.GetType() ); + + if ( ( eType == OBJ_TYPE_MODULE && QueryDelModule( aName, this ) ) || + ( eType == OBJ_TYPE_DIALOG && QueryDelDialog( aName, this ) ) ) + { + aBasicBox.GetModel()->Remove( pCurEntry ); + if ( aBasicBox.GetCurEntry() ) // OV-Bug ? + aBasicBox.Select( aBasicBox.GetCurEntry() ); + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if( pDispatcher ) + { + SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, aDocument, aLibName, aName, aBasicBox.ConvertType( eType ) ); + pDispatcher->Execute( SID_BASICIDE_SBXDELETED, + SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L ); + } + + try + { + bool bSuccess = false; + if ( eType == OBJ_TYPE_MODULE ) + bSuccess = aDocument.removeModule( aLibName, aName ); + else if ( eType == OBJ_TYPE_DIALOG ) + bSuccess = BasicIDE::RemoveDialog( aDocument, aLibName, aName ); + + if ( bSuccess ) + BasicIDE::MarkDocumentModified( aDocument ); + } + catch ( container::NoSuchElementException& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } +} + + + +void ObjectPage::EndTabDialog( sal_uInt16 nRet ) +{ + DBG_ASSERT( pTabDlg, "TabDlg nicht gesetzt!" ); + if ( pTabDlg ) + pTabDlg->EndDialog( nRet ); +} + + +LibDialog::LibDialog( Window* pParent ) + : ModalDialog( pParent, IDEResId( RID_DLG_LIBS ) ), + aOKButton( this, IDEResId( RID_PB_OK ) ), + aCancelButton( this, IDEResId( RID_PB_CANCEL ) ), + aStorageName( this, IDEResId( RID_FT_STORAGENAME ) ), + aLibBox( this, IDEResId( RID_CTRL_LIBS ) ), + aFixedLine( this, IDEResId( RID_FL_OPTIONS ) ), + aReferenceBox( this, IDEResId( RID_CB_REF ) ), + aReplaceBox( this, IDEResId( RID_CB_REPL ) ) +{ + SetText( String( IDEResId( RID_STR_APPENDLIBS ) ) ); + FreeResource(); +} + + +LibDialog::~LibDialog() +{ +} + +void LibDialog::SetStorageName( const String& rName ) +{ + String aName( IDEResId( RID_STR_FILENAME ) ); + aName += rName; + aStorageName.SetText( aName ); +} + +// Helper function +SbModule* createModImpl( Window* pWin, const ScriptDocument& rDocument, + BasicTreeListBox& rBasicBox, const String& rLibName, String aModName, bool bMain ) +{ + OSL_ENSURE( rDocument.isAlive(), "createModImpl: invalid document!" ); + if ( !rDocument.isAlive() ) + return NULL; + + SbModule* pModule = NULL; + + String aLibName( rLibName ); + if ( !aLibName.Len() ) + aLibName = String::CreateFromAscii( "Standard" ); + rDocument.getOrCreateLibrary( E_SCRIPTS, aLibName ); + if ( !aModName.Len() ) + aModName = rDocument.createObjectName( E_SCRIPTS, aLibName ); + + std::auto_ptr< NewObjectDialog > xNewDlg( + new NewObjectDialog( pWin, NEWOBJECTMODE_MOD, true ) ); + xNewDlg->SetObjectName( aModName ); + + if (xNewDlg->Execute() != 0) + { + if ( xNewDlg->GetObjectName().Len() ) + aModName = xNewDlg->GetObjectName(); + + try + { + ::rtl::OUString sModuleCode; + // the module has existed + if( rDocument.hasModule( aLibName, aModName ) ) + return NULL; + rDocument.createModule( aLibName, aModName, bMain, sModuleCode ); + BasicManager* pBasMgr = rDocument.getBasicManager(); + StarBASIC* pBasic = pBasMgr? pBasMgr->GetLib( aLibName ) : 0; + if ( pBasic ) + pModule = pBasic->FindModule( aModName ); + SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, rDocument, aLibName, aModName, BASICIDE_TYPE_MODULE ); + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if( pDispatcher ) + { + pDispatcher->Execute( SID_BASICIDE_SBXINSERTED, + SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L ); + } + LibraryLocation eLocation = rDocument.getLibraryLocation( aLibName ); + SvLBoxEntry* pRootEntry = rBasicBox.FindRootEntry( rDocument, eLocation ); + if ( pRootEntry ) + { + if ( !rBasicBox.IsExpanded( pRootEntry ) ) + rBasicBox.Expand( pRootEntry ); + SvLBoxEntry* pLibEntry = rBasicBox.FindEntry( pRootEntry, aLibName, OBJ_TYPE_LIBRARY ); + DBG_ASSERT( pLibEntry, "Libeintrag nicht gefunden!" ); + if ( pLibEntry ) + { + if ( !rBasicBox.IsExpanded( pLibEntry ) ) + rBasicBox.Expand( pLibEntry ); + SvLBoxEntry* pSubRootEntry = pLibEntry; + if( pBasic && rDocument.isInVBAMode() ) + { + // add the new module in the "Modules" entry + SvLBoxEntry* pLibSubEntry = rBasicBox.FindEntry( pLibEntry, String( IDEResId( RID_STR_NORMAL_MODULES ) ) , OBJ_TYPE_NORMAL_MODULES ); + if( pLibSubEntry ) + { + if( !rBasicBox.IsExpanded( pLibSubEntry ) ) + rBasicBox.Expand( pLibSubEntry ); + pSubRootEntry = pLibSubEntry; + } + } + + SvLBoxEntry* pEntry = rBasicBox.FindEntry( pSubRootEntry, aModName, OBJ_TYPE_MODULE ); + if ( !pEntry ) + { + pEntry = rBasicBox.AddEntry( + aModName, + Image( IDEResId( RID_IMG_MODULE ) ), + pSubRootEntry, false, + std::auto_ptr< BasicEntry >( new BasicEntry( OBJ_TYPE_MODULE ) ) ); + DBG_ASSERT( pEntry, "InsertEntry fehlgeschlagen!" ); + } + rBasicBox.SetCurEntry( pEntry ); + rBasicBox.Select( rBasicBox.GetCurEntry() ); // OV-Bug?! + } + } + } + catch ( container::ElementExistException& ) + { + ErrorBox( pWin, WB_OK | WB_DEF_OK, + String( IDEResId( RID_STR_SBXNAMEALLREADYUSED2 ) ) ).Execute(); + } + catch ( container::NoSuchElementException& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + return pModule; +} + + + + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/moduldlg.hrc b/basctl/source/basicide/moduldlg.hrc new file mode 100644 index 000000000000..1eed98e0bdca --- /dev/null +++ b/basctl/source/basicide/moduldlg.hrc @@ -0,0 +1,68 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#ifndef _MODULDLG_HRC +#define _MODULDLG_HRC + +#include <svl/solar.hrc> + +#define RID_STR_LIB 1 +#define RID_TRLBOX 2 +// free +#define RID_PB_EDIT 4 +#define RID_PB_CLOSE 5 +#define RID_PB_NEWMOD 6 +#define RID_PB_NEWDLG 7 +#define RID_PB_DELETE 8 +#define RID_PB_NEWLIB 9 +#define RID_PB_APPEND 10 +#define RID_PB_PASSWORD 11 +#define RID_LB_BASICS 12 +#define RID_STR_BASICS 13 + +#define RID_PB_EXPORT 14 +#define RID_PB_EXPORT_PACKAGE 15 + +#define RID_TP_MOD 20 +#define RID_TP_LIB 21 +#define RID_TP_DLG 22 + +#define RID_TC_ORGANIZE 30 + +#define RID_PB_OK 31 +#define RID_PB_CANCEL 32 +#define RID_CTRL_LIBS 33 +#define RID_FL_OPTIONS 34 +#define RID_CB_REF 35 +#define RID_CB_REPL 36 +#define RID_FT_STORAGENAME 38 + +#define RID_FT_NEWLIB 40 +#define RID_ED_LIBNAME 41 +#define RB_EXPORTASPACKAGE 42 +#define RB_EXPORTASBASIC 43 + +#endif // _MODULDLG_HRC diff --git a/basctl/source/basicide/moduldlg.hxx b/basctl/source/basicide/moduldlg.hxx new file mode 100644 index 000000000000..b75e88a53d31 --- /dev/null +++ b/basctl/source/basicide/moduldlg.hxx @@ -0,0 +1,277 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _MODULDLG_HXX +#define _MODULDLG_HXX + +#include <svheader.hxx> + +#include <bastype2.hxx> +#include <vcl/dialog.hxx> + +#include <vcl/button.hxx> +#include <vcl/fixed.hxx> +#include <svtools/svtabbx.hxx> +#include <vcl/tabdlg.hxx> +#include <vcl/tabpage.hxx> +#include "com/sun/star/task/XInteractionHandler.hpp" + +#include <vcl/tabctrl.hxx> +#include <vcl/lstbox.hxx> + +class StarBASIC; + + +#define NEWOBJECTMODE_LIB 1 +#define NEWOBJECTMODE_MOD 2 +#define NEWOBJECTMODE_DLG 3 +#define NEWOBJECTMODE_METH 4 + +class NewObjectDialog : public ModalDialog +{ +private: + FixedText aText; + Edit aEdit; + OKButton aOKButton; + CancelButton aCancelButton; + + DECL_LINK(OkButtonHandler, Button *); + +public: + NewObjectDialog(Window * pParent, sal_uInt16 nMode, bool bCheckName = false); + ~NewObjectDialog(); + + String GetObjectName() const { return aEdit.GetText(); } + void SetObjectName( const String& rName ) { aEdit.SetText( rName ); aEdit.SetSelection( Selection( 0, rName.Len() ) );} +}; + +class ExportDialog : public ModalDialog +{ +private: + RadioButton maExportAsPackageButton; + RadioButton maExportAsBasicButton; + OKButton maOKButton; + CancelButton maCancelButton; + + sal_Bool mbExportAsPackage; + + DECL_LINK(OkButtonHandler, Button *); + +public: + ExportDialog( Window * pParent ); + ~ExportDialog(); + + sal_Bool isExportAsPackage( void ) { return mbExportAsPackage; } +}; + + +class ExtBasicTreeListBox : public BasicTreeListBox +{ +protected: + virtual sal_Bool EditingEntry( SvLBoxEntry* pEntry, Selection& rSel ); + virtual sal_Bool EditedEntry( SvLBoxEntry* pEntry, const String& rNewText ); + + virtual DragDropMode NotifyStartDrag( TransferDataContainer& rData, SvLBoxEntry* pEntry ); + virtual sal_Bool NotifyAcceptDrop( SvLBoxEntry* pEntry ); + + virtual sal_Bool NotifyMoving( SvLBoxEntry* pTarget, SvLBoxEntry* pEntry, + SvLBoxEntry*& rpNewParent, sal_uLong& rNewChildPos ); + virtual sal_Bool NotifyCopying( SvLBoxEntry* pTarget, SvLBoxEntry* pEntry, + SvLBoxEntry*& rpNewParent, sal_uLong& rNewChildPos ); + sal_Bool NotifyCopyingMoving( SvLBoxEntry* pTarget, SvLBoxEntry* pEntry, + SvLBoxEntry*& rpNewParent, sal_uLong& rNewChildPos, sal_Bool bMove ); + +public: + ExtBasicTreeListBox( Window* pParent, const ResId& rRes ); + ~ExtBasicTreeListBox(); +}; + +#define LIBMODE_CHOOSER 1 +#define LIBMODE_MANAGER 2 + +class BasicCheckBox : public SvTabListBox +{ +private: + sal_uInt16 nMode; + SvLBoxButtonData* pCheckButton; + ScriptDocument m_aDocument; + void Init(); + +public: + BasicCheckBox( Window* pParent, const ResId& rResId ); + ~BasicCheckBox(); + + SvLBoxEntry* DoInsertEntry( const String& rStr, sal_uLong nPos = LISTBOX_APPEND ); + SvLBoxEntry* FindEntry( const String& rName ); + + void CheckEntryPos( sal_uLong nPos, sal_Bool bCheck = sal_True ); + sal_Bool IsChecked( sal_uLong nPos ) const; + + virtual void InitEntry( SvLBoxEntry*, const XubString&, const Image&, const Image&, SvLBoxButtonKind eButtonKind ); + virtual sal_Bool EditingEntry( SvLBoxEntry* pEntry, Selection& rSel ); + virtual sal_Bool EditedEntry( SvLBoxEntry* pEntry, const String& rNewText ); + + void SetDocument( const ScriptDocument& rDocument ) { m_aDocument = rDocument; } + + void SetMode( sal_uInt16 n ); + sal_uInt16 GetMode() const { return nMode; } +}; + +class LibDialog: public ModalDialog +{ +private: + OKButton aOKButton; + CancelButton aCancelButton; + FixedText aStorageName; + BasicCheckBox aLibBox; + FixedLine aFixedLine; + CheckBox aReferenceBox; + CheckBox aReplaceBox; + +public: + LibDialog( Window* pParent ); + ~LibDialog(); + + void SetStorageName( const String& rName ); + + BasicCheckBox& GetLibBox() { return aLibBox; } + sal_Bool IsReference() const { return aReferenceBox.IsChecked(); } + sal_Bool IsReplace() const { return aReplaceBox.IsChecked(); } + + void EnableReference( sal_Bool b ) { aReferenceBox.Enable( b ); } + void EnableReplace( sal_Bool b ) { aReplaceBox.Enable( b ); } +}; + + +class OrganizeDialog : public TabDialog +{ +private: + TabControl aTabCtrl; + BasicEntryDescriptor m_aCurEntry; + +public: + OrganizeDialog( Window* pParent, sal_Int16 tabId, BasicEntryDescriptor& rDesc ); + ~OrganizeDialog(); + + virtual short Execute(); + + DECL_LINK( ActivatePageHdl, TabControl * ); +}; + +class ObjectPage: public TabPage +{ +protected: + FixedText aLibText; + ExtBasicTreeListBox aBasicBox; + PushButton aEditButton; + CancelButton aCloseButton; + PushButton aNewModButton; + PushButton aNewDlgButton; + PushButton aDelButton; + + DECL_LINK( BasicBoxHighlightHdl, BasicTreeListBox * ); + DECL_LINK( ButtonHdl, Button * ); + void CheckButtons(); + bool GetSelection( ScriptDocument& rDocument, String& rLibName ); + void DeleteCurrent(); + void NewModule(); + void NewDialog(); + void EndTabDialog( sal_uInt16 nRet ); + + TabDialog* pTabDlg; + + virtual void ActivatePage(); + virtual void DeactivatePage(); + +public: + ObjectPage( Window* pParent, const ResId& rResId, sal_uInt16 nMode ); + + void SetCurrentEntry( BasicEntryDescriptor& rDesc ); + void SetTabDlg( TabDialog* p ) { pTabDlg = p;} +}; + + +class SvxPasswordDialog; + +class LibPage: public TabPage +{ +protected: + FixedText aBasicsText; + ListBox aBasicsBox; + FixedText aLibText; + BasicCheckBox aLibBox; + PushButton aEditButton; + CancelButton aCloseButton; + PushButton aPasswordButton; + PushButton aNewLibButton; + PushButton aInsertLibButton; + PushButton aExportButton; + PushButton aDelButton; + + ScriptDocument m_aCurDocument; + LibraryLocation m_eCurLocation; + + DECL_LINK( TreeListHighlightHdl, SvTreeListBox * ); + DECL_LINK( BasicSelectHdl, ListBox * ); + DECL_LINK( ButtonHdl, Button * ); + DECL_LINK( CheckPasswordHdl, SvxPasswordDialog * ); + void CheckButtons(); + void DeleteCurrent(); + void NewLib(); + void InsertLib(); + void implExportLib( const String& aLibName, const String& aTargetURL, + const ::com::sun::star::uno::Reference< ::com::sun::star::task::XInteractionHandler >& Handler ); + void Export(); + void ExportAsPackage( const String& aLibName ); + void ExportAsBasic( const String& aLibName ); + void EndTabDialog( sal_uInt16 nRet ); + void FillListBox(); + void InsertListBoxEntry( const ScriptDocument& rDocument, LibraryLocation eLocation ); + void SetCurLib(); + SvLBoxEntry* ImpInsertLibEntry( const String& rLibName, sal_uLong nPos ); + virtual void ActivatePage(); + virtual void DeactivatePage(); + + TabDialog* pTabDlg; + +public: + LibPage( Window* pParent ); + virtual ~LibPage(); + + void SetTabDlg( TabDialog* p ) { pTabDlg = p;} +}; + +// Helper functions +SbModule* createModImpl( Window* pWin, const ScriptDocument& rDocument, + BasicTreeListBox& rBasicBox, const String& rLibName, String aModName, bool bMain = false ); +void createLibImpl( Window* pWin, const ScriptDocument& rDocument, + BasicCheckBox* pLibBox, BasicTreeListBox* pBasicBox ); + +#endif // _MODULDLG_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/moduldlg.src b/basctl/source/basicide/moduldlg.src new file mode 100644 index 000000000000..e2e6690581bc --- /dev/null +++ b/basctl/source/basicide/moduldlg.src @@ -0,0 +1,427 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#include "helpid.hrc" +#include <moduldlg.hrc> +#include <basidesh.hrc> +TabDialog RID_TD_ORGANIZE +{ + OutputSize = TRUE ; + SVLook = TRUE ; + Text[ en-US ] = "%PRODUCTNAME Basic Macro Organizer"; + Moveable = TRUE ; + Closeable = TRUE ; + // Da Cancel-Button auf TabPage, nicht auf Dialog! + TabControl RID_TC_ORGANIZE + { + // HelpID = HID_BASICIDE_ORG_TC; + OutputSize = TRUE ; + PageList = + { + PageItem + { + Identifier = RID_TP_MOD ; + Text [ en-US ] = "Modules" ; + }; + PageItem + { + Identifier = RID_TP_DLG ; + Text [ en-US ] = "Dialogs" ; + }; + PageItem + { + Identifier = RID_TP_LIB ; + Text [ en-US ] = "Libraries" ; + }; + }; + }; +}; +TabPage RID_TP_MODULS +{ + HelpId = "basctl:TabPage:RID_TP_MODULS" ; + Hide = TRUE ; + SVLook = TRUE ; + Size = MAP_APPFONT ( 210 , 140 ) ; + FixedText RID_STR_LIB + { + Pos = MAP_APPFONT ( 6 , 6 ) ; + Size = MAP_APPFONT ( 130 , 10 ) ; + Text [ en-US ] = "M~odule" ; + }; + Control RID_TRLBOX + { + HelpId = HID_BASICIDE_MODULES_TREE ; + Pos = MAP_APPFONT ( 6 , 17 ) ; + Size = MAP_APPFONT ( 130 , 117 ) ; + TabStop = TRUE ; + Border = TRUE ; + }; + PushButton RID_PB_EDIT + { + HelpID = "basctl:PushButton:RID_TP_MODULS:RID_PB_EDIT"; + Text [ en-US ] = "~Edit"; + Pos = MAP_APPFONT ( 144 , 6 ) ; + Size = MAP_APPFONT ( 60 , 14 ) ; + TabStop = TRUE ; + DefButton = TRUE ; + }; + CancelButton RID_PB_CLOSE + { + Text [ en-US ] = "Close"; + Pos = MAP_APPFONT ( 144 , 23 ) ; + Size = MAP_APPFONT ( 60 , 14 ) ; + TabStop = TRUE ; + }; + PushButton RID_PB_NEWMOD + { + HelpID = "basctl:PushButton:RID_TP_MODULS:RID_PB_NEWMOD"; + Pos = MAP_APPFONT ( 144 , 103 ) ; + Size = MAP_APPFONT ( 60 , 14 ) ; + Text [ en-US ] = "~New..." ; + TabStop = TRUE ; + }; + PushButton RID_PB_NEWDLG + { + HelpID = "basctl:PushButton:RID_TP_MODULS:RID_PB_NEWDLG"; + Pos = MAP_APPFONT ( 144 , 103 ) ; + Size = MAP_APPFONT ( 60 , 14 ) ; + Text [ en-US ] = "~New..." ; + TabStop = TRUE ; + }; + PushButton RID_PB_DELETE + { + HelpID = "basctl:PushButton:RID_TP_MODULS:RID_PB_DELETE"; + Pos = MAP_APPFONT ( 144 , 120 ) ; + Size = MAP_APPFONT ( 60 , 14 ) ; + Text [ en-US ] = "~Delete" ; + TabStop = TRUE ; + }; +}; +TabPage RID_TP_DLGS +{ + HelpID = "basctl:TabPage:RID_TP_DLGS"; + Hide = TRUE ; + SVLook = TRUE ; + Size = MAP_APPFONT ( 210 , 140 ) ; + FixedText RID_STR_LIB + { + Pos = MAP_APPFONT ( 6 , 6 ) ; + Size = MAP_APPFONT ( 130 , 10 ) ; + Text [ en-US ] = "Dialog" ; + }; + Control RID_TRLBOX + { + HelpId = HID_BASICIDE_MODULES_TREE ; + Pos = MAP_APPFONT ( 6 , 17 ) ; + Size = MAP_APPFONT ( 130 , 117 ) ; + TabStop = TRUE ; + Border = TRUE ; + }; + PushButton RID_PB_EDIT + { + HelpID = "basctl:PushButton:RID_TP_DLGS:RID_PB_EDIT"; + Text [ en-US ] = "~Edit"; + Pos = MAP_APPFONT ( 144 , 6 ) ; + Size = MAP_APPFONT ( 60 , 14 ) ; + TabStop = TRUE ; + DefButton = TRUE ; + }; + CancelButton RID_PB_CLOSE + { + Text[ en-US ] = "Close"; + Pos = MAP_APPFONT ( 144 , 23 ) ; + Size = MAP_APPFONT ( 60 , 14 ) ; + TabStop = TRUE ; + }; + PushButton RID_PB_NEWMOD + { + HelpID = "basctl:PushButton:RID_TP_DLGS:RID_PB_NEWMOD"; + Pos = MAP_APPFONT ( 144 , 103 ) ; + Size = MAP_APPFONT ( 60 , 14 ) ; + Text [ en-US ] = "~New..." ; + TabStop = TRUE ; + }; + PushButton RID_PB_NEWDLG + { + HelpID = "basctl:PushButton:RID_TP_DLGS:RID_PB_NEWDLG"; + Pos = MAP_APPFONT ( 144 , 103 ) ; + Size = MAP_APPFONT ( 60 , 14 ) ; + Text [ en-US ] = "~New..." ; + TabStop = TRUE ; + }; + PushButton RID_PB_DELETE + { + HelpID = "basctl:PushButton:RID_TP_DLGS:RID_PB_DELETE"; + Pos = MAP_APPFONT ( 144 , 120 ) ; + Size = MAP_APPFONT ( 60 , 14 ) ; + Text [ en-US ] = "~Delete" ; + TabStop = TRUE ; + }; +}; +TabPage RID_TP_LIBS +{ + HelpId = "basctl:TabPage:RID_TP_LIBS" ; + Hide = TRUE ; + SVLook = TRUE ; + Size = MAP_APPFONT ( 210 , 140 ) ; + FixedText RID_STR_BASICS + { + Pos = MAP_APPFONT ( 6 , 6 ) ; + Size = MAP_APPFONT ( 130 , 10 ) ; + Text [ en-US ] = "L~ocation"; + }; + ListBox RID_LB_BASICS + { + HelpID = "basctl:ListBox:RID_TP_LIBS:RID_LB_BASICS"; + Border = TRUE ; + Pos = MAP_APPFONT ( 6 , 17 ) ; + Size = MAP_APPFONT ( 130 , 80 ) ; + TabStop = TRUE ; + DropDown = TRUE ; + }; + FixedText RID_STR_LIB + { + Pos = MAP_APPFONT ( 6 , 36 ) ; + Size = MAP_APPFONT ( 130 , 10 ) ; + Text [ en-US ] = "~Library" ; + }; + Control RID_TRLBOX + { + HelpID = HID_BASICIDE_LIBS_TREE ; + Border = TRUE ; + Pos = MAP_APPFONT ( 6 , 47 ) ; + Size = MAP_APPFONT ( 130 , 87 ) ; + TabStop = TRUE ; + }; + + PushButton RID_PB_EDIT + { + HelpID = "basctl:PushButton:RID_TP_LIBS:RID_PB_EDIT"; + Text [ en-US ] = "~Edit"; + Pos = MAP_APPFONT ( 144 , 6 ) ; + Size = MAP_APPFONT ( 60 , 14 ) ; + TabStop = TRUE ; + DefButton = TRUE ; + }; + CancelButton RID_PB_CLOSE + { + Text [ en-US ] = "Close"; + Pos = MAP_APPFONT ( 144 , 23 ) ; + Size = MAP_APPFONT ( 60 , 14 ) ; + TabStop = TRUE ; + }; + PushButton RID_PB_PASSWORD + { + HelpID = "basctl:PushButton:RID_TP_LIBS:RID_PB_PASSWORD"; + Pos = MAP_APPFONT ( 144 , 43 ) ; + Size = MAP_APPFONT ( 60 , 14 ) ; + Text [ en-US ] = "~Password..." ; + TabStop = TRUE ; + }; + + PushButton RID_PB_NEWLIB + { + HelpID = "basctl:PushButton:RID_TP_LIBS:RID_PB_NEWLIB"; + Pos = MAP_APPFONT ( 144 , 69 ) ; + Size = MAP_APPFONT ( 60 , 14 ) ; + Text [ en-US ] = "~New..." ; + TabStop = TRUE ; + }; + PushButton RID_PB_APPEND + { + HelpID = "basctl:PushButton:RID_TP_LIBS:RID_PB_APPEND"; + Pos = MAP_APPFONT ( 144 , 86 ) ; + Size = MAP_APPFONT ( 60 , 14 ) ; + Text [ en-US ] = "~Import..." ; + }; + PushButton RID_PB_EXPORT + { + HelpID = "basctl:PushButton:RID_TP_LIBS:RID_PB_EXPORT"; + Pos = MAP_APPFONT ( 144 , 103 ) ; + Size = MAP_APPFONT ( 60 , 14 ) ; + Text [ en-US ] = "E~xport..." ; + TabStop = TRUE ; + }; + PushButton RID_PB_DELETE + { + HelpID = "basctl:PushButton:RID_TP_LIBS:RID_PB_DELETE"; + Pos = MAP_APPFONT ( 144 , 120 ) ; + Size = MAP_APPFONT ( 60 , 14 ) ; + Text [ en-US ] = "~Delete" ; + TabStop = TRUE ; + }; +}; +ModalDialog RID_DLG_LIBS +{ + HelpId = "basctl:ModalDialog:RID_DLG_LIBS" ; + OutputSize = TRUE ; + SVLook = TRUE ; + Size = MAP_APPFONT ( 168 , 132 ) ; + Moveable = TRUE ; + Closeable = TRUE ; + OKButton RID_PB_OK + { + Pos = MAP_APPFONT ( 112 , 6 ) ; + Size = MAP_APPFONT ( 50 , 14 ) ; + TabStop = TRUE ; + DefButton = TRUE ; + }; + CancelButton RID_PB_CANCEL + { + Pos = MAP_APPFONT ( 112 , 23 ) ; + Size = MAP_APPFONT ( 50 , 14 ) ; + TabStop = TRUE ; + }; + FixedText RID_FT_STORAGENAME + { + Pos = MAP_APPFONT ( 6 , 6 ) ; + Size = MAP_APPFONT ( 100 , 10 ) ; + }; + Control RID_CTRL_LIBS + { + HelpID = HID_BASICIDE_LIBSDLG_TREE ; + Border = TRUE ; + Pos = MAP_APPFONT ( 6 , 19 ) ; + Size = MAP_APPFONT ( 100 , 67 ) ; + TabStop = TRUE ; + }; + FixedLine RID_FL_OPTIONS + { + Pos = MAP_APPFONT ( 6 , 89 ) ; + Size = MAP_APPFONT ( 156 , 8 ) ; + Text [ en-US ] = "Options" ; + }; + CheckBox RID_CB_REF + { + HelpID = "basctl:CheckBox:RID_DLG_LIBS:RID_CB_REF"; + Pos = MAP_APPFONT ( 12 , 100 ) ; + Size = MAP_APPFONT ( 146 , 10 ) ; + TabStop = TRUE ; + Text [ en-US ] = "Insert as reference (read-only)" ; + }; + CheckBox RID_CB_REPL + { + HelpID = "basctl:CheckBox:RID_DLG_LIBS:RID_CB_REPL"; + Pos = MAP_APPFONT ( 12 , 113 ) ; + Size = MAP_APPFONT ( 146 , 10 ) ; + Text [ en-US ] = "Replace existing libraries" ; + }; +}; +ModalDialog RID_DLG_NEWLIB +{ + HelpID = "basctl:ModalDialog:RID_DLG_NEWLIB"; + OutputSize = TRUE ; + SVLook = TRUE ; + Size = MAP_APPFONT ( 160 , 55 ) ; + Moveable = TRUE ; + Closeable = TRUE ; + OKButton RID_PB_OK + { + Pos = MAP_APPFONT ( 104 , 6 ) ; + Size = MAP_APPFONT ( 50 , 14 ) ; + TabStop = TRUE ; + DefButton = TRUE ; + }; + CancelButton RID_PB_CANCEL + { + Pos = MAP_APPFONT ( 104 , 23 ) ; + Size = MAP_APPFONT ( 50 , 14 ) ; + TabStop = TRUE ; + }; + FixedText RID_FT_NEWLIB + { + Pos = MAP_APPFONT ( 6 , 6 ) ; + Size = MAP_APPFONT ( 100 , 10 ) ; + Text [ en-US ] = "~Name:" ; + }; + Edit RID_ED_LIBNAME + { + HelpID = "basctl:Edit:RID_DLG_NEWLIB:RID_ED_LIBNAME"; + Border = TRUE ; + Pos = MAP_APPFONT ( 6 , 19 ) ; + Size = MAP_APPFONT ( 92 , 12 ) ; + TabStop = TRUE ; + }; +}; + +ModalDialog RID_DLG_EXPORT +{ + HelpID = "basctl:ModalDialog:RID_DLG_EXPORT"; + OutputSize = TRUE ; + SVLook = TRUE ; + Size = MAP_APPFONT ( 115 , 55 ) ; + Moveable = TRUE ; + Closeable = TRUE ; + Text [ en-US ] = "Export Basic library"; + OKButton RID_PB_OK + { + Pos = MAP_APPFONT ( 6 , 35 ) ; + Size = MAP_APPFONT ( 50 , 14 ) ; + TabStop = TRUE ; + DefButton = TRUE ; + }; + CancelButton RID_PB_CANCEL + { + Pos = MAP_APPFONT ( 59 , 35 ) ; + Size = MAP_APPFONT ( 50 , 14 ) ; + TabStop = TRUE ; + }; + + RadioButton RB_EXPORTASPACKAGE + { + HelpID = "basctl:RadioButton:RID_DLG_EXPORT:RB_EXPORTASPACKAGE"; + Pos = MAP_APPFONT( 6, 6 ); + Size = MAP_APPFONT( 103, 10 ); + Group = TRUE; + Text [ en-US ] = "Export as ~extension"; + TabStop = TRUE ; + }; + RadioButton RB_EXPORTASBASIC + { + HelpID = "basctl:RadioButton:RID_DLG_EXPORT:RB_EXPORTASBASIC"; + Pos = MAP_APPFONT( 6, 19 ); + Size = MAP_APPFONT( 103, 10 ); + //Group = TRUE; + Text [ en-US ] = "Export as BASIC library"; + }; +}; + +String RID_STR_EXPORTPACKAGE +{ + Text [ en-US ] = "Export library as extension"; +}; + +String RID_STR_EXPORTBASIC +{ + Text [ en-US ] = "Export as BASIC library"; +}; + +String RID_STR_PACKAGE_BUNDLE +{ + Text [ en-US ] = "Extension"; +}; + diff --git a/basctl/source/basicide/moptions.hrc b/basctl/source/basicide/moptions.hrc new file mode 100644 index 000000000000..2636a39a8484 --- /dev/null +++ b/basctl/source/basicide/moptions.hrc @@ -0,0 +1,47 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#ifndef _MOPTIONS_HRC +#define _MOPTIONS_HRC + +#include <svl/solar.hrc> + +#define RID_MACROOPTIONS ( RID_BASICIDE_START + 55 ) + +#define RID_FT_SBXNAME 2 +#define RID_PB_OK 3 +#define RID_PB_CANCEL 4 +#define RID_PB_HELP 5 +#define RID_FT_DESCR 6 +#define RID_ME_DESCR 7 +#define RID_FL_HELP 8 +#define RID_FT_HELPID 9 +#define RID_NF_HELPID 10 +#define RID_FT_HELPNAME 11 +#define RID_ED_HELPNAME 12 + +#endif // _MOPTIONS_HRC + diff --git a/basctl/source/basicide/moptions.src b/basctl/source/basicide/moptions.src new file mode 100644 index 000000000000..43efcf1dd6a9 --- /dev/null +++ b/basctl/source/basicide/moptions.src @@ -0,0 +1,150 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#include "helpid.hrc" +#include <moptions.hrc> +ModalDialog RID_MACROOPTIONS +{ + HelpId = "basctl:ModalDialog:RID_MACROOPTIONS" ; + OutputSize = TRUE ; + SVLook = TRUE ; + Size = MAP_APPFONT ( 224 , 121 ) ; + Text [ en-US ] = "Description" ; + Moveable = TRUE ; + Closeable = TRUE ; + FixedText RID_FT_SBXNAME + { + SVLook = TRUE ; + Pos = MAP_APPFONT ( 6 , 6 ) ; + Size = MAP_APPFONT ( 150 , 10 ) ; + }; + OKButton RID_PB_OK + { + Pos = MAP_APPFONT ( 168 , 6 ) ; + Size = MAP_APPFONT ( 50 , 14 ) ; + TabStop = TRUE ; + DefButton = TRUE ; + }; + CancelButton RID_PB_CANCEL + { + Pos = MAP_APPFONT ( 168 , 23 ) ; + Size = MAP_APPFONT ( 50 , 14 ) ; + TabStop = TRUE ; + }; + HelpButton RID_PB_HELP + { + Pos = MAP_APPFONT ( 168 , 53 ) ; + Size = MAP_APPFONT ( 50 , 14 ) ; + TabStop = TRUE ; + }; + FixedText RID_FT_DESCR + { + SVLook = TRUE ; + Pos = MAP_APPFONT ( 6 , 19 ) ; + Size = MAP_APPFONT ( 69 , 10 ) ; + Text [ en-US ] = "Description" ; + }; + MultiLineEdit RID_ME_DESCR + { + HelpID = "basctl:MultiLineEdit:RID_MACROOPTIONS:RID_ME_DESCR"; + Border = TRUE ; + SVLook = TRUE ; + Pos = MAP_APPFONT ( 6 , 32 ) ; + Size = MAP_APPFONT ( 154 , 36 ) ; + TabStop = TRUE ; + VScroll = TRUE ; + IgnoreTab = TRUE ; + }; + FixedLine RID_FL_HELP + { + Pos = MAP_APPFONT ( 6 , 73 ) ; + Size = MAP_APPFONT ( 212 , 8 ) ; + Text [ en-US ] = "Help information" ; + }; + FixedText RID_FT_HELPID + { + SVLook = TRUE ; + Pos = MAP_APPFONT ( 9 , 83 ) ; + Size = MAP_APPFONT ( 80 , 10 ) ; + Text [ en-US ] = "Help ID" ; + }; + NumericField RID_NF_HELPID + { + HelpID = "basctl:NumericField:RID_MACROOPTIONS:RID_NF_HELPID"; + Border = TRUE ; + SVLook = TRUE ; + Pos = MAP_APPFONT ( 95 , 83 ) ; + Size = MAP_APPFONT ( 120 , 12 ) ; + TabStop = TRUE ; + Minimum = 0 ; + Maximum = 0xFFFFFFFF ; + }; + FixedText RID_FT_HELPNAME + { + SVLook = TRUE ; + Pos = MAP_APPFONT ( 9 , 99 ) ; + Size = MAP_APPFONT ( 80 , 10 ) ; + Text [ en-US ] = "Help file name" ; + }; + Edit RID_ED_HELPNAME + { + HelpID = "basctl:Edit:RID_MACROOPTIONS:RID_ED_HELPNAME"; + Border = TRUE ; + Pos = MAP_APPFONT ( 95 , 99 ) ; + Size = MAP_APPFONT ( 120 , 12 ) ; + TabStop = TRUE ; + }; +}; + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/basctl/source/basicide/objdlg.cxx b/basctl/source/basicide/objdlg.cxx new file mode 100644 index 000000000000..b630fd048aba --- /dev/null +++ b/basctl/source/basicide/objdlg.cxx @@ -0,0 +1,298 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include <ide_pch.hxx> + + +#include <basic/sbx.hxx> +#include <vcl/cmdevt.hxx> +#include <vcl/taskpanelist.hxx> +#include <vcl/sound.hxx> +#include <objdlg.hrc> +#include <objdlg.hxx> +#include <bastypes.hxx> +#include <basidesh.hrc> +#include <basidesh.hxx> +#include <iderdll.hxx> +#include <iderdll2.hxx> +#include <sbxitem.hxx> + + +ObjectTreeListBox::ObjectTreeListBox( Window* pParent, const ResId& rRes ) + : BasicTreeListBox( pParent, rRes ) +{ +} + +ObjectTreeListBox::~ObjectTreeListBox() +{ +} + +void ObjectTreeListBox::Command( const CommandEvent& ) +{ +} + +void ObjectTreeListBox::MouseButtonDown( const MouseEvent& rMEvt ) +{ + BasicTreeListBox::MouseButtonDown( rMEvt ); + + if ( rMEvt.IsLeft() && ( rMEvt.GetClicks() == 2 ) ) + { + BasicEntryDescriptor aDesc( GetEntryDescriptor( GetCurEntry() ) ); + + if ( aDesc.GetType() == OBJ_TYPE_METHOD ) + { + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if( pDispatcher ) + { + SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, aDesc.GetDocument(), aDesc.GetLibName(), aDesc.GetName(), + aDesc.GetMethodName(), ConvertType( aDesc.GetType() ) ); + pDispatcher->Execute( SID_BASICIDE_SHOWSBX, + SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L ); + } + } + } +} + + + +ObjectCatalog::ObjectCatalog( Window * pParent ) + :FloatingWindow( pParent, IDEResId( RID_BASICIDE_OBJCAT ) ) + ,aMacroTreeList( this, IDEResId( RID_TLB_MACROS ) ) + ,aToolBox(this, IDEResId(RID_TB_TOOLBOX)) + ,aMacroDescr( this, IDEResId( RID_FT_MACRODESCR ) ) +{ + FreeResource(); + + aToolBox.SetOutStyle( TOOLBOX_STYLE_FLAT ); + aToolBox.SetSizePixel( aToolBox.CalcWindowSizePixel() ); + aToolBox.SetSelectHdl( LINK( this, ObjectCatalog, ToolBoxHdl ) ); + + aMacroTreeList.SetStyle( WB_BORDER | WB_TABSTOP | + WB_HASLINES | WB_HASLINESATROOT | + WB_HASBUTTONS | WB_HASBUTTONSATROOT | + WB_HSCROLL ); + + aMacroTreeList.SetSelectHdl( LINK( this, ObjectCatalog, TreeListHighlightHdl ) ); + aMacroTreeList.SetAccessibleName(String(IDEResId(RID_STR_TLB_MACROS))); + aMacroTreeList.ScanAllEntries(); + aMacroTreeList.GrabFocus(); + + CheckButtons(); + + Point aPos = IDE_DLL()->GetExtraData()->GetObjectCatalogPos(); + Size aSize = IDE_DLL()->GetExtraData()->GetObjectCatalogSize(); + if ( aPos.X() == INVPOSITION ) + { + // Zentriert nach AppWin: + Window* pWin = GetParent(); + aPos = pWin->OutputToScreenPixel( Point( 0, 0 ) ); + Size aAppWinSz = pWin->GetSizePixel(); + Size aDlgWinSz = GetSizePixel(); + aPos.X() += aAppWinSz.Width() / 2; + aPos.X() -= aDlgWinSz.Width() / 2; + aPos.Y() += aAppWinSz.Height() / 2; + aPos.Y() -= aDlgWinSz.Height() / 2; + } + SetPosPixel( aPos ); + if ( aSize.Width() ) + SetOutputSizePixel( aSize ); + + Resize(); // damit der Resize-Handler die Controls anordnet + + // make object catalog keyboard accessible + pParent->GetSystemWindow()->GetTaskPaneList()->AddWindow( this ); +} + +ObjectCatalog::~ObjectCatalog() +{ + GetParent()->GetSystemWindow()->GetTaskPaneList()->RemoveWindow( this ); +} + +void ObjectCatalog::Move() +{ + IDE_DLL()->GetExtraData()->SetObjectCatalogPos( GetPosPixel() ); +} + +sal_Bool ObjectCatalog::Close() +{ + aCancelHdl.Call( this ); + return sal_True; +} + +void ObjectCatalog::Resize() +{ + Size aOutSz = GetOutputSizePixel(); + IDE_DLL()->GetExtraData()->SetObjectCatalogSize( aOutSz ); + + Point aTreePos = aMacroTreeList.GetPosPixel(); + Size aDescrSz = aMacroDescr.GetSizePixel(); + + Size aTreeSz; + long nCtrlWidth = aOutSz.Width() - 2*aTreePos.X(); + aTreeSz.Width() = nCtrlWidth; + aTreeSz.Height() = aOutSz.Height() - aTreePos.Y() - + 2*aTreePos.X() - aDescrSz.Height(); + + if ( aTreeSz.Height() > 0 ) + { + aMacroTreeList.SetSizePixel( aTreeSz ); + + Point aDescrPos( aTreePos.X(), aTreePos.Y()+aTreeSz.Height()+aTreePos.X() ); + + aMacroDescr.SetPosSizePixel( aDescrPos, Size( nCtrlWidth, aDescrSz.Height() ) ); + + String aDesc = aMacroDescr.GetText(); + aMacroDescr.SetText(String()); + aMacroDescr.SetText(aDesc); + } + + // Die Buttons oben bleiben immer unveraendert stehen... +} + +IMPL_LINK( ObjectCatalog, ToolBoxHdl, ToolBox*, pToolBox ) +{ + sal_uInt16 nCurItem = pToolBox->GetCurItemId(); + switch ( nCurItem ) + { + case TBITEM_SHOW: + { + SfxAllItemSet aArgs( SFX_APP()->GetPool() ); + SfxRequest aRequest( SID_BASICIDE_APPEAR, SFX_CALLMODE_SYNCHRON, aArgs ); + SFX_APP()->ExecuteSlot( aRequest ); + + SvLBoxEntry* pCurEntry = aMacroTreeList.GetCurEntry(); + DBG_ASSERT( pCurEntry, "Entry?!" ); + BasicEntryDescriptor aDesc( aMacroTreeList.GetEntryDescriptor( pCurEntry ) ); + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; + if ( aDesc.GetType() == OBJ_TYPE_MODULE || + aDesc.GetType() == OBJ_TYPE_DIALOG || + aDesc.GetType() == OBJ_TYPE_METHOD ) + { + if( pDispatcher ) + { + SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, aDesc.GetDocument(), aDesc.GetLibName(), aDesc.GetName(), + aDesc.GetMethodName(), aMacroTreeList.ConvertType( aDesc.GetType() ) ); + pDispatcher->Execute( SID_BASICIDE_SHOWSBX, + SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L ); + } + } + else + { + ErrorBox( this, WB_OK, String( IDEResId( RID_STR_OBJNOTFOUND ) ) ).Execute(); + aMacroTreeList.GetModel()->Remove( pCurEntry ); + CheckButtons(); + } + } + break; + } + + return 0; +} + + + +void ObjectCatalog::CheckButtons() +{ + SvLBoxEntry* pCurEntry = aMacroTreeList.GetCurEntry(); + BasicEntryType eType = pCurEntry ? ((BasicEntry*)pCurEntry->GetUserData())->GetType() : OBJ_TYPE_UNKNOWN; + if ( eType == OBJ_TYPE_DIALOG || eType == OBJ_TYPE_MODULE || eType == OBJ_TYPE_METHOD ) + aToolBox.EnableItem( TBITEM_SHOW, sal_True ); + else + aToolBox.EnableItem( TBITEM_SHOW, sal_False ); +} + + + +IMPL_LINK_INLINE_START( ObjectCatalog, TreeListHighlightHdl, SvTreeListBox *, pBox ) +{ + if ( pBox->IsSelected( pBox->GetHdlEntry() ) ) + UpdateFields(); + return 0; +} +IMPL_LINK_INLINE_END( ObjectCatalog, TreeListHighlightHdl, SvTreeListBox *, pBox ) + + +void ObjectCatalog::UpdateFields() +{ + SvLBoxEntry* pCurEntry = aMacroTreeList.GetCurEntry(); + if ( pCurEntry ) + { + CheckButtons(); + aMacroDescr.SetText( String() ); + SbxVariable* pVar = aMacroTreeList.FindVariable( pCurEntry ); + if ( pVar ) + { + SbxInfoRef xInfo = pVar->GetInfo(); + if ( xInfo.Is() ) + aMacroDescr.SetText( xInfo->GetComment() ); + } + } +} + + +void ObjectCatalog::UpdateEntries() +{ + aMacroTreeList.UpdateEntries(); +} + +void ObjectCatalog::SetCurrentEntry( BasicEntryDescriptor& rDesc ) +{ + aMacroTreeList.SetCurrentEntry( rDesc ); +} + +ObjectCatalogToolBox_Impl::ObjectCatalogToolBox_Impl( + Window * pParent, ResId const & rResId) + : ToolBox(pParent, rResId) + , m_aImagesNormal(GetImageList()) +{ + setImages(); +} + +// virtual +void ObjectCatalogToolBox_Impl::DataChanged(DataChangedEvent const & rDCEvt) +{ + ToolBox::DataChanged(rDCEvt); + if ((rDCEvt.GetType() == DATACHANGED_SETTINGS + || rDCEvt.GetType() == DATACHANGED_DISPLAY) + && (rDCEvt.GetFlags() & SETTINGS_STYLE) != 0) + setImages(); +} + +void ObjectCatalogToolBox_Impl::setImages() +{ + SetImageList(m_aImagesNormal); +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/objdlg.hrc b/basctl/source/basicide/objdlg.hrc new file mode 100644 index 000000000000..22ca8f36592e --- /dev/null +++ b/basctl/source/basicide/objdlg.hrc @@ -0,0 +1,41 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#ifndef _OBJDLG_HRC +#define _OBJDLG_HRC + +#include <svl/solar.hrc> + +#define RID_BASICIDE_OBJCAT ( RID_BASICIDE_START + 70 ) +#define RID_FT_MACRODESCR 8 +#define RID_TLB_MACROS 10 +#define RID_TB_TOOLBOX 11 + +#define TBITEM_SHOW 1 + +#define RID_STR_TLB_MACROS ( RID_BASICIDE_START + 71 ) + +#endif // _OBJDLG_HXX diff --git a/basctl/source/basicide/objdlg.hxx b/basctl/source/basicide/objdlg.hxx new file mode 100644 index 000000000000..c919fbcb927d --- /dev/null +++ b/basctl/source/basicide/objdlg.hxx @@ -0,0 +1,96 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _OBJDLG_HXX +#define _OBJDLG_HXX + +#include <svheader.hxx> +#include <vcl/floatwin.hxx> +#include <vcl/toolbox.hxx> +#include <vcl/fixed.hxx> +#include "vcl/image.hxx" + +#include <bastype2.hxx> + +class StarBASIC; + +class ObjectTreeListBox : public BasicTreeListBox +{ +private: + + virtual void Command( const CommandEvent& rCEvt ); + virtual void MouseButtonDown( const MouseEvent& rMEvt ); + +public: + ObjectTreeListBox( Window* pParent, const ResId& rRes ); + ~ObjectTreeListBox(); +}; + +class ObjectCatalogToolBox_Impl: public ToolBox +{ +public: + ObjectCatalogToolBox_Impl(Window * pParent, ResId const & rResId); + +private: + virtual void DataChanged(DataChangedEvent const & rDCEvt); + + void setImages(); + + ImageList m_aImagesNormal; +}; + +class ObjectCatalog : public FloatingWindow +{ +private: + ObjectTreeListBox aMacroTreeList; + ObjectCatalogToolBox_Impl aToolBox; + FixedText aMacroDescr; + Link aCancelHdl; + +protected: + DECL_LINK( ToolBoxHdl, ToolBox* ); + void CheckButtons(); + DECL_LINK( TreeListHighlightHdl, SvTreeListBox * ); + void UpdateFields(); + virtual void Move(); + virtual sal_Bool Close(); + virtual void Resize(); + +public: + ObjectCatalog( Window * pParent ); + virtual ~ObjectCatalog(); + + void UpdateEntries(); + void SetCurrentEntry( BasicEntryDescriptor& rDesc ); + + void SetCancelHdl( const Link& rLink ) { aCancelHdl = rLink; } +}; + +#endif //_OBJDLG_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/objdlg.src b/basctl/source/basicide/objdlg.src new file mode 100644 index 000000000000..3f4d0a277807 --- /dev/null +++ b/basctl/source/basicide/objdlg.src @@ -0,0 +1,91 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#include <objdlg.hrc> +#include <helpid.hrc> + +#define MASKCOLOR MaskColor = Color { Red = 0xFFFF; Green = 0x0000; Blue = 0xFFFF; }; + +FloatingWindow RID_BASICIDE_OBJCAT +{ + HelpID = "basctl:FloatingWindow:RID_BASICIDE_OBJCAT"; + OutputSize = TRUE ; + SVLook = TRUE ; + Size = MAP_APPFONT ( 191 , 179 ) ; + Text [ en-US ] = "Objects" ; + Closeable = TRUE ; + Moveable = TRUE ; + Sizeable = TRUE ; + Zoomable = TRUE ; + Hide = TRUE ; + ClipChildren = TRUE ; + Control RID_TLB_MACROS + { + HelpId = HID_BASICIDE_OBJECTCAT ; + Border = TRUE ; + Pos = MAP_APPFONT ( 3 , 24 ) ; + Size = MAP_APPFONT ( 185 , 126 ) ; + TabStop = TRUE ; + }; + ToolBox RID_TB_TOOLBOX + { + HelpId = HID_BASICIDE_OBJECTS ; + SVLook = TRUE ; + Align = BOXALIGN_TOP ; + Pos = MAP_APPFONT ( 4 , 6 ) ; + ItemImageList = ImageList + { + Prefix = "im"; + MASKCOLOR + IdList = + { + TBITEM_SHOW ; + }; + }; + ItemList = + { + ToolBoxItem + { + Identifier = TBITEM_SHOW ; + HelpId = HID_BASICIDE_OBJCAT_SHOW ; + Text [ en-US ] = "Show" ; + }; + }; + }; + FixedText RID_FT_MACRODESCR + { + WordBreak = TRUE ; + Pos = MAP_APPFONT ( 3 , 156 ) ; + Size = MAP_APPFONT ( 185 , 18 ) ; + }; +}; + +String RID_STR_TLB_MACROS +{ + Text [ en-US ] = "Objects Tree"; +}; + diff --git a/basctl/source/basicide/register.cxx b/basctl/source/basicide/register.cxx new file mode 100644 index 000000000000..f7c4ce770a95 --- /dev/null +++ b/basctl/source/basicide/register.cxx @@ -0,0 +1,98 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" +#include <com/sun/star/lang/XServiceInfo.hpp> +#include <com/sun/star/registry/XRegistryKey.hpp> +#include <com/sun/star/uno/Sequence.h> +#include <rtl/ustring.hxx> + +#include <cppuhelper/factory.hxx> + +#include "unomodel.hxx" + +using ::rtl::OUString; +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::lang; + + +extern "C" { + +SAL_DLLPUBLIC_EXPORT void SAL_CALL component_getImplementationEnvironment( + const sal_Char** ppEnvironmentTypeName, + uno_Environment** ppEnvironment ) +{ + (void)ppEnvironment; + *ppEnvironmentTypeName = CPPU_CURRENT_LANGUAGE_BINDING_NAME ; +} + +SAL_DLLPUBLIC_EXPORT +void* SAL_CALL component_getFactory( const sal_Char* pImplementationName, + void* pServiceManager, + void* pRegistryKey ) +{ + (void)pRegistryKey; + + // Set default return value for this operation - if it failed. + void* pReturn = NULL ; + + if ( + ( pImplementationName != NULL ) && + ( pServiceManager != NULL ) + ) + { + // Define variables which are used in following macros. + Reference< XSingleServiceFactory > xFactory ; + Reference< XMultiServiceFactory > xServiceManager( reinterpret_cast< XMultiServiceFactory* >( pServiceManager ) ) ; + + if( SIDEModel::getImplementationName_Static().equalsAscii( pImplementationName ) ) + { + xFactory = ::cppu::createSingleFactory( xServiceManager, + SIDEModel::getImplementationName_Static(), + SIDEModel_createInstance, + SIDEModel::getSupportedServiceNames_Static() ); + } + + // Factory is valid - service was found. + if ( xFactory.is() ) + { + xFactory->acquire(); + pReturn = xFactory.get(); + } + } + + // Return with result of this operation. + return pReturn ; +} +} // extern "C" + + + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/scriptdocument.cxx b/basctl/source/basicide/scriptdocument.cxx new file mode 100644 index 000000000000..6018eea4f1bd --- /dev/null +++ b/basctl/source/basicide/scriptdocument.cxx @@ -0,0 +1,1604 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include "scriptdocument.hxx" +#include "basobj.hxx" +#include "basidesh.hrc" +#include "iderid.hxx" +#include "dlgeddef.hxx" +#include "localizationmgr.hxx" +#include "doceventnotifier.hxx" +#include "documentenumeration.hxx" + +/** === begin UNO includes === **/ +#include <com/sun/star/beans/XPropertySet.hpp> +#include <com/sun/star/script/XLibraryContainer2.hpp> +#include <com/sun/star/lang/XMultiServiceFactory.hpp> +#include <com/sun/star/uri/XUriReferenceFactory.hpp> +#include <com/sun/star/util/XMacroExpander.hpp> +#include <com/sun/star/document/MacroExecMode.hpp> +#include <com/sun/star/document/XEventBroadcaster.hpp> +#include <com/sun/star/frame/XStorable.hpp> +#include <com/sun/star/util/XModifiable.hpp> +#include <com/sun/star/frame/XDispatchProvider.hpp> +#include <com/sun/star/frame/FrameSearchFlag.hpp> +#include <com/sun/star/frame/XDesktop.hpp> +#include <com/sun/star/frame/XModel2.hpp> +#include <com/sun/star/awt/XWindow2.hpp> +#include <com/sun/star/document/XEmbeddedScripts.hpp> +#include <com/sun/star/script/vba/XVBACompatibility.hpp> +#include <com/sun/star/script/vba/XVBAModuleInfo.hpp> +/** === end UNO includes === **/ + +#include <sfx2/objsh.hxx> +#include <sfx2/app.hxx> +#include <sfx2/viewfrm.hxx> +#include <sfx2/bindings.hxx> +#include <sfx2/docfile.hxx> + +#include <vcl/svapp.hxx> + +#include <basic/basicmanagerrepository.hxx> + +#include <xmlscript/xmldlg_imexp.hxx> + +#include <unotools/syslocale.hxx> + +#include <unotools/collatorwrapper.hxx> + +#include <tools/diagnose_ex.h> +#include <tools/urlobj.hxx> + +#include <comphelper/processfactory.hxx> +#include <comphelper/documentinfo.hxx> +#include <comphelper/componentcontext.hxx> + +#include <osl/mutex.hxx> + +#include <cppuhelper/implbase1.hxx> + +#include <rtl/uri.hxx> +#include <rtl/bootstrap.hxx> + +#include <osl/process.h> +#include <osl/file.hxx> + +#include <algorithm> +#include <functional> +#include <set> + + +namespace basctl +{ + using ::com::sun::star::uno::Sequence; + using ::com::sun::star::uno::Reference; + using ::com::sun::star::frame::XModel; + using ::com::sun::star::beans::XPropertySet; + using ::com::sun::star::script::XLibraryContainer; + using ::com::sun::star::uno::UNO_QUERY_THROW; + using ::com::sun::star::uno::UNO_SET_THROW; + using ::com::sun::star::beans::XPropertySetInfo; + using ::com::sun::star::uno::Exception; + using ::com::sun::star::container::XNameContainer; + using ::com::sun::star::container::NoSuchElementException; + using ::com::sun::star::uno::UNO_QUERY; + using ::com::sun::star::task::XStatusIndicator; + using ::com::sun::star::uno::makeAny; + using ::com::sun::star::script::XLibraryContainer2; + using ::com::sun::star::lang::XMultiServiceFactory; + using ::com::sun::star::uri::XUriReferenceFactory; + using ::com::sun::star::uri::XUriReference; + using ::com::sun::star::uno::XComponentContext; + using ::com::sun::star::util::XMacroExpander; + using ::com::sun::star::io::XInputStreamProvider; + using ::com::sun::star::uno::Any; + using ::com::sun::star::io::XInputStream; + using ::com::sun::star::frame::XStorable; + using ::com::sun::star::util::XModifiable; + using ::com::sun::star::frame::XController; + using ::com::sun::star::frame::XFrame; + using ::com::sun::star::util::URL; + using ::com::sun::star::frame::XDispatchProvider; + using ::com::sun::star::frame::XDispatch; + using ::com::sun::star::beans::PropertyValue; + using ::com::sun::star::frame::XDesktop; + using ::com::sun::star::container::XEnumerationAccess; + using ::com::sun::star::container::XEnumeration; + using ::com::sun::star::frame::XModel2; + using ::com::sun::star::awt::XWindow2; + using ::com::sun::star::document::XEventListener; + using ::com::sun::star::lang::EventObject; + using ::com::sun::star::uno::RuntimeException; + using ::com::sun::star::document::XEventBroadcaster; + using ::com::sun::star::document::XEmbeddedScripts; + using ::com::sun::star::script::ModuleInfo; + using ::com::sun::star::script::vba::XVBACompatibility; + using ::com::sun::star::script::vba::XVBAModuleInfo; + /** === end UNO using === **/ + namespace MacroExecMode = ::com::sun::star::document::MacroExecMode; + namespace FrameSearchFlag = ::com::sun::star::frame::FrameSearchFlag; + + //==================================================================== + //= helper + //==================================================================== + namespace + { + static bool StringCompareLessThan( const String& lhs, const String& rhs ) + { + return ( lhs.CompareIgnoreCaseToAscii( rhs ) == COMPARE_LESS ); + } + + class FilterDocuments : public docs::IDocumentDescriptorFilter + { + public: + FilterDocuments( bool _bFilterInvisible ) : m_bFilterInvisible( _bFilterInvisible ) { } + + virtual bool includeDocument( const docs::DocumentDescriptor& _rDocument ) const; + + private: + bool impl_isDocumentVisible_nothrow( const docs::DocumentDescriptor& _rDocument ) const; + + private: + bool m_bFilterInvisible; + }; + + bool FilterDocuments::impl_isDocumentVisible_nothrow( const docs::DocumentDescriptor& _rDocument ) const + { + try + { + for ( docs::Controllers::const_iterator controller = _rDocument.aControllers.begin(); + controller != _rDocument.aControllers.end(); + ++controller + ) + { + Reference< XFrame > xFrame( (*controller)->getFrame(), UNO_SET_THROW ); + Reference< XWindow2 > xContainer( xFrame->getContainerWindow(), UNO_QUERY_THROW ); + if ( xContainer->isVisible() ) + return true; + } + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + return false; + } + + bool FilterDocuments::includeDocument( const docs::DocumentDescriptor& _rDocument ) const + { + Reference< XEmbeddedScripts > xScripts( _rDocument.xModel, UNO_QUERY ); + if ( !xScripts.is() ) + return false; + if ( !m_bFilterInvisible || impl_isDocumentVisible_nothrow( _rDocument ) ) + return true; + return false; + } + + void lcl_getAllModels_throw( docs::Documents& _out_rModels, bool _bVisibleOnly ) + { + _out_rModels.clear(); + + ::comphelper::ComponentContext aContext( ::comphelper::getProcessServiceFactory() ); + FilterDocuments aFilter( _bVisibleOnly ); + docs::DocumentEnumeration aEnum( aContext, &aFilter ); + + aEnum.getDocuments( _out_rModels ); + } + } + + class ScriptDocument_Impl : public DocumentEventListener + { + private: + bool m_bIsApplication; + bool m_bValid; + bool m_bDocumentClosed; + Reference< XModel > m_xDocument; + Reference< XModifiable > m_xDocModify; + Reference< XEmbeddedScripts > m_xScriptAccess; + ::std::auto_ptr< DocumentEventNotifier > + m_pDocListener; + + public: + ScriptDocument_Impl( ); + ScriptDocument_Impl( const Reference< XModel >& _rxDocument ); + ~ScriptDocument_Impl(); + + /** determines whether the instance refers to a valid "document" with script and + dialog libraries + */ + inline bool isValid() const { return m_bValid; } + /** determines whether the instance refers to a non-closed document + */ + inline bool isAlive() const { return m_bValid ? ( m_bIsApplication ? true : !m_bDocumentClosed ) : false; } + /// determines whether the "document" refers to the application in real + inline bool isApplication() const { return m_bValid && m_bIsApplication; } + /// determines whether the document refers to a real document (instead of the application) + inline bool isDocument() const { return m_bValid && !m_bIsApplication; } + + /** invalidates the instance + */ + void invalidate(); + + const Reference< XModel >& + getDocumentRef() const { return m_xDocument; } + + /// returns a library container belonging to the document + Reference< XLibraryContainer > + getLibraryContainer( LibraryContainerType _eType ) const; + + /// determines whether a given library is part of the shared installation + bool isLibraryShared( const ::rtl::OUString& _rLibName, LibraryContainerType _eType ); + + /** returns the current frame of the document + + To be called for documents only, not for the application. + + If <FALSE/> is returned, an assertion will be raised in non-product builds. + */ + bool getCurrentFrame( Reference< XFrame >& _out_rxFrame ) const; + + // versions with the same signature/semantics as in ScriptDocument itself + bool isReadOnly() const; + bool isInVBAMode() const; + BasicManager* + getBasicManager() const; + Reference< XModel > + getDocument() const; + void setDocumentModified() const; + bool isDocumentModified() const; + bool saveDocument( const Reference< XStatusIndicator >& _rxStatusIndicator ) const; + + ::rtl::OUString + getTitle() const; + ::rtl::OUString + getURL() const; + + bool allowMacros() const; + + Reference< XNameContainer > + getLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, bool _bLoadLibrary ) const + SAL_THROW((NoSuchElementException)); + bool hasLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName ) const; + Reference< XNameContainer > + getOrCreateLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName ) const; + + void loadLibraryIfExists( LibraryContainerType _eType, const ::rtl::OUString& _rLibrary ); + + bool removeModuleOrDialog( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModuleName ); + bool hasModuleOrDialog( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName ) const; + bool getModuleOrDialog( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rObjectName, Any& _out_rModuleOrDialog ); + bool renameModuleOrDialog( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rOldName, const ::rtl::OUString& _rNewName, const Reference< XNameContainer >& _rxExistingDialogModel ); + bool createModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName, bool _bCreateMain, ::rtl::OUString& _out_rNewModuleCode ) const; + bool insertModuleOrDialog( LibraryContainerType _eType, const ::rtl::OUString& _rObjectName, const ::rtl::OUString& _rModName, const Any& _rElement ) const; + bool updateModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName, const ::rtl::OUString& _rModuleCode ) const; + bool createDialog( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rDialogName, Reference< XInputStreamProvider >& _out_rDialogProvider ) const; + + protected: + // DocumentEventListener + virtual void onDocumentCreated( const ScriptDocument& _rDocument ); + virtual void onDocumentOpened( const ScriptDocument& _rDocument ); + virtual void onDocumentSave( const ScriptDocument& _rDocument ); + virtual void onDocumentSaveDone( const ScriptDocument& _rDocument ); + virtual void onDocumentSaveAs( const ScriptDocument& _rDocument ); + virtual void onDocumentSaveAsDone( const ScriptDocument& _rDocument ); + virtual void onDocumentClosed( const ScriptDocument& _rDocument ); + virtual void onDocumentTitleChanged( const ScriptDocument& _rDocument ); + virtual void onDocumentModeChanged( const ScriptDocument& _rDocument ); + + private: + bool impl_initDocument_nothrow( const Reference< XModel >& _rxModel ); + }; + + //==================================================================== + //= ScriptDocument_Impl - implementation + //==================================================================== + ScriptDocument_Impl::ScriptDocument_Impl() + :m_bIsApplication( true ) + ,m_bValid( true ) + ,m_bDocumentClosed( false ) + { + } + + ScriptDocument_Impl::ScriptDocument_Impl( const Reference< XModel >& _rxDocument ) + :m_bIsApplication( false ) + ,m_bValid( false ) + ,m_bDocumentClosed( false ) + { + if ( _rxDocument.is() ) + { + if ( impl_initDocument_nothrow( _rxDocument ) ) + { + } + } + } + + ScriptDocument_Impl::~ScriptDocument_Impl() + { + invalidate(); + } + + void ScriptDocument_Impl::invalidate() + { + m_bIsApplication = false; + m_bValid = false; + m_bDocumentClosed = false; + + m_xDocument.clear(); + m_xDocModify.clear(); + m_xScriptAccess.clear(); + + if ( m_pDocListener.get() ) + m_pDocListener->dispose(); + } + + bool ScriptDocument_Impl::impl_initDocument_nothrow( const Reference< XModel >& _rxModel ) + { + try + { + m_xDocument.set ( _rxModel, UNO_SET_THROW ); + m_xDocModify.set ( _rxModel, UNO_QUERY_THROW ); + m_xScriptAccess.set ( _rxModel, UNO_QUERY ); + + m_bValid = m_xScriptAccess.is(); + + if ( m_bValid ) + m_pDocListener.reset( new DocumentEventNotifier( *this, _rxModel ) ); + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + m_bValid = false; + } + + if ( !m_bValid ) + { + invalidate(); + } + + return m_bValid; + } + + Reference< XLibraryContainer > ScriptDocument_Impl::getLibraryContainer( LibraryContainerType _eType ) const + { + OSL_ENSURE( isValid(), "ScriptDocument_Impl::getLibraryContainer: invalid!" ); + + Reference< XLibraryContainer > xContainer; + if ( !isValid() ) + return xContainer; + + try + { + if ( isApplication() ) + xContainer.set( _eType == E_SCRIPTS ? SFX_APP()->GetBasicContainer() : SFX_APP()->GetDialogContainer(), UNO_QUERY_THROW ); + else + { + xContainer.set( + _eType == E_SCRIPTS ? m_xScriptAccess->getBasicLibraries() : m_xScriptAccess->getDialogLibraries(), + UNO_QUERY_THROW ); + } + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + return xContainer; + } + + bool ScriptDocument_Impl::isReadOnly() const + { + OSL_ENSURE( isValid(), "ScriptDocument_Impl::isReadOnly: invalid state!" ); + OSL_ENSURE( !isApplication(), "ScriptDocument_Impl::isReadOnly: not allowed to be called for the application!" ); + + bool bIsReadOnly = true; + if ( isValid() && !isApplication() ) + { + try + { + // note that XStorable is required by the OfficeDocument service + Reference< XStorable > xDocStorable( m_xDocument, UNO_QUERY_THROW ); + bIsReadOnly = xDocStorable->isReadonly(); + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + return bIsReadOnly; + } + + bool ScriptDocument_Impl::isInVBAMode() const + { + bool bResult = false; + if ( !isApplication() ) + { + Reference< XVBACompatibility > xVBACompat( getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); + if ( xVBACompat.is() ) + bResult = xVBACompat->getVBACompatibilityMode(); + } + return bResult; + } + + + BasicManager* ScriptDocument_Impl::getBasicManager() const + { + OSL_ENSURE( isValid(), "ScriptDocument_Impl::getBasicManager: invalid state!" ); + if ( !isValid() ) + return NULL; + + if ( isApplication() ) + return SFX_APP()->GetBasicManager(); + + return ::basic::BasicManagerRepository::getDocumentBasicManager( m_xDocument ); + } + + + Reference< XModel > ScriptDocument_Impl::getDocument() const + { + OSL_ENSURE( isValid(), "ScriptDocument_Impl::getDocument: invalid state!" ); + OSL_ENSURE( isDocument(), "ScriptDocument_Impl::getDocument: for documents only!" ); + if ( !isValid() || !isDocument() ) + return NULL; + + return m_xDocument; + } + + + Reference< XNameContainer > ScriptDocument_Impl::getLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, bool _bLoadLibrary ) const + SAL_THROW((NoSuchElementException)) + { + OSL_ENSURE( isValid(), "ScriptDocument_Impl::getLibrary: invalid state!" ); + + Reference< XNameContainer > xContainer; + try + { + Reference< XLibraryContainer > xLibContainer = getLibraryContainer( _eType ); + if ( isValid() ) + { + if ( xLibContainer.is() ) + xContainer.set( xLibContainer->getByName( _rLibName ), UNO_QUERY_THROW ); + } + + if ( !xContainer.is() ) + throw NoSuchElementException(); + + // load library + if ( _bLoadLibrary && !xLibContainer->isLibraryLoaded( _rLibName ) ) + xLibContainer->loadLibrary( _rLibName ); + } + catch( const NoSuchElementException& ) + { + throw; // allowed to leave + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + + return xContainer; + } + + + bool ScriptDocument_Impl::hasLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName ) const + { + bool bHas = false; + try + { + Reference< XLibraryContainer > xLibContainer = getLibraryContainer( _eType ); + bHas = xLibContainer.is() && xLibContainer->hasByName( _rLibName ); + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + return bHas; + } + + + Reference< XNameContainer > ScriptDocument_Impl::getOrCreateLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName ) const + { + Reference< XNameContainer > xLibrary; + try + { + Reference< XLibraryContainer > xLibContainer( getLibraryContainer( _eType ), UNO_QUERY_THROW ); + if ( xLibContainer->hasByName( _rLibName ) ) + xLibrary.set( xLibContainer->getByName( _rLibName ), UNO_QUERY_THROW ); + else + xLibrary.set( xLibContainer->createLibrary( _rLibName ), UNO_QUERY_THROW ); + + if ( !xLibContainer->isLibraryLoaded( _rLibName ) ) + xLibContainer->loadLibrary( _rLibName ); + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + return xLibrary; + } + + + void ScriptDocument_Impl::loadLibraryIfExists( LibraryContainerType _eType, const ::rtl::OUString& _rLibrary ) + { + try + { + Reference< XLibraryContainer > xLibContainer( getLibraryContainer( _eType ) ); + if ( xLibContainer.is() && xLibContainer->hasByName( _rLibrary ) && !xLibContainer->isLibraryLoaded( _rLibrary ) ) + xLibContainer->loadLibrary( _rLibrary ); + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + + + bool ScriptDocument_Impl::removeModuleOrDialog( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModuleName ) + { + OSL_ENSURE( isValid(), "ScriptDocument_Impl::removeModuleOrDialog: invalid!" ); + if ( isValid() ) + { + try + { + Reference< XNameContainer > xLib( getLibrary( _eType, _rLibName, sal_True ) ); + if ( xLib.is() ) + { + xLib->removeByName( _rModuleName ); + return true; + } + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + return false; + } + + + bool ScriptDocument_Impl::hasModuleOrDialog( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName ) const + { + OSL_ENSURE( isValid(), "ScriptDocument_Impl::hasModuleOrDialog: invalid!" ); + if ( !isValid() ) + return false; + + try + { + Reference< XNameContainer > xLib( getLibrary( _eType, _rLibName, sal_True ) ); + if ( xLib.is() ) + return xLib->hasByName( _rModName ); + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + return false; + } + + + bool ScriptDocument_Impl::getModuleOrDialog( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rObjectName, Any& _out_rModuleOrDialog ) + { + OSL_ENSURE( isValid(), "ScriptDocument_Impl::getModuleOrDialog: invalid!" ); + if ( !isValid() ) + return false; + + _out_rModuleOrDialog.clear(); + try + { + Reference< XNameContainer > xLib( getLibrary( _eType, _rLibName, sal_True ), UNO_QUERY_THROW ); + if ( xLib->hasByName( _rObjectName ) ) + { + _out_rModuleOrDialog = xLib->getByName( _rObjectName ); + return true; + } + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + return false; + } + + + bool ScriptDocument_Impl::renameModuleOrDialog( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, + const ::rtl::OUString& _rOldName, const ::rtl::OUString& _rNewName, const Reference< XNameContainer >& _rxExistingDialogModel ) + { + OSL_ENSURE( isValid(), "ScriptDocument_Impl::renameModuleOrDialog: invalid!" ); + if ( !isValid() ) + return false; + + try + { + Reference< XNameContainer > xLib( getLibrary( _eType, _rLibName, sal_True ), UNO_QUERY_THROW ); + + // get element + Any aElement( xLib->getByName( _rOldName ) ); + + // remove element from container + xLib->removeByName( _rOldName ); + + // if it's a dialog, import and export, to reflect the new name + if ( _eType == E_DIALOGS ) + { + // create dialog model + ::comphelper::ComponentContext aContext( ::comphelper::getProcessServiceFactory() ); + Reference< XNameContainer > xDialogModel; + if ( _rxExistingDialogModel.is() ) + xDialogModel = _rxExistingDialogModel; + else + if ( !aContext.createComponent( "com.sun.star.awt.UnoControlDialogModel", xDialogModel ) ) + return false; + + // import dialog model + Reference< XInputStreamProvider > xISP( aElement, UNO_QUERY_THROW ); + if ( !_rxExistingDialogModel.is() ) + { + Reference< XInputStream > xInput( xISP->createInputStream(), UNO_QUERY_THROW ); + ::xmlscript::importDialogModel( xInput, xDialogModel, aContext.getUNOContext(), isDocument() ? getDocument() : Reference< XModel >() ); + } + + // set new name as property + Reference< XPropertySet > xDlgPSet( xDialogModel, UNO_QUERY_THROW ); + xDlgPSet->setPropertyValue( DLGED_PROP_NAME, makeAny( _rNewName ) ); + + // export dialog model + xISP = ::xmlscript::exportDialogModel( xDialogModel, aContext.getUNOContext(), isDocument() ? getDocument() : Reference< XModel >() ); + aElement <<= xISP; + } + + // insert element by new name in container + if ( _eType == E_SCRIPTS ) + { + Reference< XVBAModuleInfo > xVBAModuleInfo( xLib, UNO_QUERY ); + if ( xVBAModuleInfo->hasModuleInfo( _rOldName ) ) + { + ModuleInfo sModuleInfo = xVBAModuleInfo->getModuleInfo( _rOldName ); + xVBAModuleInfo->removeModuleInfo( _rOldName ); + xVBAModuleInfo->insertModuleInfo( _rNewName, sModuleInfo ); + } + } + xLib->insertByName( _rNewName, aElement ); + return true; + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + return false; + } + + + bool ScriptDocument_Impl::createModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName, bool _bCreateMain, ::rtl::OUString& _out_rNewModuleCode ) const + { + _out_rNewModuleCode = ::rtl::OUString(); + try + { + Reference< XNameContainer > xLib( getLibrary( E_SCRIPTS, _rLibName, sal_True ) ); + if ( !xLib.is() || xLib->hasByName( _rModName ) ) + return false; + + // create new module + _out_rNewModuleCode = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "REM ***** BASIC *****\n\n" ) ); + if ( _bCreateMain ) + _out_rNewModuleCode += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Sub Main\n\nEnd Sub\n" ) ); + + // insert module into library + xLib->insertByName( _rModName, makeAny( _out_rNewModuleCode ) ); + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + return false; + } + + return true; + } + + + bool ScriptDocument_Impl::insertModuleOrDialog( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rObjectName, const Any& _rElement ) const + { + try + { + Reference< XNameContainer > xLib( getOrCreateLibrary( _eType, _rLibName ), UNO_QUERY_THROW ); + if ( xLib->hasByName( _rObjectName ) ) + return false; + + xLib->insertByName( _rObjectName, _rElement ); + return true; + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + return false; + } + + + bool ScriptDocument_Impl::updateModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName, const ::rtl::OUString& _rModuleCode ) const + { + try + { + Reference< XNameContainer > xLib( getOrCreateLibrary( E_SCRIPTS, _rLibName ), UNO_QUERY_THROW ); + if ( !xLib->hasByName( _rModName ) ) + return false; + xLib->replaceByName( _rModName, makeAny( _rModuleCode ) ); + return true; + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + return false; + } + + + bool ScriptDocument_Impl::createDialog( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rDialogName, Reference< XInputStreamProvider >& _out_rDialogProvider ) const + { + try + { + Reference< XNameContainer > xLib( getLibrary( E_DIALOGS, _rLibName, sal_True ), UNO_QUERY_THROW ); + + // create dialog + _out_rDialogProvider.clear(); + if ( xLib->hasByName( _rDialogName ) ) + return false; + + // create new dialog model + ::comphelper::ComponentContext aContext( ::comphelper::getProcessServiceFactory() ); + Reference< XNameContainer > xDialogModel; + if ( !aContext.createComponent( "com.sun.star.awt.UnoControlDialogModel", xDialogModel ) ) + return false; + + // set name property + Reference< XPropertySet > xDlgPSet( xDialogModel, UNO_QUERY_THROW ); + xDlgPSet->setPropertyValue( DLGED_PROP_NAME, makeAny( _rDialogName ) ); + + // export dialog model + _out_rDialogProvider = ::xmlscript::exportDialogModel( xDialogModel, aContext.getUNOContext(), isDocument() ? getDocument() : Reference< XModel >() ); + + // insert dialog into library + xLib->insertByName( _rDialogName, makeAny( _out_rDialogProvider ) ); + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + + return _out_rDialogProvider.is(); + } + + + void ScriptDocument_Impl::setDocumentModified() const + { + OSL_ENSURE( isValid() && isDocument(), "ScriptDocument_Impl::setDocumentModified: only to be called for real documents!" ); + if ( isValid() && isDocument() ) + { + try + { + m_xDocModify->setModified( sal_True ); + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + } + + + bool ScriptDocument_Impl::isDocumentModified() const + { + OSL_ENSURE( isValid() && isDocument(), "ScriptDocument_Impl::isDocumentModified: only to be called for real documents!" ); + bool bIsModified = false; + if ( isValid() && isDocument() ) + { + try + { + bIsModified = m_xDocModify->isModified(); + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + return bIsModified; + } + + + bool ScriptDocument_Impl::saveDocument( const Reference< XStatusIndicator >& _rxStatusIndicator ) const + { + Reference< XFrame > xFrame; + if ( !getCurrentFrame( xFrame ) ) + return false; + + Sequence< PropertyValue > aArgs; + if ( _rxStatusIndicator.is() ) + { + aArgs.realloc(1); + aArgs[0].Name = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "StatusIndicator" ) ); + aArgs[0].Value <<= _rxStatusIndicator; + } + + try + { + URL aURL; + aURL.Complete = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:Save" ) ); + aURL.Main = aURL.Complete; + aURL.Protocol = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:" ) ); + aURL.Path = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Save" ) ); + + Reference< XDispatchProvider > xDispProv( xFrame, UNO_QUERY_THROW ); + Reference< XDispatch > xDispatch( + xDispProv->queryDispatch( aURL, ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "_self" ) ), FrameSearchFlag::AUTO ), + UNO_SET_THROW ); + + xDispatch->dispatch( aURL, aArgs ); + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + return false; + } + + return true; + } + + + ::rtl::OUString ScriptDocument_Impl::getTitle() const + { + OSL_PRECOND( isValid() && isDocument(), "ScriptDocument_Impl::getTitle: for documents only!" ); + + ::rtl::OUString sTitle; + if ( isValid() && isDocument() ) + { + sTitle = ::comphelper::DocumentInfo::getDocumentTitle( m_xDocument ); + } + return sTitle; + } + + + ::rtl::OUString ScriptDocument_Impl::getURL() const + { + OSL_PRECOND( isValid() && isDocument(), "ScriptDocument_Impl::getURL: for documents only!" ); + + ::rtl::OUString sURL; + if ( isValid() && isDocument() ) + { + try + { + sURL = m_xDocument->getURL(); + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + return sURL; + } + + + bool ScriptDocument_Impl::allowMacros() const + { + OSL_ENSURE( isValid() && isDocument(), "ScriptDocument_Impl::allowMacros: for documents only!" ); + bool bAllow = false; + if ( isValid() && isDocument() ) + { + try + { + bAllow = m_xScriptAccess->getAllowMacroExecution(); + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + } + return bAllow; + } + + + bool ScriptDocument_Impl::getCurrentFrame( Reference< XFrame >& _out_rxFrame ) const + { + _out_rxFrame.clear(); + OSL_PRECOND( isValid() && isDocument(), "ScriptDocument_Impl::getCurrentFrame: documents only!" ); + if ( !isValid() || !isDocument() ) + return false; + + try + { + Reference< XModel > xDocument( m_xDocument, UNO_SET_THROW ); + Reference< XController > xController( xDocument->getCurrentController(), UNO_SET_THROW ); + _out_rxFrame.set( xController->getFrame(), UNO_SET_THROW ); + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + + return _out_rxFrame.is(); + } + + + bool ScriptDocument_Impl::isLibraryShared( const ::rtl::OUString& _rLibName, LibraryContainerType _eType ) + { + bool bIsShared = false; + try + { + Reference< XLibraryContainer2 > xLibContainer( getLibraryContainer( _eType ), UNO_QUERY_THROW ); + + if ( !xLibContainer->hasByName( _rLibName ) || !xLibContainer->isLibraryLink( _rLibName ) ) + return false; + ::rtl::OUString aFileURL; + Reference< XMultiServiceFactory > xMSF( ::comphelper::getProcessServiceFactory() ); + Reference< XUriReferenceFactory > xUriFac; + if ( xMSF.is() ) + { + xUriFac.set( + xMSF->createInstance( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.uri.UriReferenceFactory" ) ) ), + UNO_QUERY_THROW ); + } + + ::rtl::OUString aLinkURL( xLibContainer->getLibraryLinkURL( _rLibName ) ); + Reference< XUriReference > xUriRef( xUriFac->parse( aLinkURL ), UNO_QUERY_THROW ); + + ::rtl::OUString aScheme = xUriRef->getScheme(); + if ( aScheme.equalsIgnoreAsciiCaseAscii( "file" ) ) + { + aFileURL = aLinkURL; + } + else if ( aScheme.equalsIgnoreAsciiCaseAscii( "vnd.sun.star.pkg" ) ) + { + ::rtl::OUString aAuthority = xUriRef->getAuthority(); + if ( aAuthority.matchIgnoreAsciiCaseAsciiL( RTL_CONSTASCII_STRINGPARAM( "vnd.sun.star.expand:" ) ) ) + { + ::rtl::OUString aDecodedURL( aAuthority.copy( sizeof ( "vnd.sun.star.expand:" ) - 1 ) ); + aDecodedURL = ::rtl::Uri::decode( aDecodedURL, rtl_UriDecodeWithCharset, RTL_TEXTENCODING_UTF8 ); + Reference< XComponentContext > xContext; + Reference< XPropertySet > xProps( xMSF, UNO_QUERY_THROW ); + xContext.set( xProps->getPropertyValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "DefaultContext" )) ), UNO_QUERY_THROW ); + Reference< XMacroExpander > xMacroExpander( + xContext->getValueByName( + ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "/singletons/com.sun.star.util.theMacroExpander" )) ), + UNO_QUERY_THROW ); + aFileURL = xMacroExpander->expandMacros( aDecodedURL ); + } + } + + if ( aFileURL.getLength() ) + { + ::osl::DirectoryItem aFileItem; + ::osl::FileStatus aFileStatus( FileStatusMask_FileURL ); + OSL_VERIFY( ::osl::DirectoryItem::get( aFileURL, aFileItem ) == ::osl::FileBase::E_None ); + OSL_VERIFY( aFileItem.getFileStatus( aFileStatus ) == ::osl::FileBase::E_None ); + ::rtl::OUString aCanonicalFileURL( aFileStatus.getFileURL() ); + + ::rtl::OUString aSearchURL1( RTL_CONSTASCII_USTRINGPARAM( "share/basic" ) ); + ::rtl::OUString aSearchURL2( RTL_CONSTASCII_USTRINGPARAM( "share/uno_packages" ) ); + ::rtl::OUString aSearchURL3( RTL_CONSTASCII_USTRINGPARAM( "share/extensions" ) ); + if( aCanonicalFileURL.indexOf( aSearchURL1 ) != -1 || + aCanonicalFileURL.indexOf( aSearchURL2 ) != -1 || + aCanonicalFileURL.indexOf( aSearchURL3 ) != -1 ) + bIsShared = true; + } + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + + return bIsShared; + } + + + void ScriptDocument_Impl::onDocumentCreated( const ScriptDocument& /*_rDocument*/ ) + { + // not interested in + } + + void ScriptDocument_Impl::onDocumentOpened( const ScriptDocument& /*_rDocument*/ ) + { + // not interested in + } + + void ScriptDocument_Impl::onDocumentSave( const ScriptDocument& /*_rDocument*/ ) + { + // not interested in + } + + void ScriptDocument_Impl::onDocumentSaveDone( const ScriptDocument& /*_rDocument*/ ) + { + // not interested in + } + + void ScriptDocument_Impl::onDocumentSaveAs( const ScriptDocument& /*_rDocument*/ ) + { + // not interested in + } + + void ScriptDocument_Impl::onDocumentSaveAsDone( const ScriptDocument& /*_rDocument*/ ) + { + // not interested in + } + + void ScriptDocument_Impl::onDocumentClosed( const ScriptDocument& _rDocument ) + { + DBG_TESTSOLARMUTEX(); + OSL_PRECOND( isValid(), "ScriptDocument_Impl::onDocumentClosed: should not be listening if I'm not valid!" ); + + bool bMyDocument = m_xDocument == _rDocument.getDocument(); + OSL_PRECOND( bMyDocument, "ScriptDocument_Impl::onDocumentClosed: didn't want to know *this*!" ); + if ( bMyDocument ) + { + m_bDocumentClosed = true; + } + } + + + void ScriptDocument_Impl::onDocumentTitleChanged( const ScriptDocument& /*_rDocument*/ ) + { + // not interested in + } + + void ScriptDocument_Impl::onDocumentModeChanged( const ScriptDocument& /*_rDocument*/ ) + { + // not interested in + } + + //==================================================================== + //= ScriptDocument + //==================================================================== + ScriptDocument::ScriptDocument() + :m_pImpl( new ScriptDocument_Impl() ) + { + } + + + ScriptDocument::ScriptDocument( ScriptDocument::SpecialDocument _eType ) + :m_pImpl( new ScriptDocument_Impl( Reference< XModel >() ) ) + { + OSL_ENSURE( _eType == NoDocument, "ScriptDocument::ScriptDocument: unknown SpecialDocument type!" ); + (void)_eType; + } + + + ScriptDocument::ScriptDocument( const Reference< XModel >& _rxDocument ) + :m_pImpl( new ScriptDocument_Impl( _rxDocument ) ) + { + OSL_ENSURE( _rxDocument.is(), "ScriptDocument::ScriptDocument: document must not be NULL!" ); + // a NULL document results in an uninitialized instance, and for this + // purpose, there is a dedicated constructor + } + + + ScriptDocument::ScriptDocument( const ScriptDocument& _rSource ) + :m_pImpl( _rSource.m_pImpl ) + { + } + + + ScriptDocument::~ScriptDocument() + { + } + + + const ScriptDocument& ScriptDocument::getApplicationScriptDocument() + { + static ScriptDocument s_aApplicationScripts; + return s_aApplicationScripts; + } + + + ScriptDocument ScriptDocument::getDocumentForBasicManager( const BasicManager* _pManager ) + { + if ( _pManager == SFX_APP()->GetBasicManager() ) + return getApplicationScriptDocument(); + + docs::Documents aDocuments; + lcl_getAllModels_throw( aDocuments, false ); + + for ( docs::Documents::const_iterator doc = aDocuments.begin(); + doc != aDocuments.end(); + ++doc + ) + { + const BasicManager* pDocBasicManager = ::basic::BasicManagerRepository::getDocumentBasicManager( doc->xModel ); + if ( ( pDocBasicManager != SFX_APP()->GetBasicManager() ) + && ( pDocBasicManager == _pManager ) + ) + { + return ScriptDocument( doc->xModel ); + } + } + + OSL_FAIL( "ScriptDocument::getDocumentForBasicManager: did not find a document for this manager!" ); + return ScriptDocument( NoDocument ); + } + + + ScriptDocument ScriptDocument::getDocumentWithURLOrCaption( const ::rtl::OUString& _rUrlOrCaption ) + { + ScriptDocument aDocument( getApplicationScriptDocument() ); + if ( _rUrlOrCaption.getLength() == 0 ) + return aDocument; + + docs::Documents aDocuments; + lcl_getAllModels_throw( aDocuments, false ); + + for ( docs::Documents::const_iterator doc = aDocuments.begin(); + doc != aDocuments.end(); + ++doc + ) + { + const ScriptDocument aCheck = ScriptDocument( doc->xModel ); + if ( _rUrlOrCaption == aCheck.getTitle() + || _rUrlOrCaption == aCheck.getURL() + ) + { + aDocument = aCheck; + break; + } + } + + return aDocument; + } + + + namespace + { + struct DocumentTitleLess : public ::std::binary_function< ScriptDocument, ScriptDocument, bool > + { + DocumentTitleLess( const CollatorWrapper& _rCollator ) + :m_aCollator( _rCollator ) + { + } + + bool operator()( const ScriptDocument& _lhs, const ScriptDocument& _rhs ) const + { + return m_aCollator.compareString( _lhs.getTitle(), _rhs.getTitle() ) < 0; + } + private: + const CollatorWrapper m_aCollator; + }; + } + + + ScriptDocuments ScriptDocument::getAllScriptDocuments( ScriptDocument::ScriptDocumentList _eListType ) + { + ScriptDocuments aScriptDocs; + + // include application? + if ( _eListType == AllWithApplication ) + aScriptDocs.push_back( getApplicationScriptDocument() ); + + // obtain documents + try + { + docs::Documents aDocuments; + lcl_getAllModels_throw( aDocuments, true /* exclude invisible */ ); + + for ( docs::Documents::const_iterator doc = aDocuments.begin(); + doc != aDocuments.end(); + ++doc + ) + { + // exclude documents without script/library containers + ScriptDocument aDoc( doc->xModel ); + if ( !aDoc.isValid() ) + continue; + + aScriptDocs.push_back( aDoc ); + } + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + + // sort document list by doc title? + if ( _eListType == DocumentsSorted ) + { + CollatorWrapper aCollator( ::comphelper::getProcessServiceFactory() ); + aCollator.loadDefaultCollator( SvtSysLocale().GetLocaleData().getLocale(), 0 ); + ::std::sort( aScriptDocs.begin(), aScriptDocs.end(), DocumentTitleLess( aCollator ) ); + } + + return aScriptDocs; + } + + + bool ScriptDocument::operator==( const ScriptDocument& _rhs ) const + { + return m_pImpl->getDocumentRef() == _rhs.m_pImpl->getDocumentRef(); + } + + + sal_Int32 ScriptDocument::hashCode() const + { + return sal::static_int_cast<sal_Int32>(reinterpret_cast< sal_IntPtr >( m_pImpl->getDocumentRef().get() )); + } + + + bool ScriptDocument::isValid() const + { + return m_pImpl->isValid(); + } + + + bool ScriptDocument::isAlive() const + { + return m_pImpl->isAlive(); + } + + + Reference< XLibraryContainer > ScriptDocument::getLibraryContainer( LibraryContainerType _eType ) const + { + return m_pImpl->getLibraryContainer( _eType ); + } + + + Reference< XNameContainer > ScriptDocument::getLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, bool _bLoadLibrary ) const + SAL_THROW((NoSuchElementException)) + { + return m_pImpl->getLibrary( _eType, _rLibName, _bLoadLibrary ); + } + + + bool ScriptDocument::hasLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName ) const + { + return m_pImpl->hasLibrary( _eType, _rLibName ); + } + + + Reference< XNameContainer > ScriptDocument::getOrCreateLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName ) const + { + return m_pImpl->getOrCreateLibrary( _eType, _rLibName ); + } + + + void ScriptDocument::loadLibraryIfExists( LibraryContainerType _eType, const ::rtl::OUString& _rLibrary ) + { + m_pImpl->loadLibraryIfExists( _eType, _rLibrary ); + } + + + Sequence< ::rtl::OUString > ScriptDocument::getObjectNames( LibraryContainerType _eType, const ::rtl::OUString& _rLibName ) const + { + Sequence< ::rtl::OUString > aModuleNames; + + try + { + if ( hasLibrary( _eType, _rLibName ) ) + { + Reference< XNameContainer > xLib( getLibrary( _eType, _rLibName, false ) ); + if ( xLib.is() ) + aModuleNames = xLib->getElementNames(); + } + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + + // sort + ::std::sort( aModuleNames.getArray() , aModuleNames.getArray() + aModuleNames.getLength() , StringCompareLessThan ); + + return aModuleNames; + } + + + ::rtl::OUString ScriptDocument::createObjectName( LibraryContainerType _eType, const ::rtl::OUString& _rLibName ) const + { + ::rtl::OUString aObjectName; + + ::rtl::OUString aBaseName = _eType == E_SCRIPTS + ? ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Module" ) ) + : ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Dialog" ) ); + + Sequence< ::rtl::OUString > aUsedNames( getObjectNames( _eType, _rLibName ) ); + ::std::set< ::rtl::OUString > aUsedNamesCheck; + ::std::copy( aUsedNames.getConstArray(), aUsedNames.getConstArray() + aUsedNames.getLength(), + ::std::insert_iterator< ::std::set< ::rtl::OUString > >( aUsedNamesCheck, aUsedNamesCheck.begin() ) ); + + bool bValid = false; + sal_uInt16 i = 1; + while ( !bValid ) + { + aObjectName = aBaseName; + aObjectName += String::CreateFromInt32( i ); + + if ( aUsedNamesCheck.find( aObjectName ) == aUsedNamesCheck.end() ) + bValid = sal_True; + + ++i; + } + + return aObjectName; + } + + + Sequence< ::rtl::OUString > ScriptDocument::getLibraryNames() const + { + return BasicIDE::GetMergedLibraryNames( getLibraryContainer( E_SCRIPTS ), getLibraryContainer( E_DIALOGS ) ); + } + + + bool ScriptDocument::isReadOnly() const + { + return m_pImpl->isReadOnly(); + } + + + bool ScriptDocument::isApplication() const + { + return m_pImpl->isApplication(); + } + + bool ScriptDocument::isInVBAMode() const + { + return m_pImpl->isInVBAMode(); + } + + + BasicManager* ScriptDocument::getBasicManager() const + { + return m_pImpl->getBasicManager(); + } + + + Reference< XModel > ScriptDocument::getDocument() const + { + return m_pImpl->getDocument(); + } + + + Reference< XModel > ScriptDocument::getDocumentOrNull() const + { + if ( isDocument() ) + return m_pImpl->getDocument(); + return NULL; + } + + + bool ScriptDocument::removeModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModuleName ) const + { + return m_pImpl->removeModuleOrDialog( E_SCRIPTS, _rLibName, _rModuleName ); + } + + + bool ScriptDocument::hasModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModuleName ) const + { + return m_pImpl->hasModuleOrDialog( E_SCRIPTS, _rLibName, _rModuleName ); + } + + + bool ScriptDocument::getModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName, ::rtl::OUString& _out_rModuleSource ) const + { + Any aCode; + if ( !m_pImpl->getModuleOrDialog( E_SCRIPTS, _rLibName, _rModName, aCode ) ) + return false; + OSL_VERIFY( aCode >>= _out_rModuleSource ); + return true; + } + + + bool ScriptDocument::renameModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rOldName, const ::rtl::OUString& _rNewName ) const + { + return m_pImpl->renameModuleOrDialog( E_SCRIPTS, _rLibName, _rOldName, _rNewName, NULL ); + } + + + bool ScriptDocument::createModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName, bool _bCreateMain, ::rtl::OUString& _out_rNewModuleCode ) const + { + if ( !m_pImpl->createModule( _rLibName, _rModName, _bCreateMain, _out_rNewModuleCode ) ) + return false; + + // doc shell modified + BasicIDE::MarkDocumentModified( *const_cast< ScriptDocument* >( this ) ); // here? + return true; + } + + + bool ScriptDocument::insertModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName, const ::rtl::OUString& _rModuleCode ) const + { + return m_pImpl->insertModuleOrDialog( E_SCRIPTS, _rLibName, _rModName, makeAny( _rModuleCode ) ); + } + + + bool ScriptDocument::updateModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName, const ::rtl::OUString& _rModuleCode ) const + { + return m_pImpl->updateModule( _rLibName, _rModName, _rModuleCode ); + } + + + bool ScriptDocument::removeDialog( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rDialogName ) const + { + return m_pImpl->removeModuleOrDialog( E_DIALOGS, _rLibName, _rDialogName ); + } + + + bool ScriptDocument::hasDialog( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rDialogName ) const + { + return m_pImpl->hasModuleOrDialog( E_DIALOGS, _rLibName, _rDialogName ); + } + + + bool ScriptDocument::getDialog( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rDialogName, Reference< XInputStreamProvider >& _out_rDialogProvider ) const + { + Any aCode; + if ( !m_pImpl->getModuleOrDialog( E_DIALOGS, _rLibName, _rDialogName, aCode ) ) + return false; + OSL_VERIFY( aCode >>= _out_rDialogProvider ); + return _out_rDialogProvider.is(); + } + + + bool ScriptDocument::renameDialog( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rOldName, const ::rtl::OUString& _rNewName, const Reference< XNameContainer >& _rxExistingDialogModel ) const + { + return m_pImpl->renameModuleOrDialog( E_DIALOGS, _rLibName, _rOldName, _rNewName, _rxExistingDialogModel ); + } + + + bool ScriptDocument::createDialog( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rDialogName, Reference< XInputStreamProvider >& _out_rDialogProvider ) const + { + if ( !m_pImpl->createDialog( _rLibName, _rDialogName, _out_rDialogProvider ) ) + return false; + + BasicIDE::MarkDocumentModified( *const_cast< ScriptDocument* >( this ) ); // here? + return true; + } + + + bool ScriptDocument::insertDialog( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rDialogName, const Reference< XInputStreamProvider >& _rxDialogProvider ) const + { + return m_pImpl->insertModuleOrDialog( E_DIALOGS, _rLibName, _rDialogName, makeAny( _rxDialogProvider ) ); + } + + + void ScriptDocument::setDocumentModified() const + { + m_pImpl->setDocumentModified(); + } + + + bool ScriptDocument::isDocumentModified() const + { + return m_pImpl->isDocumentModified(); + } + + + bool ScriptDocument::saveDocument( const Reference< XStatusIndicator >& _rxStatusIndicator ) const + { + return m_pImpl->saveDocument( _rxStatusIndicator ); + } + + + LibraryLocation ScriptDocument::getLibraryLocation( const ::rtl::OUString& _rLibName ) const + { + LibraryLocation eLocation = LIBRARY_LOCATION_UNKNOWN; + if ( _rLibName.getLength() ) + { + if ( isDocument() ) + { + eLocation = LIBRARY_LOCATION_DOCUMENT; + } + else + { + if ( ( hasLibrary( E_SCRIPTS, _rLibName ) && !m_pImpl->isLibraryShared( _rLibName, E_SCRIPTS ) ) + || ( hasLibrary( E_DIALOGS, _rLibName ) && !m_pImpl->isLibraryShared( _rLibName, E_DIALOGS ) ) + ) + { + eLocation = LIBRARY_LOCATION_USER; + } + else + { + eLocation = LIBRARY_LOCATION_SHARE; + } + } + } + + return eLocation; + } + + + ::rtl::OUString ScriptDocument::getTitle( LibraryLocation _eLocation, LibraryType _eType ) const + { + ::rtl::OUString aTitle; + + switch ( _eLocation ) + { + case LIBRARY_LOCATION_USER: + { + switch ( _eType ) + { + case LIBRARY_TYPE_MODULE: aTitle = String( IDEResId( RID_STR_USERMACROS ) ); break; + case LIBRARY_TYPE_DIALOG: aTitle = String( IDEResId( RID_STR_USERDIALOGS ) ); break; + case LIBRARY_TYPE_ALL: aTitle = String( IDEResId( RID_STR_USERMACROSDIALOGS ) ); break; + default: + break; + } + break; + case LIBRARY_LOCATION_SHARE: + { + switch ( _eType ) + { + case LIBRARY_TYPE_MODULE: aTitle = String( IDEResId( RID_STR_SHAREMACROS ) ); break; + case LIBRARY_TYPE_DIALOG: aTitle = String( IDEResId( RID_STR_SHAREDIALOGS ) ); break; + case LIBRARY_TYPE_ALL: aTitle = String( IDEResId( RID_STR_SHAREMACROSDIALOGS ) ); break; + default: + break; + } + } + break; + case LIBRARY_LOCATION_DOCUMENT: + aTitle = getTitle(); + break; + default: + break; + } + } + + return aTitle; + } + + + ::rtl::OUString ScriptDocument::getTitle() const + { + return m_pImpl->getTitle(); + } + + + ::rtl::OUString ScriptDocument::getURL() const + { + return m_pImpl->getURL(); + } + + + bool ScriptDocument::isActive() const + { + bool bIsActive( false ); + try + { + Reference< XFrame > xFrame; + if ( m_pImpl->getCurrentFrame( xFrame ) ) + bIsActive = xFrame->isActive(); + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + return bIsActive; + } + + + bool ScriptDocument::allowMacros() const + { + return m_pImpl->allowMacros(); + } + +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/tbxctl.cxx b/basctl/source/basicide/tbxctl.cxx new file mode 100644 index 000000000000..a0b9ff05bb33 --- /dev/null +++ b/basctl/source/basicide/tbxctl.cxx @@ -0,0 +1,164 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + + +#include <ide_pch.hxx> + + +#define _BASIDE_POPUPWINDOWTBX +#include <tbxctl.hxx> +#include <svx/svxids.hrc> +#include <iderid.hxx> +#include <tbxctl.hrc> +#include <idetemp.hxx> +#include <sfx2/imagemgr.hxx> +#include <svl/aeitem.hxx> +#include <vcl/toolbox.hxx> + +using namespace ::com::sun::star::uno; + + +static ::rtl::OUString aSubToolBarResName( RTL_CONSTASCII_USTRINGPARAM( "private:resource/toolbar/insertcontrolsbar" ) ); + +SFX_IMPL_TOOLBOX_CONTROL( TbxControls, SfxAllEnumItem ) + +/************************************************************************* +|* +|* Klasse fuer Toolbox +|* +\************************************************************************/ + +TbxControls::TbxControls( sal_uInt16 nSlotId, sal_uInt16 nId, ToolBox& rTbx ) : + SfxToolBoxControl( nSlotId, nId, rTbx ) +{ + nLastSlot = USHRT_MAX; + + rTbx.SetItemBits( nId, TIB_DROPDOWN | rTbx.GetItemBits( nId ) ); + rTbx.Invalidate(); +} + +/************************************************************************* +|* +|* Wenn man ein PopupWindow erzeugen will +|* +\************************************************************************/ +SfxPopupWindowType TbxControls::GetPopupWindowType() const +{ + if( nLastSlot == USHRT_MAX ) + return(SFX_POPUPWINDOW_ONCLICK); + return(SFX_POPUPWINDOW_ONTIMEOUT); +} + +void TbxControls::StateChanged( sal_uInt16 nSID, SfxItemState eState, + const SfxPoolItem* pState ) +{ + if( pState ) + { + SfxAllEnumItem* pItem = PTR_CAST(SfxAllEnumItem, pState); + if( pItem ) + { + sal_uInt16 nLastEnum = pItem->GetValue(); + sal_uInt16 nTemp = 0; + switch( nLastEnum ) + { + case SVX_SNAP_PUSHBUTTON: nTemp = SID_INSERT_PUSHBUTTON; break; + case SVX_SNAP_CHECKBOX: nTemp = SID_INSERT_CHECKBOX; break; + case SVX_SNAP_RADIOBUTTON: nTemp = SID_INSERT_RADIOBUTTON; break; + case SVX_SNAP_SPINBUTTON: nTemp = SID_INSERT_SPINBUTTON; break; + case SVX_SNAP_FIXEDTEXT: nTemp = SID_INSERT_FIXEDTEXT; break; + case SVX_SNAP_GROUPBOX: nTemp = SID_INSERT_GROUPBOX; break; + case SVX_SNAP_LISTBOX: nTemp = SID_INSERT_LISTBOX; break; + case SVX_SNAP_COMBOBOX: nTemp = SID_INSERT_COMBOBOX; break; + case SVX_SNAP_EDIT: nTemp = SID_INSERT_EDIT; break; + case SVX_SNAP_HSCROLLBAR: nTemp = SID_INSERT_HSCROLLBAR; break; + case SVX_SNAP_VSCROLLBAR: nTemp = SID_INSERT_VSCROLLBAR; break; + case SVX_SNAP_PREVIEW: nTemp = SID_INSERT_PREVIEW; break; + case SVX_SNAP_URLBUTTON: nTemp = SID_INSERT_URLBUTTON; break; + case SVX_SNAP_IMAGECONTROL: nTemp = SID_INSERT_IMAGECONTROL; break; + case SVX_SNAP_PROGRESSBAR: nTemp = SID_INSERT_PROGRESSBAR; break; + case SVX_SNAP_HFIXEDLINE: nTemp = SID_INSERT_HFIXEDLINE; break; + case SVX_SNAP_VFIXEDLINE: nTemp = SID_INSERT_VFIXEDLINE; break; + case SVX_SNAP_DATEFIELD: nTemp = SID_INSERT_DATEFIELD; break; + case SVX_SNAP_TIMEFIELD: nTemp = SID_INSERT_TIMEFIELD; break; + case SVX_SNAP_NUMERICFIELD: nTemp = SID_INSERT_NUMERICFIELD; break; + case SVX_SNAP_CURRENCYFIELD: nTemp = SID_INSERT_CURRENCYFIELD; break; + case SVX_SNAP_FORMATTEDFIELD: nTemp = SID_INSERT_FORMATTEDFIELD; break; + case SVX_SNAP_PATTERNFIELD: nTemp = SID_INSERT_PATTERNFIELD; break; + case SVX_SNAP_FILECONTROL: nTemp = SID_INSERT_FILECONTROL; break; + case SVX_SNAP_TREECONTROL: nTemp = SID_INSERT_TREECONTROL; break; + } + if( nTemp ) + { + rtl::OUString aSlotURL( RTL_CONSTASCII_USTRINGPARAM( "slot:" )); + aSlotURL += rtl::OUString::valueOf( sal_Int32( nTemp )); + Image aImage = GetImage( m_xFrame, + aSlotURL, + hasBigImages() + ); + ToolBox& rBox = GetToolBox(); + rBox.SetItemImage(GetId(), aImage); + nLastSlot = nLastEnum; + } + } + } + SfxToolBoxControl::StateChanged( nSID, eState,pState ); +} + +void TbxControls::Select( sal_uInt16 nModifier ) +{ + (void)nModifier; + SfxAllEnumItem aItem( SID_CHOOSE_CONTROLS, nLastSlot ); + SfxViewFrame* pCurFrame = SfxViewFrame::Current(); + DBG_ASSERT( pCurFrame != NULL, "No current view frame!" ); + SfxDispatcher* pDispatcher = pCurFrame ? pCurFrame->GetDispatcher() : NULL; + if( pDispatcher ) + { + pDispatcher->Execute( SID_CHOOSE_CONTROLS, SFX_CALLMODE_SYNCHRON, &aItem, 0L ); + } +} + +/************************************************************************* +|* +|* Hier wird das Fenster erzeugt +|* Lage der Toolbox mit GetToolBox() abfragbar +|* rItemRect sind die Screen-Koordinaten +|* +\************************************************************************/ +SfxPopupWindow* TbxControls::CreatePopupWindow() +{ + if ( GetSlotId() == SID_CHOOSE_CONTROLS ) + createAndPositionSubToolBar( aSubToolBarResName ); + + return(0); +} + + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/tbxctl.hrc b/basctl/source/basicide/tbxctl.hrc new file mode 100644 index 000000000000..2765b5ba8c80 --- /dev/null +++ b/basctl/source/basicide/tbxctl.hrc @@ -0,0 +1,30 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#include <svl/solar.hrc> + +#define RID_TBXCONTROLS ( RID_BASICIDE_START + 65 ) +#define RID_TOOLBOX ( RID_BASICIDE_START + 66 ) diff --git a/basctl/source/basicide/tbxctl.hxx b/basctl/source/basicide/tbxctl.hxx new file mode 100644 index 000000000000..79eb1858335e --- /dev/null +++ b/basctl/source/basicide/tbxctl.hxx @@ -0,0 +1,68 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#ifndef _BASIDE_TBXCTL_HXX +#define _BASIDE_TBXCTL_HXX + +#include <sfx2/tbxctrl.hxx> +#include <com/sun/star/frame/XLayoutManager.hpp> + +//------------------- +// class TbxControls +//------------------- +class TbxControls : public SfxToolBoxControl +{ +private: + + struct StateChangedInfo + { + ::com::sun::star::uno::Reference< ::com::sun::star::frame::XLayoutManager > xLayoutManager; + bool bDisabled; + }; + + sal_uInt16 nLastSlot; + +protected: + virtual void StateChanged( sal_uInt16 nSID, SfxItemState eState, + const SfxPoolItem* pState ); +public: + SFX_DECL_TOOLBOX_CONTROL(); + + TbxControls(sal_uInt16 nSlotId, sal_uInt16 nId, ToolBox& rTbx ); + ~TbxControls() {} + + virtual SfxPopupWindowType GetPopupWindowType() const; + virtual SfxPopupWindow* CreatePopupWindow(); + + using SfxToolBoxControl::Select; + void Select( sal_uInt16 nModifier ); +}; + + +#endif // _BASIDE_TBXCTL_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/unomodel.cxx b/basctl/source/basicide/unomodel.cxx new file mode 100644 index 000000000000..76b3057b6409 --- /dev/null +++ b/basctl/source/basicide/unomodel.cxx @@ -0,0 +1,129 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include "unomodel.hxx" +#include <osl/mutex.hxx> +#include <vcl/svapp.hxx> + +#include <sfx2/docfac.hxx> +#include <sfx2/objsh.hxx> + +#include <iderdll.hxx> +#include <basdoc.hxx> + +using ::rtl::OUString; +using namespace ::cppu; +using namespace ::std; +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::lang; + +SIDEModel::SIDEModel( SfxObjectShell *pObjSh ) +: SfxBaseModel(pObjSh) +{ +} + +SIDEModel::~SIDEModel() +{ +} + +uno::Any SAL_CALL SIDEModel::queryInterface( const uno::Type& rType ) throw(uno::RuntimeException) +{ + uno::Any aRet = ::cppu::queryInterface ( rType, + // OWeakObject interfaces + static_cast< XInterface* >( static_cast< OWeakObject* >( this ) ), + static_cast< XWeak* > ( this ), + static_cast< XServiceInfo* > ( this ) ); + if (!aRet.hasValue()) + aRet = SfxBaseModel::queryInterface ( rType ); + return aRet; +} + +void SAL_CALL SIDEModel::acquire() throw() +{ + SolarMutexGuard aGuard; + OWeakObject::acquire(); +} + +void SAL_CALL SIDEModel::release() throw() +{ + SolarMutexGuard aGuard; + OWeakObject::release(); +} + +uno::Sequence< uno::Type > SAL_CALL SIDEModel::getTypes( ) throw(uno::RuntimeException) +{ + uno::Sequence< uno::Type > aTypes = SfxBaseModel::getTypes(); + sal_Int32 nLen = aTypes.getLength(); + aTypes.realloc(nLen + 1); + uno::Type* pTypes = aTypes.getArray(); + pTypes[nLen++] = ::getCppuType((Reference<XServiceInfo>*)0); + + return aTypes; +} + +OUString SIDEModel::getImplementationName(void) throw( uno::RuntimeException ) +{ + return getImplementationName_Static(); +} + +::rtl::OUString SIDEModel::getImplementationName_Static() +{ + return ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.comp.basic.BasicIDE" )); +} + +sal_Bool SIDEModel::supportsService(const OUString& rServiceName) throw( uno::RuntimeException ) +{ + return rServiceName == ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.script.BasicIDE" )); +} +uno::Sequence< OUString > SIDEModel::getSupportedServiceNames(void) throw( uno::RuntimeException ) +{ + return getSupportedServiceNames_Static(); +} + +uno::Sequence< OUString > SIDEModel::getSupportedServiceNames_Static(void) +{ + uno::Sequence< OUString > aRet(1); + OUString* pArray = aRet.getArray(); + pArray[0] = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.script.BasicIDE" )); + return aRet; +} + +uno::Reference< uno::XInterface > SAL_CALL SIDEModel_createInstance( + const uno::Reference< lang::XMultiServiceFactory > & ) throw( uno::Exception ) +{ + SolarMutexGuard aGuard; + BasicIDEDLL::Init(); + SfxObjectShell* pShell = new BasicDocShell(); + return uno::Reference< uno::XInterface >( pShell->GetModel() ); +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/basicide/unomodel.hxx b/basctl/source/basicide/unomodel.hxx new file mode 100644 index 000000000000..06123ab8f548 --- /dev/null +++ b/basctl/source/basicide/unomodel.hxx @@ -0,0 +1,69 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#ifndef UNOMODEL_HXX +#define UNOMODEL_HXX + +#include <com/sun/star/lang/XServiceInfo.hpp> +#include <com/sun/star/lang/XMultiServiceFactory.hpp> +#include <sfx2/sfxbasemodel.hxx> + +//----------------------------------------------------------------------------- +class SIDEModel : public SfxBaseModel, + public com::sun::star::lang::XServiceInfo +{ +public: + SIDEModel( SfxObjectShell *pObjSh = 0 ); + virtual ~SIDEModel(); + + //XInterface + virtual ::com::sun::star::uno::Any SAL_CALL queryInterface( const ::com::sun::star::uno::Type& aType ) throw(::com::sun::star::uno::RuntimeException); + virtual void SAL_CALL acquire( ) throw(); + virtual void SAL_CALL release( ) throw(); + + //XTypeProvider + virtual ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Type > SAL_CALL getTypes( ) throw(::com::sun::star::uno::RuntimeException); + + //XServiceInfo + virtual rtl::OUString SAL_CALL getImplementationName(void) + throw( ::com::sun::star::uno::RuntimeException ); + virtual sal_Bool SAL_CALL supportsService(const rtl::OUString& ServiceName) + throw( ::com::sun::star::uno::RuntimeException ); + virtual ::com::sun::star::uno::Sequence< rtl::OUString > SAL_CALL getSupportedServiceNames(void) + throw( ::com::sun::star::uno::RuntimeException ); + + static ::com::sun::star::uno::Sequence< rtl::OUString > getSupportedServiceNames_Static(); + static ::rtl::OUString getImplementationName_Static(); +}; + +com::sun::star::uno::Reference< com::sun::star::uno::XInterface > SAL_CALL SIDEModel_createInstance( + const com::sun::star::uno::Reference< com::sun::star::lang::XMultiServiceFactory > & rSMgr ) + throw( com::sun::star::uno::Exception ); + +#endif + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/dlged/dlged.cxx b/basctl/source/dlged/dlged.cxx new file mode 100644 index 000000000000..be5fdc556c59 --- /dev/null +++ b/basctl/source/dlged/dlged.cxx @@ -0,0 +1,1370 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" +#include "dlged.hxx" +#include "dlgedfunc.hxx" +#include "dlgedfac.hxx" +#include <dlgedmod.hxx> +#include "dlgedpage.hxx" +#include "dlgedview.hxx" +#include "dlgedobj.hxx" +#include "dlgedclip.hxx" +#include <dlgeddef.hxx> +#include "propbrw.hxx" +#include <localizationmgr.hxx> + +#include <basidesh.hxx> +#include <iderdll.hxx> +#include <vcl/scrbar.hxx> +#include <tools/shl.hxx> +#include <svl/itempool.hxx> +#include <sfx2/viewfrm.hxx> + +#include <svx/svxids.hrc> +#include <svx/svdpagv.hxx> +#include <xmlscript/xml_helper.hxx> +#include <xmlscript/xmldlg_imexp.hxx> +#include <com/sun/star/beans/PropertyValue.hpp> +#include <com/sun/star/beans/XPropertySet.hpp> +#include <com/sun/star/beans/Property.hpp> +#include <com/sun/star/awt/XDialog.hpp> +#include <com/sun/star/util/XCloneable.hpp> +#include <com/sun/star/resource/XStringResourcePersistence.hpp> +#include <comphelper/processfactory.hxx> +#include <comphelper/types.hxx> +#include <vcl/svapp.hxx> +#include <toolkit/helper/vclunohelper.hxx> + +// #i74769# +#include <svx/sdrpaintwindow.hxx> + +using namespace comphelper; +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::beans; +using namespace ::com::sun::star::io; +using ::rtl::OUString; + +static ::rtl::OUString aResourceResolverPropName( RTL_CONSTASCII_USTRINGPARAM( "ResourceResolver" )); +static ::rtl::OUString aDecorationPropName( RTL_CONSTASCII_USTRINGPARAM( "Decoration" )); +static ::rtl::OUString aTitlePropName( RTL_CONSTASCII_USTRINGPARAM( "Title" )); + + +//============================================================================ +// DlgEdHint +//============================================================================ + +TYPEINIT1( DlgEdHint, SfxHint ); + +DlgEdHint::DlgEdHint( DlgEdHintKind eHint ) + :eHintKind( eHint ) +{ +} + + +DlgEdHint::DlgEdHint( DlgEdHintKind eHint, DlgEdObj* pObj ) + :eHintKind( eHint ) + ,pDlgEdObj( pObj ) +{ +} + + +DlgEdHint::~DlgEdHint() +{ +} + + +//============================================================================ +// DlgEditor +//============================================================================ + +void DlgEditor::ShowDialog() +{ + uno::Reference< lang::XMultiServiceFactory > xMSF = getProcessServiceFactory(); + + // create a dialog + uno::Reference< awt::XControl > xDlg( xMSF->createInstance( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialog" ) ) ), uno::UNO_QUERY ); + + // clone the dialog model + uno::Reference< util::XCloneable > xC( m_xUnoControlDialogModel, uno::UNO_QUERY ); + uno::Reference< util::XCloneable > xNew = xC->createClone(); + uno::Reference< awt::XControlModel > xDlgMod( xNew, uno::UNO_QUERY ); + + uno::Reference< beans::XPropertySet > xSrcDlgModPropSet( m_xUnoControlDialogModel, uno::UNO_QUERY ); + uno::Reference< beans::XPropertySet > xNewDlgModPropSet( xDlgMod, uno::UNO_QUERY ); + if( xNewDlgModPropSet.is() ) + { + if( xSrcDlgModPropSet.is() ) + { + try + { + Any aResourceResolver = xSrcDlgModPropSet->getPropertyValue( aResourceResolverPropName ); + xNewDlgModPropSet->setPropertyValue( aResourceResolverPropName, aResourceResolver ); + } + catch( UnknownPropertyException& ) + { + OSL_FAIL( "DlgEditor::ShowDialog(): No ResourceResolver property" ); + } + } + + // Disable decoration + bool bDecoration = true; + try + { + Any aDecorationAny = xSrcDlgModPropSet->getPropertyValue( aDecorationPropName ); + aDecorationAny >>= bDecoration; + if( !bDecoration ) + { + xNewDlgModPropSet->setPropertyValue( aDecorationPropName, makeAny( true ) ); + xNewDlgModPropSet->setPropertyValue( aTitlePropName, makeAny( ::rtl::OUString() ) ); + } + } + catch( UnknownPropertyException& ) + {} + } + + // set the model + xDlg->setModel( xDlgMod ); + + // create a peer + uno::Reference< awt::XToolkit> xToolkit( xMSF->createInstance( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.ExtToolkit" ) ) ), uno::UNO_QUERY ); + xDlg->createPeer( xToolkit, pWindow->GetComponentInterface() ); + + uno::Reference< awt::XDialog > xD( xDlg, uno::UNO_QUERY ); + xD->execute(); + + uno::Reference< lang::XComponent > xComponent(xDlg, uno::UNO_QUERY); + if (xComponent.is()) + xComponent->dispose(); +} + + +sal_Bool DlgEditor::UnmarkDialog() +{ + SdrObject* pDlgObj = pDlgEdModel->GetPage(0)->GetObj(0); + SdrPageView* pPgView = pDlgEdView->GetSdrPageView(); + + sal_Bool bWasMarked = pDlgEdView->IsObjMarked( pDlgObj ); + + if( bWasMarked ) + pDlgEdView->MarkObj( pDlgObj, pPgView, sal_True ); + + return bWasMarked; +} + + +sal_Bool DlgEditor::RemarkDialog() +{ + SdrObject* pDlgObj = pDlgEdModel->GetPage(0)->GetObj(0); + SdrPageView* pPgView = pDlgEdView->GetSdrPageView(); + + sal_Bool bWasMarked = pDlgEdView->IsObjMarked( pDlgObj ); + + if( !bWasMarked ) + pDlgEdView->MarkObj( pDlgObj, pPgView, sal_False ); + + return bWasMarked; +} + + +DlgEditor::DlgEditor( const ::com::sun::star::uno::Reference< ::com::sun::star::frame::XModel >& xModel ) + :pHScroll(NULL) + ,pVScroll(NULL) + ,pDlgEdModel(NULL) + ,pDlgEdPage(NULL) + ,pDlgEdView(NULL) + ,pDlgEdForm(NULL) + ,m_xUnoControlDialogModel(NULL) + ,m_ClipboardDataFlavors(1) + ,m_ClipboardDataFlavorsResource(2) + ,pObjFac(NULL) + ,pWindow(NULL) + ,pFunc(NULL) + ,eMode( DLGED_SELECT ) + ,eActObj( OBJ_DLG_PUSHBUTTON ) + ,bFirstDraw(sal_False) + ,aGridSize( 100, 100 ) // 100TH_MM + ,bGridVisible(sal_False) + ,bGridSnap(sal_True) + ,bCreateOK(sal_True) + ,bDialogModelChanged(sal_False) + ,mnPaintGuard(0) + ,m_xDocument( xModel ) +{ + pDlgEdModel = new DlgEdModel(); + pDlgEdModel->GetItemPool().FreezeIdRanges(); + pDlgEdModel->SetScaleUnit( MAP_100TH_MM ); + + SdrLayerAdmin& rAdmin = pDlgEdModel->GetLayerAdmin(); + rAdmin.NewLayer( rAdmin.GetControlLayerName() ); + rAdmin.NewLayer( UniString::CreateFromAscii( RTL_CONSTASCII_STRINGPARAM( "HiddenLayer" ) ) ); + + pDlgEdPage = new DlgEdPage( *pDlgEdModel ); + pDlgEdModel->InsertPage( pDlgEdPage ); + + pObjFac = new DlgEdFactory(); + + pFunc = new DlgEdFuncSelect( this ); + + // set clipboard data flavors + m_ClipboardDataFlavors[0].MimeType = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "application/vnd.sun.xml.dialog" )); + m_ClipboardDataFlavors[0].HumanPresentableName = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Dialog 6.0" )); + m_ClipboardDataFlavors[0].DataType = ::getCppuType( (const Sequence< sal_Int8 >*) 0 ); + + m_ClipboardDataFlavorsResource[0] = m_ClipboardDataFlavors[0]; + m_ClipboardDataFlavorsResource[1].MimeType = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "application/vnd.sun.xml.dialogwithresource" )); + m_ClipboardDataFlavorsResource[1].HumanPresentableName = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Dialog 8.0" )); + m_ClipboardDataFlavorsResource[1].DataType = ::getCppuType( (const Sequence< sal_Int8 >*) 0 ); + + aPaintTimer.SetTimeout( 1 ); + aPaintTimer.SetTimeoutHdl( LINK( this, DlgEditor, PaintTimeout ) ); + + aMarkTimer.SetTimeout( 100 ); + aMarkTimer.SetTimeoutHdl( LINK( this, DlgEditor, MarkTimeout ) ); +} + + +DlgEditor::~DlgEditor() +{ + aPaintTimer.Stop(); + aMarkTimer.Stop(); + + ::comphelper::disposeComponent( m_xControlContainer ); + + delete pObjFac; + delete pFunc; + delete pDlgEdView; + delete pDlgEdModel; +} + + +Reference< awt::XControlContainer > DlgEditor::GetWindowControlContainer() +{ + if ( !m_xControlContainer.is() && pWindow ) + m_xControlContainer = VCLUnoHelper::CreateControlContainer( pWindow ); + return m_xControlContainer; +} + + +void DlgEditor::SetWindow( Window* pWindow_ ) +{ + DlgEditor::pWindow = pWindow_; + pWindow_->SetMapMode( MapMode( MAP_100TH_MM ) ); + pDlgEdPage->SetSize( pWindow_->PixelToLogic( Size( DLGED_PAGE_WIDTH_MIN, DLGED_PAGE_HEIGHT_MIN ) ) ); + + pDlgEdView = new DlgEdView( pDlgEdModel, pWindow_, this ); + pDlgEdView->ShowSdrPage(pDlgEdView->GetModel()->GetPage(0)); + pDlgEdView->SetLayerVisible( UniString::CreateFromAscii( RTL_CONSTASCII_STRINGPARAM( "HiddenLayer" ) ), sal_False ); + pDlgEdView->SetMoveSnapOnlyTopLeft( sal_True ); + pDlgEdView->SetWorkArea( Rectangle( Point( 0, 0 ), pDlgEdPage->GetSize() ) ); + + pDlgEdView->SetGridCoarse( aGridSize ); + pDlgEdView->SetSnapGridWidth(Fraction(aGridSize.Width(), 1), Fraction(aGridSize.Height(), 1)); + pDlgEdView->SetGridSnap( bGridSnap ); + pDlgEdView->SetGridVisible( bGridVisible ); + pDlgEdView->SetDragStripes( sal_False ); + + pDlgEdView->SetDesignMode( sal_True ); + + ::comphelper::disposeComponent( m_xControlContainer ); +} + + +void DlgEditor::SetScrollBars( ScrollBar* pHS, ScrollBar* pVS ) +{ + pHScroll = pHS; + pVScroll = pVS; + + InitScrollBars(); +} + + +void DlgEditor::InitScrollBars() +{ + DBG_ASSERT( pHScroll, "DlgEditor::InitScrollBars: no horizontal scroll bar!" ); + DBG_ASSERT( pVScroll, "DlgEditor::InitScrollBars: no vertical scroll bar!" ); + if ( !pHScroll || !pVScroll ) + return; + + Size aOutSize = pWindow->GetOutputSize(); + Size aPgSize = pDlgEdPage->GetSize(); + + pHScroll->SetRange( Range( 0, aPgSize.Width() )); + pVScroll->SetRange( Range( 0, aPgSize.Height() )); + pHScroll->SetVisibleSize( (sal_uLong)aOutSize.Width() ); + pVScroll->SetVisibleSize( (sal_uLong)aOutSize.Height() ); + + pHScroll->SetLineSize( aOutSize.Width() / 10 ); + pVScroll->SetLineSize( aOutSize.Height() / 10 ); + pHScroll->SetPageSize( aOutSize.Width() / 2 ); + pVScroll->SetPageSize( aOutSize.Height() / 2 ); + + DoScroll( pHScroll ); + DoScroll( pVScroll ); +} + + +void DlgEditor::DoScroll( ScrollBar* ) +{ + if( !pHScroll || !pVScroll ) + return; + + MapMode aMap = pWindow->GetMapMode(); + Point aOrg = aMap.GetOrigin(); + + Size aScrollPos( pHScroll->GetThumbPos(), pVScroll->GetThumbPos() ); + aScrollPos = pWindow->LogicToPixel( aScrollPos ); + aScrollPos = pWindow->PixelToLogic( aScrollPos ); + + long nX = aScrollPos.Width() + aOrg.X(); + long nY = aScrollPos.Height() + aOrg.Y(); + + if( !nX && !nY ) + return; + + pWindow->Update(); + + // #i31562# + // When scrolling, someone was rescuing the Wallpaper and forced the window scroll to + // be done without background refresh. I do not know why, but that causes the repaint + // problems. Taking that out. + // Wallpaper aOldBackground = pWindow->GetBackground(); + // pWindow->SetBackground(); + + // #i74769# children should be scrolled + pWindow->Scroll( -nX, -nY, SCROLL_CHILDREN); + aMap.SetOrigin( Point( -aScrollPos.Width(), -aScrollPos.Height() ) ); + pWindow->SetMapMode( aMap ); + pWindow->Update(); + + DlgEdHint aHint( DLGED_HINT_WINDOWSCROLLED ); + Broadcast( aHint ); +} + + +void DlgEditor::UpdateScrollBars() +{ + MapMode aMap = pWindow->GetMapMode(); + Point aOrg = aMap.GetOrigin(); + + if ( pHScroll ) + pHScroll->SetThumbPos( -aOrg.X() ); + + if ( pVScroll ) + pVScroll->SetThumbPos( -aOrg.Y() ); +} + + +void DlgEditor::SetDialog( uno::Reference< container::XNameContainer > xUnoControlDialogModel ) +{ + // set dialog model + m_xUnoControlDialogModel = xUnoControlDialogModel; + + // create dialog form + pDlgEdForm = new DlgEdForm(); + uno::Reference< awt::XControlModel > xDlgMod( m_xUnoControlDialogModel , uno::UNO_QUERY ); + pDlgEdForm->SetUnoControlModel(xDlgMod); + pDlgEdForm->SetDlgEditor( this ); + ((DlgEdPage*)pDlgEdModel->GetPage(0))->SetDlgEdForm( pDlgEdForm ); + pDlgEdModel->GetPage(0)->InsertObject( pDlgEdForm ); + AdjustPageSize(); + pDlgEdForm->SetRectFromProps(); + pDlgEdForm->UpdateTabIndices(); // for backward compatibility + pDlgEdForm->StartListening(); + + // create controls + Reference< ::com::sun::star::container::XNameAccess > xNameAcc( m_xUnoControlDialogModel, UNO_QUERY ); + if ( xNameAcc.is() ) + { + // get sequence of control names + Sequence< ::rtl::OUString > aNames = xNameAcc->getElementNames(); + const ::rtl::OUString* pNames = aNames.getConstArray(); + sal_Int32 nCtrls = aNames.getLength(); + + // create a map of tab indices and control names, sorted by tab index + IndexToNameMap aIndexToNameMap; + for ( sal_Int32 i = 0; i < nCtrls; ++i ) + { + // get name + ::rtl::OUString aName( pNames[i] ); + + // get tab index + sal_Int16 nTabIndex = -1; + Any aCtrl = xNameAcc->getByName( aName ); + Reference< ::com::sun::star::beans::XPropertySet > xPSet; + aCtrl >>= xPSet; + if ( xPSet.is() ) + xPSet->getPropertyValue( DLGED_PROP_TABINDEX ) >>= nTabIndex; + + // insert into map + aIndexToNameMap.insert( IndexToNameMap::value_type( nTabIndex, aName ) ); + } + + // create controls and insert them into drawing page + for ( IndexToNameMap::iterator aIt = aIndexToNameMap.begin(); aIt != aIndexToNameMap.end(); ++aIt ) + { + Any aCtrl = xNameAcc->getByName( aIt->second ); + Reference< ::com::sun::star::awt::XControlModel > xCtrlModel; + aCtrl >>= xCtrlModel; + DlgEdObj* pCtrlObj = new DlgEdObj(); + pCtrlObj->SetUnoControlModel( xCtrlModel ); + pCtrlObj->SetDlgEdForm( pDlgEdForm ); + pDlgEdForm->AddChild( pCtrlObj ); + pDlgEdModel->GetPage(0)->InsertObject( pCtrlObj ); + pCtrlObj->SetRectFromProps(); + pCtrlObj->UpdateStep(); + pCtrlObj->StartListening(); + } + } + + bFirstDraw = sal_True; + + pDlgEdModel->SetChanged( sal_False ); +} + +void DlgEditor::ResetDialog( void ) +{ + DlgEdForm* pOldDlgEdForm = pDlgEdForm; + DlgEdPage* pPage = (DlgEdPage*)pDlgEdModel->GetPage(0); + SdrPageView* pPgView = pDlgEdView->GetSdrPageView(); + sal_Bool bWasMarked = pDlgEdView->IsObjMarked( pOldDlgEdForm ); + pDlgEdView->UnmarkAll(); + pPage->Clear(); + pPage->SetDlgEdForm( NULL ); + SetDialog( m_xUnoControlDialogModel ); + if( bWasMarked ) + pDlgEdView->MarkObj( pDlgEdForm, pPgView, sal_False ); +} + + +Reference< util::XNumberFormatsSupplier > const & DlgEditor::GetNumberFormatsSupplier() +{ + if ( !m_xSupplier.is() ) + { + Reference< lang::XMultiServiceFactory > xMSF = ::comphelper::getProcessServiceFactory(); + Reference< util::XNumberFormatsSupplier > xSupplier( xMSF->createInstance( + ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.util.NumberFormatsSupplier") ) ), UNO_QUERY ); + + ::osl::MutexGuard aGuard( ::osl::Mutex::getGlobalMutex() ); + if ( !m_xSupplier.is() ) + { + m_xSupplier = xSupplier; + } + } + return m_xSupplier; +} + + +void DlgEditor::MouseButtonDown( const MouseEvent& rMEvt ) +{ + if( pWindow ) + pWindow->GrabFocus(); + pFunc->MouseButtonDown( rMEvt ); +} + + +void DlgEditor::MouseButtonUp( const MouseEvent& rMEvt ) +{ + sal_Bool bRet = pFunc->MouseButtonUp( rMEvt ); + + if( (eMode == DLGED_INSERT) ) + bCreateOK = bRet; +} + + +void DlgEditor::MouseMove( const MouseEvent& rMEvt ) +{ + pFunc->MouseMove( rMEvt ); +} + + +sal_Bool DlgEditor::KeyInput( const KeyEvent& rKEvt ) +{ + return pFunc->KeyInput( rKEvt ); +} + + +void DlgEditor::Paint( const Rectangle& rRect ) +{ + aPaintRect = rRect; + PaintTimeout( &aPaintTimer ); +} + + +IMPL_LINK( DlgEditor, PaintTimeout, Timer *, EMPTYARG ) +{ + if( !pDlgEdView ) + return 0; + + mnPaintGuard++; + + Size aMacSize; + if( bFirstDraw && + pWindow->IsVisible() && + (pWindow->GetOutputSize() != aMacSize) ) + { + bFirstDraw = sal_False; + + // get property set + ::com::sun::star::uno::Reference< ::com::sun::star::beans::XPropertySet > xPSet(pDlgEdForm->GetUnoControlModel(), ::com::sun::star::uno::UNO_QUERY); + + if ( xPSet.is() ) + { + // get dialog size from properties + sal_Int32 nWidth = 0, nHeight = 0; + xPSet->getPropertyValue( DLGED_PROP_WIDTH ) >>= nWidth; + xPSet->getPropertyValue( DLGED_PROP_HEIGHT ) >>= nHeight; + + if ( nWidth == 0 && nHeight == 0 ) + { + Size aSize = pWindow->PixelToLogic( Size( 400, 300 ) ); + + // align with grid + Size aGridSize_(long(pDlgEdView->GetSnapGridWidthX()), long(pDlgEdView->GetSnapGridWidthY())); + aSize.Width() -= aSize.Width() % aGridSize_.Width(); + aSize.Height() -= aSize.Height() % aGridSize_.Height(); + + Point aPos; + Size aOutSize = pWindow->GetOutputSize(); + aPos.X() = (aOutSize.Width()>>1) - (aSize.Width()>>1); + aPos.Y() = (aOutSize.Height()>>1) - (aSize.Height()>>1); + + // align with grid + aPos.X() -= aPos.X() % aGridSize_.Width(); + aPos.Y() -= aPos.Y() % aGridSize_.Height(); + + // don't put in the corner + Point aMinPos = pWindow->PixelToLogic( Point( 30, 20 ) ); + if( (aPos.X() < aMinPos.X()) || (aPos.Y() < aMinPos.Y()) ) + { + aPos = aMinPos; + aPos.X() -= aPos.X() % aGridSize_.Width(); + aPos.Y() -= aPos.Y() % aGridSize_.Height(); + } + + // set dialog position and size + pDlgEdForm->SetSnapRect( Rectangle( aPos, aSize ) ); + pDlgEdForm->EndListening(sal_False); + pDlgEdForm->SetPropsFromRect(); + pDlgEdForm->GetDlgEditor()->SetDialogModelChanged(sal_True); + pDlgEdForm->StartListening(); + + // set position and size of controls + sal_uLong nObjCount; + if ( pDlgEdPage && ( ( nObjCount = pDlgEdPage->GetObjCount() ) > 0 ) ) + { + for ( sal_uLong i = 0 ; i < nObjCount ; i++ ) + { + SdrObject* pObj = pDlgEdPage->GetObj(i); + DlgEdObj* pDlgEdObj = PTR_CAST(DlgEdObj, pObj); + if ( pDlgEdObj && !pDlgEdObj->ISA(DlgEdForm) ) + pDlgEdObj->SetRectFromProps(); + } + } + } + } + } + + // repaint, get PageView and prepare Region + SdrPageView* pPgView = pDlgEdView->GetSdrPageView(); + const Region aPaintRectRegion(aPaintRect); + + + // #i74769# + SdrPaintWindow* pTargetPaintWindow = 0; + + // mark repaint start + if(pPgView) + { + pTargetPaintWindow = pPgView->GetView().BeginDrawLayers(pWindow, aPaintRectRegion); + OSL_ENSURE(pTargetPaintWindow, "BeginDrawLayers: Got no SdrPaintWindow (!)"); + } + + // draw background self using wallpaper + // #i79128# ...and use correct OutDev for that + if(pTargetPaintWindow) + { + OutputDevice& rTargetOutDev = pTargetPaintWindow->GetTargetOutputDevice(); + rTargetOutDev.DrawWallpaper(aPaintRect, Wallpaper(Color(COL_WHITE))); + } + + // do paint (unbuffered) and mark repaint end + if(pPgView) + { + // paint of control layer is done in EndDrawLayers anyway... + pPgView->GetView().EndDrawLayers(*pTargetPaintWindow, true); + } + + mnPaintGuard--; + + DBG_ASSERT(pWindow,"Window not set"); + return 0; +} + + +IMPL_LINK( DlgEditor, MarkTimeout, Timer *, EMPTYARG ) +{ + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + SfxChildWindow* pChildWin = pViewFrame ? pViewFrame->GetChildWindow( SID_SHOW_PROPERTYBROWSER ) : NULL; + if ( !pChildWin ) + return 0L; + + ((PropBrw*)(pChildWin->GetWindow()))->Update( pIDEShell ); + + return 1; +} + + +void DlgEditor::SetMode( DlgEdMode eNewMode ) +{ + if ( eNewMode != eMode ) + { + delete pFunc; + + if ( eNewMode == DLGED_INSERT ) + pFunc = new DlgEdFuncInsert( this ); + else + pFunc = new DlgEdFuncSelect( this ); + + if ( eNewMode == DLGED_READONLY ) + pDlgEdModel->SetReadOnly( sal_True ); + else + pDlgEdModel->SetReadOnly( sal_False ); + } + + if ( eNewMode == DLGED_TEST ) + ShowDialog(); + + eMode = eNewMode; +} + + +void DlgEditor::SetInsertObj( sal_uInt16 eObj ) +{ + eActObj = eObj; + + if( pDlgEdView ) + pDlgEdView->SetCurrentObj( eActObj, DlgInventor ); +} + + +sal_uInt16 DlgEditor::GetInsertObj() const +{ + return eActObj; +} + + +void DlgEditor::CreateDefaultObject() +{ + // create object by factory + SdrObject* pObj = SdrObjFactory::MakeNewObject( pDlgEdView->GetCurrentObjInventor(), pDlgEdView->GetCurrentObjIdentifier(), pDlgEdPage ); + + DlgEdObj* pDlgEdObj = PTR_CAST( DlgEdObj, pObj ); + if ( pDlgEdObj ) + { + // set position and size + Size aSize = pWindow->PixelToLogic( Size( 96, 24 ) ); + Point aPoint = (pDlgEdForm->GetSnapRect()).Center(); + aPoint.X() -= aSize.Width() / 2; + aPoint.Y() -= aSize.Height() / 2; + pDlgEdObj->SetSnapRect( Rectangle( aPoint, aSize ) ); + + // set default property values + pDlgEdObj->SetDefaults(); + + // insert object into drawing page + SdrPageView* pPageView = pDlgEdView->GetSdrPageView(); + pDlgEdView->InsertObjectAtView( pDlgEdObj, *pPageView); + + // start listening + pDlgEdObj->StartListening(); + } +} + + +void DlgEditor::Cut() +{ + Copy(); + Delete(); +} + + +void implCopyStreamToByteSequence( Reference< XInputStream > xStream, + Sequence< sal_Int8 >& bytes ) +{ + sal_Int32 nRead = xStream->readBytes( bytes, xStream->available() ); + for (;;) + { + Sequence< sal_Int8 > readBytes; + nRead = xStream->readBytes( readBytes, 1024 ); + if (! nRead) + break; + + sal_Int32 nPos = bytes.getLength(); + bytes.realloc( nPos + nRead ); + ::rtl_copyMemory( bytes.getArray() + nPos, readBytes.getConstArray(), (sal_uInt32)nRead ); + } +} + +void DlgEditor::Copy() +{ + if( !pDlgEdView->AreObjectsMarked() ) + return; + + // stop all drawing actions + pDlgEdView->BrkAction(); + + // create an empty clipboard dialog model + Reference< util::XCloneable > xClone( m_xUnoControlDialogModel, UNO_QUERY ); + Reference< util::XCloneable > xNewClone = xClone->createClone(); + Reference< container::XNameContainer > xClipDialogModel( xNewClone, UNO_QUERY ); + + Reference< container::XNameAccess > xNAcc( xClipDialogModel, UNO_QUERY ); + if ( xNAcc.is() ) + { + Sequence< OUString > aNames = xNAcc->getElementNames(); + const OUString* pNames = aNames.getConstArray(); + sal_uInt32 nCtrls = aNames.getLength(); + + for ( sal_uInt32 n = 0; n < nCtrls; n++ ) + { + xClipDialogModel->removeByName( pNames[n] ); + } + } + + // insert control models of marked objects into clipboard dialog model + sal_uLong nMark = pDlgEdView->GetMarkedObjectList().GetMarkCount(); + for( sal_uLong i = 0; i < nMark; i++ ) + { + SdrObject* pObj = pDlgEdView->GetMarkedObjectList().GetMark(i)->GetMarkedSdrObj(); + DlgEdObj* pDlgEdObj = PTR_CAST(DlgEdObj, pObj); + + if (pDlgEdObj && !pDlgEdObj->ISA(DlgEdForm) ) + { + ::rtl::OUString aName; + Reference< beans::XPropertySet > xMarkPSet(pDlgEdObj->GetUnoControlModel(), uno::UNO_QUERY); + if (xMarkPSet.is()) + { + xMarkPSet->getPropertyValue( DLGED_PROP_NAME ) >>= aName; + } + + Reference< container::XNameAccess > xNameAcc(m_xUnoControlDialogModel, UNO_QUERY ); + if ( xNameAcc.is() && xNameAcc->hasByName(aName) ) + { + Any aCtrl = xNameAcc->getByName( aName ); + + // clone control model + Reference< util::XCloneable > xCtrl; + aCtrl >>= xCtrl; + Reference< util::XCloneable > xNewCtrl = xCtrl->createClone(); + Any aNewCtrl; + aNewCtrl <<= xNewCtrl; + + if (xClipDialogModel.is()) + xClipDialogModel->insertByName( aName , aNewCtrl ); + } + } + } + + // export clipboard dialog model to xml + Reference< XComponentContext > xContext; + Reference< beans::XPropertySet > xProps( ::comphelper::getProcessServiceFactory(), UNO_QUERY ); + OSL_ASSERT( xProps.is() ); + OSL_VERIFY( xProps->getPropertyValue( OUString(RTL_CONSTASCII_USTRINGPARAM("DefaultContext")) ) >>= xContext ); + Reference< XInputStreamProvider > xISP = ::xmlscript::exportDialogModel( xClipDialogModel, xContext, m_xDocument ); + Reference< XInputStream > xStream( xISP->createInputStream() ); + Sequence< sal_Int8 > DialogModelBytes; + implCopyStreamToByteSequence( xStream, DialogModelBytes ); + xStream->closeInput(); + + // set clipboard content + Reference< datatransfer::clipboard::XClipboard > xClipboard = GetWindow()->GetClipboard(); + if ( xClipboard.is() ) + { + // With resource? + uno::Reference< beans::XPropertySet > xDialogModelPropSet( m_xUnoControlDialogModel, uno::UNO_QUERY ); + uno::Reference< resource::XStringResourcePersistence > xStringResourcePersistence; + if( xDialogModelPropSet.is() ) + { + try + { + Any aResourceResolver = xDialogModelPropSet->getPropertyValue( aResourceResolverPropName ); + aResourceResolver >>= xStringResourcePersistence; + } + catch( UnknownPropertyException& ) + {} + } + + DlgEdTransferableImpl* pTrans = NULL; + if( xStringResourcePersistence.is() ) + { + // With resource, support old and new format + + // Export xClipDialogModel another time with ids replaced by current language string + uno::Reference< resource::XStringResourceManager > + xStringResourceManager( xStringResourcePersistence, uno::UNO_QUERY ); + LocalizationMgr::resetResourceForDialog( xClipDialogModel, xStringResourceManager ); + Reference< XInputStreamProvider > xISP2 = ::xmlscript::exportDialogModel( xClipDialogModel, xContext, m_xDocument ); + Reference< XInputStream > xStream2( xISP2->createInputStream() ); + Sequence< sal_Int8 > NoResourceDialogModelBytes; + implCopyStreamToByteSequence( xStream2, NoResourceDialogModelBytes ); + xStream2->closeInput(); + + // Old format contains dialog with replaced ids + Sequence< Any > aSeqData(2); + Any aNoResourceDialogModelBytesAny; + aNoResourceDialogModelBytesAny <<= NoResourceDialogModelBytes; + aSeqData[0] = aNoResourceDialogModelBytesAny; + + // New format contains dialog and resource + Sequence< sal_Int8 > aResData = xStringResourcePersistence->exportBinary(); + + // Create sequence for combined dialog and resource + sal_Int32 nDialogDataLen = DialogModelBytes.getLength(); + sal_Int32 nResDataLen = aResData.getLength(); + + // Combined data = 4 Bytes 32Bit Offset to begin of resource data, lowest byte first + // + nDialogDataLen bytes dialog data + nResDataLen resource data + sal_Int32 nTotalLen = 4 + nDialogDataLen + nResDataLen; + sal_Int32 nResOffset = 4 + nDialogDataLen; + Sequence< sal_Int8 > aCombinedData( nTotalLen ); + sal_Int8* pCombinedData = aCombinedData.getArray(); + + // Write offset + sal_Int32 n = nResOffset; + for( sal_Int16 i = 0 ; i < 4 ; i++ ) + { + pCombinedData[i] = sal_Int8( n & 0xff ); + n >>= 8; + } + ::rtl_copyMemory( pCombinedData + 4, DialogModelBytes.getConstArray(), nDialogDataLen ); + ::rtl_copyMemory( pCombinedData + nResOffset, aResData.getConstArray(), nResDataLen ); + + Any aCombinedDataAny; + aCombinedDataAny <<= aCombinedData; + aSeqData[1] = aCombinedDataAny; + + pTrans = new DlgEdTransferableImpl( m_ClipboardDataFlavorsResource, aSeqData ); + } + else + { + // No resource, support only old format + Sequence< Any > aSeqData(1); + Any aDialogModelBytesAny; + aDialogModelBytesAny <<= DialogModelBytes; + aSeqData[0] = aDialogModelBytesAny; + pTrans = new DlgEdTransferableImpl( m_ClipboardDataFlavors , aSeqData ); + } + const sal_uInt32 nRef = Application::ReleaseSolarMutex(); + xClipboard->setContents( pTrans , pTrans ); + Application::AcquireSolarMutex( nRef ); + } +} + + +void DlgEditor::Paste() +{ + // stop all drawing actions + pDlgEdView->BrkAction(); + + // unmark all objects + pDlgEdView->UnmarkAll(); + + // get clipboard + Reference< datatransfer::clipboard::XClipboard > xClipboard = GetWindow()->GetClipboard(); + if ( xClipboard.is() ) + { + // get clipboard content + const sal_uInt32 nRef = Application::ReleaseSolarMutex(); + Reference< datatransfer::XTransferable > xTransf = xClipboard->getContents(); + Application::AcquireSolarMutex( nRef ); + if ( xTransf.is() ) + { + // Is target dialog (library) localized? + uno::Reference< beans::XPropertySet > xDialogModelPropSet( m_xUnoControlDialogModel, uno::UNO_QUERY ); + uno::Reference< resource::XStringResourceManager > xStringResourceManager; + if( xDialogModelPropSet.is() ) + { + try + { + Any aResourceResolver = xDialogModelPropSet->getPropertyValue( aResourceResolverPropName ); + aResourceResolver >>= xStringResourceManager; + } + catch( UnknownPropertyException& ) + {} + } + bool bLocalized = false; + if( xStringResourceManager.is() ) + bLocalized = ( xStringResourceManager->getLocales().getLength() > 0 ); + + if ( xTransf->isDataFlavorSupported( m_ClipboardDataFlavors[0] ) ) + { + // create clipboard dialog model from xml + Reference< lang::XMultiServiceFactory > xMSF = getProcessServiceFactory(); + Reference< container::XNameContainer > xClipDialogModel( xMSF->createInstance + ( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialogModel" ) ) ), + uno::UNO_QUERY ); + + bool bSourceIsLocalized = false; + Sequence< sal_Int8 > DialogModelBytes; + Sequence< sal_Int8 > aResData; + if( bLocalized && xTransf->isDataFlavorSupported( m_ClipboardDataFlavorsResource[1] ) ) + { + bSourceIsLocalized = true; + + Any aCombinedDataAny = xTransf->getTransferData( m_ClipboardDataFlavorsResource[1] ); + Sequence< sal_Int8 > aCombinedData; + aCombinedDataAny >>= aCombinedData; + const sal_Int8* pCombinedData = aCombinedData.getConstArray(); + + sal_Int32 nTotalLen = aCombinedData.getLength(); + + // Reading offset + sal_Int32 nResOffset = 0; + sal_Int32 nFactor = 1; + for( sal_Int16 i = 0; i < 4; i++ ) + { + nResOffset += nFactor * sal_uInt8( pCombinedData[i] ); + nFactor *= 256; + } + + sal_Int32 nResDataLen = nTotalLen - nResOffset; + sal_Int32 nDialogDataLen = nTotalLen - nResDataLen - 4; + + DialogModelBytes.realloc( nDialogDataLen ); + ::rtl_copyMemory( DialogModelBytes.getArray(), pCombinedData + 4, nDialogDataLen ); + + aResData.realloc( nResDataLen ); + ::rtl_copyMemory( aResData.getArray(), pCombinedData + nResOffset, nResDataLen ); + } + else + { + Any aAny = xTransf->getTransferData( m_ClipboardDataFlavors[0] ); + aAny >>= DialogModelBytes; + } + + if ( xClipDialogModel.is() ) + { + Reference< XComponentContext > xContext; + Reference< beans::XPropertySet > xProps( xMSF, UNO_QUERY ); + OSL_ASSERT( xProps.is() ); + OSL_VERIFY( xProps->getPropertyValue( OUString(RTL_CONSTASCII_USTRINGPARAM("DefaultContext")) ) >>= xContext ); + ::xmlscript::importDialogModel( ::xmlscript::createInputStream( rtl::ByteSequence(DialogModelBytes.getArray(), DialogModelBytes.getLength()) ) , xClipDialogModel, xContext, m_xDocument ); + } + + // get control models from clipboard dialog model + Reference< ::com::sun::star::container::XNameAccess > xNameAcc( xClipDialogModel, UNO_QUERY ); + if ( xNameAcc.is() ) + { + Sequence< OUString > aNames = xNameAcc->getElementNames(); + const OUString* pNames = aNames.getConstArray(); + sal_uInt32 nCtrls = aNames.getLength(); + + Reference< resource::XStringResourcePersistence > xStringResourcePersistence; + if( nCtrls > 0 && bSourceIsLocalized ) + { + Reference< lang::XMultiServiceFactory > xSMgr = getProcessServiceFactory(); + xStringResourcePersistence = Reference< resource::XStringResourcePersistence >( xSMgr->createInstance + ( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.resource.StringResource" )) ), UNO_QUERY ); + if( xStringResourcePersistence.is() ) + xStringResourcePersistence->importBinary( aResData ); + } + for( sal_uInt32 n = 0; n < nCtrls; n++ ) + { + Any aA = xNameAcc->getByName( pNames[n] ); + Reference< ::com::sun::star::awt::XControlModel > xCM; + aA >>= xCM; + + // clone the control model + Reference< util::XCloneable > xClone( xCM, uno::UNO_QUERY ); + Reference< awt::XControlModel > xCtrlModel( xClone->createClone(), uno::UNO_QUERY ); + + DlgEdObj* pCtrlObj = new DlgEdObj(); + pCtrlObj->SetDlgEdForm(pDlgEdForm); // set parent form + pDlgEdForm->AddChild(pCtrlObj); // add child to parent form + pCtrlObj->SetUnoControlModel( xCtrlModel ); // set control model + + // set new name + ::rtl::OUString aOUniqueName( pCtrlObj->GetUniqueName() ); + Reference< beans::XPropertySet > xPSet( xCtrlModel , UNO_QUERY ); + Any aUniqueName; + aUniqueName <<= aOUniqueName; + xPSet->setPropertyValue( DLGED_PROP_NAME, aUniqueName ); + + // set tabindex + Reference< container::XNameAccess > xNA( m_xUnoControlDialogModel , UNO_QUERY ); + Sequence< OUString > aNames_ = xNA->getElementNames(); + Any aTabIndex; + aTabIndex <<= (sal_Int16) aNames_.getLength(); + xPSet->setPropertyValue( DLGED_PROP_TABINDEX, aTabIndex ); + + if( bLocalized ) + { + Any aControlAny; + aControlAny <<= xCtrlModel; + if( bSourceIsLocalized && xStringResourcePersistence.is() ) + { + Reference< resource::XStringResourceResolver > + xSourceStringResolver( xStringResourcePersistence, UNO_QUERY ); + LocalizationMgr::copyResourcesForPastedEditorObject( this, + aControlAny, aOUniqueName, xSourceStringResolver ); + } + else + { + LocalizationMgr::setControlResourceIDsForNewEditorObject + ( this, aControlAny, aOUniqueName ); + } + } + + // insert control model in editor dialog model + Any aCtrlModel; + aCtrlModel <<= xCtrlModel; + m_xUnoControlDialogModel->insertByName( aOUniqueName , aCtrlModel ); + + // insert object into drawing page + pDlgEdModel->GetPage(0)->InsertObject( pCtrlObj ); + pCtrlObj->SetRectFromProps(); + pCtrlObj->UpdateStep(); + pDlgEdForm->UpdateTabOrderAndGroups(); + pCtrlObj->StartListening(); // start listening + + // mark object + SdrPageView* pPgView = pDlgEdView->GetSdrPageView(); + pDlgEdView->MarkObj( pCtrlObj, pPgView, sal_False, sal_True); + } + + // center marked objects in dialog editor form + Point aMarkCenter = (pDlgEdView->GetMarkedObjRect()).Center(); + Point aFormCenter = (pDlgEdForm->GetSnapRect()).Center(); + Point aPoint = aFormCenter - aMarkCenter; + Size aSize( aPoint.X() , aPoint.Y() ); + pDlgEdView->MoveMarkedObj( aSize ); // update of control model properties (position + size) in NbcMove + pDlgEdView->MarkListHasChanged(); + + // dialog model changed + SetDialogModelChanged(sal_True); + } + } + } + } +} + + +void DlgEditor::Delete() +{ + if( !pDlgEdView->AreObjectsMarked() ) + return; + + // remove control models of marked objects from dialog model + sal_uLong nMark = pDlgEdView->GetMarkedObjectList().GetMarkCount(); + + for( sal_uLong i = 0; i < nMark; i++ ) + { + SdrObject* pObj = pDlgEdView->GetMarkedObjectList().GetMark(i)->GetMarkedSdrObj(); + DlgEdObj* pDlgEdObj = PTR_CAST(DlgEdObj, pObj); + + if ( pDlgEdObj && !pDlgEdObj->ISA(DlgEdForm) ) + { + // get name from property + ::rtl::OUString aName; + uno::Reference< beans::XPropertySet > xPSet(pDlgEdObj->GetUnoControlModel(), uno::UNO_QUERY); + if (xPSet.is()) + { + xPSet->getPropertyValue( DLGED_PROP_NAME ) >>= aName; + } + + // remove control from dialog model + Reference< ::com::sun::star::container::XNameAccess > xNameAcc(pDlgEdObj->GetDlgEdForm()->GetUnoControlModel(), UNO_QUERY ); + if ( xNameAcc.is() && xNameAcc->hasByName(aName) ) + { + Reference< ::com::sun::star::container::XNameContainer > xCont(xNameAcc, UNO_QUERY ); + if ( xCont.is() ) + { + if( xCont->hasByName( aName ) ) + { + Any aAny = xCont->getByName( aName ); + LocalizationMgr::deleteControlResourceIDsForDeletedEditorObject( this, aAny, aName ); + } + xCont->removeByName( aName ); + } + } + + // remove child from parent form + pDlgEdForm->RemoveChild( pDlgEdObj ); + } + } + + // update tab indices + pDlgEdForm->UpdateTabIndices(); + + pDlgEdView->BrkAction(); + + sal_Bool bDlgMarked = UnmarkDialog(); + pDlgEdView->DeleteMarked(); + if( bDlgMarked ) + RemarkDialog(); +} + + +sal_Bool DlgEditor::IsPasteAllowed() +{ + sal_Bool bPaste = sal_False; + + // get clipboard + Reference< datatransfer::clipboard::XClipboard > xClipboard = GetWindow()->GetClipboard(); + if ( xClipboard.is() ) + { + // get clipboard content + const sal_uInt32 nRef = Application::ReleaseSolarMutex(); + Reference< datatransfer::XTransferable > xTransf = xClipboard->getContents(); + Application::AcquireSolarMutex( nRef ); + if ( xTransf.is() ) + { + if ( xTransf->isDataFlavorSupported( m_ClipboardDataFlavors[0] ) ) + { + bPaste = sal_True; + } + } + } + + return bPaste; +} + + +void DlgEditor::ShowProperties() +{ + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; + if ( pViewFrame && !pViewFrame->HasChildWindow( SID_SHOW_PROPERTYBROWSER ) ) + pViewFrame->ToggleChildWindow( SID_SHOW_PROPERTYBROWSER ); +} + + +void DlgEditor::UpdatePropertyBrowserDelayed() +{ + aMarkTimer.Start(); +} + + +sal_Bool DlgEditor::IsModified() const +{ + return pDlgEdModel->IsChanged() || bDialogModelChanged; +} + + +void DlgEditor::ClearModifyFlag() +{ + pDlgEdModel->SetChanged( sal_False ); + bDialogModelChanged = sal_False; +} + + +#define LMARGPRN 1700 +#define RMARGPRN 900 +#define TMARGPRN 2000 +#define BMARGPRN 1000 +#define BORDERPRN 300 + + +void lcl_PrintHeader( Printer* pPrinter, const String& rTitle ) // not working yet +{ + pPrinter->Push(); + + short nLeftMargin = LMARGPRN; + Size aSz = pPrinter->GetOutputSize(); + short nBorder = BORDERPRN; + + pPrinter->SetLineColor( COL_BLACK ); + pPrinter->SetFillColor(); + + Font aFont( pPrinter->GetFont() ); + aFont.SetWeight( WEIGHT_BOLD ); + aFont.SetAlign( ALIGN_BOTTOM ); + pPrinter->SetFont( aFont ); + + long nFontHeight = pPrinter->GetTextHeight(); + + // 1.Border => Strich, 2+3 Border = Freiraum. + long nYTop = TMARGPRN-3*nBorder-nFontHeight; + + long nXLeft = nLeftMargin-nBorder; + long nXRight = aSz.Width()-RMARGPRN+nBorder; + + pPrinter->DrawRect( Rectangle( + Point( nXLeft, nYTop ), + Size( nXRight-nXLeft, aSz.Height() - nYTop - BMARGPRN + nBorder ) ) ); + + long nY = TMARGPRN-2*nBorder; + Point aPos( nLeftMargin, nY ); + pPrinter->DrawText( aPos, rTitle ); + + nY = TMARGPRN-nBorder; + + pPrinter->DrawLine( Point( nXLeft, nY ), Point( nXRight, nY ) ); + + pPrinter->Pop(); +} + + +sal_Int32 DlgEditor::countPages( Printer* ) +{ + return 1; +} + +void DlgEditor::printPage( sal_Int32 nPage, Printer* pPrinter, const String& rTitle ) +{ + if( nPage == 0 ) + Print( pPrinter, rTitle ); +} + + +void DlgEditor::Print( Printer* pPrinter, const String& rTitle ) // not working yet +{ + if( pDlgEdView ) + { + MapMode aOldMap( pPrinter->GetMapMode()); + Font aOldFont( pPrinter->GetFont() ); + + MapMode aMap( MAP_100TH_MM ); + pPrinter->SetMapMode( aMap ); + Font aFont; + aFont.SetAlign( ALIGN_BOTTOM ); + aFont.SetSize( Size( 0, 360 )); + pPrinter->SetFont( aFont ); + + Size aPaperSz = pPrinter->GetOutputSize(); + aPaperSz.Width() -= (LMARGPRN+RMARGPRN); + aPaperSz.Height() -= (TMARGPRN+BMARGPRN); + + lcl_PrintHeader( pPrinter, rTitle ); + + Bitmap aDlg; +#ifdef OS2 + Bitmap* pDlg = new Bitmap; + SvMemoryStream* pStrm = new SvMemoryStream; + *pStrm << *pDlg; + delete pDlg; + pStrm->Seek(0); + *pStrm >> aDlg; + delete pStrm; +#endif + Size aBmpSz( pPrinter->PixelToLogic( aDlg.GetSizePixel() ) ); + double nPaperSzWidth = aPaperSz.Width(); + double nPaperSzHeight = aPaperSz.Height(); + double nBmpSzWidth = aBmpSz.Width(); + double nBmpSzHeight = aBmpSz.Height(); + double nScaleX = (nPaperSzWidth / nBmpSzWidth ); + double nScaleY = (nPaperSzHeight / nBmpSzHeight ); + + Size aOutputSz; + if( nBmpSzHeight * nScaleX <= nPaperSzHeight ) + { + aOutputSz.Width() = (long)(((double)nBmpSzWidth) * nScaleX); + aOutputSz.Height() = (long)(((double)nBmpSzHeight) * nScaleX); + } + else + { + aOutputSz.Width() = (long)(((double)nBmpSzWidth) * nScaleY); + aOutputSz.Height() = (long)(((double)nBmpSzHeight) * nScaleY); + } + + Point aPosOffs( + (aPaperSz.Width() / 2) - (aOutputSz.Width() / 2), + (aPaperSz.Height()/ 2) - (aOutputSz.Height() / 2)); + + aPosOffs.X() += LMARGPRN; + aPosOffs.Y() += TMARGPRN; + + pPrinter->DrawBitmap( aPosOffs, aOutputSz, aDlg ); + + pPrinter->SetMapMode( aOldMap ); + pPrinter->SetFont( aOldFont ); + } +} + + +bool DlgEditor::AdjustPageSize() +{ + bool bAdjustedPageSize = false; + Reference< beans::XPropertySet > xPSet( m_xUnoControlDialogModel, UNO_QUERY ); + if ( xPSet.is() ) + { + sal_Int32 nFormXIn = 0, nFormYIn = 0, nFormWidthIn = 0, nFormHeightIn = 0; + xPSet->getPropertyValue( DLGED_PROP_POSITIONX ) >>= nFormXIn; + xPSet->getPropertyValue( DLGED_PROP_POSITIONY ) >>= nFormYIn; + xPSet->getPropertyValue( DLGED_PROP_WIDTH ) >>= nFormWidthIn; + xPSet->getPropertyValue( DLGED_PROP_HEIGHT ) >>= nFormHeightIn; + + sal_Int32 nFormX, nFormY, nFormWidth, nFormHeight; + if ( pDlgEdForm && pDlgEdForm->TransformFormToSdrCoordinates( nFormXIn, nFormYIn, nFormWidthIn, nFormHeightIn, nFormX, nFormY, nFormWidth, nFormHeight ) ) + { + Size aPageSizeDelta( 400, 300 ); + DBG_ASSERT( pWindow, "DlgEditor::AdjustPageSize: no window!" ); + if ( pWindow ) + aPageSizeDelta = pWindow->PixelToLogic( aPageSizeDelta, MapMode( MAP_100TH_MM ) ); + + sal_Int32 nNewPageWidth = nFormX + nFormWidth + aPageSizeDelta.Width(); + sal_Int32 nNewPageHeight = nFormY + nFormHeight + aPageSizeDelta.Height(); + + Size aPageSizeMin( DLGED_PAGE_WIDTH_MIN, DLGED_PAGE_HEIGHT_MIN ); + DBG_ASSERT( pWindow, "DlgEditor::AdjustPageSize: no window!" ); + if ( pWindow ) + aPageSizeMin = pWindow->PixelToLogic( aPageSizeMin, MapMode( MAP_100TH_MM ) ); + sal_Int32 nPageWidthMin = aPageSizeMin.Width(); + sal_Int32 nPageHeightMin = aPageSizeMin.Height(); + + if ( nNewPageWidth < nPageWidthMin ) + nNewPageWidth = nPageWidthMin; + + if ( nNewPageHeight < nPageHeightMin ) + nNewPageHeight = nPageHeightMin; + + if ( pDlgEdPage ) + { + Size aPageSize = pDlgEdPage->GetSize(); + if ( nNewPageWidth != aPageSize.Width() || nNewPageHeight != aPageSize.Height() ) + { + Size aNewPageSize( nNewPageWidth, nNewPageHeight ); + pDlgEdPage->SetSize( aNewPageSize ); + DBG_ASSERT( pDlgEdView, "DlgEditor::AdjustPageSize: no view!" ); + if ( pDlgEdView ) + pDlgEdView->SetWorkArea( Rectangle( Point( 0, 0 ), aNewPageSize ) ); + bAdjustedPageSize = true; + } + } + } + } + + return bAdjustedPageSize; +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/dlged/dlgedclip.cxx b/basctl/source/dlged/dlgedclip.cxx new file mode 100644 index 000000000000..17392b2510ac --- /dev/null +++ b/basctl/source/dlged/dlgedclip.cxx @@ -0,0 +1,151 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" +#include "dlgedclip.hxx" +#include <osl/mutex.hxx> +#include <vcl/svapp.hxx> +#include <comphelper/processfactory.hxx> +#include <com/sun/star/datatransfer/XMimeContentType.hpp> +#include <com/sun/star/datatransfer/XMimeContentTypeFactory.hpp> + + +using namespace comphelper; +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::io; +using namespace ::com::sun::star::datatransfer; +using namespace ::com::sun::star::datatransfer::clipboard; + + +//---------------------------------------------------------------------------- + +DlgEdTransferableImpl::DlgEdTransferableImpl( const Sequence< DataFlavor >& aSeqFlavors, const Sequence< Any >& aSeqData ) +{ + m_SeqFlavors = aSeqFlavors; + m_SeqData = aSeqData; +} + +//---------------------------------------------------------------------------- + +DlgEdTransferableImpl::~DlgEdTransferableImpl() +{ +} + +//---------------------------------------------------------------------------- + +sal_Bool DlgEdTransferableImpl::compareDataFlavors( const DataFlavor& lFlavor, const DataFlavor& rFlavor ) +{ + sal_Bool bRet = sal_False; + + // compare mime content types + Reference< lang::XMultiServiceFactory > xMSF = getProcessServiceFactory(); + Reference< datatransfer::XMimeContentTypeFactory > + xMCntTypeFactory( xMSF->createInstance( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.datatransfer.MimeContentTypeFactory" ) ) ), UNO_QUERY ); + + if ( xMCntTypeFactory.is( ) ) + { + // compare full media types + Reference< datatransfer::XMimeContentType > xLType = xMCntTypeFactory->createMimeContentType( lFlavor.MimeType ); + Reference< datatransfer::XMimeContentType > xRType = xMCntTypeFactory->createMimeContentType( rFlavor.MimeType ); + + ::rtl::OUString aLFullMediaType = xLType->getFullMediaType(); + ::rtl::OUString aRFullMediaType = xRType->getFullMediaType(); + + bRet = aLFullMediaType.equalsIgnoreAsciiCase( aRFullMediaType ); + } + + return bRet; +} + +// XTransferable +//---------------------------------------------------------------------------- + +Any SAL_CALL DlgEdTransferableImpl::getTransferData( const DataFlavor& rFlavor ) throw(UnsupportedFlavorException, IOException, RuntimeException) +{ + const SolarMutexGuard aGuard; + + if ( !isDataFlavorSupported( rFlavor ) ) + throw UnsupportedFlavorException(); + + Any aData; + + for ( sal_Int32 i = 0; i < m_SeqFlavors.getLength(); i++ ) + { + if ( compareDataFlavors( m_SeqFlavors[i] , rFlavor ) ) + { + aData = m_SeqData[i]; + break; + } + } + + return aData; +} + +//---------------------------------------------------------------------------- + +Sequence< DataFlavor > SAL_CALL DlgEdTransferableImpl::getTransferDataFlavors( ) throw(RuntimeException) +{ + const SolarMutexGuard aGuard; + + return m_SeqFlavors; +} + +//---------------------------------------------------------------------------- + +sal_Bool SAL_CALL DlgEdTransferableImpl::isDataFlavorSupported( const DataFlavor& rFlavor ) throw(RuntimeException) +{ + const SolarMutexGuard aGuard; + + sal_Bool bRet = sal_False; + + for ( sal_Int32 i = 0; i < m_SeqFlavors.getLength(); i++ ) + { + if ( compareDataFlavors( m_SeqFlavors[i] , rFlavor ) ) + { + bRet = sal_True; + break; + } + } + + return bRet; +} + +// XClipboardOwner +//---------------------------------------------------------------------------- + +void SAL_CALL DlgEdTransferableImpl::lostOwnership( const Reference< XClipboard >&, const Reference< XTransferable >& ) throw(RuntimeException) +{ + const SolarMutexGuard aGuard; + + m_SeqFlavors = Sequence< DataFlavor >(); + m_SeqData = Sequence< Any >(); +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/dlged/dlgedfac.cxx b/basctl/source/dlged/dlgedfac.cxx new file mode 100644 index 000000000000..9659dda143ed --- /dev/null +++ b/basctl/source/dlged/dlgedfac.cxx @@ -0,0 +1,198 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + + +#include "dlgedfac.hxx" +#include "dlgedobj.hxx" +#include <dlgeddef.hxx> +#include <com/sun/star/container/XNameContainer.hpp> +#include <com/sun/star/beans/PropertyValue.hpp> +#include <com/sun/star/beans/XPropertySet.hpp> +#include <com/sun/star/awt/ScrollBarOrientation.hpp> + +using namespace ::com::sun::star; + + +DlgEdFactory::DlgEdFactory() +{ + SdrObjFactory::InsertMakeObjectHdl( LINK(this, DlgEdFactory, MakeObject) ); +} + + +DlgEdFactory::~DlgEdFactory() +{ + SdrObjFactory::RemoveMakeObjectHdl( LINK(this, DlgEdFactory, MakeObject) ); +} + + +IMPL_LINK( DlgEdFactory, MakeObject, SdrObjFactory *, pObjFactory ) +{ + static sal_Bool bNeedsInit = sal_True; + static uno::Reference< lang::XMultiServiceFactory > xDialogSFact; + + if( bNeedsInit ) + { + uno::Reference< lang::XMultiServiceFactory > xMSF = ::comphelper::getProcessServiceFactory(); + uno::Reference< container::XNameContainer > xC( xMSF->createInstance( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialogModel" ) ) ), uno::UNO_QUERY ); + if( xC.is() ) + { + uno::Reference< lang::XMultiServiceFactory > xModFact( xC, uno::UNO_QUERY ); + xDialogSFact = xModFact; + } + bNeedsInit = sal_False; + } + + if( (pObjFactory->nInventor == DlgInventor) && + (pObjFactory->nIdentifier >= OBJ_DLG_PUSHBUTTON) && + (pObjFactory->nIdentifier <= OBJ_DLG_TREECONTROL) ) + { + switch( pObjFactory->nIdentifier ) + { + case OBJ_DLG_PUSHBUTTON: + pObjFactory->pNewObj = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlButtonModel" )) , xDialogSFact ); + break; + case OBJ_DLG_RADIOBUTTON: + pObjFactory->pNewObj = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlRadioButtonModel" )) , xDialogSFact ); + break; + case OBJ_DLG_CHECKBOX: + pObjFactory->pNewObj = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlCheckBoxModel" )) , xDialogSFact ); + break; + case OBJ_DLG_LISTBOX: + pObjFactory->pNewObj = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlListBoxModel" )) , xDialogSFact ); + break; + case OBJ_DLG_COMBOBOX: + { + DlgEdObj* pNew = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlComboBoxModel" )) , xDialogSFact ); + pObjFactory->pNewObj = pNew; + try + { + uno::Reference< beans::XPropertySet > xPSet(pNew->GetUnoControlModel(), uno::UNO_QUERY); + if (xPSet.is()) + { + sal_Bool bB = sal_True; + xPSet->setPropertyValue( DLGED_PROP_DROPDOWN, uno::Any(&bB,::getBooleanCppuType())); + } + } + catch(...) + { + } + } break; + case OBJ_DLG_GROUPBOX: + pObjFactory->pNewObj = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlGroupBoxModel" )) , xDialogSFact ); + break; + case OBJ_DLG_EDIT: + pObjFactory->pNewObj = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlEditModel" )) , xDialogSFact ); + break; + case OBJ_DLG_FIXEDTEXT: + pObjFactory->pNewObj = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlFixedTextModel" )) , xDialogSFact ); + break; + case OBJ_DLG_IMAGECONTROL: + pObjFactory->pNewObj = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlImageControlModel" )) , xDialogSFact ); + break; + case OBJ_DLG_PROGRESSBAR: + pObjFactory->pNewObj = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlProgressBarModel" )) , xDialogSFact ); + break; + case OBJ_DLG_HSCROLLBAR: + pObjFactory->pNewObj = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlScrollBarModel" )) , xDialogSFact ); + break; + case OBJ_DLG_VSCROLLBAR: + { + DlgEdObj* pNew = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlScrollBarModel" )) , xDialogSFact ); + pObjFactory->pNewObj = pNew; + // set vertical orientation + try + { + uno::Reference< beans::XPropertySet > xPSet(pNew->GetUnoControlModel(), uno::UNO_QUERY); + if (xPSet.is()) + { + uno::Any aValue; + aValue <<= (sal_Int32) ::com::sun::star::awt::ScrollBarOrientation::VERTICAL; + xPSet->setPropertyValue( DLGED_PROP_ORIENTATION, aValue ); + } + } + catch(...) + { + } + } break; + case OBJ_DLG_HFIXEDLINE: + pObjFactory->pNewObj = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlFixedLineModel" )) , xDialogSFact ); + break; + case OBJ_DLG_VFIXEDLINE: + { + DlgEdObj* pNew = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlFixedLineModel" )) , xDialogSFact ); + pObjFactory->pNewObj = pNew; + // set vertical orientation + try + { + uno::Reference< beans::XPropertySet > xPSet(pNew->GetUnoControlModel(), uno::UNO_QUERY); + if (xPSet.is()) + { + uno::Any aValue; + aValue <<= (sal_Int32) 1; + xPSet->setPropertyValue( DLGED_PROP_ORIENTATION, aValue ); + } + } + catch(...) + { + } + } break; + case OBJ_DLG_DATEFIELD: + pObjFactory->pNewObj = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDateFieldModel" )) , xDialogSFact ); + break; + case OBJ_DLG_TIMEFIELD: + pObjFactory->pNewObj = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlTimeFieldModel" )) , xDialogSFact ); + break; + case OBJ_DLG_NUMERICFIELD: + pObjFactory->pNewObj = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlNumericFieldModel" )) , xDialogSFact ); + break; + case OBJ_DLG_CURRENCYFIELD: + pObjFactory->pNewObj = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlCurrencyFieldModel" )) , xDialogSFact ); + break; + case OBJ_DLG_FORMATTEDFIELD: + pObjFactory->pNewObj = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlFormattedFieldModel" )) , xDialogSFact ); + break; + case OBJ_DLG_PATTERNFIELD: + pObjFactory->pNewObj = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlPatternFieldModel" )) , xDialogSFact ); + break; + case OBJ_DLG_FILECONTROL: + pObjFactory->pNewObj = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlFileControlModel" )) , xDialogSFact ); + break; + case OBJ_DLG_TREECONTROL: + DlgEdObj* pNew = new DlgEdObj( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.tree.TreeControlModel" )) , xDialogSFact ); + pObjFactory->pNewObj = pNew; + break; + } + } + + return 0; +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/dlged/dlgedfunc.cxx b/basctl/source/dlged/dlgedfunc.cxx new file mode 100644 index 000000000000..607a286b2305 --- /dev/null +++ b/basctl/source/dlged/dlgedfunc.cxx @@ -0,0 +1,621 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" +#include <vcl/scrbar.hxx> +#include <svx/svdview.hxx> +#include "dlgedfunc.hxx" +#include "dlged.hxx" +#include "dlgedview.hxx" +#include <vcl/seleng.hxx> + + +//---------------------------------------------------------------------------- + +IMPL_LINK_INLINE_START( DlgEdFunc, ScrollTimeout, Timer *, pTimer ) +{ + (void)pTimer; + Window* pWindow = pParent->GetWindow(); + Point aPos = pWindow->ScreenToOutputPixel( pWindow->GetPointerPosPixel() ); + aPos = pWindow->PixelToLogic( aPos ); + ForceScroll( aPos ); + return 0; +} +IMPL_LINK_INLINE_END( DlgEdFunc, ScrollTimeout, Timer *, pTimer ) + +//---------------------------------------------------------------------------- + +void DlgEdFunc::ForceScroll( const Point& rPos ) +{ + aScrollTimer.Stop(); + + Window* pWindow = pParent->GetWindow(); + + static Point aDefPoint; + Rectangle aOutRect( aDefPoint, pWindow->GetOutputSizePixel() ); + aOutRect = pWindow->PixelToLogic( aOutRect ); + + ScrollBar* pHScroll = pParent->GetHScroll(); + ScrollBar* pVScroll = pParent->GetVScroll(); + long nDeltaX = pHScroll->GetLineSize(); + long nDeltaY = pVScroll->GetLineSize(); + + if( !aOutRect.IsInside( rPos ) ) + { + if( rPos.X() < aOutRect.Left() ) + nDeltaX = -nDeltaX; + else + if( rPos.X() <= aOutRect.Right() ) + nDeltaX = 0; + + if( rPos.Y() < aOutRect.Top() ) + nDeltaY = -nDeltaY; + else + if( rPos.Y() <= aOutRect.Bottom() ) + nDeltaY = 0; + + if( nDeltaX ) + pHScroll->SetThumbPos( pHScroll->GetThumbPos() + nDeltaX ); + if( nDeltaY ) + pVScroll->SetThumbPos( pVScroll->GetThumbPos() + nDeltaY ); + + if( nDeltaX ) + pParent->DoScroll( pHScroll ); + if( nDeltaY ) + pParent->DoScroll( pVScroll ); + } + + aScrollTimer.Start(); +} + +//---------------------------------------------------------------------------- + +DlgEdFunc::DlgEdFunc( DlgEditor* pParent_ ) +{ + DlgEdFunc::pParent = pParent_; + aScrollTimer.SetTimeoutHdl( LINK( this, DlgEdFunc, ScrollTimeout ) ); + aScrollTimer.SetTimeout( SELENG_AUTOREPEAT_INTERVAL ); +} + +//---------------------------------------------------------------------------- + +DlgEdFunc::~DlgEdFunc() +{ +} + +//---------------------------------------------------------------------------- + +sal_Bool DlgEdFunc::MouseButtonDown( const MouseEvent& ) +{ + return sal_True; +} + +//---------------------------------------------------------------------------- + +sal_Bool DlgEdFunc::MouseButtonUp( const MouseEvent& ) +{ + aScrollTimer.Stop(); + return sal_True; +} + +//---------------------------------------------------------------------------- + +sal_Bool DlgEdFunc::MouseMove( const MouseEvent& ) +{ + return sal_True; +} + +//---------------------------------------------------------------------------- + +sal_Bool DlgEdFunc::KeyInput( const KeyEvent& rKEvt ) +{ + sal_Bool bReturn = sal_False; + + SdrView* pView = pParent->GetView(); + Window* pWindow = pParent->GetWindow(); + + KeyCode aCode = rKEvt.GetKeyCode(); + sal_uInt16 nCode = aCode.GetCode(); + + switch ( nCode ) + { + case KEY_ESCAPE: + { + if ( pView->IsAction() ) + { + pView->BrkAction(); + bReturn = sal_True; + } + else if ( pView->AreObjectsMarked() ) + { + const SdrHdlList& rHdlList = pView->GetHdlList(); + SdrHdl* pHdl = rHdlList.GetFocusHdl(); + if ( pHdl ) + ((SdrHdlList&)rHdlList).ResetFocusHdl(); + else + pView->UnmarkAll(); + + bReturn = sal_True; + } + } + break; + case KEY_TAB: + { + if ( !aCode.IsMod1() && !aCode.IsMod2() ) + { + // mark next object + if ( !pView->MarkNextObj( !aCode.IsShift() ) ) + { + // if no next object, mark first/last + pView->UnmarkAllObj(); + pView->MarkNextObj( !aCode.IsShift() ); + } + + if ( pView->AreObjectsMarked() ) + pView->MakeVisible( pView->GetAllMarkedRect(), *pWindow ); + + bReturn = sal_True; + } + else if ( aCode.IsMod1() ) + { + // selected handle + const SdrHdlList& rHdlList = pView->GetHdlList(); + ((SdrHdlList&)rHdlList).TravelFocusHdl( !aCode.IsShift() ); + + // guarantee visibility of focused handle + SdrHdl* pHdl = rHdlList.GetFocusHdl(); + if ( pHdl ) + { + Point aHdlPosition( pHdl->GetPos() ); + Rectangle aVisRect( aHdlPosition - Point( 100, 100 ), Size( 200, 200 ) ); + pView->MakeVisible( aVisRect, *pWindow ); + } + + bReturn = sal_True; + } + } + break; + case KEY_UP: + case KEY_DOWN: + case KEY_LEFT: + case KEY_RIGHT: + { + long nX = 0; + long nY = 0; + + if ( nCode == KEY_UP ) + { + // scroll up + nX = 0; + nY = -1; + } + else if ( nCode == KEY_DOWN ) + { + // scroll down + nX = 0; + nY = 1; + } + else if ( nCode == KEY_LEFT ) + { + // scroll left + nX = -1; + nY = 0; + } + else if ( nCode == KEY_RIGHT ) + { + // scroll right + nX = 1; + nY = 0; + } + + if ( pView->AreObjectsMarked() && !aCode.IsMod1() ) + { + if ( aCode.IsMod2() ) + { + // move in 1 pixel distance + Size aPixelSize = pWindow ? pWindow->PixelToLogic( Size( 1, 1 ) ) : Size( 100, 100 ); + nX *= aPixelSize.Width(); + nY *= aPixelSize.Height(); + } + else + { + // move in 1 mm distance + nX *= 100; + nY *= 100; + } + + const SdrHdlList& rHdlList = pView->GetHdlList(); + SdrHdl* pHdl = rHdlList.GetFocusHdl(); + + if ( pHdl == 0 ) + { + // no handle selected + if ( pView->IsMoveAllowed() ) + { + // restrict movement to work area + const Rectangle& rWorkArea = pView->GetWorkArea(); + + if ( !rWorkArea.IsEmpty() ) + { + Rectangle aMarkRect( pView->GetMarkedObjRect() ); + aMarkRect.Move( nX, nY ); + + if ( !rWorkArea.IsInside( aMarkRect ) ) + { + if ( aMarkRect.Left() < rWorkArea.Left() ) + nX += rWorkArea.Left() - aMarkRect.Left(); + + if ( aMarkRect.Right() > rWorkArea.Right() ) + nX -= aMarkRect.Right() - rWorkArea.Right(); + + if ( aMarkRect.Top() < rWorkArea.Top() ) + nY += rWorkArea.Top() - aMarkRect.Top(); + + if ( aMarkRect.Bottom() > rWorkArea.Bottom() ) + nY -= aMarkRect.Bottom() - rWorkArea.Bottom(); + } + } + + if ( nX != 0 || nY != 0 ) + { + pView->MoveAllMarked( Size( nX, nY ) ); + pView->MakeVisible( pView->GetAllMarkedRect(), *pWindow ); + } + } + } + else + { + // move the handle + if ( pHdl && ( nX || nY ) ) + { + Point aStartPoint( pHdl->GetPos() ); + Point aEndPoint( pHdl->GetPos() + Point( nX, nY ) ); + const SdrDragStat& rDragStat = pView->GetDragStat(); + + // start dragging + pView->BegDragObj( aStartPoint, 0, pHdl, 0 ); + + if ( pView->IsDragObj() ) + { + bool bWasNoSnap = rDragStat.IsNoSnap(); + sal_Bool bWasSnapEnabled = pView->IsSnapEnabled(); + + // switch snapping off + if ( !bWasNoSnap ) + ((SdrDragStat&)rDragStat).SetNoSnap( sal_True ); + if ( bWasSnapEnabled ) + pView->SetSnapEnabled( sal_False ); + + pView->MovAction( aEndPoint ); + pView->EndDragObj(); + + // restore snap + if ( !bWasNoSnap ) + ((SdrDragStat&)rDragStat).SetNoSnap( bWasNoSnap ); + if ( bWasSnapEnabled ) + pView->SetSnapEnabled( bWasSnapEnabled ); + } + + // make moved handle visible + Rectangle aVisRect( aEndPoint - Point( 100, 100 ), Size( 200, 200 ) ); + pView->MakeVisible( aVisRect, *pWindow ); + } + } + } + else + { + // scroll page + ScrollBar* pScrollBar = ( nX != 0 ) ? pParent->GetHScroll() : pParent->GetVScroll(); + if ( pScrollBar ) + { + long nRangeMin = pScrollBar->GetRangeMin(); + long nRangeMax = pScrollBar->GetRangeMax(); + long nThumbPos = pScrollBar->GetThumbPos() + ( ( nX != 0 ) ? nX : nY ) * pScrollBar->GetLineSize(); + if ( nThumbPos < nRangeMin ) + nThumbPos = nRangeMin; + if ( nThumbPos > nRangeMax ) + nThumbPos = nRangeMax; + pScrollBar->SetThumbPos( nThumbPos ); + pParent->DoScroll( pScrollBar ); + } + } + + bReturn = sal_True; + } + break; + default: + { + } + break; + } + + if ( bReturn ) + pWindow->ReleaseMouse(); + + return bReturn; +} + +//---------------------------------------------------------------------------- + +DlgEdFuncInsert::DlgEdFuncInsert( DlgEditor* pParent_ ) : + DlgEdFunc( pParent_ ) +{ + pParent_->GetView()->SetCreateMode( sal_True ); +} + +//---------------------------------------------------------------------------- + +DlgEdFuncInsert::~DlgEdFuncInsert() +{ + pParent->GetView()->SetEditMode( sal_True ); +} + +//---------------------------------------------------------------------------- + +sal_Bool DlgEdFuncInsert::MouseButtonDown( const MouseEvent& rMEvt ) +{ + if( !rMEvt.IsLeft() ) + return sal_True; + + SdrView* pView = pParent->GetView(); + Window* pWindow= pParent->GetWindow(); + pView->SetActualWin( pWindow ); + + Point aPos = pWindow->PixelToLogic( rMEvt.GetPosPixel() ); + sal_uInt16 nHitLog = sal_uInt16 ( pWindow->PixelToLogic(Size(3,0)).Width() ); + sal_uInt16 nDrgLog = sal_uInt16 ( pWindow->PixelToLogic(Size(3,0)).Width() ); + + pWindow->CaptureMouse(); + + if ( rMEvt.IsLeft() && rMEvt.GetClicks() == 1 ) + { + SdrHdl* pHdl = pView->PickHandle(aPos); + + // if selected object was hit, drag object + if ( pHdl!=NULL || pView->IsMarkedHit(aPos, nHitLog) ) + pView->BegDragObj(aPos, (OutputDevice*) NULL, pHdl, nDrgLog); + else if ( pView->AreObjectsMarked() ) + pView->UnmarkAll(); + + // if no action, create object + if ( !pView->IsAction() ) + pView->BegCreateObj(aPos); + } + else if ( rMEvt.IsLeft() && rMEvt.GetClicks() == 2 ) + { + // if object was hit, show property browser + if ( pView->IsMarkedHit(aPos, nHitLog) && pParent->GetMode() != DLGED_READONLY ) + pParent->ShowProperties(); + } + + return sal_True; +} + +//---------------------------------------------------------------------------- + +sal_Bool DlgEdFuncInsert::MouseButtonUp( const MouseEvent& rMEvt ) +{ + DlgEdFunc::MouseButtonUp( rMEvt ); + + SdrView* pView = pParent->GetView(); + Window* pWindow= pParent->GetWindow(); + pView->SetActualWin( pWindow ); + + pWindow->ReleaseMouse(); + + // object creation active? + if ( pView->IsCreateObj() ) + { + pView->EndCreateObj(SDRCREATE_FORCEEND); + + if ( !pView->AreObjectsMarked() ) + { + sal_uInt16 nHitLog = sal_uInt16 ( pWindow->PixelToLogic(Size(3,0)).Width() ); + Point aPos( pWindow->PixelToLogic( rMEvt.GetPosPixel() ) ); + pView->MarkObj(aPos, nHitLog); + } + + if( pView->AreObjectsMarked() ) + return sal_True; + else + return sal_False; + } + else + { + if ( pView->IsDragObj() ) + pView->EndDragObj( rMEvt.IsMod1() ); + return sal_True; + } +} + +//---------------------------------------------------------------------------- + +sal_Bool DlgEdFuncInsert::MouseMove( const MouseEvent& rMEvt ) +{ + SdrView* pView = pParent->GetView(); + Window* pWindow= pParent->GetWindow(); + pView->SetActualWin( pWindow ); + + Point aPos( pWindow->PixelToLogic( rMEvt.GetPosPixel() ) ); + sal_uInt16 nHitLog = sal_uInt16 ( pWindow->PixelToLogic(Size(3,0)).Width() ); + + if ( pView->IsAction() ) + { + ForceScroll(aPos); + pView->MovAction(aPos); + } + + pWindow->SetPointer( pView->GetPreferedPointer( aPos, pWindow, nHitLog ) ); + + return sal_True; +} + +//---------------------------------------------------------------------------- + +DlgEdFuncSelect::DlgEdFuncSelect( DlgEditor* pParent_ ) : + DlgEdFunc( pParent_ ), + bMarkAction(sal_False) +{ +} + +//---------------------------------------------------------------------------- + +DlgEdFuncSelect::~DlgEdFuncSelect() +{ +} + +//---------------------------------------------------------------------------- + +sal_Bool DlgEdFuncSelect::MouseButtonDown( const MouseEvent& rMEvt ) +{ + // get view from parent + SdrView* pView = pParent->GetView(); + Window* pWindow = pParent->GetWindow(); + pView->SetActualWin( pWindow ); + + sal_uInt16 nDrgLog = sal_uInt16 ( pWindow->PixelToLogic(Size(3,0)).Width() ); + sal_uInt16 nHitLog = sal_uInt16 ( pWindow->PixelToLogic(Size(3,0)).Width() ); + Point aMDPos = pWindow->PixelToLogic( rMEvt.GetPosPixel() ); + + if ( rMEvt.IsLeft() && rMEvt.GetClicks() == 1 ) + { + SdrHdl* pHdl = pView->PickHandle(aMDPos); + SdrObject* pObj; + SdrPageView* pPV; + + // hit selected object? + if ( pHdl!=NULL || pView->IsMarkedHit(aMDPos, nHitLog) ) + { + pView->BegDragObj(aMDPos, (OutputDevice*) NULL, pHdl, nDrgLog); + } + else + { + // if not multi selection, unmark all + if ( !rMEvt.IsShift() ) + pView->UnmarkAll(); + else + { + if( pView->PickObj( aMDPos, nHitLog, pObj, pPV ) ) + { + //if( pObj->ISA( DlgEdForm ) ) + // pView->UnmarkAll(); + //else + // pParent->UnmarkDialog(); + } + } + + if ( pView->MarkObj(aMDPos, nHitLog) ) + { + // drag object + pHdl=pView->PickHandle(aMDPos); + pView->BegDragObj(aMDPos, (OutputDevice*) NULL, pHdl, nDrgLog); + } + else + { + // select object + pView->BegMarkObj(aMDPos); + bMarkAction = sal_True; + } + } + } + else if ( rMEvt.IsLeft() && rMEvt.GetClicks() == 2 ) + { + // if object was hit, show property browser + if ( pView->IsMarkedHit(aMDPos, nHitLog) && pParent->GetMode() != DLGED_READONLY ) + pParent->ShowProperties(); + } + + return sal_True; +} + +//---------------------------------------------------------------------------- + +sal_Bool DlgEdFuncSelect::MouseButtonUp( const MouseEvent& rMEvt ) +{ + DlgEdFunc::MouseButtonUp( rMEvt ); + + // get view from parent + SdrView* pView = pParent->GetView(); + Window* pWindow= pParent->GetWindow(); + pView->SetActualWin( pWindow ); + + Point aPnt( pWindow->PixelToLogic( rMEvt.GetPosPixel() ) ); + sal_uInt16 nHitLog = sal_uInt16 ( pWindow->PixelToLogic(Size(3,0)).Width() ); + + if ( rMEvt.IsLeft() ) + { + if ( pView->IsDragObj() ) + { + // object was dragged + pView->EndDragObj( rMEvt.IsMod1() ); + pView->ForceMarkedToAnotherPage(); + } + else + if (pView->IsAction() ) + { + pView->EndAction(); + } + } + + bMarkAction = sal_False; + + pWindow->SetPointer( pView->GetPreferedPointer( aPnt, pWindow, nHitLog ) ); + pWindow->ReleaseMouse(); + + return sal_True; +} + +//---------------------------------------------------------------------------- + +sal_Bool DlgEdFuncSelect::MouseMove( const MouseEvent& rMEvt ) +{ + SdrView* pView = pParent->GetView(); + Window* pWindow= pParent->GetWindow(); + pView->SetActualWin( pWindow ); + + Point aPnt( pWindow->PixelToLogic( rMEvt.GetPosPixel() ) ); + sal_uInt16 nHitLog = sal_uInt16 ( pWindow->PixelToLogic(Size(3,0)).Width() ); + + if ( pView->IsAction() ) + { + Point aPix(rMEvt.GetPosPixel()); + Point aPnt_(pWindow->PixelToLogic(aPix)); + + ForceScroll(aPnt_); + pView->MovAction(aPnt_); + } + + pWindow->SetPointer( pView->GetPreferedPointer( aPnt, pWindow, nHitLog ) ); + + return sal_True; +} + +//---------------------------------------------------------------------------- + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/dlged/dlgedlist.cxx b/basctl/source/dlged/dlgedlist.cxx new file mode 100644 index 000000000000..1cef4b9762ba --- /dev/null +++ b/basctl/source/dlged/dlgedlist.cxx @@ -0,0 +1,116 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" +#include "dlgedlist.hxx" +#include "dlgedobj.hxx" + +//============================================================================ +// DlgEdPropListenerImpl +//============================================================================ + +//---------------------------------------------------------------------------- + +DlgEdPropListenerImpl::DlgEdPropListenerImpl(DlgEdObj* pObj) + :pDlgEdObj(pObj) +{ +} + +//---------------------------------------------------------------------------- + +DlgEdPropListenerImpl::~DlgEdPropListenerImpl() +{ +} + +// XEventListener +//---------------------------------------------------------------------------- + +void SAL_CALL DlgEdPropListenerImpl::disposing( const ::com::sun::star::lang::EventObject& ) throw( ::com::sun::star::uno::RuntimeException) +{ +} + +// XPropertyChangeListener +//---------------------------------------------------------------------------- + +void SAL_CALL DlgEdPropListenerImpl::propertyChange( const ::com::sun::star::beans::PropertyChangeEvent& evt ) throw( ::com::sun::star::uno::RuntimeException) +{ + pDlgEdObj->_propertyChange( evt ); +} + +//---------------------------------------------------------------------------- + +//============================================================================ +// DlgEdEvtContListenerImpl +//============================================================================ + +//---------------------------------------------------------------------------- + +DlgEdEvtContListenerImpl::DlgEdEvtContListenerImpl(DlgEdObj* pObj) + :pDlgEdObj(pObj) +{ +} + +//---------------------------------------------------------------------------- + +DlgEdEvtContListenerImpl::~DlgEdEvtContListenerImpl() +{ +} + +// XEventListener +//---------------------------------------------------------------------------- + +void SAL_CALL DlgEdEvtContListenerImpl::disposing( const ::com::sun::star::lang::EventObject& ) throw( ::com::sun::star::uno::RuntimeException) +{ +} + +// XContainerListener +//---------------------------------------------------------------------------- + +void SAL_CALL DlgEdEvtContListenerImpl::elementInserted(const ::com::sun::star::container::ContainerEvent& Event) throw(::com::sun::star::uno::RuntimeException) +{ + pDlgEdObj->_elementInserted( Event ); +} + +//---------------------------------------------------------------------------- + +void SAL_CALL DlgEdEvtContListenerImpl::elementReplaced(const ::com::sun::star::container::ContainerEvent& Event) throw(::com::sun::star::uno::RuntimeException) +{ + pDlgEdObj->_elementReplaced( Event ); +} + +//---------------------------------------------------------------------------- + +void SAL_CALL DlgEdEvtContListenerImpl::elementRemoved(const ::com::sun::star::container::ContainerEvent& Event) throw(::com::sun::star::uno::RuntimeException) +{ + pDlgEdObj->_elementRemoved( Event ); +} + +//---------------------------------------------------------------------------- + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/dlged/dlgedmod.cxx b/basctl/source/dlged/dlgedmod.cxx new file mode 100644 index 000000000000..ceb5555a1bc2 --- /dev/null +++ b/basctl/source/dlged/dlgedmod.cxx @@ -0,0 +1,81 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + + +#include "dlgedmod.hxx" +#include "dlgedpage.hxx" +#include <tools/debug.hxx> + + +DBG_NAME(DlgEdModel) + +TYPEINIT1(DlgEdModel,SdrModel); + +//---------------------------------------------------------------------------- + +DlgEdModel::DlgEdModel() + :SdrModel(NULL, NULL) +{ + DBG_CTOR(DlgEdModel,0); +} + +//---------------------------------------------------------------------------- + +DlgEdModel::~DlgEdModel() +{ + DBG_DTOR(DlgEdModel,0); +} + +//---------------------------------------------------------------------------- + +SdrPage* DlgEdModel::AllocPage(bool bMasterPage) +{ + DBG_CHKTHIS(DlgEdModel, 0); + return new DlgEdPage(*this, bMasterPage); +} + +//---------------------------------------------------------------------------- + +void DlgEdModel::DlgEdModelChanged(bool bChanged ) +{ + SetChanged( bChanged ); +} + +//---------------------------------------------------------------------------- + +Window* DlgEdModel::GetCurDocViewWin() +{ + return 0; +} + +//---------------------------------------------------------------------------- + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/dlged/dlgedobj.cxx b/basctl/source/dlged/dlgedobj.cxx new file mode 100644 index 000000000000..315b4a4b7c37 --- /dev/null +++ b/basctl/source/dlged/dlgedobj.cxx @@ -0,0 +1,1887 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include <vector> +#include <dlgeddef.hxx> +#include "dlgedobj.hxx" +#include "dlged.hxx" +#include "dlgedmod.hxx" +#include "dlgedpage.hxx" +#include "dlgedview.hxx" +#include "dlgedlist.hxx" +#include <iderid.hxx> +#include <localizationmgr.hxx> + +#include <dlgresid.hrc> +#include <tools/resmgr.hxx> +#include <tools/shl.hxx> +#include <unotools/sharedunocomponent.hxx> +#include <com/sun/star/awt/XTabControllerModel.hpp> +#include <com/sun/star/awt/XUnoControlContainer.hpp> +#include <com/sun/star/awt/XVclContainerPeer.hpp> +#include <com/sun/star/awt/XWindow.hpp> +#include <com/sun/star/beans/XPropertySet.hpp> +#include <com/sun/star/beans/PropertyAttribute.hpp> +#include <com/sun/star/script/XScriptEventsSupplier.hpp> +#include <com/sun/star/container/XContainer.hpp> +#include <com/sun/star/lang/XServiceInfo.hpp> +#include <comphelper/processfactory.hxx> +#include <comphelper/types.hxx> +#include <vcl/svapp.hxx> + +#include <algorithm> +#include <functional> +#include <o3tl/compat_functional.hxx> + +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::beans; +using namespace ::com::sun::star::container; +using namespace ::com::sun::star::script; +using ::rtl::OUString; + + +TYPEINIT1(DlgEdObj, SdrUnoObj); +DBG_NAME(DlgEdObj); + +//---------------------------------------------------------------------------- + +DlgEdObj::DlgEdObj() + :SdrUnoObj(String(), sal_False) + ,bIsListening(sal_False) + ,pDlgEdForm( NULL ) +{ + DBG_CTOR(DlgEdObj, NULL); +} + +//---------------------------------------------------------------------------- + +DlgEdObj::DlgEdObj(const ::rtl::OUString& rModelName, + const com::sun::star::uno::Reference< com::sun::star::lang::XMultiServiceFactory >& rxSFac) + :SdrUnoObj(rModelName, rxSFac, sal_False) + ,bIsListening(sal_False) + ,pDlgEdForm( NULL ) +{ + DBG_CTOR(DlgEdObj, NULL); +} + +//---------------------------------------------------------------------------- + +DlgEdObj::~DlgEdObj() +{ + DBG_DTOR(DlgEdObj, NULL); + + if ( isListening() ) + EndListening(); +} + +//---------------------------------------------------------------------------- + +void DlgEdObj::SetPage(SdrPage* _pNewPage) +{ + // now set the page + SdrUnoObj::SetPage(_pNewPage); +} + +//---------------------------------------------------------------------------- + +namespace +{ + /** returns the DlgEdForm which the given DlgEdObj belongs to + (which might in fact be the object itself) + + Failure to obtain the form will be reported with an assertion in the non-product + version. + */ + bool lcl_getDlgEdForm( DlgEdObj* _pObject, DlgEdForm*& _out_pDlgEdForm ) + { + _out_pDlgEdForm = dynamic_cast< DlgEdForm* >( _pObject ); + if ( !_out_pDlgEdForm ) + _out_pDlgEdForm = _pObject->GetDlgEdForm(); + DBG_ASSERT( _out_pDlgEdForm, "lcl_getDlgEdForm: no form!" ); + return ( _out_pDlgEdForm != NULL ); + } +} + +//---------------------------------------------------------------------------- + +uno::Reference< awt::XControl > DlgEdObj::GetControl() const +{ + const DlgEdForm* pForm = GetDlgEdForm(); + const DlgEditor* pEditor = pForm ? pForm->GetDlgEditor() : NULL; + SdrView* pView = pEditor ? pEditor->GetView() : NULL; + Window* pWindow = pEditor ? pEditor->GetWindow() : NULL; + OSL_ENSURE( ( pView && pWindow ) || !pForm, "DlgEdObj::GetControl: no view or no window!" ); + + uno::Reference< awt::XControl > xControl; + if ( pView && pWindow ) + xControl = GetUnoControl( *pView, *pWindow ); + + return xControl; +} + +//---------------------------------------------------------------------------- + +bool DlgEdObj::TransformSdrToControlCoordinates( + sal_Int32 nXIn, sal_Int32 nYIn, sal_Int32 nWidthIn, sal_Int32 nHeightIn, + sal_Int32& nXOut, sal_Int32& nYOut, sal_Int32& nWidthOut, sal_Int32& nHeightOut ) +{ + // input position and size + Size aPos( nXIn, nYIn ); + Size aSize( nWidthIn, nHeightIn ); + + // form position + DlgEdForm* pForm = NULL; + if ( !lcl_getDlgEdForm( this, pForm ) ) + return false; + Rectangle aFormRect = pForm->GetSnapRect(); + Size aFormPos( aFormRect.Left(), aFormRect.Top() ); + + // convert 100th_mm to pixel + OutputDevice* pDevice = Application::GetDefaultDevice(); + DBG_ASSERT( pDevice, "DlgEdObj::TransformSdrToControlCoordinates: missing default device!" ); + if ( !pDevice ) + return false; + aPos = pDevice->LogicToPixel( aPos, MapMode( MAP_100TH_MM ) ); + aSize = pDevice->LogicToPixel( aSize, MapMode( MAP_100TH_MM ) ); + aFormPos = pDevice->LogicToPixel( aFormPos, MapMode( MAP_100TH_MM ) ); + + // subtract form position + aPos.Width() -= aFormPos.Width(); + aPos.Height() -= aFormPos.Height(); + + // take window borders into account + Reference< beans::XPropertySet > xPSetForm( pForm->GetUnoControlModel(), UNO_QUERY ); + DBG_ASSERT( xPSetForm.is(), "DlgEdObj::TransformFormToSdrCoordinates: no form property set!" ); + if ( !xPSetForm.is() ) + return false; + bool bDecoration = true; + xPSetForm->getPropertyValue( DLGED_PROP_DECORATION ) >>= bDecoration; + if( bDecoration ) + { + awt::DeviceInfo aDeviceInfo = pForm->getDeviceInfo(); + aPos.Width() -= aDeviceInfo.LeftInset; + aPos.Height() -= aDeviceInfo.TopInset; + } + + // convert pixel to logic units + aPos = pDevice->PixelToLogic( aPos, MAP_APPFONT ); + aSize = pDevice->PixelToLogic( aSize, MAP_APPFONT ); + + // set out parameters + nXOut = aPos.Width(); + nYOut = aPos.Height(); + nWidthOut = aSize.Width(); + nHeightOut = aSize.Height(); + + return true; +} + +//---------------------------------------------------------------------------- + +bool DlgEdObj::TransformSdrToFormCoordinates( + sal_Int32 nXIn, sal_Int32 nYIn, sal_Int32 nWidthIn, sal_Int32 nHeightIn, + sal_Int32& nXOut, sal_Int32& nYOut, sal_Int32& nWidthOut, sal_Int32& nHeightOut ) +{ + // input position and size + Size aPos( nXIn, nYIn ); + Size aSize( nWidthIn, nHeightIn ); + + // convert 100th_mm to pixel + OutputDevice* pDevice = Application::GetDefaultDevice(); + DBG_ASSERT( pDevice, "DlgEdObj::TransformSdrToFormCoordinates: missing default device!" ); + if ( !pDevice ) + return false; + aPos = pDevice->LogicToPixel( aPos, MapMode( MAP_100TH_MM ) ); + aSize = pDevice->LogicToPixel( aSize, MapMode( MAP_100TH_MM ) ); + + // take window borders into account + DlgEdForm* pForm = NULL; + if ( !lcl_getDlgEdForm( this, pForm ) ) + return false; + + // take window borders into account + Reference< beans::XPropertySet > xPSetForm( pForm->GetUnoControlModel(), UNO_QUERY ); + DBG_ASSERT( xPSetForm.is(), "DlgEdObj::TransformFormToSdrCoordinates: no form property set!" ); + if ( !xPSetForm.is() ) + return false; + bool bDecoration = true; + xPSetForm->getPropertyValue( DLGED_PROP_DECORATION ) >>= bDecoration; + if( bDecoration ) + { + awt::DeviceInfo aDeviceInfo = pForm->getDeviceInfo(); + aSize.Width() -= aDeviceInfo.LeftInset + aDeviceInfo.RightInset; + aSize.Height() -= aDeviceInfo.TopInset + aDeviceInfo.BottomInset; + } + // convert pixel to logic units + aPos = pDevice->PixelToLogic( aPos, MAP_APPFONT ); + aSize = pDevice->PixelToLogic( aSize, MAP_APPFONT ); + + // set out parameters + nXOut = aPos.Width(); + nYOut = aPos.Height(); + nWidthOut = aSize.Width(); + nHeightOut = aSize.Height(); + + return true; +} + +//---------------------------------------------------------------------------- + +bool DlgEdObj::TransformControlToSdrCoordinates( + sal_Int32 nXIn, sal_Int32 nYIn, sal_Int32 nWidthIn, sal_Int32 nHeightIn, + sal_Int32& nXOut, sal_Int32& nYOut, sal_Int32& nWidthOut, sal_Int32& nHeightOut ) +{ + // input position and size + Size aPos( nXIn, nYIn ); + Size aSize( nWidthIn, nHeightIn ); + + // form position + DlgEdForm* pForm = NULL; + if ( !lcl_getDlgEdForm( this, pForm ) ) + return false; + + Reference< beans::XPropertySet > xPSetForm( pForm->GetUnoControlModel(), UNO_QUERY ); + DBG_ASSERT( xPSetForm.is(), "DlgEdObj::TransformControlToSdrCoordinates: no form property set!" ); + if ( !xPSetForm.is() ) + return false; + sal_Int32 nFormX = 0, nFormY = 0, nFormWidth, nFormHeight; + xPSetForm->getPropertyValue( DLGED_PROP_POSITIONX ) >>= nFormX; + xPSetForm->getPropertyValue( DLGED_PROP_POSITIONY ) >>= nFormY; + xPSetForm->getPropertyValue( DLGED_PROP_WIDTH ) >>= nFormWidth; + xPSetForm->getPropertyValue( DLGED_PROP_HEIGHT ) >>= nFormHeight; + Size aFormPos( nFormX, nFormY ); + + // convert logic units to pixel + OutputDevice* pDevice = Application::GetDefaultDevice(); + DBG_ASSERT( pDevice, "DlgEdObj::TransformControlToSdrCoordinates: missing default device!" ); + if ( !pDevice ) + return false; + aPos = pDevice->LogicToPixel( aPos, MAP_APPFONT ); + aSize = pDevice->LogicToPixel( aSize, MAP_APPFONT ); + aFormPos = pDevice->LogicToPixel( aFormPos, MAP_APPFONT ); + + // add form position + aPos.Width() += aFormPos.Width(); + aPos.Height() += aFormPos.Height(); + + // take window borders into account + bool bDecoration = true; + xPSetForm->getPropertyValue( DLGED_PROP_DECORATION ) >>= bDecoration; + if( bDecoration ) + { + awt::DeviceInfo aDeviceInfo = pForm->getDeviceInfo(); + aPos.Width() += aDeviceInfo.LeftInset; + aPos.Height() += aDeviceInfo.TopInset; + } + + // convert pixel to 100th_mm + aPos = pDevice->PixelToLogic( aPos, MapMode( MAP_100TH_MM ) ); + aSize = pDevice->PixelToLogic( aSize, MapMode( MAP_100TH_MM ) ); + + // set out parameters + nXOut = aPos.Width(); + nYOut = aPos.Height(); + nWidthOut = aSize.Width(); + nHeightOut = aSize.Height(); + + return true; +} + +//---------------------------------------------------------------------------- + +bool DlgEdObj::TransformFormToSdrCoordinates( + sal_Int32 nXIn, sal_Int32 nYIn, sal_Int32 nWidthIn, sal_Int32 nHeightIn, + sal_Int32& nXOut, sal_Int32& nYOut, sal_Int32& nWidthOut, sal_Int32& nHeightOut ) +{ + // input position and size + Size aPos( nXIn, nYIn ); + Size aSize( nWidthIn, nHeightIn ); + + // convert logic units to pixel + OutputDevice* pDevice = Application::GetDefaultDevice(); + DBG_ASSERT( pDevice, "DlgEdObj::TransformFormToSdrCoordinates: missing default device!" ); + if ( !pDevice ) + return false; + + // take window borders into account + DlgEdForm* pForm = NULL; + if ( !lcl_getDlgEdForm( this, pForm ) ) + return false; + + aPos = pDevice->LogicToPixel( aPos, MAP_APPFONT ); + aSize = pDevice->LogicToPixel( aSize, MAP_APPFONT ); + + // take window borders into account + Reference< beans::XPropertySet > xPSetForm( pForm->GetUnoControlModel(), UNO_QUERY ); + DBG_ASSERT( xPSetForm.is(), "DlgEdObj::TransformFormToSdrCoordinates: no form property set!" ); + if ( !xPSetForm.is() ) + return false; + bool bDecoration = true; + xPSetForm->getPropertyValue( DLGED_PROP_DECORATION ) >>= bDecoration; + if( bDecoration ) + { + awt::DeviceInfo aDeviceInfo = pForm->getDeviceInfo(); + aSize.Width() += aDeviceInfo.LeftInset + aDeviceInfo.RightInset; + aSize.Height() += aDeviceInfo.TopInset + aDeviceInfo.BottomInset; + } + + // convert pixel to 100th_mm + aPos = pDevice->PixelToLogic( aPos, MapMode( MAP_100TH_MM ) ); + aSize = pDevice->PixelToLogic( aSize, MapMode( MAP_100TH_MM ) ); + + // set out parameters + nXOut = aPos.Width(); + nYOut = aPos.Height(); + nWidthOut = aSize.Width(); + nHeightOut = aSize.Height(); + + return true; +} + +//---------------------------------------------------------------------------- + +void DlgEdObj::SetRectFromProps() +{ + // get control position and size from properties + Reference< beans::XPropertySet > xPSet( GetUnoControlModel(), UNO_QUERY ); + if ( xPSet.is() ) + { + sal_Int32 nXIn = 0, nYIn = 0, nWidthIn = 0, nHeightIn = 0; + xPSet->getPropertyValue( DLGED_PROP_POSITIONX ) >>= nXIn; + xPSet->getPropertyValue( DLGED_PROP_POSITIONY ) >>= nYIn; + xPSet->getPropertyValue( DLGED_PROP_WIDTH ) >>= nWidthIn; + xPSet->getPropertyValue( DLGED_PROP_HEIGHT ) >>= nHeightIn; + + // transform coordinates + sal_Int32 nXOut, nYOut, nWidthOut, nHeightOut; + if ( TransformControlToSdrCoordinates( nXIn, nYIn, nWidthIn, nHeightIn, nXOut, nYOut, nWidthOut, nHeightOut ) ) + { + // set rectangle position and size + Point aPoint( nXOut, nYOut ); + Size aSize( nWidthOut, nHeightOut ); + SetSnapRect( Rectangle( aPoint, aSize ) ); + } + } +} + +//---------------------------------------------------------------------------- + +void DlgEdObj::SetPropsFromRect() +{ + // get control position and size from rectangle + Rectangle aRect_ = GetSnapRect(); + sal_Int32 nXIn = aRect_.Left(); + sal_Int32 nYIn = aRect_.Top(); + sal_Int32 nWidthIn = aRect_.GetWidth(); + sal_Int32 nHeightIn = aRect_.GetHeight(); + + // transform coordinates + sal_Int32 nXOut, nYOut, nWidthOut, nHeightOut; + if ( TransformSdrToControlCoordinates( nXIn, nYIn, nWidthIn, nHeightIn, nXOut, nYOut, nWidthOut, nHeightOut ) ) + { + // set properties + Reference< beans::XPropertySet > xPSet( GetUnoControlModel(), UNO_QUERY ); + if ( xPSet.is() ) + { + Any aValue; + aValue <<= nXOut; + xPSet->setPropertyValue( DLGED_PROP_POSITIONX, aValue ); + aValue <<= nYOut; + xPSet->setPropertyValue( DLGED_PROP_POSITIONY, aValue ); + aValue <<= nWidthOut; + xPSet->setPropertyValue( DLGED_PROP_WIDTH, aValue ); + aValue <<= nHeightOut; + xPSet->setPropertyValue( DLGED_PROP_HEIGHT, aValue ); + } + } +} + +//---------------------------------------------------------------------------- + +void DlgEdObj::PositionAndSizeChange( const beans::PropertyChangeEvent& evt ) +{ + DlgEdPage* pPage_ = 0; + if ( pDlgEdForm ) + { + DlgEditor* pEditor = pDlgEdForm->GetDlgEditor(); + if ( pEditor ) + pPage_ = pEditor->GetPage(); + } + DBG_ASSERT( pPage_, "DlgEdObj::PositionAndSizeChange: no page!" ); + if ( pPage_ ) + { + sal_Int32 nPageXIn = 0; + sal_Int32 nPageYIn = 0; + Size aPageSize = pPage_->GetSize(); + sal_Int32 nPageWidthIn = aPageSize.Width(); + sal_Int32 nPageHeightIn = aPageSize.Height(); + sal_Int32 nPageX, nPageY, nPageWidth, nPageHeight; + if ( TransformSdrToControlCoordinates( nPageXIn, nPageYIn, nPageWidthIn, nPageHeightIn, nPageX, nPageY, nPageWidth, nPageHeight ) ) + { + Reference< beans::XPropertySet > xPSet( GetUnoControlModel(), UNO_QUERY ); + if ( xPSet.is() ) + { + sal_Int32 nX = 0, nY = 0, nWidth = 0, nHeight = 0; + xPSet->getPropertyValue( DLGED_PROP_POSITIONX ) >>= nX; + xPSet->getPropertyValue( DLGED_PROP_POSITIONY ) >>= nY; + xPSet->getPropertyValue( DLGED_PROP_WIDTH ) >>= nWidth; + xPSet->getPropertyValue( DLGED_PROP_HEIGHT ) >>= nHeight; + + sal_Int32 nValue = 0; + evt.NewValue >>= nValue; + sal_Int32 nNewValue = nValue; + + if ( evt.PropertyName == DLGED_PROP_POSITIONX ) + { + if ( nNewValue + nWidth > nPageX + nPageWidth ) + nNewValue = nPageX + nPageWidth - nWidth; + if ( nNewValue < nPageX ) + nNewValue = nPageX; + } + else if ( evt.PropertyName == DLGED_PROP_POSITIONY ) + { + if ( nNewValue + nHeight > nPageY + nPageHeight ) + nNewValue = nPageY + nPageHeight - nHeight; + if ( nNewValue < nPageY ) + nNewValue = nPageY; + } + else if ( evt.PropertyName == DLGED_PROP_WIDTH ) + { + if ( nX + nNewValue > nPageX + nPageWidth ) + nNewValue = nPageX + nPageWidth - nX; + if ( nNewValue < 1 ) + nNewValue = 1; + } + else if ( evt.PropertyName == DLGED_PROP_HEIGHT ) + { + if ( nY + nNewValue > nPageY + nPageHeight ) + nNewValue = nPageY + nPageHeight - nY; + if ( nNewValue < 1 ) + nNewValue = 1; + } + + if ( nNewValue != nValue ) + { + Any aNewValue; + aNewValue <<= nNewValue; + EndListening( sal_False ); + xPSet->setPropertyValue( evt.PropertyName, aNewValue ); + StartListening(); + } + } + } + } + + SetRectFromProps(); +} + +//---------------------------------------------------------------------------- + +void SAL_CALL DlgEdObj::NameChange( const ::com::sun::star::beans::PropertyChangeEvent& evt ) throw( ::com::sun::star::uno::RuntimeException) +{ + // get old name + ::rtl::OUString aOldName; + evt.OldValue >>= aOldName; + + // get new name + ::rtl::OUString aNewName; + evt.NewValue >>= aNewName; + + if ( !aNewName.equals(aOldName) ) + { + Reference< container::XNameAccess > xNameAcc((GetDlgEdForm()->GetUnoControlModel()), UNO_QUERY); + if ( xNameAcc.is() && xNameAcc->hasByName(aOldName) ) + { + if ( !xNameAcc->hasByName(aNewName) && aNewName.getLength() != 0 ) + { + // remove the control by the old name and insert the control by the new name in the container + Reference< container::XNameContainer > xCont(xNameAcc, UNO_QUERY ); + if ( xCont.is() ) + { + Reference< awt::XControlModel > xCtrl(GetUnoControlModel(), UNO_QUERY); + Any aAny; + aAny <<= xCtrl; + xCont->removeByName( aOldName ); + xCont->insertByName( aNewName , aAny ); + + DlgEditor* pEditor; + if ( ISA(DlgEdForm) ) + pEditor = ((DlgEdForm*)this)->GetDlgEditor(); + else + pEditor = GetDlgEdForm()->GetDlgEditor(); + LocalizationMgr::renameControlResourceIDsForEditorObject( pEditor, aAny, aNewName ); + } + } + else + { + // set old name property + EndListening(sal_False); + Reference< beans::XPropertySet > xPSet(GetUnoControlModel(), UNO_QUERY); + Any aName; + aName <<= aOldName; + xPSet->setPropertyValue( DLGED_PROP_NAME, aName ); + StartListening(); + } + } + } +} + +//---------------------------------------------------------------------------- + +sal_Int32 DlgEdObj::GetStep() const +{ + // get step property + sal_Int32 nStep = 0; + uno::Reference< beans::XPropertySet > xPSet( GetUnoControlModel(), uno::UNO_QUERY ); + if (xPSet.is()) + { + xPSet->getPropertyValue( DLGED_PROP_STEP ) >>= nStep; + } + return nStep; +} + +//---------------------------------------------------------------------------- + +void DlgEdObj::UpdateStep() +{ + sal_Int32 nCurStep = GetDlgEdForm()->GetStep(); + sal_Int32 nStep = GetStep(); + + SdrLayerAdmin& rLayerAdmin = GetModel()->GetLayerAdmin(); + SdrLayerID nHiddenLayerId = rLayerAdmin.GetLayerID( String( RTL_CONSTASCII_USTRINGPARAM( "HiddenLayer" ) ), sal_False ); + SdrLayerID nControlLayerId = rLayerAdmin.GetLayerID( rLayerAdmin.GetControlLayerName(), sal_False ); + + if( nCurStep ) + { + if ( nStep && (nStep != nCurStep) ) + { + SetLayer( nHiddenLayerId ); + } + else + { + SetLayer( nControlLayerId ); + } + } + else + { + SetLayer( nControlLayerId ); + } +} + +//---------------------------------------------------------------------------- + +void DlgEdObj::TabIndexChange( const beans::PropertyChangeEvent& evt ) throw (RuntimeException) +{ + DlgEdForm* pForm = GetDlgEdForm(); + if ( pForm ) + { + // stop listening with all children + ::std::vector<DlgEdObj*> aChildList = pForm->GetChilds(); + ::std::vector<DlgEdObj*>::iterator aIter; + for ( aIter = aChildList.begin() ; aIter != aChildList.end() ; ++aIter ) + { + (*aIter)->EndListening( sal_False ); + } + + Reference< container::XNameAccess > xNameAcc( pForm->GetUnoControlModel() , UNO_QUERY ); + if ( xNameAcc.is() ) + { + // get sequence of control names + Sequence< ::rtl::OUString > aNames = xNameAcc->getElementNames(); + const ::rtl::OUString* pNames = aNames.getConstArray(); + sal_Int32 nCtrls = aNames.getLength(); + sal_Int16 i; + + // create a map of tab indices and control names, sorted by tab index + IndexToNameMap aIndexToNameMap; + for ( i = 0; i < nCtrls; ++i ) + { + // get control name + ::rtl::OUString aName( pNames[i] ); + + // get tab index + sal_Int16 nTabIndex = -1; + Any aCtrl = xNameAcc->getByName( aName ); + Reference< beans::XPropertySet > xPSet; + aCtrl >>= xPSet; + if ( xPSet.is() && xPSet == Reference< beans::XPropertySet >( evt.Source, UNO_QUERY ) ) + evt.OldValue >>= nTabIndex; + else if ( xPSet.is() ) + xPSet->getPropertyValue( DLGED_PROP_TABINDEX ) >>= nTabIndex; + + // insert into map + aIndexToNameMap.insert( IndexToNameMap::value_type( nTabIndex, aName ) ); + } + + // create a helper list of control names, sorted by tab index + ::std::vector< ::rtl::OUString > aNameList( aIndexToNameMap.size() ); + ::std::transform( + aIndexToNameMap.begin(), aIndexToNameMap.end(), + aNameList.begin(), + ::o3tl::select2nd< IndexToNameMap::value_type >( ) + ); + + // check tab index + sal_Int16 nOldTabIndex = 0; + evt.OldValue >>= nOldTabIndex; + sal_Int16 nNewTabIndex = 0; + evt.NewValue >>= nNewTabIndex; + if ( nNewTabIndex < 0 ) + nNewTabIndex = 0; + else if ( nNewTabIndex > nCtrls - 1 ) + nNewTabIndex = sal::static_int_cast<sal_Int16>( nCtrls - 1 ); + + // reorder helper list + ::rtl::OUString aCtrlName = aNameList[nOldTabIndex]; + aNameList.erase( aNameList.begin() + nOldTabIndex ); + aNameList.insert( aNameList.begin() + nNewTabIndex , aCtrlName ); + + // set new tab indices + for ( i = 0; i < nCtrls; ++i ) + { + Any aCtrl = xNameAcc->getByName( aNameList[i] ); + Reference< beans::XPropertySet > xPSet; + aCtrl >>= xPSet; + if ( xPSet.is() ) + { + Any aTabIndex; + aTabIndex <<= (sal_Int16) i; + xPSet->setPropertyValue( DLGED_PROP_TABINDEX, aTabIndex ); + } + } + + // reorder objects in drawing page + GetModel()->GetPage(0)->SetObjectOrdNum( nOldTabIndex + 1, nNewTabIndex + 1 ); + + // #110559# + pForm->UpdateTabOrderAndGroups(); + } + + // start listening with all children + for ( aIter = aChildList.begin() ; aIter != aChildList.end() ; ++aIter ) + { + (*aIter)->StartListening(); + } + } +} + +//---------------------------------------------------------------------------- + +sal_Bool DlgEdObj::supportsService( const sal_Char* _pServiceName ) const +{ + sal_Bool bSupports = sal_False; + + Reference< lang::XServiceInfo > xServiceInfo( GetUnoControlModel() , UNO_QUERY ); + // TODO: cache xServiceInfo as member? + if ( xServiceInfo.is() ) + bSupports = xServiceInfo->supportsService( ::rtl::OUString::createFromAscii( _pServiceName ) ); + + return bSupports; +} + +//---------------------------------------------------------------------------- + +::rtl::OUString DlgEdObj::GetDefaultName() const +{ + sal_uInt16 nResId = 0; + ::rtl::OUString aDefaultName; + if ( supportsService( "com.sun.star.awt.UnoControlDialogModel" ) ) + { + nResId = RID_STR_CLASS_DIALOG; + } + else if ( supportsService( "com.sun.star.awt.UnoControlButtonModel" ) ) + { + nResId = RID_STR_CLASS_BUTTON; + } + else if ( supportsService( "com.sun.star.awt.UnoControlRadioButtonModel" ) ) + { + nResId = RID_STR_CLASS_RADIOBUTTON; + } + else if ( supportsService( "com.sun.star.awt.UnoControlCheckBoxModel" ) ) + { + nResId = RID_STR_CLASS_CHECKBOX; + } + else if ( supportsService( "com.sun.star.awt.UnoControlListBoxModel" ) ) + { + nResId = RID_STR_CLASS_LISTBOX; + } + else if ( supportsService( "com.sun.star.awt.UnoControlComboBoxModel" ) ) + { + nResId = RID_STR_CLASS_COMBOBOX; + } + else if ( supportsService( "com.sun.star.awt.UnoControlGroupBoxModel" ) ) + { + nResId = RID_STR_CLASS_GROUPBOX; + } + else if ( supportsService( "com.sun.star.awt.UnoControlEditModel" ) ) + { + nResId = RID_STR_CLASS_EDIT; + } + else if ( supportsService( "com.sun.star.awt.UnoControlFixedTextModel" ) ) + { + nResId = RID_STR_CLASS_FIXEDTEXT; + } + else if ( supportsService( "com.sun.star.awt.UnoControlImageControlModel" ) ) + { + nResId = RID_STR_CLASS_IMAGECONTROL; + } + else if ( supportsService( "com.sun.star.awt.UnoControlProgressBarModel" ) ) + { + nResId = RID_STR_CLASS_PROGRESSBAR; + } + else if ( supportsService( "com.sun.star.awt.UnoControlScrollBarModel" ) ) + { + nResId = RID_STR_CLASS_SCROLLBAR; + } + else if ( supportsService( "com.sun.star.awt.UnoControlFixedLineModel" ) ) + { + nResId = RID_STR_CLASS_FIXEDLINE; + } + else if ( supportsService( "com.sun.star.awt.UnoControlDateFieldModel" ) ) + { + nResId = RID_STR_CLASS_DATEFIELD; + } + else if ( supportsService( "com.sun.star.awt.UnoControlTimeFieldModel" ) ) + { + nResId = RID_STR_CLASS_TIMEFIELD; + } + else if ( supportsService( "com.sun.star.awt.UnoControlNumericFieldModel" ) ) + { + nResId = RID_STR_CLASS_NUMERICFIELD; + } + else if ( supportsService( "com.sun.star.awt.UnoControlCurrencyFieldModel" ) ) + { + nResId = RID_STR_CLASS_CURRENCYFIELD; + } + else if ( supportsService( "com.sun.star.awt.UnoControlFormattedFieldModel" ) ) + { + nResId = RID_STR_CLASS_FORMATTEDFIELD; + } + else if ( supportsService( "com.sun.star.awt.UnoControlPatternFieldModel" ) ) + { + nResId = RID_STR_CLASS_PATTERNFIELD; + } + else if ( supportsService( "com.sun.star.awt.UnoControlFileControlModel" ) ) + { + nResId = RID_STR_CLASS_FILECONTROL; + } + else if ( supportsService( "com.sun.star.awt.tree.TreeControlModel" ) ) + { + nResId = RID_STR_CLASS_TREECONTROL; + } + + else + { + nResId = RID_STR_CLASS_CONTROL; + } + + if (nResId) + { + aDefaultName = ::rtl::OUString( String(IDEResId(nResId)) ); + } + + return aDefaultName; +} + +//---------------------------------------------------------------------------- + +::rtl::OUString DlgEdObj::GetUniqueName() const +{ + ::rtl::OUString aUniqueName; + uno::Reference< container::XNameAccess > xNameAcc((GetDlgEdForm()->GetUnoControlModel()), uno::UNO_QUERY); + + if ( xNameAcc.is() ) + { + sal_Int32 n = 0; + ::rtl::OUString aDefaultName = GetDefaultName(); + + do + { + aUniqueName = aDefaultName + ::rtl::OUString::valueOf(++n); + } while (xNameAcc->hasByName(aUniqueName)); + } + + return aUniqueName; +} + +//---------------------------------------------------------------------------- + +sal_uInt32 DlgEdObj::GetObjInventor() const +{ + return DlgInventor; +} + +//---------------------------------------------------------------------------- + +sal_uInt16 DlgEdObj::GetObjIdentifier() const +{ + if ( supportsService( "com.sun.star.awt.UnoControlDialogModel" )) + { + return OBJ_DLG_DIALOG; + } + else if ( supportsService( "com.sun.star.awt.UnoControlButtonModel" )) + { + return OBJ_DLG_PUSHBUTTON; + } + else if ( supportsService( "com.sun.star.awt.UnoControlRadioButtonModel" )) + { + return OBJ_DLG_RADIOBUTTON; + } + else if ( supportsService( "com.sun.star.awt.UnoControlCheckBoxModel" )) + { + return OBJ_DLG_CHECKBOX; + } + else if ( supportsService( "com.sun.star.awt.UnoControlListBoxModel" )) + { + return OBJ_DLG_LISTBOX; + } + else if ( supportsService( "com.sun.star.awt.UnoControlComboBoxModel" )) + { + return OBJ_DLG_COMBOBOX; + } + else if ( supportsService( "com.sun.star.awt.UnoControlGroupBoxModel" )) + { + return OBJ_DLG_GROUPBOX; + } + else if ( supportsService( "com.sun.star.awt.UnoControlEditModel" )) + { + return OBJ_DLG_EDIT; + } + else if ( supportsService( "com.sun.star.awt.UnoControlFixedTextModel" )) + { + return OBJ_DLG_FIXEDTEXT; + } + else if ( supportsService( "com.sun.star.awt.UnoControlImageControlModel" )) + { + return OBJ_DLG_IMAGECONTROL; + } + else if ( supportsService( "com.sun.star.awt.UnoControlProgressBarModel" )) + { + return OBJ_DLG_PROGRESSBAR; + } + else if ( supportsService( "com.sun.star.awt.UnoControlScrollBarModel" )) + { + return OBJ_DLG_HSCROLLBAR; + } + else if ( supportsService( "com.sun.star.awt.UnoControlFixedLineModel" )) + { + return OBJ_DLG_HFIXEDLINE; + } + else if ( supportsService( "com.sun.star.awt.UnoControlDateFieldModel" )) + { + return OBJ_DLG_DATEFIELD; + } + else if ( supportsService( "com.sun.star.awt.UnoControlTimeFieldModel" )) + { + return OBJ_DLG_TIMEFIELD; + } + else if ( supportsService( "com.sun.star.awt.UnoControlNumericFieldModel" )) + { + return OBJ_DLG_NUMERICFIELD; + } + else if ( supportsService( "com.sun.star.awt.UnoControlCurrencyFieldModel" )) + { + return OBJ_DLG_CURRENCYFIELD; + } + else if ( supportsService( "com.sun.star.awt.UnoControlFormattedFieldModel" )) + { + return OBJ_DLG_FORMATTEDFIELD; + } + else if ( supportsService( "com.sun.star.awt.UnoControlPatternFieldModel" )) + { + return OBJ_DLG_PATTERNFIELD; + } + else if ( supportsService( "com.sun.star.awt.UnoControlFileControlModel" )) + { + return OBJ_DLG_FILECONTROL; + } + else if ( supportsService( "com.sun.star.awt.tree.TreeControlModel" )) + { + return OBJ_DLG_TREECONTROL; + } + else + { + return OBJ_DLG_CONTROL; + } +} + +//---------------------------------------------------------------------------- + +void DlgEdObj::clonedFrom(const DlgEdObj* _pSource) +{ + // set parent form + pDlgEdForm = _pSource->pDlgEdForm; + + // add child to parent form + pDlgEdForm->AddChild( this ); + + Reference< beans::XPropertySet > xPSet( GetUnoControlModel(), UNO_QUERY ); + if ( xPSet.is() ) + { + // set new name + ::rtl::OUString aOUniqueName( GetUniqueName() ); + Any aUniqueName; + aUniqueName <<= aOUniqueName; + xPSet->setPropertyValue( DLGED_PROP_NAME, aUniqueName ); + + Reference< container::XNameContainer > xCont( GetDlgEdForm()->GetUnoControlModel() , UNO_QUERY ); + if ( xCont.is() ) + { + // set tabindex + Sequence< OUString > aNames = xCont->getElementNames(); + Any aTabIndex; + aTabIndex <<= (sal_Int16) aNames.getLength(); + xPSet->setPropertyValue( DLGED_PROP_TABINDEX, aTabIndex ); + + // insert control model in dialog model + Reference< awt::XControlModel > xCtrl( xPSet , UNO_QUERY ); + Any aCtrl; + aCtrl <<= xCtrl; + xCont->insertByName( aOUniqueName , aCtrl ); + + // #110559# + pDlgEdForm->UpdateTabOrderAndGroups(); + } + } + + // start listening + StartListening(); +} + +//---------------------------------------------------------------------------- + +DlgEdObj* DlgEdObj::Clone() const +{ + DlgEdObj* pDlgEdObj = CloneHelper< DlgEdObj >(); + DBG_ASSERT( pDlgEdObj != NULL, "DlgEdObj::Clone: invalid clone!" ); + if ( pDlgEdObj ) + pDlgEdObj->clonedFrom( this ); + + return pDlgEdObj; +} + +//---------------------------------------------------------------------------- + +SdrObject* DlgEdObj::getFullDragClone() const +{ + // no need to really add the clone for dragging, it's a temporary + // object + SdrObject* pObj = new SdrUnoObj(String()); + *pObj = *((const SdrUnoObj*)this); + + return pObj; +} + +//---------------------------------------------------------------------------- + +void DlgEdObj::NbcMove( const Size& rSize ) +{ + SdrUnoObj::NbcMove( rSize ); + + // stop listening + EndListening(sal_False); + + // set geometry properties + SetPropsFromRect(); + + // start listening + StartListening(); + + // dialog model changed + GetDlgEdForm()->GetDlgEditor()->SetDialogModelChanged(sal_True); +} + +//---------------------------------------------------------------------------- + +void DlgEdObj::NbcResize(const Point& rRef, const Fraction& xFract, const Fraction& yFract) +{ + SdrUnoObj::NbcResize( rRef, xFract, yFract ); + + // stop listening + EndListening(sal_False); + + // set geometry properties + SetPropsFromRect(); + + // start listening + StartListening(); + + // dialog model changed + GetDlgEdForm()->GetDlgEditor()->SetDialogModelChanged(sal_True); +} + +//---------------------------------------------------------------------------- + +bool DlgEdObj::EndCreate(SdrDragStat& rStat, SdrCreateCmd eCmd) +{ + bool bResult = SdrUnoObj::EndCreate(rStat, eCmd); + + SetDefaults(); + StartListening(); + + return bResult; +} + +//---------------------------------------------------------------------------- + +void DlgEdObj::SetDefaults() +{ + // set parent form + pDlgEdForm = ((DlgEdPage*)GetPage())->GetDlgEdForm(); + + if ( pDlgEdForm ) + { + // add child to parent form + pDlgEdForm->AddChild( this ); + + Reference< beans::XPropertySet > xPSet( GetUnoControlModel(), UNO_QUERY ); + if ( xPSet.is() ) + { + // get unique name + ::rtl::OUString aOUniqueName( GetUniqueName() ); + + // set name property + Any aUniqueName; + aUniqueName <<= aOUniqueName; + xPSet->setPropertyValue( DLGED_PROP_NAME, aUniqueName ); + + // set labels + if ( supportsService( "com.sun.star.awt.UnoControlButtonModel" ) || + supportsService( "com.sun.star.awt.UnoControlRadioButtonModel" ) || + supportsService( "com.sun.star.awt.UnoControlCheckBoxModel" ) || + supportsService( "com.sun.star.awt.UnoControlGroupBoxModel" ) || + supportsService( "com.sun.star.awt.UnoControlFixedTextModel" ) ) + { + xPSet->setPropertyValue( DLGED_PROP_LABEL, aUniqueName ); + } + + // set number formats supplier for formatted field + if ( supportsService( "com.sun.star.awt.UnoControlFormattedFieldModel" ) ) + { + Reference< util::XNumberFormatsSupplier > xSupplier = GetDlgEdForm()->GetDlgEditor()->GetNumberFormatsSupplier(); + if ( xSupplier.is() ) + { + Any aSupplier; + aSupplier <<= xSupplier; + xPSet->setPropertyValue( DLGED_PROP_FORMATSSUPPLIER, aSupplier ); + } + } + + // set geometry properties + SetPropsFromRect(); + + Reference< container::XNameContainer > xCont( GetDlgEdForm()->GetUnoControlModel() , UNO_QUERY ); + if ( xCont.is() ) + { + // set tabindex + Sequence< OUString > aNames = xCont->getElementNames(); + uno::Any aTabIndex; + aTabIndex <<= (sal_Int16) aNames.getLength(); + xPSet->setPropertyValue( DLGED_PROP_TABINDEX, aTabIndex ); + + // set step + Reference< beans::XPropertySet > xPSetForm( xCont, UNO_QUERY ); + if ( xPSetForm.is() ) + { + Any aStep = xPSetForm->getPropertyValue( DLGED_PROP_STEP ); + xPSet->setPropertyValue( DLGED_PROP_STEP, aStep ); + } + + // insert control model in dialog model + Reference< awt::XControlModel > xCtrl( xPSet , UNO_QUERY ); + Any aAny; + aAny <<= xCtrl; + xCont->insertByName( aOUniqueName , aAny ); + + DlgEditor* pEditor; + if ( ISA(DlgEdForm) ) + pEditor = ((DlgEdForm*)this)->GetDlgEditor(); + else + pEditor = GetDlgEdForm()->GetDlgEditor(); + LocalizationMgr::setControlResourceIDsForNewEditorObject( pEditor, aAny, aOUniqueName ); + + // #110559# + pDlgEdForm->UpdateTabOrderAndGroups(); + } + } + + // dialog model changed + pDlgEdForm->GetDlgEditor()->SetDialogModelChanged( sal_True ); + } +} + +//---------------------------------------------------------------------------- + +IMPL_LINK(DlgEdObj, OnCreate, void*, EMPTYTAG) +{ + (void)EMPTYTAG; + /* + if (pTempView) + pTempView->ObjectCreated(this); + */ + return 0; +} + +//---------------------------------------------------------------------------- + +void DlgEdObj::StartListening() +{ + DBG_ASSERT(!isListening(), "DlgEdObj::StartListening: already listening!"); + + if (!isListening()) + { + bIsListening = sal_True; + + // XPropertyChangeListener + Reference< XPropertySet > xControlModel( GetUnoControlModel() , UNO_QUERY ); + if (!m_xPropertyChangeListener.is() && xControlModel.is()) + { + // create listener + m_xPropertyChangeListener = static_cast< ::com::sun::star::beans::XPropertyChangeListener*>( new DlgEdPropListenerImpl( (DlgEdObj*)this ) ); + + // register listener to properties + xControlModel->addPropertyChangeListener( ::rtl::OUString() , m_xPropertyChangeListener ); + } + + // XContainerListener + Reference< XScriptEventsSupplier > xEventsSupplier( GetUnoControlModel() , UNO_QUERY ); + if( !m_xContainerListener.is() && xEventsSupplier.is() ) + { + // create listener + m_xContainerListener = static_cast< ::com::sun::star::container::XContainerListener*>( new DlgEdEvtContListenerImpl( (DlgEdObj*)this ) ); + + // register listener to script event container + Reference< XNameContainer > xEventCont = xEventsSupplier->getEvents(); + DBG_ASSERT(xEventCont.is(), "DlgEdObj::StartListening: control model has no script event container!"); + Reference< XContainer > xCont( xEventCont , UNO_QUERY ); + if (xCont.is()) + xCont->addContainerListener( m_xContainerListener ); + } + } +} + +//---------------------------------------------------------------------------- + +void DlgEdObj::EndListening(sal_Bool bRemoveListener) +{ + DBG_ASSERT(isListening(), "DlgEdObj::EndListening: not listening currently!"); + + if (isListening()) + { + bIsListening = sal_False; + + if (bRemoveListener) + { + // XPropertyChangeListener + Reference< XPropertySet > xControlModel(GetUnoControlModel(), UNO_QUERY); + if ( m_xPropertyChangeListener.is() && xControlModel.is() ) + { + // remove listener + xControlModel->removePropertyChangeListener( ::rtl::OUString() , m_xPropertyChangeListener ); + } + m_xPropertyChangeListener.clear(); + + // XContainerListener + Reference< XScriptEventsSupplier > xEventsSupplier( GetUnoControlModel() , UNO_QUERY ); + if( m_xContainerListener.is() && xEventsSupplier.is() ) + { + // remove listener + Reference< XNameContainer > xEventCont = xEventsSupplier->getEvents(); + DBG_ASSERT(xEventCont.is(), "DlgEdObj::EndListening: control model has no script event container!"); + Reference< XContainer > xCont( xEventCont , UNO_QUERY ); + if (xCont.is()) + xCont->removeContainerListener( m_xContainerListener ); + } + m_xContainerListener.clear(); + } + } +} + +//---------------------------------------------------------------------------- + +void SAL_CALL DlgEdObj::_propertyChange( const ::com::sun::star::beans::PropertyChangeEvent& evt ) throw( ::com::sun::star::uno::RuntimeException) +{ + if (isListening()) + { + DlgEdForm* pRealDlgEdForm = dynamic_cast< DlgEdForm* >(this); + if( pRealDlgEdForm == 0 ) + pRealDlgEdForm = GetDlgEdForm(); + + DlgEditor* pDlgEditor = pRealDlgEdForm ? pRealDlgEdForm->GetDlgEditor() : 0; + + if( !pDlgEditor || pDlgEditor->isInPaint() ) + return; + + // dialog model changed + pDlgEditor->SetDialogModelChanged(sal_True); + + // update position and size + if ( evt.PropertyName == DLGED_PROP_POSITIONX || evt.PropertyName == DLGED_PROP_POSITIONY || + evt.PropertyName == DLGED_PROP_WIDTH || evt.PropertyName == DLGED_PROP_HEIGHT || + evt.PropertyName == DLGED_PROP_DECORATION ) + { + PositionAndSizeChange( evt ); + + if ( evt.PropertyName == DLGED_PROP_DECORATION ) + { + if ( ISA(DlgEdForm) ) + ((DlgEdForm*)this)->GetDlgEditor()->ResetDialog(); + else + GetDlgEdForm()->GetDlgEditor()->ResetDialog(); + } + } + // change name of control in dialog model + else if ( evt.PropertyName == DLGED_PROP_NAME ) + { + if ( !ISA(DlgEdForm) ) + { + NameChange(evt); + } + } + // update step + else if ( evt.PropertyName == DLGED_PROP_STEP ) + { + UpdateStep(); + } + // change tabindex + else if ( evt.PropertyName == DLGED_PROP_TABINDEX ) + { + if ( !ISA(DlgEdForm) ) + { + TabIndexChange(evt); + } + } + } +} + +//---------------------------------------------------------------------------- + +void SAL_CALL DlgEdObj::_elementInserted(const ::com::sun::star::container::ContainerEvent& ) throw(::com::sun::star::uno::RuntimeException) +{ + if (isListening()) + { + // dialog model changed + if ( ISA(DlgEdForm) ) + { + ((DlgEdForm*)this)->GetDlgEditor()->SetDialogModelChanged(sal_True); + } + else + { + GetDlgEdForm()->GetDlgEditor()->SetDialogModelChanged(sal_True); + } + } +} + +//---------------------------------------------------------------------------- + +void SAL_CALL DlgEdObj::_elementReplaced(const ::com::sun::star::container::ContainerEvent& ) throw(::com::sun::star::uno::RuntimeException) +{ + if (isListening()) + { + // dialog model changed + if ( ISA(DlgEdForm) ) + { + ((DlgEdForm*)this)->GetDlgEditor()->SetDialogModelChanged(sal_True); + } + else + { + GetDlgEdForm()->GetDlgEditor()->SetDialogModelChanged(sal_True); + } + } +} + +//---------------------------------------------------------------------------- + +void SAL_CALL DlgEdObj::_elementRemoved(const ::com::sun::star::container::ContainerEvent& ) throw(::com::sun::star::uno::RuntimeException) +{ + if (isListening()) + { + // dialog model changed + if ( ISA(DlgEdForm) ) + { + ((DlgEdForm*)this)->GetDlgEditor()->SetDialogModelChanged(sal_True); + } + else + { + GetDlgEdForm()->GetDlgEditor()->SetDialogModelChanged(sal_True); + } + } +} + +//---------------------------------------------------------------------------- + +void DlgEdObj::SetLayer(SdrLayerID nLayer) +{ + SdrLayerID nOldLayer = GetLayer(); + + if ( nLayer != nOldLayer ) + { + SdrUnoObj::SetLayer( nLayer ); + + DlgEdHint aHint( DLGED_HINT_LAYERCHANGED, this ); + GetDlgEdForm()->GetDlgEditor()->Broadcast( aHint ); + } +} + +//---------------------------------------------------------------------------- + +TYPEINIT1(DlgEdForm, DlgEdObj); +DBG_NAME(DlgEdForm); + +//---------------------------------------------------------------------------- + +DlgEdForm::DlgEdForm() + :DlgEdObj() +{ + DBG_CTOR(DlgEdForm, NULL); +} + +//---------------------------------------------------------------------------- + +DlgEdForm::~DlgEdForm() +{ + DBG_DTOR(DlgEdForm, NULL); +} + +//---------------------------------------------------------------------------- + +void DlgEdForm::SetDlgEditor( DlgEditor* pEditor ) +{ + pDlgEditor = pEditor; + ImplInvalidateDeviceInfo(); +} + +//---------------------------------------------------------------------------- + +void DlgEdForm::ImplInvalidateDeviceInfo() +{ + mpDeviceInfo.reset(); +} + +//---------------------------------------------------------------------------- + +void DlgEdForm::SetRectFromProps() +{ + // get form position and size from properties + Reference< beans::XPropertySet > xPSet( GetUnoControlModel(), UNO_QUERY ); + if ( xPSet.is() ) + { + sal_Int32 nXIn = 0, nYIn = 0, nWidthIn = 0, nHeightIn = 0; + xPSet->getPropertyValue( DLGED_PROP_POSITIONX ) >>= nXIn; + xPSet->getPropertyValue( DLGED_PROP_POSITIONY ) >>= nYIn; + xPSet->getPropertyValue( DLGED_PROP_WIDTH ) >>= nWidthIn; + xPSet->getPropertyValue( DLGED_PROP_HEIGHT ) >>= nHeightIn; + + // transform coordinates + sal_Int32 nXOut, nYOut, nWidthOut, nHeightOut; + if ( TransformFormToSdrCoordinates( nXIn, nYIn, nWidthIn, nHeightIn, nXOut, nYOut, nWidthOut, nHeightOut ) ) + { + // set rectangle position and size + Point aPoint( nXOut, nYOut ); + Size aSize( nWidthOut, nHeightOut ); + SetSnapRect( Rectangle( aPoint, aSize ) ); + } + } +} + +//---------------------------------------------------------------------------- + +void DlgEdForm::SetPropsFromRect() +{ + // get form position and size from rectangle + Rectangle aRect_ = GetSnapRect(); + sal_Int32 nXIn = aRect_.Left(); + sal_Int32 nYIn = aRect_.Top(); + sal_Int32 nWidthIn = aRect_.GetWidth(); + sal_Int32 nHeightIn = aRect_.GetHeight(); + + // transform coordinates + sal_Int32 nXOut, nYOut, nWidthOut, nHeightOut; + if ( TransformSdrToFormCoordinates( nXIn, nYIn, nWidthIn, nHeightIn, nXOut, nYOut, nWidthOut, nHeightOut ) ) + { + // set properties + Reference< beans::XPropertySet > xPSet( GetUnoControlModel(), UNO_QUERY ); + if ( xPSet.is() ) + { + Any aValue; + aValue <<= nXOut; + xPSet->setPropertyValue( DLGED_PROP_POSITIONX, aValue ); + aValue <<= nYOut; + xPSet->setPropertyValue( DLGED_PROP_POSITIONY, aValue ); + aValue <<= nWidthOut; + xPSet->setPropertyValue( DLGED_PROP_WIDTH, aValue ); + aValue <<= nHeightOut; + xPSet->setPropertyValue( DLGED_PROP_HEIGHT, aValue ); + } + } +} + +//---------------------------------------------------------------------------- + +void DlgEdForm::AddChild( DlgEdObj* pDlgEdObj ) +{ + pChilds.push_back( pDlgEdObj ); +} + +//---------------------------------------------------------------------------- + +void DlgEdForm::RemoveChild( DlgEdObj* pDlgEdObj ) +{ + pChilds.erase( ::std::find( pChilds.begin() , pChilds.end() , pDlgEdObj ) ); +} + +//---------------------------------------------------------------------------- + +void DlgEdForm::PositionAndSizeChange( const beans::PropertyChangeEvent& evt ) +{ + DlgEditor* pEditor = GetDlgEditor(); + DBG_ASSERT( pEditor, "DlgEdForm::PositionAndSizeChange: no dialog editor!" ); + if ( pEditor ) + { + DlgEdPage* pPage_ = pEditor->GetPage(); + DBG_ASSERT( pPage_, "DlgEdForm::PositionAndSizeChange: no page!" ); + if ( pPage_ ) + { + sal_Int32 nPageXIn = 0; + sal_Int32 nPageYIn = 0; + Size aPageSize = pPage_->GetSize(); + sal_Int32 nPageWidthIn = aPageSize.Width(); + sal_Int32 nPageHeightIn = aPageSize.Height(); + sal_Int32 nPageX, nPageY, nPageWidth, nPageHeight; + if ( TransformSdrToFormCoordinates( nPageXIn, nPageYIn, nPageWidthIn, nPageHeightIn, nPageX, nPageY, nPageWidth, nPageHeight ) ) + { + Reference< beans::XPropertySet > xPSetForm( GetUnoControlModel(), UNO_QUERY ); + if ( xPSetForm.is() ) + { + sal_Int32 nValue = 0; + evt.NewValue >>= nValue; + sal_Int32 nNewValue = nValue; + + if ( evt.PropertyName == DLGED_PROP_POSITIONX ) + { + if ( nNewValue < nPageX ) + nNewValue = nPageX; + } + else if ( evt.PropertyName == DLGED_PROP_POSITIONY ) + { + if ( nNewValue < nPageY ) + nNewValue = nPageY; + } + else if ( evt.PropertyName == DLGED_PROP_WIDTH ) + { + if ( nNewValue < 1 ) + nNewValue = 1; + } + else if ( evt.PropertyName == DLGED_PROP_HEIGHT ) + { + if ( nNewValue < 1 ) + nNewValue = 1; + } + + if ( nNewValue != nValue ) + { + Any aNewValue; + aNewValue <<= nNewValue; + EndListening( sal_False ); + xPSetForm->setPropertyValue( evt.PropertyName, aNewValue ); + StartListening(); + } + } + } + + bool bAdjustedPageSize = pEditor->AdjustPageSize(); + SetRectFromProps(); + ::std::vector< DlgEdObj* >::iterator aIter; + ::std::vector< DlgEdObj* > aChildList = ((DlgEdForm*)this)->GetChilds(); + + if ( bAdjustedPageSize ) + { + pEditor->InitScrollBars(); + aPageSize = pPage_->GetSize(); + nPageWidthIn = aPageSize.Width(); + nPageHeightIn = aPageSize.Height(); + if ( TransformSdrToControlCoordinates( nPageXIn, nPageYIn, nPageWidthIn, nPageHeightIn, nPageX, nPageY, nPageWidth, nPageHeight ) ) + { + for ( aIter = aChildList.begin(); aIter != aChildList.end(); aIter++ ) + { + Reference< beans::XPropertySet > xPSet( (*aIter)->GetUnoControlModel(), UNO_QUERY ); + if ( xPSet.is() ) + { + sal_Int32 nX = 0, nY = 0, nWidth = 0, nHeight = 0; + xPSet->getPropertyValue( DLGED_PROP_POSITIONX ) >>= nX; + xPSet->getPropertyValue( DLGED_PROP_POSITIONY ) >>= nY; + xPSet->getPropertyValue( DLGED_PROP_WIDTH ) >>= nWidth; + xPSet->getPropertyValue( DLGED_PROP_HEIGHT ) >>= nHeight; + + sal_Int32 nNewX = nX; + if ( nX + nWidth > nPageX + nPageWidth ) + { + nNewX = nPageX + nPageWidth - nWidth; + if ( nNewX < nPageX ) + nNewX = nPageX; + } + if ( nNewX != nX ) + { + Any aValue; + aValue <<= nNewX; + EndListening( sal_False ); + xPSet->setPropertyValue( DLGED_PROP_POSITIONX, aValue ); + StartListening(); + } + + sal_Int32 nNewY = nY; + if ( nY + nHeight > nPageY + nPageHeight ) + { + nNewY = nPageY + nPageHeight - nHeight; + if ( nNewY < nPageY ) + nNewY = nPageY; + } + if ( nNewY != nY ) + { + Any aValue; + aValue <<= nNewY; + EndListening( sal_False ); + xPSet->setPropertyValue( DLGED_PROP_POSITIONY, aValue ); + StartListening(); + } + } + } + } + } + + for ( aIter = aChildList.begin(); aIter != aChildList.end(); aIter++ ) + { + (*aIter)->SetRectFromProps(); + } + } + } +} + +//---------------------------------------------------------------------------- + +void DlgEdForm::UpdateStep() +{ + sal_uLong nObjCount; + SdrPage* pSdrPage = GetPage(); + + if ( pSdrPage && ( ( nObjCount = pSdrPage->GetObjCount() ) > 0 ) ) + { + for ( sal_uLong i = 0 ; i < nObjCount ; i++ ) + { + SdrObject* pObj = pSdrPage->GetObj(i); + DlgEdObj* pDlgEdObj = PTR_CAST(DlgEdObj, pObj); + if ( pDlgEdObj && !pDlgEdObj->ISA(DlgEdForm) ) + pDlgEdObj->UpdateStep(); + } + } +} + +//---------------------------------------------------------------------------- + +void DlgEdForm::UpdateTabIndices() +{ + // stop listening with all children + ::std::vector<DlgEdObj*>::iterator aIter; + for ( aIter = pChilds.begin() ; aIter != pChilds.end() ; ++aIter ) + { + (*aIter)->EndListening( sal_False ); + } + + Reference< ::com::sun::star::container::XNameAccess > xNameAcc( GetUnoControlModel() , UNO_QUERY ); + if ( xNameAcc.is() ) + { + // get sequence of control names + Sequence< ::rtl::OUString > aNames = xNameAcc->getElementNames(); + const ::rtl::OUString* pNames = aNames.getConstArray(); + sal_Int32 nCtrls = aNames.getLength(); + + // create a map of tab indices and control names, sorted by tab index + IndexToNameMap aIndexToNameMap; + for ( sal_Int16 i = 0; i < nCtrls; ++i ) + { + // get name + ::rtl::OUString aName( pNames[i] ); + + // get tab index + sal_Int16 nTabIndex = -1; + Any aCtrl = xNameAcc->getByName( aName ); + Reference< ::com::sun::star::beans::XPropertySet > xPSet; + aCtrl >>= xPSet; + if ( xPSet.is() ) + xPSet->getPropertyValue( DLGED_PROP_TABINDEX ) >>= nTabIndex; + + // insert into map + aIndexToNameMap.insert( IndexToNameMap::value_type( nTabIndex, aName ) ); + } + + // set new tab indices + sal_Int16 nNewTabIndex = 0; + for ( IndexToNameMap::iterator aIt = aIndexToNameMap.begin(); aIt != aIndexToNameMap.end(); ++aIt ) + { + Any aCtrl = xNameAcc->getByName( aIt->second ); + Reference< beans::XPropertySet > xPSet; + aCtrl >>= xPSet; + if ( xPSet.is() ) + { + Any aTabIndex; + aTabIndex <<= (sal_Int16) nNewTabIndex++; + xPSet->setPropertyValue( DLGED_PROP_TABINDEX, aTabIndex ); + } + } + + // #110559# + UpdateTabOrderAndGroups(); + } + + // start listening with all children + for ( aIter = pChilds.begin() ; aIter != pChilds.end() ; ++aIter ) + { + (*aIter)->StartListening(); + } +} + +//---------------------------------------------------------------------------- + +void DlgEdForm::UpdateTabOrder() +{ + // #110559# + // When the tabindex of a control model changes, the dialog control is + // notified about those changes. Due to #109067# (bad performance of + // dialog editor) the dialog control doesn't activate the tab order + // in design mode. When the dialog editor has reordered all + // tabindices, this method allows to activate the taborder afterwards. + + Reference< awt::XUnoControlContainer > xCont( GetControl(), UNO_QUERY ); + if ( xCont.is() ) + { + Sequence< Reference< awt::XTabController > > aSeqTabCtrls = xCont->getTabControllers(); + const Reference< awt::XTabController >* pTabCtrls = aSeqTabCtrls.getConstArray(); + sal_Int32 nCount = aSeqTabCtrls.getLength(); + for ( sal_Int32 i = 0; i < nCount; ++i ) + pTabCtrls[i]->activateTabOrder(); + } +} + +//---------------------------------------------------------------------------- + +void DlgEdForm::UpdateGroups() +{ + // #110559# + // The grouping of radio buttons in a dialog is done by vcl. + // In the dialog editor we have two views (=controls) for one + // radio button model. One control is owned by the dialog control, + // but not visible in design mode. The other control is owned by + // the drawing layer object. Whereas the grouping of the first + // control is done by vcl, the grouping of the control in the + // drawing layer has to be done here. + + Reference< awt::XTabControllerModel > xTabModel( GetUnoControlModel() , UNO_QUERY ); + if ( xTabModel.is() ) + { + // create a global list of controls that belong to the dialog + ::std::vector<DlgEdObj*> aChildList = GetChilds(); + sal_uInt32 nSize = aChildList.size(); + Sequence< Reference< awt::XControl > > aSeqControls( nSize ); + for ( sal_uInt32 i = 0; i < nSize; ++i ) + aSeqControls.getArray()[i] = Reference< awt::XControl >( aChildList[i]->GetControl(), UNO_QUERY ); + + sal_Int32 nGroupCount = xTabModel->getGroupCount(); + for ( sal_Int32 nGroup = 0; nGroup < nGroupCount; ++nGroup ) + { + // get a list of control models that belong to this group + ::rtl::OUString aName; + Sequence< Reference< awt::XControlModel > > aSeqModels; + xTabModel->getGroup( nGroup, aSeqModels, aName ); + const Reference< awt::XControlModel >* pModels = aSeqModels.getConstArray(); + sal_Int32 nModelCount = aSeqModels.getLength(); + + // create a list of peers that belong to this group + Sequence< Reference< awt::XWindow > > aSeqPeers( nModelCount ); + for ( sal_Int32 nModel = 0; nModel < nModelCount; ++nModel ) + { + // for each control model find the corresponding control in the global list + const Reference< awt::XControl >* pControls = aSeqControls.getConstArray(); + sal_Int32 nControlCount = aSeqControls.getLength(); + for ( sal_Int32 nControl = 0; nControl < nControlCount; ++nControl ) + { + const Reference< awt::XControl > xCtrl( pControls[nControl] ); + if ( xCtrl.is() ) + { + Reference< awt::XControlModel > xCtrlModel( xCtrl->getModel() ); + if ( (awt::XControlModel*)xCtrlModel.get() == (awt::XControlModel*)pModels[nModel].get() ) + { + // get the control peer and insert into the list of peers + aSeqPeers.getArray()[ nModel ] = Reference< awt::XWindow >( xCtrl->getPeer(), UNO_QUERY ); + break; + } + } + } + } + + // set the group at the dialog peer + Reference< awt::XControl > xDlg( GetControl(), UNO_QUERY ); + if ( xDlg.is() ) + { + Reference< awt::XVclContainerPeer > xDlgPeer( xDlg->getPeer(), UNO_QUERY ); + if ( xDlgPeer.is() ) + xDlgPeer->setGroup( aSeqPeers ); + } + } + } +} + +//---------------------------------------------------------------------------- + +void DlgEdForm::UpdateTabOrderAndGroups() +{ + UpdateTabOrder(); + UpdateGroups(); +} + +//---------------------------------------------------------------------------- + +void DlgEdForm::NbcMove( const Size& rSize ) +{ + SdrUnoObj::NbcMove( rSize ); + + // set geometry properties of form + EndListening(sal_False); + SetPropsFromRect(); + StartListening(); + + // set geometry properties of all childs + ::std::vector<DlgEdObj*>::iterator aIter; + for ( aIter = pChilds.begin() ; aIter != pChilds.end() ; aIter++ ) + { + (*aIter)->EndListening(sal_False); + (*aIter)->SetPropsFromRect(); + (*aIter)->StartListening(); + } + + // dialog model changed + GetDlgEditor()->SetDialogModelChanged(sal_True); +} + +//---------------------------------------------------------------------------- + +void DlgEdForm::NbcResize(const Point& rRef, const Fraction& xFract, const Fraction& yFract) +{ + SdrUnoObj::NbcResize( rRef, xFract, yFract ); + + // set geometry properties of form + EndListening(sal_False); + SetPropsFromRect(); + StartListening(); + + // set geometry properties of all childs + ::std::vector<DlgEdObj*>::iterator aIter; + for ( aIter = pChilds.begin() ; aIter != pChilds.end() ; aIter++ ) + { + (*aIter)->EndListening(sal_False); + (*aIter)->SetPropsFromRect(); + (*aIter)->StartListening(); + } + + // dialog model changed + GetDlgEditor()->SetDialogModelChanged(sal_True); +} + +//---------------------------------------------------------------------------- + +bool DlgEdForm::EndCreate(SdrDragStat& rStat, SdrCreateCmd eCmd) +{ + bool bResult = SdrUnoObj::EndCreate(rStat, eCmd); + + // stop listening + EndListening(sal_False); + + // set geometry properties + SetPropsFromRect(); + + // dialog model changed + GetDlgEditor()->SetDialogModelChanged(sal_True); + + // start listening + StartListening(); + + return bResult; +} + +//---------------------------------------------------------------------------- + +awt::DeviceInfo DlgEdForm::getDeviceInfo() const +{ + awt::DeviceInfo aDeviceInfo; + + DlgEditor* pEditor = GetDlgEditor(); + DBG_ASSERT( pEditor, "DlgEdForm::getDeviceInfo: no editor associated with the form object!" ); + if ( !pEditor ) + return aDeviceInfo; + + Window* pWindow = pEditor->GetWindow(); + DBG_ASSERT( pWindow, "DlgEdForm::getDeviceInfo: no window associated with the editor!" ); + if ( !pWindow ) + return aDeviceInfo; + + // obtain an XControl + ::utl::SharedUNOComponent< awt::XControl > xDialogControl; // ensures auto-disposal, if needed + xDialogControl.reset( GetControl(), ::utl::SharedUNOComponent< awt::XControl >::NoTakeOwnership ); + if ( !xDialogControl.is() ) + { + // don't create a temporary control all the time, this method here is called + // way too often. Instead, use a cached DeviceInfo. + // #i74065# + if ( !!mpDeviceInfo ) + return *mpDeviceInfo; + + Reference< awt::XControlContainer > xEditorControlContainer( pEditor->GetWindowControlContainer() ); + xDialogControl.reset( + GetTemporaryControlForWindow( *pWindow, xEditorControlContainer ), + ::utl::SharedUNOComponent< awt::XControl >::TakeOwnership ); + } + + Reference< awt::XDevice > xDialogDevice; + if ( xDialogControl.is() ) + xDialogDevice.set( xDialogControl->getPeer(), UNO_QUERY ); + DBG_ASSERT( xDialogDevice.is(), "DlgEdForm::getDeviceInfo: no device!" ); + if ( xDialogDevice.is() ) + aDeviceInfo = xDialogDevice->getInfo(); + + mpDeviceInfo.reset( aDeviceInfo ); + + return aDeviceInfo; +} + +//---------------------------------------------------------------------------- + + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/dlged/dlgedpage.cxx b/basctl/source/dlged/dlgedpage.cxx new file mode 100644 index 000000000000..67858c66c5ec --- /dev/null +++ b/basctl/source/dlged/dlgedpage.cxx @@ -0,0 +1,89 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + + +#include "dlgedpage.hxx" +#include "dlged.hxx" +#include "dlgedmod.hxx" +#include "dlgedobj.hxx" + + +TYPEINIT1( DlgEdPage, SdrPage ); + +//---------------------------------------------------------------------------- + +DlgEdPage::DlgEdPage( DlgEdModel& rModel, bool bMasterPage ) + :SdrPage( rModel, bMasterPage ) +{ +} + +//---------------------------------------------------------------------------- + +DlgEdPage::DlgEdPage( const DlgEdPage& rPage ) + :SdrPage( rPage ) +{ + pDlgEdForm = rPage.pDlgEdForm; +} + +//---------------------------------------------------------------------------- + +DlgEdPage::~DlgEdPage() +{ + Clear(); +} + +//---------------------------------------------------------------------------- + +SdrPage* DlgEdPage::Clone() const +{ + return new DlgEdPage( *this ); +} + +//---------------------------------------------------------------------------- + +SdrObject* DlgEdPage::SetObjectOrdNum(sal_uLong nOldObjNum, sal_uLong nNewObjNum) +{ + SdrObject* pObj = SdrPage::SetObjectOrdNum( nOldObjNum, nNewObjNum ); + + DlgEdHint aHint( DLGED_HINT_OBJORDERCHANGED ); + if ( pDlgEdForm ) + { + DlgEditor* pDlgEditor = pDlgEdForm->GetDlgEditor(); + if ( pDlgEditor ) + pDlgEditor->Broadcast( aHint ); + } + + return pObj; +} + +//---------------------------------------------------------------------------- + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/dlged/dlgedview.cxx b/basctl/source/dlged/dlgedview.cxx new file mode 100644 index 000000000000..7b1e22f82b7d --- /dev/null +++ b/basctl/source/dlged/dlgedview.cxx @@ -0,0 +1,217 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + + +#include "dlgedview.hxx" +#include "dlged.hxx" +#include <dlgedpage.hxx> + +#include <svx/svxids.hrc> +#include <sfx2/viewfrm.hxx> + +#include <basidesh.hxx> +#include <iderdll.hxx> +#include "dlgedobj.hxx" + +TYPEINIT1( DlgEdView, SdrView ); + +//---------------------------------------------------------------------------- + +DlgEdView::DlgEdView( SdrModel* pModel, OutputDevice* pOut, DlgEditor* pEditor ) + :SdrView( pModel, pOut ) + ,pDlgEditor( pEditor ) +{ + // #114898# + SetBufferedOutputAllowed(true); + SetBufferedOverlayAllowed(true); +} + +//---------------------------------------------------------------------------- + +DlgEdView::~DlgEdView() +{ +} + +//---------------------------------------------------------------------------- + +void DlgEdView::MarkListHasChanged() +{ + SdrView::MarkListHasChanged(); + + DlgEdHint aHint( DLGED_HINT_SELECTIONCHANGED ); + if ( pDlgEditor ) + { + pDlgEditor->Broadcast( aHint ); + pDlgEditor->UpdatePropertyBrowserDelayed(); + } +} + +//---------------------------------------------------------------------------- + +void DlgEdView::MakeVisible( const Rectangle& rRect, Window& rWin ) +{ + // visible area + MapMode aMap( rWin.GetMapMode() ); + Point aOrg( aMap.GetOrigin() ); + Size aVisSize( rWin.GetOutputSize() ); + Rectangle RectTmp( Point(-aOrg.X(),-aOrg.Y()), aVisSize ); + Rectangle aVisRect( RectTmp ); + + // check, if rectangle is inside visible area + if ( !aVisRect.IsInside( rRect ) ) + { + // calculate scroll distance; the rectangle must be inside the visible area + sal_Int32 nScrollX = 0, nScrollY = 0; + + sal_Int32 nVisLeft = aVisRect.Left(); + sal_Int32 nVisRight = aVisRect.Right(); + sal_Int32 nVisTop = aVisRect.Top(); + sal_Int32 nVisBottom = aVisRect.Bottom(); + + sal_Int32 nDeltaX = pDlgEditor->GetHScroll()->GetLineSize(); + sal_Int32 nDeltaY = pDlgEditor->GetVScroll()->GetLineSize(); + + while ( rRect.Right() > nVisRight + nScrollX ) + nScrollX += nDeltaX; + + while ( rRect.Left() < nVisLeft + nScrollX ) + nScrollX -= nDeltaX; + + while ( rRect.Bottom() > nVisBottom + nScrollY ) + nScrollY += nDeltaY; + + while ( rRect.Top() < nVisTop + nScrollY ) + nScrollY -= nDeltaY; + + // don't scroll beyond the page size + Size aPageSize = pDlgEditor->GetPage()->GetSize(); + sal_Int32 nPageWidth = aPageSize.Width(); + sal_Int32 nPageHeight = aPageSize.Height(); + + if ( nVisRight + nScrollX > nPageWidth ) + nScrollX = nPageWidth - nVisRight; + + if ( nVisLeft + nScrollX < 0 ) + nScrollX = -nVisLeft; + + if ( nVisBottom + nScrollY > nPageHeight ) + nScrollY = nPageHeight - nVisBottom; + + if ( nVisTop + nScrollY < 0 ) + nScrollY = -nVisTop; + + // scroll window + rWin.Update(); + rWin.Scroll( -nScrollX, -nScrollY ); + aMap.SetOrigin( Point( aOrg.X() - nScrollX, aOrg.Y() - nScrollY ) ); + rWin.SetMapMode( aMap ); + rWin.Update(); + rWin.Invalidate(); + + // update scroll bars + if ( pDlgEditor ) + pDlgEditor->UpdateScrollBars(); + + DlgEdHint aHint( DLGED_HINT_WINDOWSCROLLED ); + if ( pDlgEditor ) + pDlgEditor->Broadcast( aHint ); + } +} + +//---------------------------------------------------------------------------- + +SdrObject* impLocalHitCorrection(SdrObject* pRetval, const Point& rPnt, sal_uInt16 nTol) +{ + DlgEdObj* pDlgEdObj = dynamic_cast< DlgEdObj* >(pRetval); + + if(pDlgEdObj) + { + bool bExcludeInner(false); + + if(0 != dynamic_cast< DlgEdForm* >(pRetval)) + { + // from DlgEdForm::CheckHit; exclude inner for DlgEdForm + bExcludeInner = true; + } + else if(pDlgEdObj->supportsService("com.sun.star.awt.UnoControlGroupBoxModel")) + { + // from DlgEdObj::CheckHit; exclude inner for group shapes + bExcludeInner = true; + } + + if(bExcludeInner) + { + // use direct model data; it's a DlgEdObj, so GetLastBoundRect() + // will access aOutRect directly + const Rectangle aOuterRectangle(pDlgEdObj->GetLastBoundRect()); + + if(!aOuterRectangle.IsEmpty() + && RECT_EMPTY != aOuterRectangle.Right() + && RECT_EMPTY != aOuterRectangle.Bottom()) + { + basegfx::B2DRange aOuterRange( + aOuterRectangle.Left(), aOuterRectangle.Top(), + aOuterRectangle.Right(), aOuterRectangle.Bottom()); + + if(nTol) + { + aOuterRange.grow(-1.0 * nTol); + } + + if(aOuterRange.isInside(basegfx::B2DPoint(rPnt.X(), rPnt.Y()))) + { + pRetval = 0; + } + } + } + } + + return pRetval; +} + +SdrObject* DlgEdView::CheckSingleSdrObjectHit(const Point& rPnt, sal_uInt16 nTol, SdrObject* pObj, SdrPageView* pPV, sal_uLong nOptions, const SetOfByte* pMVisLay) const +{ + // call parent + SdrObject* pRetval = SdrView::CheckSingleSdrObjectHit(rPnt, nTol, pObj, pPV, nOptions, pMVisLay); + + if(pRetval) + { + // check hitted object locally + pRetval = impLocalHitCorrection(pRetval, rPnt, nTol); + } + + return pRetval; +} + +//---------------------------------------------------------------------------- +// eof + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/dlged/dlgresid.src b/basctl/source/dlged/dlgresid.src new file mode 100644 index 000000000000..ee37d82233e1 --- /dev/null +++ b/basctl/source/dlged/dlgresid.src @@ -0,0 +1,175 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#include "dlgresid.hrc" + +// Dialog Controls --------------------------------------------------------------- + +String RID_STR_CLASS_CONTROL +{ + Text = "Control" ; +}; +String RID_STR_CLASS_DIALOG +{ + Text = "Dialog" ; +}; +String RID_STR_CLASS_BUTTON +{ + Text = "CommandButton" ; +}; +String RID_STR_CLASS_RADIOBUTTON +{ + Text = "OptionButton" ; +}; +String RID_STR_CLASS_CHECKBOX +{ + Text = "CheckBox" ; +}; +String RID_STR_CLASS_LISTBOX +{ + Text = "ListBox" ; +}; +String RID_STR_CLASS_COMBOBOX +{ + Text = "ComboBox" ; +}; +String RID_STR_CLASS_GROUPBOX +{ + Text = "FrameControl" ; +}; +String RID_STR_CLASS_EDIT +{ + Text = "TextField" ; +}; +String RID_STR_CLASS_FIXEDTEXT +{ + Text = "Label" ; +}; +String RID_STR_CLASS_IMAGECONTROL +{ + Text = "ImageControl" ; +}; +String RID_STR_CLASS_PROGRESSBAR +{ + Text = "ProgressBar" ; +}; +String RID_STR_CLASS_SCROLLBAR +{ + Text = "ScrollBar" ; +}; +String RID_STR_CLASS_FIXEDLINE +{ + Text = "FixedLine" ; +}; +String RID_STR_CLASS_DATEFIELD +{ + Text = "DateField" ; +}; +String RID_STR_CLASS_TIMEFIELD +{ + Text = "TimeField" ; +}; +String RID_STR_CLASS_NUMERICFIELD +{ + Text = "NumericField" ; +}; +String RID_STR_CLASS_CURRENCYFIELD +{ + Text = "CurrencyField" ; +}; +String RID_STR_CLASS_FORMATTEDFIELD +{ + Text = "FormattedField" ; +}; +String RID_STR_CLASS_PATTERNFIELD +{ + Text = "PatternField" ; +}; +String RID_STR_CLASS_FILECONTROL +{ + Text = "FileControl" ; +}; +String RID_STR_CLASS_TREECONTROL +{ + Text = "TreeControl" ; +}; + + +// Property Browser Headline ---------------------------------------------------------------- + +String RID_STR_BRWTITLE_PROPERTIES +{ + Text [ en-US ] = "Properties: "; +}; +String RID_STR_BRWTITLE_NO_PROPERTIES +{ + Text [ en-US ] = "No Control marked"; +}; +String RID_STR_BRWTITLE_MULTISELECT +{ + Text [ en-US ] = "Multiselection"; +}; + +// ----------------------------------------------------------------------- + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/basctl/source/dlged/makefile.mk b/basctl/source/dlged/makefile.mk new file mode 100644 index 000000000000..6eacc9c2dd1e --- /dev/null +++ b/basctl/source/dlged/makefile.mk @@ -0,0 +1,63 @@ +#************************************************************************* +# +# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +# +# Copyright 2000, 2010 Oracle and/or its affiliates. +# +# OpenOffice.org - a multi-platform office productivity suite +# +# This file is part of OpenOffice.org. +# +# OpenOffice.org is free software: you can redistribute it and/or modify +# it under the terms of the GNU Lesser General Public License version 3 +# only, as published by the Free Software Foundation. +# +# OpenOffice.org 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 version 3 for more details +# (a copy is included in the LICENSE file that accompanied this code). +# +# You should have received a copy of the GNU Lesser General Public License +# version 3 along with OpenOffice.org. If not, see +# <http://www.openoffice.org/license.html> +# for a copy of the LGPLv3 License. +# +#************************************************************************* + +PRJ=..$/.. + +PRJNAME=basctl +TARGET=dlged +AUTOSEG=true +VISIBILITY_HIDDEN=TRUE + +# --- Settings ----------------------------------------------------- + +.INCLUDE : settings.mk + +# --- Files -------------------------------------------------------- + +EXCEPTIONSFILES= \ + $(SLO)$/dlged.obj \ + $(SLO)$/dlgedclip.obj \ + $(SLO)$/dlgedfac.obj \ + $(SLO)$/dlgedfunc.obj \ + $(SLO)$/dlgedlist.obj \ + $(SLO)$/dlgedmod.obj \ + $(SLO)$/dlgedobj.obj \ + $(SLO)$/dlgedpage.obj \ + $(SLO)$/dlgedview.obj \ + $(SLO)$/managelang.obj \ + $(SLO)$/propbrw.obj + +SLOFILES= $(EXCEPTIONSFILES) + +SRS1NAME=$(TARGET) +SRC1FILES= dlgresid.src \ + managelang.src + +# --- Targets ------------------------------------------------------- + +.INCLUDE : target.mk + diff --git a/basctl/source/dlged/managelang.cxx b/basctl/source/dlged/managelang.cxx new file mode 100644 index 000000000000..dfdf30d63300 --- /dev/null +++ b/basctl/source/dlged/managelang.cxx @@ -0,0 +1,427 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include "managelang.hxx" +#include "iderid.hxx" +#include "localizationmgr.hxx" +#include "iderdll.hxx" +#include "basidesh.hxx" +#include "basobj.hxx" + +#include "managelang.hrc" +#include "dlgresid.hrc" +#include "helpid.hrc" + +#include <com/sun/star/i18n/XBreakIterator.hpp> +#include <com/sun/star/i18n/WordType.hpp> +#include <com/sun/star/lang/XMultiServiceFactory.hpp> +#include <com/sun/star/resource/XStringResourceManager.hpp> +#include <comphelper/processfactory.hxx> +#include <vcl/unohelp.hxx> +#include <vcl/svapp.hxx> +#include <vcl/msgbox.hxx> +#include <unotools/localedatawrapper.hxx> +#include <editeng/unolingu.hxx> + +#include <svtools/langtab.hxx> + +#include <sfx2/bindings.hxx> + +using namespace ::com::sun::star::i18n; +using namespace ::com::sun::star::lang; +using namespace ::com::sun::star::resource; +using namespace ::com::sun::star::uno; + +bool localesAreEqual( const Locale& rLocaleLeft, const Locale& rLocaleRight ) +{ + bool bRet = ( rLocaleLeft.Language.equals( rLocaleRight.Language ) && + rLocaleLeft.Country.equals( rLocaleRight.Country ) && + rLocaleLeft.Variant.equals( rLocaleRight.Variant ) ); + return bRet; +} + +namespace { + long getLongestWordWidth( const String& rText, const Window& rWin ) + { + long nWidth = 0; + Reference< XBreakIterator > xBreakIter( vcl::unohelper::CreateBreakIterator() ); + sal_Int32 nStartPos = 0; + const Locale aLocale = Application::GetSettings().GetUILocale(); + Boundary aBoundary = xBreakIter->getWordBoundary( + rText, nStartPos, aLocale, WordType::ANYWORD_IGNOREWHITESPACES, sal_True ); + + while ( aBoundary.startPos != aBoundary.endPos ) + { + nStartPos = aBoundary.endPos; + String sWord( rText.Copy( + (sal_uInt16)aBoundary.startPos, + (sal_uInt16)aBoundary.endPos - (sal_uInt16)aBoundary.startPos ) ); + long nTemp = rWin.GetCtrlTextWidth( sWord ); + if ( nTemp > nWidth ) + nWidth = nTemp; + aBoundary = xBreakIter->nextWord( + rText, nStartPos, aLocale, WordType::ANYWORD_IGNOREWHITESPACES ); + } + + return nWidth; + } +} + +ManageLanguageDialog::ManageLanguageDialog( Window* pParent, LocalizationMgr* _pLMgr ) : + + ModalDialog( pParent, IDEResId( RID_DLG_MANAGE_LANGUAGE ) ), + + m_aLanguageFT ( this, IDEResId( FT_LANGUAGE ) ), + m_aLanguageLB ( this, IDEResId( LB_LANGUAGE ) ), + m_aAddPB ( this, IDEResId( PB_ADD_LANG ) ), + m_aDeletePB ( this, IDEResId( PB_DEL_LANG ) ), + m_aMakeDefPB ( this, IDEResId( PB_MAKE_DEFAULT ) ), + m_aInfoFT ( this, IDEResId( FT_INFO ) ), + m_aBtnLine ( this, IDEResId( FL_BUTTONS ) ), + m_aHelpBtn ( this, IDEResId( PB_HELP ) ), + m_aCloseBtn ( this, IDEResId( PB_CLOSE ) ), + m_pLocalizationMgr ( _pLMgr ), + m_sDefLangStr ( IDEResId( STR_DEF_LANG ) ), + m_sDeleteStr ( IDEResId( STR_DELETE ) ), + m_sCreateLangStr ( IDEResId( STR_CREATE_LANG ) ) + +{ + FreeResource(); + + Init(); + FillLanguageBox(); + SelectHdl( NULL ); +} + +ManageLanguageDialog::~ManageLanguageDialog() +{ + ClearLanguageBox(); +} + +void ManageLanguageDialog::Init() +{ + // get current IDE + BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); + String sLibName = pIDEShell->GetCurLibName(); + // set dialog title with library name + String sText = GetText(); + sText.SearchAndReplace( String::CreateFromAscii("$1"), sLibName ); + SetText( sText ); + // set handler + m_aAddPB.SetClickHdl( LINK( this, ManageLanguageDialog, AddHdl ) ); + m_aDeletePB.SetClickHdl( LINK( this, ManageLanguageDialog, DeleteHdl ) ); + m_aMakeDefPB.SetClickHdl( LINK( this, ManageLanguageDialog, MakeDefHdl ) ); + m_aLanguageLB.SetSelectHdl( LINK( this, ManageLanguageDialog, SelectHdl ) ); + + m_aLanguageLB.EnableMultiSelection( sal_True ); + CalcInfoSize(); +} + +void ManageLanguageDialog::CalcInfoSize() +{ + String sInfoStr = m_aInfoFT.GetText(); + long nInfoWidth = m_aInfoFT.GetSizePixel().Width(); + long nLongWord = getLongestWordWidth( sInfoStr, m_aInfoFT ); + long nTxtWidth = m_aInfoFT.GetCtrlTextWidth( sInfoStr ) + nLongWord; + long nLines = ( nTxtWidth / nInfoWidth ) + 1; + if ( nLines > INFO_LINES_COUNT ) + { + Size aFTSize = m_aLanguageFT.GetSizePixel(); + Size aSize = m_aInfoFT.GetSizePixel(); + long nNewHeight = aFTSize.Height() * nLines; + long nDelta = nNewHeight - aSize.Height(); + aSize.Height() = nNewHeight; + m_aInfoFT.SetSizePixel( aSize ); + + aSize = m_aLanguageLB.GetSizePixel(); + aSize.Height() -= nDelta; + m_aLanguageLB.SetSizePixel( aSize ); + + Point aNewPos = m_aInfoFT.GetPosPixel(); + aNewPos.Y() -= nDelta; + m_aInfoFT.SetPosPixel( aNewPos ); + aNewPos = m_aMakeDefPB.GetPosPixel(); + aNewPos.Y() -= nDelta; + m_aMakeDefPB.SetPosPixel( aNewPos ); + } +} + +void ManageLanguageDialog::FillLanguageBox() +{ + DBG_ASSERT( m_pLocalizationMgr, "ManageLanguageDialog::FillLanguageBox(): no localization manager" ); + + if ( m_pLocalizationMgr->isLibraryLocalized() ) + { + SvtLanguageTable aLangTable; + Locale aDefaultLocale = m_pLocalizationMgr->getStringResourceManager()->getDefaultLocale(); + Sequence< Locale > aLocaleSeq = m_pLocalizationMgr->getStringResourceManager()->getLocales(); + const Locale* pLocale = aLocaleSeq.getConstArray(); + sal_Int32 i, nCount = aLocaleSeq.getLength(); + for ( i = 0; i < nCount; ++i ) + { + bool bIsDefault = localesAreEqual( aDefaultLocale, pLocale[i] ); + LanguageType eLangType = SvxLocaleToLanguage( pLocale[i] ); + String sLanguage = aLangTable.GetString( eLangType ); + if ( bIsDefault ) + { + sLanguage += ' '; + sLanguage += m_sDefLangStr; + } + sal_uInt16 nPos = m_aLanguageLB.InsertEntry( sLanguage ); + m_aLanguageLB.SetEntryData( nPos, new LanguageEntry( sLanguage, pLocale[i], bIsDefault ) ); + } + } + else + m_aLanguageLB.InsertEntry( m_sCreateLangStr ); +} + +void ManageLanguageDialog::ClearLanguageBox() +{ + sal_uInt16 i, nCount = m_aLanguageLB.GetEntryCount(); + for ( i = 0; i < nCount; ++i ) + { + LanguageEntry* pEntry = (LanguageEntry*)( m_aLanguageLB.GetEntryData(i) ); + if ( pEntry ) + delete pEntry; + } + m_aLanguageLB.Clear(); +} + +IMPL_LINK( ManageLanguageDialog, AddHdl, Button *, EMPTYARG ) +{ + SetDefaultLanguageDialog aDlg( this, m_pLocalizationMgr ); + if ( RET_OK == aDlg.Execute() ) + { + // add new locales + Sequence< Locale > aLocaleSeq = aDlg.GetLocales(); + m_pLocalizationMgr->handleAddLocales( aLocaleSeq ); + // update listbox + ClearLanguageBox(); + FillLanguageBox(); + + SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); + if ( pBindings ) + pBindings->Invalidate( SID_BASICIDE_CURRENT_LANG ); + } + return 1; +} + +IMPL_LINK( ManageLanguageDialog, DeleteHdl, Button *, EMPTYARG ) +{ + QueryBox aQBox( this, IDEResId( RID_QRYBOX_LANGUAGE ) ); + aQBox.SetButtonText( RET_OK, m_sDeleteStr ); + if ( aQBox.Execute() == RET_OK ) + { + sal_uInt16 i, nCount = m_aLanguageLB.GetSelectEntryCount(); + sal_uInt16 nPos = m_aLanguageLB.GetSelectEntryPos(); + // remove locales + Sequence< Locale > aLocaleSeq( nCount ); + for ( i = 0; i < nCount; ++i ) + { + sal_uInt16 nSelPos = m_aLanguageLB.GetSelectEntryPos(i); + LanguageEntry* pEntry = (LanguageEntry*)( m_aLanguageLB.GetEntryData( nSelPos ) ); + if ( pEntry ) + aLocaleSeq[i] = pEntry->m_aLocale; + } + m_pLocalizationMgr->handleRemoveLocales( aLocaleSeq ); + // update listbox + ClearLanguageBox(); + FillLanguageBox(); + // reset selection + nCount = m_aLanguageLB.GetEntryCount(); + if ( nCount <= nPos ) + nPos = nCount - 1; + m_aLanguageLB.SelectEntryPos( nPos ); + SelectHdl( NULL ); + } + return 1; +} + +IMPL_LINK( ManageLanguageDialog, MakeDefHdl, Button *, EMPTYARG ) +{ + sal_uInt16 nPos = m_aLanguageLB.GetSelectEntryPos(); + LanguageEntry* pSelectEntry = (LanguageEntry*)( m_aLanguageLB.GetEntryData( nPos ) ); + if ( pSelectEntry && !pSelectEntry->m_bIsDefault ) + { + // set new default entry + m_pLocalizationMgr->handleSetDefaultLocale( pSelectEntry->m_aLocale ); + // update Listbox + ClearLanguageBox(); + FillLanguageBox(); + // reset selection + m_aLanguageLB.SelectEntryPos( nPos ); + SelectHdl( NULL ); + } + + return 1; +} + +IMPL_LINK( ManageLanguageDialog, SelectHdl, ListBox *, EMPTYARG ) +{ + sal_uInt16 nCount = m_aLanguageLB.GetEntryCount(); + bool bEmpty = ( !nCount || + m_aLanguageLB.GetEntryPos( m_sCreateLangStr ) != LISTBOX_ENTRY_NOTFOUND ); + bool bSelect = ( m_aLanguageLB.GetSelectEntryPos() != LISTBOX_ENTRY_NOTFOUND ); + bool bEnable = ( !bEmpty && bSelect != false ); + + m_aDeletePB.Enable( bEnable != false ); + m_aMakeDefPB.Enable( bEnable != false && nCount > 1 && m_aLanguageLB.GetSelectEntryCount() == 1 ); + + return 1; +} + +// class SetDefaultLanguageDialog ----------------------------------------------- + +SetDefaultLanguageDialog::SetDefaultLanguageDialog( Window* pParent, LocalizationMgr* _pLMgr ) : + + ModalDialog( pParent, IDEResId( RID_DLG_SETDEF_LANGUAGE ) ), + + m_aLanguageFT ( this, IDEResId( FT_DEF_LANGUAGE ) ), + m_pLanguageLB ( new SvxLanguageBox( this, IDEResId( LB_DEF_LANGUAGE ) ) ), + m_pCheckLangLB ( NULL ), + m_aInfoFT ( this, IDEResId( FT_DEF_INFO ) ), + m_aBtnLine ( this, IDEResId( FL_DEF_BUTTONS ) ), + m_aOKBtn ( this, IDEResId( PB_DEF_OK ) ), + m_aCancelBtn ( this, IDEResId( PB_DEF_CANCEL ) ), + m_aHelpBtn ( this, IDEResId( PB_DEF_HELP ) ), + + m_pLocalizationMgr( _pLMgr ) + +{ + if ( m_pLocalizationMgr->isLibraryLocalized() ) + { + // change to "Add Interface Language" mode + SetHelpId( HID_BASICIDE_ADDNEW_LANGUAGE ); + m_pCheckLangLB = new SvxCheckListBox( this, IDEResId( LB_ADD_LANGUAGE ) ); + SetText( String( IDEResId( STR_ADDLANG_TITLE ) ) ); + m_aLanguageFT.SetText( String( IDEResId( STR_ADDLANG_LABEL ) ) ); + m_aInfoFT.SetText( String( IDEResId( STR_ADDLANG_INFO ) ) ); + } + + FreeResource(); + + FillLanguageBox(); + CalcInfoSize(); +} + +SetDefaultLanguageDialog::~SetDefaultLanguageDialog() +{ + delete m_pLanguageLB; + delete m_pCheckLangLB; +} + +void SetDefaultLanguageDialog::FillLanguageBox() +{ + // fill list with all languages + m_pLanguageLB->SetLanguageList( LANG_LIST_ALL, sal_False ); + // remove the already localized languages + Sequence< Locale > aLocaleSeq = m_pLocalizationMgr->getStringResourceManager()->getLocales(); + const Locale* pLocale = aLocaleSeq.getConstArray(); + sal_Int32 i, nCount = aLocaleSeq.getLength(); + for ( i = 0; i < nCount; ++i ) + m_pLanguageLB->RemoveLanguage( SvxLocaleToLanguage( pLocale[i] ) ); + + // fill checklistbox if not in default mode + if ( m_pLocalizationMgr->isLibraryLocalized() ) + { + sal_uInt16 j, nCount_ = m_pLanguageLB->GetEntryCount(); + for ( j = 0; j < nCount_; ++j ) + { + m_pCheckLangLB->InsertEntry( + m_pLanguageLB->GetEntry(j), LISTBOX_APPEND, m_pLanguageLB->GetEntryData(j) ); + } + delete m_pLanguageLB; + m_pLanguageLB = NULL; + } + else + // preselect current UI language + m_pLanguageLB->SelectLanguage( Application::GetSettings().GetUILanguage() ); +} + +void SetDefaultLanguageDialog::CalcInfoSize() +{ + String sInfoStr = m_aInfoFT.GetText(); + long nInfoWidth = m_aInfoFT.GetSizePixel().Width(); + long nLongWord = getLongestWordWidth( sInfoStr, m_aInfoFT ); + long nTxtWidth = m_aInfoFT.GetCtrlTextWidth( sInfoStr ) + nLongWord; + long nLines = ( nTxtWidth / nInfoWidth ) + 1; + if ( nLines > INFO_LINES_COUNT ) + { + Size aFTSize = m_aLanguageFT.GetSizePixel(); + Size aSize = m_aInfoFT.GetSizePixel(); + long nNewHeight = aFTSize.Height() * nLines; + long nDelta = nNewHeight - aSize.Height(); + aSize.Height() = nNewHeight; + m_aInfoFT.SetSizePixel( aSize ); + + Window* pWin = ( m_pLanguageLB != NULL ) ? dynamic_cast< Window* >( m_pLanguageLB ) + : dynamic_cast< Window* >( m_pCheckLangLB ); + aSize = pWin->GetSizePixel(); + aSize.Height() -= nDelta; + pWin->SetSizePixel( aSize ); + + Point aNewPos = m_aInfoFT.GetPosPixel(); + aNewPos.Y() -= nDelta; + m_aInfoFT.SetPosPixel( aNewPos ); + } +} + +Sequence< Locale > SetDefaultLanguageDialog::GetLocales() const +{ + bool bNotLocalized = !m_pLocalizationMgr->isLibraryLocalized(); + sal_Int32 nSize = bNotLocalized ? 1 : m_pCheckLangLB->GetCheckedEntryCount(); + Sequence< Locale > aLocaleSeq( nSize ); + if ( bNotLocalized ) + { + Locale aLocale; + SvxLanguageToLocale( aLocale, m_pLanguageLB->GetSelectLanguage() ); + aLocaleSeq[0] = aLocale; + } + else + { + sal_uInt16 i, nCount = static_cast< sal_uInt16 >( m_pCheckLangLB->GetEntryCount() ); + sal_Int32 j = 0; + for ( i = 0; i < nCount; ++i ) + { + if ( m_pCheckLangLB->IsChecked(i) ) + { + LanguageType eType = LanguageType( (sal_uLong)m_pCheckLangLB->GetEntryData(i) ); + Locale aLocale; + SvxLanguageToLocale( aLocale, eType ); + aLocaleSeq[j++] = aLocale; + } + } + DBG_ASSERT( nSize == j, "SetDefaultLanguageDialog::GetLocales(): invalid indexes" ); + } + return aLocaleSeq; +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/dlged/managelang.hrc b/basctl/source/dlged/managelang.hrc new file mode 100644 index 000000000000..e3a7f7f1edde --- /dev/null +++ b/basctl/source/dlged/managelang.hrc @@ -0,0 +1,106 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _BASCTL_MANAGELANG_HRC +#define _BASCTL_MANAGELANG_HRC + +// Include ----------------------------------------------------------------------- + +#include <svtools/controldims.hrc> + +// Dialog Control Id's ----------------------------------------------------------- + +#define FT_LANGUAGE 1 +#define LB_LANGUAGE 2 +#define PB_ADD_LANG 3 +#define PB_DEL_LANG 4 +#define PB_MAKE_DEFAULT 5 +#define FT_INFO 6 +#define FL_BUTTONS 7 +#define PB_HELP 8 +#define PB_CLOSE 9 +#define STR_DEF_LANG 10 +#define STR_DELETE 11 +#define STR_CREATE_LANG 12 + +#define FT_DEF_LANGUAGE 1 +#define LB_DEF_LANGUAGE 2 +#define LB_ADD_LANGUAGE 3 +#define FT_DEF_INFO 4 +#define FL_DEF_BUTTONS 5 +#define PB_DEF_OK 6 +#define PB_DEF_CANCEL 7 +#define PB_DEF_HELP 8 +#define STR_ADDLANG_TITLE 9 +#define STR_ADDLANG_LABEL 10 +#define STR_ADDLANG_INFO 11 + +// Metrics ----------------------------------------------------------------------- + +#define MANAGE_DLG_WIDTH 240 +#define MANAGE_DLG_HEIGHT 180 +#define INFO_LINES_COUNT 3 + +#define MANAGE_COL1 RSC_SP_DLG_INNERBORDER_LEFT +#define MANAGE_COL2 (MANAGE_DLG_WIDTH - RSC_SP_DLG_INNERBORDER_RIGHT - 2*RSC_CD_PUSHBUTTON_WIDTH - RSC_SP_CTRL_X) +#define MANAGE_COL3 (MANAGE_COL2 + RSC_CD_PUSHBUTTON_WIDTH + RSC_SP_CTRL_X) + +#define MANAGE_ROW1 RSC_SP_DLG_INNERBORDER_TOP +#define MANAGE_ROW2 (MANAGE_ROW1 + RSC_CD_FIXEDTEXT_HEIGHT + RSC_SP_CTRL_DESC_Y) +#define MANAGE_ROW3 (MANAGE_ROW2 + RSC_CD_PUSHBUTTON_HEIGHT + RSC_SP_CTRL_GROUP_Y) + +#define MANAGE_ROW7 (MANAGE_DLG_HEIGHT - RSC_SP_DLG_INNERBORDER_BOTTOM - RSC_CD_PUSHBUTTON_HEIGHT) +#define MANAGE_ROW6 (MANAGE_ROW7 - RSC_SP_FLGR_SPACE_Y - RSC_CD_FIXEDLINE_HEIGHT) +#define MANAGE_ROW5 (MANAGE_ROW6 - RSC_SP_FLGR_SPACE_Y - INFO_LINES_COUNT*RSC_CD_FIXEDTEXT_HEIGHT) +#define MANAGE_ROW4 (MANAGE_ROW5 - RSC_SP_CTRL_GROUP_Y - RSC_CD_PUSHBUTTON_HEIGHT) +#define MANAGE_ROW4A (MANAGE_ROW4 + RSC_CD_PUSHBUTTON_HEIGHT) + +#define MANAGE_LB_WIDTH (MANAGE_COL3 - RSC_SP_CTRL_X - RSC_SP_DLG_INNERBORDER_LEFT) +#define MANAGE_LB_HEIGHT (MANAGE_ROW4A - MANAGE_ROW2) + +#define SETDEF_DLG_WIDTH 180 +#define SETDEF_DLG_HEIGHT 165 + +#define SETDEF_COL1 RSC_SP_DLG_INNERBORDER_LEFT +#define SETDEF_COL2 (SETDEF_DLG_WIDTH - RSC_SP_DLG_INNERBORDER_RIGHT - 3*RSC_CD_PUSHBUTTON_WIDTH - RSC_SP_CTRL_GROUP_X - RSC_SP_CTRL_X) +#define SETDEF_COL3 (SETDEF_COL2 + RSC_CD_PUSHBUTTON_WIDTH + RSC_SP_CTRL_GROUP_X) +#define SETDEF_COL4 (SETDEF_COL3 + RSC_CD_PUSHBUTTON_WIDTH + RSC_SP_CTRL_X) +#define SETDEF_COL4A (SETDEF_COL4 + RSC_CD_PUSHBUTTON_WIDTH) + +#define SETDEF_ROW1 RSC_SP_DLG_INNERBORDER_TOP +#define SETDEF_ROW2 (SETDEF_ROW1 + RSC_CD_FIXEDTEXT_HEIGHT + RSC_SP_CTRL_DESC_Y) + +#define SETDEF_ROW5 (SETDEF_DLG_HEIGHT - RSC_SP_DLG_INNERBORDER_BOTTOM - RSC_CD_PUSHBUTTON_HEIGHT) +#define SETDEF_ROW4 (SETDEF_ROW5 - RSC_SP_FLGR_SPACE_Y - RSC_CD_FIXEDLINE_HEIGHT) +#define SETDEF_ROW3 (SETDEF_ROW4 - RSC_SP_FLGR_SPACE_Y - INFO_LINES_COUNT*RSC_CD_FIXEDTEXT_HEIGHT) +#define SETDEF_ROW3A (SETDEF_ROW3 - RSC_SP_CTRL_GROUP_Y) + +#define SETDEF_LB_WIDTH (SETDEF_COL4A - SETDEF_COL1) +#define SETDEF_LB_HEIGHT (SETDEF_ROW3A - SETDEF_ROW2) + +#endif // _BASCTL_MANAGELANG_HRC + diff --git a/basctl/source/dlged/managelang.src b/basctl/source/dlged/managelang.src new file mode 100644 index 000000000000..c83af6be6e38 --- /dev/null +++ b/basctl/source/dlged/managelang.src @@ -0,0 +1,237 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#include "dlgresid.hrc" +#include "managelang.hrc" +#include "helpid.hrc" + +ModalDialog RID_DLG_MANAGE_LANGUAGE +{ + HelpId = HID_BASICIDE_MANAGE_LANGUAGE ; + OutputSize = TRUE ; + Size = MAP_APPFONT ( MANAGE_DLG_WIDTH , MANAGE_DLG_HEIGHT ) ; + Moveable = TRUE ; + Closeable = TRUE ; + Text [ en-US ] = "Manage User Interface Languages [$1]" ; + FixedText FT_LANGUAGE + { + Pos = MAP_APPFONT ( MANAGE_COL1 , MANAGE_ROW1 ) ; + Size = MAP_APPFONT ( MANAGE_LB_WIDTH , RSC_CD_FIXEDTEXT_HEIGHT ) ; + Text [ en-US ] = "Present Languages" ; + }; + ListBox LB_LANGUAGE + { + HelpID = "basctl:ListBox:RID_DLG_MANAGE_LANGUAGE:LB_LANGUAGE"; + Pos = MAP_APPFONT ( MANAGE_COL1 , MANAGE_ROW2 ) ; + Size = MAP_APPFONT ( MANAGE_LB_WIDTH , MANAGE_LB_HEIGHT ) ; + Border = TRUE; + AutoHScroll = TRUE ; + }; + PushButton PB_ADD_LANG + { + HelpID = "basctl:PushButton:RID_DLG_MANAGE_LANGUAGE:PB_ADD_LANG"; + Pos = MAP_APPFONT ( MANAGE_COL3 , MANAGE_ROW2 ) ; + Size = MAP_APPFONT ( RSC_CD_PUSHBUTTON_WIDTH , RSC_CD_PUSHBUTTON_HEIGHT ) ; + TabStop = TRUE ; + Text [ en-US ] = "Add..." ; + }; + PushButton PB_DEL_LANG + { + HelpID = "basctl:PushButton:RID_DLG_MANAGE_LANGUAGE:PB_DEL_LANG"; + Pos = MAP_APPFONT ( MANAGE_COL3 , MANAGE_ROW3 ) ; + Size = MAP_APPFONT ( RSC_CD_PUSHBUTTON_WIDTH , RSC_CD_PUSHBUTTON_HEIGHT ) ; + TabStop = TRUE ; + Text [ en-US ] = "Delete" ; + }; + PushButton PB_MAKE_DEFAULT + { + HelpID = "basctl:PushButton:RID_DLG_MANAGE_LANGUAGE:PB_MAKE_DEFAULT"; + Pos = MAP_APPFONT ( MANAGE_COL3 , MANAGE_ROW4 ) ; + Size = MAP_APPFONT ( RSC_CD_PUSHBUTTON_WIDTH , RSC_CD_PUSHBUTTON_HEIGHT ) ; + TabStop = TRUE ; + Text [ en-US ] = "Default" ; + }; + FixedText FT_INFO + { + Pos = MAP_APPFONT ( MANAGE_COL1 , MANAGE_ROW5 ) ; + Size = MAP_APPFONT ( MANAGE_DLG_WIDTH - 2*RSC_SP_FLGR_INNERBORDER_LEFT, INFO_LINES_COUNT*RSC_CD_FIXEDTEXT_HEIGHT ) ; + WordBreak = TRUE ; + Text [ en-US ] = "The default language is used if no localization for a user interface locale is present. Furthermore all strings from the default language are copied to resources of newly added languages." ; + }; + FixedLine FL_BUTTONS + { + Pos = MAP_APPFONT ( 0 , MANAGE_ROW6 ) ; + Size = MAP_APPFONT ( MANAGE_DLG_WIDTH, RSC_CD_FIXEDLINE_HEIGHT ) ; + }; + HelpButton PB_HELP + { + Pos = MAP_APPFONT ( MANAGE_COL2 , MANAGE_ROW7 ) ; + Size = MAP_APPFONT ( RSC_CD_PUSHBUTTON_WIDTH , RSC_CD_PUSHBUTTON_HEIGHT ) ; + TabStop = TRUE ; + }; + OKButton PB_CLOSE + { + Pos = MAP_APPFONT ( MANAGE_COL3 , MANAGE_ROW7 ) ; + Size = MAP_APPFONT ( RSC_CD_PUSHBUTTON_WIDTH , RSC_CD_PUSHBUTTON_HEIGHT ) ; + TabStop = TRUE ; + DefButton = TRUE ; + Text [ en-US ] = "~Close" ; + }; + String STR_DEF_LANG + { + Text [ en-US ] = "[Default Language]" ; + }; + String STR_DELETE + { + Text [ en-US ] = "~Delete" ; + }; + String STR_CREATE_LANG + { + Text [ en-US ] = "<Press 'Add' to create language resources>" ; + }; +}; + +QueryBox RID_QRYBOX_LANGUAGE +{ + Title [ en-US ] = "Delete Language Resources" ; + Message [ en-US ] = "You are about to delete the resources for the selected language(s). All user interface strings for this language(s) will be deleted.\n\nDo you want to delete the resources of the selected language(s)?"; + BUTTONS = WB_OK_CANCEL ; + DEFBUTTON = WB_DEF_CANCEL ; +}; + +ModalDialog RID_DLG_SETDEF_LANGUAGE +{ + HelpId = HID_BASICIDE_SETDEFAULT_LANGUAGE ; + OutputSize = TRUE ; + Size = MAP_APPFONT ( SETDEF_DLG_WIDTH , SETDEF_DLG_HEIGHT ) ; + Moveable = TRUE ; + Closeable = TRUE ; + Text [ en-US ] = "Set Default User Interface Language" ; + FixedText FT_DEF_LANGUAGE + { + Pos = MAP_APPFONT ( SETDEF_COL1 , SETDEF_ROW1 ) ; + Size = MAP_APPFONT ( SETDEF_LB_WIDTH , RSC_CD_FIXEDTEXT_HEIGHT ) ; + Text [ en-US ] = "Default language" ; + }; + ListBox LB_DEF_LANGUAGE + { + HelpID = "basctl:ListBox:RID_DLG_SETDEF_LANGUAGE:LB_DEF_LANGUAGE"; + Pos = MAP_APPFONT ( SETDEF_COL1 , SETDEF_ROW2 ) ; + Size = MAP_APPFONT ( SETDEF_LB_WIDTH , SETDEF_LB_HEIGHT ) ; + Border = TRUE; + AutoHScroll = TRUE ; + }; + Control LB_ADD_LANGUAGE + { + HelpId = HID_BASICIDE_ADDNEW_CONTROL ; + Pos = MAP_APPFONT ( SETDEF_COL1 , SETDEF_ROW2 ) ; + Size = MAP_APPFONT ( SETDEF_LB_WIDTH , SETDEF_LB_HEIGHT ) ; + }; + FixedText FT_DEF_INFO + { + Pos = MAP_APPFONT ( SETDEF_COL1 , SETDEF_ROW3 ) ; + Size = MAP_APPFONT ( SETDEF_LB_WIDTH, INFO_LINES_COUNT*RSC_CD_FIXEDTEXT_HEIGHT ) ; + WordBreak = TRUE ; + Text [ en-US ] = "Select a language to define the default user interface language. All currently present strings will be assigned to the resources created for the selected language." ; + }; + FixedLine FL_DEF_BUTTONS + { + Pos = MAP_APPFONT ( 0 , SETDEF_ROW4 ) ; + Size = MAP_APPFONT ( SETDEF_DLG_WIDTH, RSC_CD_FIXEDLINE_HEIGHT ) ; + }; + OKButton PB_DEF_OK + { + Pos = MAP_APPFONT ( SETDEF_COL2 , SETDEF_ROW5 ) ; + Size = MAP_APPFONT ( RSC_CD_PUSHBUTTON_WIDTH , RSC_CD_PUSHBUTTON_HEIGHT ) ; + TabStop = TRUE ; + DefButton = TRUE ; + }; + CancelButton PB_DEF_CANCEL + { + Pos = MAP_APPFONT ( SETDEF_COL3 , SETDEF_ROW5 ) ; + Size = MAP_APPFONT ( RSC_CD_PUSHBUTTON_WIDTH , RSC_CD_PUSHBUTTON_HEIGHT ) ; + TabStop = TRUE ; + }; + HelpButton PB_DEF_HELP + { + Pos = MAP_APPFONT ( SETDEF_COL4 , SETDEF_ROW5 ) ; + Size = MAP_APPFONT ( RSC_CD_PUSHBUTTON_WIDTH , RSC_CD_PUSHBUTTON_HEIGHT ) ; + TabStop = TRUE ; + }; + String STR_ADDLANG_TITLE + { + Text [ en-US ] = "Add User Interface Languages" ; + }; + String STR_ADDLANG_LABEL + { + Text [ en-US ] = "Available Languages" ; + }; + String STR_ADDLANG_INFO + { + Text [ en-US ] = "Select languages to be added. Resources for these languages will be created in the library. Strings of the current default user interface language will be copied to these new resources by default." ; + }; +}; + +// ----------------------------------------------------------------------- + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/basctl/source/dlged/propbrw.cxx b/basctl/source/dlged/propbrw.cxx new file mode 100644 index 000000000000..ed6b49f130c1 --- /dev/null +++ b/basctl/source/dlged/propbrw.cxx @@ -0,0 +1,596 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_basctl.hxx" + +#include <sal/macros.h> +#include "propbrw.hxx" +#include "dlgedobj.hxx" + +#include "basidesh.hxx" +#include <iderid.hxx> + +#include <dlgresid.hrc> +#include <tools/debug.hxx> +#include <tools/diagnose_ex.h> +#include <sfx2/bindings.hxx> +#include <sfx2/childwin.hxx> +#include <sfx2/objitem.hxx> + +#include <svx/svxids.hrc> +#include <tools/shl.hxx> +#include <vcl/stdtext.hxx> +#include <svx/svdview.hxx> +#include <svx/svdogrp.hxx> +#include <svx/svdpage.hxx> +#include <svx/svditer.hxx> +#include <sfx2/viewsh.hxx> + +#include <toolkit/unohlp.hxx> +#include <comphelper/property.hxx> +#include <comphelper/composedprops.hxx> +#include <comphelper/stl_types.hxx> +#include <comphelper/types.hxx> +#include <com/sun/star/beans/PropertyValue.hpp> +#include <com/sun/star/awt/PosSize.hpp> +#include <com/sun/star/lang/XServiceInfo.hpp> +#include <com/sun/star/inspection/XObjectInspector.hpp> +#include <comphelper/processfactory.hxx> +#include <cppuhelper/component_context.hxx> + +#include <sfx2/dispatch.hxx> +#include <sfx2/viewfrm.hxx> + +using namespace ::com::sun::star; +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::lang; +using namespace ::com::sun::star::frame; +using namespace ::com::sun::star::beans; +using namespace ::com::sun::star::container; +using namespace ::comphelper; + + +SFX_IMPL_FLOATINGWINDOW(PropBrwMgr, SID_SHOW_PROPERTYBROWSER) + + +PropBrwMgr::PropBrwMgr( Window* _pParent, sal_uInt16 nId, + SfxBindings *pBindings, SfxChildWinInfo* pInfo) + :SfxChildWindow( _pParent, nId ) +{ + // set current selection + SfxViewShell* pShell = SfxViewShell::Current(); + pWindow = new PropBrw( + ::comphelper::getProcessServiceFactory(), + pBindings, + this, + _pParent, + pShell ? pShell->GetCurrentDocument() : Reference< XModel >() + ); + + eChildAlignment = SFX_ALIGN_NOALIGNMENT; + ((SfxFloatingWindow*)pWindow)->Initialize( pInfo ); + + ((PropBrw*)pWindow)->Update( pShell ); +} + + +void PropBrw::Update( const SfxViewShell* _pShell ) +{ + const BasicIDEShell* pBasicIDEShell = dynamic_cast< const BasicIDEShell* >( _pShell ); + OSL_ENSURE( pBasicIDEShell || !_pShell, "PropBrw::Update: invalid shell!" ); + if ( pBasicIDEShell ) + { + ImplUpdate( pBasicIDEShell->GetCurrentDocument(), pBasicIDEShell->GetCurDlgView() ); + } + else if ( _pShell ) + { + ImplUpdate( NULL, _pShell->GetDrawView() ); + } + else + { + ImplUpdate( NULL, NULL ); + } +} + + +const long STD_WIN_SIZE_X = 300; +const long STD_WIN_SIZE_Y = 350; + +const long STD_MIN_SIZE_X = 250; +const long STD_MIN_SIZE_Y = 250; + +const long STD_WIN_POS_X = 50; +const long STD_WIN_POS_Y = 50; +const long WIN_BORDER = 2; +const long MIN_WIN_SIZE_X = 50; +const long MIN_WIN_SIZE_Y = 50; + + +DBG_NAME(PropBrw) + + +PropBrw::PropBrw( const Reference< XMultiServiceFactory >& _xORB, SfxBindings* _pBindings, PropBrwMgr* _pMgr, Window* _pParent, + const Reference< XModel >& _rxContextDocument ) + :SfxFloatingWindow( _pBindings, _pMgr, _pParent, WinBits( WB_STDMODELESS | WB_SIZEABLE | WB_3DLOOK | WB_ROLLABLE ) ) + ,m_bInitialStateChange(sal_True) + ,m_xORB(_xORB) + ,m_xContextDocument( _rxContextDocument ) + ,pView( NULL ) +{ + DBG_CTOR(PropBrw,NULL); + + Size aPropWinSize(STD_WIN_SIZE_X,STD_WIN_SIZE_Y); + SetMinOutputSizePixel(Size(STD_MIN_SIZE_X,STD_MIN_SIZE_Y)); + SetOutputSizePixel(aPropWinSize); + + try + { + // create a frame wrapper for myself + m_xMeAsFrame = Reference< XFrame >(m_xORB->createInstance(::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.frame.Frame" ))), UNO_QUERY); + if (m_xMeAsFrame.is()) + { + m_xMeAsFrame->initialize( VCLUnoHelper::GetInterface ( this ) ); + m_xMeAsFrame->setName(::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "form property browser" ))); // change name! + } + } + catch (Exception&) + { + OSL_FAIL("PropBrw::PropBrw: could not create/initialize my frame!"); + m_xMeAsFrame.clear(); + } + + ImplReCreateController(); +} + + +void PropBrw::ImplReCreateController() +{ + OSL_PRECOND( m_xMeAsFrame.is(), "PropBrw::ImplCreateController: no frame for myself!" ); + if ( !m_xMeAsFrame.is() ) + return; + + if ( m_xBrowserController.is() ) + ImplDestroyController(); + + try + { + Reference< XPropertySet > xFactoryProperties( m_xORB, UNO_QUERY_THROW ); + Reference< XComponentContext > xOwnContext( + xFactoryProperties->getPropertyValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "DefaultContext" ) ) ), + UNO_QUERY_THROW ); + + // a ComponentContext for the + ::cppu::ContextEntry_Init aHandlerContextInfo[] = + { + ::cppu::ContextEntry_Init( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "DialogParentWindow" ) ), makeAny( VCLUnoHelper::GetInterface ( this ) ) ), + ::cppu::ContextEntry_Init( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "ContextDocument" ) ), makeAny( m_xContextDocument ) ) + }; + Reference< XComponentContext > xInspectorContext( + ::cppu::createComponentContext( aHandlerContextInfo, SAL_N_ELEMENTS( aHandlerContextInfo ), xOwnContext ) ); + + // create a property browser controller + Reference< XMultiComponentFactory > xFactory( xInspectorContext->getServiceManager(), UNO_QUERY_THROW ); + static const ::rtl::OUString s_sControllerServiceName( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.PropertyBrowserController" )); + m_xBrowserController = Reference< XPropertySet >( + xFactory->createInstanceWithContext( s_sControllerServiceName, xInspectorContext ), UNO_QUERY + ); + if ( !m_xBrowserController.is() ) + { + ShowServiceNotAvailableError( GetParent(), s_sControllerServiceName, sal_True ); + } + else + { + Reference< XController > xAsXController( m_xBrowserController, UNO_QUERY ); + DBG_ASSERT(xAsXController.is(), "PropBrw::PropBrw: invalid controller object!"); + if (!xAsXController.is()) + { + ::comphelper::disposeComponent(m_xBrowserController); + m_xBrowserController.clear(); + } + else + { + xAsXController->attachFrame(m_xMeAsFrame); + m_xBrowserComponentWindow = m_xMeAsFrame->getComponentWindow(); + DBG_ASSERT(m_xBrowserComponentWindow.is(), "PropBrw::PropBrw: attached the controller, but have no component window!"); + } + } + + Point aPropWinPos = Point( WIN_BORDER, WIN_BORDER ); + Size aPropWinSize(STD_WIN_SIZE_X,STD_WIN_SIZE_Y); + aPropWinSize.Width() -= (2*WIN_BORDER); + aPropWinSize.Height() -= (2*WIN_BORDER); + + if ( m_xBrowserComponentWindow.is() ) + { + m_xBrowserComponentWindow->setPosSize(aPropWinPos.X(), aPropWinPos.Y(), aPropWinSize.Width(), aPropWinSize.Height(), + ::com::sun::star::awt::PosSize::WIDTH | ::com::sun::star::awt::PosSize::HEIGHT | + ::com::sun::star::awt::PosSize::X | ::com::sun::star::awt::PosSize::Y); + m_xBrowserComponentWindow->setVisible(sal_True); + } + } + catch (Exception&) + { + OSL_FAIL("PropBrw::PropBrw: could not create/initialize the browser controller!"); + try + { + ::comphelper::disposeComponent(m_xBrowserController); + ::comphelper::disposeComponent(m_xBrowserComponentWindow); + } + catch(Exception&) + { + } + + m_xBrowserController.clear(); + m_xBrowserComponentWindow.clear(); + } + + Resize(); +} + + +PropBrw::~PropBrw() +{ + if ( m_xBrowserController.is() ) + ImplDestroyController(); + + DBG_DTOR(PropBrw,NULL); +} + + +void PropBrw::ImplDestroyController() +{ + implSetNewObject( Reference< XPropertySet >() ); + + if ( m_xMeAsFrame.is() ) + m_xMeAsFrame->setComponent( NULL, NULL ); + + Reference< XController > xAsXController( m_xBrowserController, UNO_QUERY ); + if ( xAsXController.is() ) + xAsXController->attachFrame( NULL ); + + try + { + ::comphelper::disposeComponent( m_xBrowserController ); + } + catch( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } + + m_xBrowserController.clear(); +} + + +sal_Bool PropBrw::Close() +{ + ImplDestroyController(); + + if( IsRollUp() ) + RollDown(); + + sal_Bool bClose = SfxFloatingWindow::Close(); + + return bClose; +} + + +Sequence< Reference< XInterface > > + PropBrw::CreateMultiSelectionSequence( const SdrMarkList& _rMarkList ) +{ + Sequence< Reference< XInterface > > aSeq; + InterfaceArray aInterfaces; + + sal_uInt32 nMarkCount = _rMarkList.GetMarkCount(); + for( sal_uInt32 i = 0 ; i < nMarkCount ; i++ ) + { + SdrObject* pCurrent = _rMarkList.GetMark(i)->GetMarkedSdrObj(); + + SdrObjListIter* pGroupIterator = NULL; + if (pCurrent->IsGroupObject()) + { + pGroupIterator = new SdrObjListIter(*pCurrent->GetSubList()); + pCurrent = pGroupIterator->IsMore() ? pGroupIterator->Next() : NULL; + } + + while (pCurrent) + { + DlgEdObj* pDlgEdObj = PTR_CAST(DlgEdObj, pCurrent); + if (pDlgEdObj) + { + Reference< XInterface > xControlInterface(pDlgEdObj->GetUnoControlModel(), UNO_QUERY); + if (xControlInterface.is()) + aInterfaces.push_back(xControlInterface); + } + + // next element + pCurrent = pGroupIterator && pGroupIterator->IsMore() ? pGroupIterator->Next() : NULL; + } + if (pGroupIterator) + delete pGroupIterator; + } + + sal_Int32 nCount = aInterfaces.size(); + aSeq.realloc( nCount ); + Reference< XInterface >* pInterfaces = aSeq.getArray(); + for( sal_Int32 i = 0 ; i < nCount ; i++ ) + pInterfaces[i] = aInterfaces[i]; + + return aSeq; +} + + +void PropBrw::implSetNewObjectSequence + ( const Sequence< Reference< XInterface > >& _rObjectSeq ) +{ + Reference< inspection::XObjectInspector > xObjectInspector(m_xBrowserController, UNO_QUERY); + if ( xObjectInspector.is() ) + { + xObjectInspector->inspect( _rObjectSeq ); + + ::rtl::OUString aText = ::rtl::OUString(String(IDEResId(RID_STR_BRWTITLE_PROPERTIES))); + aText += ::rtl::OUString(String(IDEResId(RID_STR_BRWTITLE_MULTISELECT))); + SetText( aText ); + } +} + + +void PropBrw::implSetNewObject( const Reference< XPropertySet >& _rxObject ) +{ + if ( m_xBrowserController.is() ) + { + m_xBrowserController->setPropertyValue( + ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "IntrospectedObject" )), + makeAny( _rxObject ) + ); + + // set the new title according to the selected object + SetText( GetHeadlineName( _rxObject ) ); + } +} + + +::rtl::OUString PropBrw::GetHeadlineName( const Reference< XPropertySet >& _rxObject ) +{ + ::rtl::OUString aName; + Reference< lang::XServiceInfo > xServiceInfo( _rxObject, UNO_QUERY ); + + if (xServiceInfo.is()) // single selection + { + sal_uInt16 nResId = 0; + aName = ::rtl::OUString(String(IDEResId(RID_STR_BRWTITLE_PROPERTIES))); + + if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialogModel" ) ) ) ) + { + nResId = RID_STR_CLASS_DIALOG; + } + else if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlButtonModel" ) ) ) ) + { + nResId = RID_STR_CLASS_BUTTON; + } + else if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlRadioButtonModel" ) ) ) ) + { + nResId = RID_STR_CLASS_RADIOBUTTON; + } + else if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlCheckBoxModel" ) ) ) ) + { + nResId = RID_STR_CLASS_CHECKBOX; + } + else if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlListBoxModel" ) ) ) ) + { + nResId = RID_STR_CLASS_LISTBOX; + } + else if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlComboBoxModel" ) ) ) ) + { + nResId = RID_STR_CLASS_COMBOBOX; + } + else if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlGroupBoxModel" ) ) ) ) + { + nResId = RID_STR_CLASS_GROUPBOX; + } + else if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlEditModel" ) ) ) ) + { + nResId = RID_STR_CLASS_EDIT; + } + else if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlFixedTextModel" ) ) ) ) + { + nResId = RID_STR_CLASS_FIXEDTEXT; + } + else if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlImageControlModel" ) ) ) ) + { + nResId = RID_STR_CLASS_IMAGECONTROL; + } + else if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlProgressBarModel" ) ) ) ) + { + nResId = RID_STR_CLASS_PROGRESSBAR; + } + else if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlScrollBarModel" ) ) ) ) + { + nResId = RID_STR_CLASS_SCROLLBAR; + } + else if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlFixedLineModel" ) ) ) ) + { + nResId = RID_STR_CLASS_FIXEDLINE; + } + else if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDateFieldModel" ) ) ) ) + { + nResId = RID_STR_CLASS_DATEFIELD; + } + else if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlTimeFieldModel" ) ) ) ) + { + nResId = RID_STR_CLASS_TIMEFIELD; + } + else if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlNumericFieldModel" ) ) ) ) + { + nResId = RID_STR_CLASS_NUMERICFIELD; + } + else if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlCurrencyFieldModel" ) ) ) ) + { + nResId = RID_STR_CLASS_CURRENCYFIELD; + } + else if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlFormattedFieldModel" ) ) ) ) + { + nResId = RID_STR_CLASS_FORMATTEDFIELD; + } + else if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlPatternFieldModel" ) ) ) ) + { + nResId = RID_STR_CLASS_PATTERNFIELD; + } + else if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlFileControlModel" ) ) ) ) + { + nResId = RID_STR_CLASS_FILECONTROL; + } + else if ( xServiceInfo->supportsService( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.tree.TreeControlModel" ) ) ) ) + { + nResId = RID_STR_CLASS_TREECONTROL; + } + else + { + nResId = RID_STR_CLASS_CONTROL; + } + + if (nResId) + { + aName += ::rtl::OUString( String(IDEResId(nResId)) ); + } + } + else if (!_rxObject.is()) // no properties + { + aName = ::rtl::OUString(String(IDEResId(RID_STR_BRWTITLE_NO_PROPERTIES))); + } + + return aName; +} + + +void PropBrw::FillInfo( SfxChildWinInfo& rInfo ) const +{ + rInfo.bVisible = sal_False; +} + + +void PropBrw::Resize() +{ + SfxFloatingWindow::Resize(); + + // adjust size + Size aSize_ = GetOutputSizePixel(); + Size aPropWinSize( aSize_ ); + aPropWinSize.Width() -= (2*WIN_BORDER); + aPropWinSize.Height() -= (2*WIN_BORDER); + + if (m_xBrowserComponentWindow.is()) + { + m_xBrowserComponentWindow->setPosSize(0, 0, aPropWinSize.Width(), aPropWinSize.Height(), + ::com::sun::star::awt::PosSize::WIDTH | ::com::sun::star::awt::PosSize::HEIGHT); + } +} + + +void PropBrw::ImplUpdate( const Reference< XModel >& _rxContextDocument, SdrView* pNewView ) +{ + Reference< XModel > xContextDocument( _rxContextDocument ); + + // if we should simply "empty" ourself, assume the context document didn't change + if ( !pNewView ) + { + OSL_ENSURE( !_rxContextDocument.is(), "PropBrw::ImplUpdate: no view, but a document?!" ); + xContextDocument = m_xContextDocument; + } + + if ( xContextDocument != m_xContextDocument ) + { + m_xContextDocument = xContextDocument; + ImplReCreateController(); + } + + try + { + if ( pView ) + { + EndListening( *(pView->GetModel()) ); + pView = NULL; + } + + if ( !pNewView ) + return; + + pView = pNewView; + + // set focus on initialization + if ( m_bInitialStateChange ) + { + if ( m_xBrowserComponentWindow.is() ) + m_xBrowserComponentWindow->setFocus(); + m_bInitialStateChange = sal_False; + } + + const SdrMarkList& rMarkList = pView->GetMarkedObjectList(); + sal_uInt32 nMarkCount = rMarkList.GetMarkCount(); + + if ( nMarkCount == 0 ) + { + EndListening( *(pView->GetModel()) ); + pView = NULL; + implSetNewObject( NULL ); + return; + } + + Reference< XPropertySet > xNewObject; + Sequence< Reference< XInterface > > aNewObjects; + if ( nMarkCount == 1 ) + { + DlgEdObj* pDlgEdObj = PTR_CAST( DlgEdObj, rMarkList.GetMark(0)->GetMarkedSdrObj() ); + if ( pDlgEdObj ) + { + if ( pDlgEdObj->IsGroupObject() ) // group object + aNewObjects = CreateMultiSelectionSequence( rMarkList ); + else // single selection + xNewObject = xNewObject.query( pDlgEdObj->GetUnoControlModel() ); + } + } + else if ( nMarkCount > 1 ) // multiple selection + { + aNewObjects = CreateMultiSelectionSequence( rMarkList ); + } + + if ( aNewObjects.getLength() ) + implSetNewObjectSequence( aNewObjects ); + else + implSetNewObject( xNewObject ); + + StartListening( *(pView->GetModel()) ); + } + catch ( const PropertyVetoException& ) { /* silence */ } + catch ( const Exception& ) + { + DBG_UNHANDLED_EXCEPTION(); + } +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/accessibledialogcontrolshape.hxx b/basctl/source/inc/accessibledialogcontrolshape.hxx new file mode 100644 index 000000000000..f45e4eb31e44 --- /dev/null +++ b/basctl/source/inc/accessibledialogcontrolshape.hxx @@ -0,0 +1,150 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _BASCTL_ACCESSIBLEDIALOGCONTROLSHAPE_HXX_ +#define _BASCTL_ACCESSIBLEDIALOGCONTROLSHAPE_HXX_ + +#include <com/sun/star/accessibility/XAccessible.hpp> +#include <com/sun/star/lang/XServiceInfo.hpp> +#include <com/sun/star/beans/XPropertyChangeListener.hpp> +#include <comphelper/accessiblecomponenthelper.hxx> +#include <cppuhelper/implbase3.hxx> +#include <com/sun/star/beans/XPropertySet.hpp> + +#include <vector> + +class Window; +class DialogWindow; +class DlgEdObj; +class VCLExternalSolarLock; + +namespace utl { +class AccessibleStateSetHelper; +} + + +// ---------------------------------------------------- +// class AccessibleDialogControlShape +// ---------------------------------------------------- + +typedef ::comphelper::OAccessibleExtendedComponentHelper AccessibleExtendedComponentHelper_BASE; + +typedef ::cppu::ImplHelper3< + ::com::sun::star::accessibility::XAccessible, + ::com::sun::star::lang::XServiceInfo, + ::com::sun::star::beans::XPropertyChangeListener > AccessibleDialogControlShape_BASE; + +class AccessibleDialogControlShape : public AccessibleExtendedComponentHelper_BASE, + public AccessibleDialogControlShape_BASE +{ + friend class AccessibleDialogWindow; + +private: + VCLExternalSolarLock* m_pExternalLock; + DialogWindow* m_pDialogWindow; + DlgEdObj* m_pDlgEdObj; + sal_Bool m_bFocused; + sal_Bool m_bSelected; + + ::com::sun::star::awt::Rectangle m_aBounds; + ::com::sun::star::uno::Reference< ::com::sun::star::beans::XPropertySet > m_xControlModel; + +protected: + sal_Bool IsFocused(); + sal_Bool IsSelected(); + + void SetFocused( sal_Bool bFocused ); + void SetSelected( sal_Bool bSelected ); + + ::com::sun::star::awt::Rectangle GetBounds(); + void SetBounds( const ::com::sun::star::awt::Rectangle& aBounds ); + + Window* GetWindow() const; + + ::rtl::OUString GetModelStringProperty( const sal_Char* pPropertyName ); + + virtual void FillAccessibleStateSet( utl::AccessibleStateSetHelper& rStateSet ); + + // OCommonAccessibleComponent + virtual ::com::sun::star::awt::Rectangle SAL_CALL implGetBounds( ) throw (::com::sun::star::uno::RuntimeException); + + // XComponent + virtual void SAL_CALL disposing(); + +public: + AccessibleDialogControlShape( DialogWindow* pDialogWindow, DlgEdObj* pDlgEdObj ); + virtual ~AccessibleDialogControlShape(); + + // XInterface + DECLARE_XINTERFACE() + + // XTypeProvider + DECLARE_XTYPEPROVIDER() + + // XEventListener + virtual void SAL_CALL disposing( const ::com::sun::star::lang::EventObject& rSource ) throw (::com::sun::star::uno::RuntimeException); + + // XPropertyChangeListener + virtual void SAL_CALL propertyChange( const ::com::sun::star::beans::PropertyChangeEvent& rEvent ) throw (::com::sun::star::uno::RuntimeException); + + // XServiceInfo + virtual ::rtl::OUString SAL_CALL getImplementationName() throw (::com::sun::star::uno::RuntimeException); + virtual sal_Bool SAL_CALL supportsService( const ::rtl::OUString& rServiceName ) throw (::com::sun::star::uno::RuntimeException); + virtual ::com::sun::star::uno::Sequence< ::rtl::OUString > SAL_CALL getSupportedServiceNames() throw (::com::sun::star::uno::RuntimeException); + + // XAccessible + virtual ::com::sun::star::uno::Reference< ::com::sun::star::accessibility::XAccessibleContext > SAL_CALL getAccessibleContext( ) throw (::com::sun::star::uno::RuntimeException); + + // XAccessibleContext + virtual sal_Int32 SAL_CALL getAccessibleChildCount( ) throw (::com::sun::star::uno::RuntimeException); + virtual ::com::sun::star::uno::Reference< ::com::sun::star::accessibility::XAccessible > SAL_CALL getAccessibleChild( sal_Int32 i ) throw (::com::sun::star::lang::IndexOutOfBoundsException, ::com::sun::star::uno::RuntimeException); + virtual ::com::sun::star::uno::Reference< ::com::sun::star::accessibility::XAccessible > SAL_CALL getAccessibleParent( ) throw (::com::sun::star::uno::RuntimeException); + virtual sal_Int32 SAL_CALL getAccessibleIndexInParent( ) throw (::com::sun::star::uno::RuntimeException); + virtual sal_Int16 SAL_CALL getAccessibleRole( ) throw (::com::sun::star::uno::RuntimeException); + virtual ::rtl::OUString SAL_CALL getAccessibleDescription( ) throw (::com::sun::star::uno::RuntimeException); + virtual ::rtl::OUString SAL_CALL getAccessibleName( ) throw (::com::sun::star::uno::RuntimeException); + virtual ::com::sun::star::uno::Reference< ::com::sun::star::accessibility::XAccessibleRelationSet > SAL_CALL getAccessibleRelationSet( ) throw (::com::sun::star::uno::RuntimeException); + virtual ::com::sun::star::uno::Reference< ::com::sun::star::accessibility::XAccessibleStateSet > SAL_CALL getAccessibleStateSet( ) throw (::com::sun::star::uno::RuntimeException); + virtual ::com::sun::star::lang::Locale SAL_CALL getLocale( ) throw (::com::sun::star::accessibility::IllegalAccessibleComponentStateException, ::com::sun::star::uno::RuntimeException); + + // XAccessibleComponent + virtual ::com::sun::star::uno::Reference< ::com::sun::star::accessibility::XAccessible > SAL_CALL getAccessibleAtPoint( const ::com::sun::star::awt::Point& aPoint ) throw (::com::sun::star::uno::RuntimeException); + virtual void SAL_CALL grabFocus( ) throw (::com::sun::star::uno::RuntimeException); + virtual sal_Int32 SAL_CALL getForeground( ) throw (::com::sun::star::uno::RuntimeException); + virtual sal_Int32 SAL_CALL getBackground( ) throw (::com::sun::star::uno::RuntimeException); + + // XAccessibleExtendedComponent + virtual ::com::sun::star::uno::Reference< ::com::sun::star::awt::XFont > SAL_CALL getFont( ) throw (::com::sun::star::uno::RuntimeException); + virtual ::rtl::OUString SAL_CALL getTitledBorderText( ) throw (::com::sun::star::uno::RuntimeException); + virtual ::rtl::OUString SAL_CALL getToolTipText( ) throw (::com::sun::star::uno::RuntimeException); +}; + + +#endif // _BASCTL_ACCESSIBLEDIALOGCONTROLSHAPE_HXX_ + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/accessibledialogwindow.hxx b/basctl/source/inc/accessibledialogwindow.hxx new file mode 100644 index 000000000000..ed8594a5c071 --- /dev/null +++ b/basctl/source/inc/accessibledialogwindow.hxx @@ -0,0 +1,177 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _BASCTL_ACCESSIBLEDIALOGWINDOW_HXX_ +#define _BASCTL_ACCESSIBLEDIALOGWINDOW_HXX_ + +#include <com/sun/star/accessibility/XAccessible.hpp> +#include <com/sun/star/accessibility/XAccessibleSelection.hpp> +#include <com/sun/star/lang/XServiceInfo.hpp> +#include <comphelper/accessiblecomponenthelper.hxx> +#include <cppuhelper/implbase3.hxx> +#include <tools/link.hxx> +#include <svl/lstner.hxx> + +#include <vector> + +class DialogWindow; +class DlgEditor; +class DlgEdModel; +class DlgEdObj; +class VCLExternalSolarLock; +class VclSimpleEvent; +class VclWindowEvent; + +namespace utl { +class AccessibleStateSetHelper; +} + + +// ---------------------------------------------------- +// class AccessibleDialogWindow +// ---------------------------------------------------- + +typedef ::comphelper::OAccessibleExtendedComponentHelper AccessibleExtendedComponentHelper_BASE; + +typedef ::cppu::ImplHelper3 < + ::com::sun::star::accessibility::XAccessible, + ::com::sun::star::accessibility::XAccessibleSelection, + ::com::sun::star::lang::XServiceInfo > AccessibleDialogWindow_BASE; + +class AccessibleDialogWindow : public AccessibleExtendedComponentHelper_BASE, + public AccessibleDialogWindow_BASE, + public SfxListener +{ +private: + + class ChildDescriptor + { + public: + DlgEdObj* pDlgEdObj; + ::com::sun::star::uno::Reference< ::com::sun::star::accessibility::XAccessible > rxAccessible; + + ChildDescriptor( DlgEdObj* _pDlgEdObj ); + ~ChildDescriptor(); + + ChildDescriptor( const ChildDescriptor& rDesc ); + ChildDescriptor& operator=( const ChildDescriptor& rDesc ); + + bool operator==( const ChildDescriptor& rDesc ); + bool operator<( const ChildDescriptor& rDesc ) const; + }; + + typedef ::std::vector< ChildDescriptor > AccessibleChildren; + + AccessibleChildren m_aAccessibleChildren; + VCLExternalSolarLock* m_pExternalLock; + DialogWindow* m_pDialogWindow; + DlgEditor* m_pDlgEditor; + DlgEdModel* m_pDlgEdModel; + +protected: + void UpdateFocused(); + void UpdateSelected(); + void UpdateBounds(); + + sal_Bool IsChildVisible( const ChildDescriptor& rDesc ); + + void InsertChild( const ChildDescriptor& rDesc ); + void RemoveChild( const ChildDescriptor& rDesc ); + void UpdateChild( const ChildDescriptor& rDesc ); + void UpdateChildren(); + void SortChildren(); + + DECL_LINK( WindowEventListener, VclSimpleEvent* ); + + virtual void ProcessWindowEvent( const VclWindowEvent& rVclWindowEvent ); + virtual void FillAccessibleStateSet( utl::AccessibleStateSetHelper& rStateSet ); + + // OCommonAccessibleComponent + virtual ::com::sun::star::awt::Rectangle SAL_CALL implGetBounds( ) throw (::com::sun::star::uno::RuntimeException); + + // XComponent + virtual void SAL_CALL disposing(); + +public: + AccessibleDialogWindow( DialogWindow* pDialogWindow ); + ~AccessibleDialogWindow(); + + // SfxListener + virtual void Notify( SfxBroadcaster& rBC, const SfxHint& rHint ); + + // XInterface + DECLARE_XINTERFACE() + + // XTypeProvider + DECLARE_XTYPEPROVIDER() + + // XServiceInfo + virtual ::rtl::OUString SAL_CALL getImplementationName() throw (::com::sun::star::uno::RuntimeException); + virtual sal_Bool SAL_CALL supportsService( const ::rtl::OUString& rServiceName ) throw (::com::sun::star::uno::RuntimeException); + virtual ::com::sun::star::uno::Sequence< ::rtl::OUString > SAL_CALL getSupportedServiceNames() throw (::com::sun::star::uno::RuntimeException); + + // XAccessible + virtual ::com::sun::star::uno::Reference< ::com::sun::star::accessibility::XAccessibleContext > SAL_CALL getAccessibleContext( ) throw (::com::sun::star::uno::RuntimeException); + + // XAccessibleContext + virtual sal_Int32 SAL_CALL getAccessibleChildCount( ) throw (::com::sun::star::uno::RuntimeException); + virtual ::com::sun::star::uno::Reference< ::com::sun::star::accessibility::XAccessible > SAL_CALL getAccessibleChild( sal_Int32 i ) throw (::com::sun::star::lang::IndexOutOfBoundsException, ::com::sun::star::uno::RuntimeException); + virtual ::com::sun::star::uno::Reference< ::com::sun::star::accessibility::XAccessible > SAL_CALL getAccessibleParent( ) throw (::com::sun::star::uno::RuntimeException); + virtual sal_Int32 SAL_CALL getAccessibleIndexInParent( ) throw (::com::sun::star::uno::RuntimeException); + virtual sal_Int16 SAL_CALL getAccessibleRole( ) throw (::com::sun::star::uno::RuntimeException); + virtual ::rtl::OUString SAL_CALL getAccessibleDescription( ) throw (::com::sun::star::uno::RuntimeException); + virtual ::rtl::OUString SAL_CALL getAccessibleName( ) throw (::com::sun::star::uno::RuntimeException); + virtual ::com::sun::star::uno::Reference< ::com::sun::star::accessibility::XAccessibleRelationSet > SAL_CALL getAccessibleRelationSet( ) throw (::com::sun::star::uno::RuntimeException); + virtual ::com::sun::star::uno::Reference< ::com::sun::star::accessibility::XAccessibleStateSet > SAL_CALL getAccessibleStateSet( ) throw (::com::sun::star::uno::RuntimeException); + virtual ::com::sun::star::lang::Locale SAL_CALL getLocale( ) throw (::com::sun::star::accessibility::IllegalAccessibleComponentStateException, ::com::sun::star::uno::RuntimeException); + + // XAccessibleComponent + virtual ::com::sun::star::uno::Reference< ::com::sun::star::accessibility::XAccessible > SAL_CALL getAccessibleAtPoint( const ::com::sun::star::awt::Point& aPoint ) throw (::com::sun::star::uno::RuntimeException); + virtual void SAL_CALL grabFocus( ) throw (::com::sun::star::uno::RuntimeException); + virtual sal_Int32 SAL_CALL getForeground( ) throw (::com::sun::star::uno::RuntimeException); + virtual sal_Int32 SAL_CALL getBackground( ) throw (::com::sun::star::uno::RuntimeException); + + // XAccessibleExtendedComponent + virtual ::com::sun::star::uno::Reference< ::com::sun::star::awt::XFont > SAL_CALL getFont( ) throw (::com::sun::star::uno::RuntimeException); + virtual ::rtl::OUString SAL_CALL getTitledBorderText( ) throw (::com::sun::star::uno::RuntimeException); + virtual ::rtl::OUString SAL_CALL getToolTipText( ) throw (::com::sun::star::uno::RuntimeException); + + // XAccessibleSelection + virtual void SAL_CALL selectAccessibleChild( sal_Int32 nChildIndex ) throw (::com::sun::star::lang::IndexOutOfBoundsException, ::com::sun::star::uno::RuntimeException); + virtual sal_Bool SAL_CALL isAccessibleChildSelected( sal_Int32 nChildIndex ) throw (::com::sun::star::lang::IndexOutOfBoundsException, ::com::sun::star::uno::RuntimeException); + virtual void SAL_CALL clearAccessibleSelection( ) throw (::com::sun::star::uno::RuntimeException); + virtual void SAL_CALL selectAllAccessibleChildren( ) throw (::com::sun::star::uno::RuntimeException); + virtual sal_Int32 SAL_CALL getSelectedAccessibleChildCount( ) throw (::com::sun::star::uno::RuntimeException); + virtual ::com::sun::star::uno::Reference< ::com::sun::star::accessibility::XAccessible > SAL_CALL getSelectedAccessibleChild( sal_Int32 nSelectedChildIndex ) throw (::com::sun::star::lang::IndexOutOfBoundsException, ::com::sun::star::uno::RuntimeException); + virtual void SAL_CALL deselectAccessibleChild( sal_Int32 nChildIndex ) throw (::com::sun::star::lang::IndexOutOfBoundsException, ::com::sun::star::uno::RuntimeException); +}; + + +#endif // _BASCTL_ACCESSIBLEDIALOGWINDOW_HXX_ + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/baside3.hxx b/basctl/source/inc/baside3.hxx new file mode 100644 index 000000000000..556254185802 --- /dev/null +++ b/basctl/source/inc/baside3.hxx @@ -0,0 +1,117 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _BASIDE3_HXX +#define _BASIDE3_HXX + +#include <bastypes.hxx> +#include <svl/undo.hxx> +#include <vcl/dialog.hxx> +#include <vcl/button.hxx> +#include <vcl/lstbox.hxx> +#include <vcl/fixed.hxx> + +#include <com/sun/star/script/XLibraryContainer.hpp> + +class Printer; +class StarBASIC; +class SfxItemSet; +class DlgEditor; +class DlgEdModel; +class DlgEdPage; +class DlgEdView; +class SfxUndoManager; + +class DialogWindow: public IDEBaseWindow +{ +private: + DlgEditor* pEditor; + SfxUndoManager* pUndoMgr; + Link aOldNotifyUndoActionHdl; + String aCurPath; + +protected: + virtual void Paint( const Rectangle& ); + virtual void Resize(); + + virtual void MouseButtonDown( const MouseEvent& rMEvt ); + virtual void MouseButtonUp( const MouseEvent& rMEvt ); + virtual void MouseMove( const MouseEvent& rMEvt ); + virtual void KeyInput( const KeyEvent& rKEvt ); + virtual void Command( const CommandEvent& rCEvt ); + virtual void LoseFocus(); + + DECL_LINK( NotifyUndoActionHdl, SfxUndoAction * ); + virtual void DoInit(); + virtual void DoScroll( ScrollBar* pCurScrollBar ); + virtual void DataChanged( const DataChangedEvent& rDCEvt ); + void InitSettings(sal_Bool bFont,sal_Bool bForeground,sal_Bool bBackground); + +public: + TYPEINFO(); + DialogWindow( Window* pParent, const ScriptDocument& rDocument, String aLibName, String aName, + const com::sun::star::uno::Reference< com::sun::star::container::XNameContainer >& xDialogModel ); + DialogWindow( DialogWindow* pCurView ); // never implemented + ~DialogWindow(); + + virtual void ExecuteCommand( SfxRequest& rReq ); + virtual void GetState( SfxItemSet& ); + DlgEditor* GetEditor() const { return pEditor; } + ::com::sun::star::uno::Reference< ::com::sun::star::container::XNameContainer > GetDialog() const; + DlgEdModel* GetModel() const; + DlgEdPage* GetPage() const; + DlgEdView* GetView() const; + sal_Bool RenameDialog( const String& rNewName ); + void DisableBrowser(); + void UpdateBrowser(); + sal_Bool SaveDialog(); + sal_Bool ImportDialog(); + + virtual String GetTitle(); + virtual BasicEntryDescriptor CreateEntryDescriptor(); + virtual void SetReadOnly( sal_Bool bReadOnly ); + virtual sal_Bool IsReadOnly(); + + virtual void StoreData(); + virtual sal_Bool IsModified(); + virtual sal_Bool IsPasteAllowed(); + + virtual ::svl::IUndoManager* + GetUndoManager(); + // return number of pages to be printed + virtual sal_Int32 countPages( Printer* pPrinter ); + // print page + virtual void printPage( sal_Int32 nPage, Printer* pPrinter ); + virtual void Deactivating(); + + virtual ::com::sun::star::uno::Reference< ::com::sun::star::accessibility::XAccessible > CreateAccessible(); +}; + +#endif // _BASIDE3_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/basidectrlr.hxx b/basctl/source/inc/basidectrlr.hxx new file mode 100644 index 000000000000..8532b7691c74 --- /dev/null +++ b/basctl/source/inc/basidectrlr.hxx @@ -0,0 +1,76 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _BASCTL_BASICIDECTRLR_HXX +#define _BASCTL_BASICIDECTRLR_HXX + +#include <comphelper/broadcasthelper.hxx> +#include <comphelper/propertycontainer.hxx> +#include <comphelper/proparrhlp.hxx> +#include <sfx2/sfxbasecontroller.hxx> + + +class BasicIDEShell; + + +class BasicIDEController :public comphelper::OMutexAndBroadcastHelper + ,public ::comphelper::OPropertyContainer + ,public ::comphelper::OPropertyArrayUsageHelper< BasicIDEController > + ,public SfxBaseController +{ +private: + // properties + sal_Int32 m_nIconId; + +public: + BasicIDEController( BasicIDEShell* pViewShell ); + virtual ~BasicIDEController(); + + // XInterface + virtual ::com::sun::star::uno::Any SAL_CALL queryInterface( const ::com::sun::star::uno::Type & rType ) throw(::com::sun::star::uno::RuntimeException); + virtual void SAL_CALL acquire() throw(); + virtual void SAL_CALL release() throw(); + + // XTypeProvider ( ::SfxBaseController ) + virtual ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Type > SAL_CALL getTypes() throw( ::com::sun::star::uno::RuntimeException ); + virtual ::com::sun::star::uno::Sequence< sal_Int8 > SAL_CALL getImplementationId() throw( ::com::sun::star::uno::RuntimeException ); + + // XPropertySet + virtual ::com::sun::star::uno::Reference< ::com::sun::star::beans::XPropertySetInfo > SAL_CALL getPropertySetInfo( ) throw(::com::sun::star::uno::RuntimeException); + + // OPropertySetHelper + virtual ::cppu::IPropertyArrayHelper& SAL_CALL getInfoHelper(); + +protected: + // OPropertyArrayUsageHelper + virtual ::cppu::IPropertyArrayHelper* createArrayHelper( ) const; +}; + +#endif // _BASCTL_BASICIDECTRLR_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/basidesh.hxx b/basctl/source/inc/basidesh.hxx new file mode 100644 index 000000000000..20f2f1543a4c --- /dev/null +++ b/basctl/source/inc/basidesh.hxx @@ -0,0 +1,240 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#ifndef _BASIDESH_HXX +#define _BASIDESH_HXX + +#include "sbxitem.hxx" + +#include "scriptdocument.hxx" +#include "doceventnotifier.hxx" +#include <sfx2/viewfac.hxx> +#include <sfx2/shell.hxx> +#include <vcl/scrbar.hxx> +#include <tools/table.hxx> +#include <sfx2/viewsh.hxx> +#include <svx/ifaceids.hxx> + +#include <com/sun/star/io/XInputStreamProvider.hpp> + +#include <com/sun/star/container/XContainerListener.hpp> + +//---------------------------------------------------------------------------- + +const sal_uLong BASICIDE_UI_FEATURE_SHOW_BROWSER = 0x00000001; + +//---------------------------------------------------------------------------- + +class ModulWindow; +class ModulWindowLayout; +class DialogWindow; +class SdrView; +class ObjectCatalog; +class BasicIDETabBar; +class TabBar; +class IDEBaseWindow; +class SbxObject; +class SbModule; +class StarBASIC; +class LocalizationMgr; +struct BasicIDEShell_Impl; + +#if _SOLAR__PRIVATE +DECLARE_TABLE( IDEWindowTable, IDEBaseWindow* ) +#else +typedef Table IDEWindowTable; +#endif + +namespace BasicIDE +{ + bool RemoveDialog( const ScriptDocument& rDocument, const String& rLibName, const String& rDlgName ); +} + +class BasicIDEShell :public SfxViewShell + ,public ::basctl::DocumentEventListener +{ +friend class JavaDebuggingListenerImpl; +friend class LocalizationMgr; +friend sal_Bool implImportDialog( Window* pWin, const String& rCurPath, const ScriptDocument& rDocument, const String& aLibName ); +friend bool BasicIDE::RemoveDialog( const ScriptDocument& rDocument, const String& rLibName, const String& rDlgName ); + + ObjectCatalog* pObjectCatalog; + + IDEWindowTable aIDEWindowTable; + sal_uInt16 nCurKey; + IDEBaseWindow* pCurWin; + ScriptDocument m_aCurDocument; + String m_aCurLibName; + LocalizationMgr* m_pCurLocalizationMgr; + + ScrollBar aHScrollBar; + ScrollBar aVScrollBar; + ScrollBarBox aScrollBarBox; + BasicIDETabBar* pTabBar; + sal_Bool bTabBarSplitted; + sal_Bool bCreatingWindow; + ModulWindowLayout* pModulLayout; + sal_Bool m_bAppBasicModified; + ::basctl::DocumentEventNotifier + m_aNotifier; +friend class ContainerListenerImpl; + ::com::sun::star::uno::Reference< ::com::sun::star::container::XContainerListener > m_xLibListener; + +#if _SOLAR__PRIVATE + void Init(); + void InitTabBar(); + void InitScrollBars(); + void CheckWindows(); + void RemoveWindows( const ScriptDocument& rDocument, const String& rLibName, sal_Bool bDestroy ); + void UpdateWindows(); + void ShowObjectDialog( sal_Bool bShow, sal_Bool bCreateOrDestroy ); + void InvalidateBasicIDESlots(); + void StoreAllWindowData( sal_Bool bPersistent = sal_True ); + void SetMDITitle(); + void EnableScrollbars( sal_Bool bEnable ); + void SetCurLib( const ScriptDocument& rDocument, String aLibName, bool bUpdateWindows = true , bool bCheck = true ); + void SetCurLibForLocalization( const ScriptDocument& rDocument, String aLibName ); + + void ImplStartListening( StarBASIC* pBasic ); + + DECL_LINK( TabBarHdl, TabBar* ); + DECL_LINK( AccelSelectHdl, Accelerator* ); + DECL_LINK( ObjectDialogCancelHdl, ObjectCatalog * ); + DECL_LINK( TabBarSplitHdl, TabBar * ); +#endif + +protected: + virtual void AdjustPosSizePixel( const Point &rPos, const Size &rSize ); + virtual void OuterResizePixel( const Point &rPos, const Size &rSize ); + virtual Size GetOptimalSizePixel() const; + sal_uInt16 InsertWindowInTable( IDEBaseWindow* pNewWin ); + virtual sal_uInt16 PrepareClose( sal_Bool bUI, sal_Bool bForBrowsing ); + + void SetCurWindow( IDEBaseWindow* pNewWin, sal_Bool bUpdateTabBar = sal_False, sal_Bool bRememberAsCurrent = sal_True ); + void ManageToolbars(); + void RemoveWindow( IDEBaseWindow* pWindow, sal_Bool bDestroy, sal_Bool bAllowChangeCurWindow = sal_True ); + void ArrangeTabBar(); + + ModulWindow* CreateBasWin( const ScriptDocument& rDocument, const String& rLibName, const String& rModName ); + DialogWindow* CreateDlgWin( const ScriptDocument& rDocument, const String& rLibName, const String& rDlgName ); + + ModulWindow* FindBasWin( const ScriptDocument& rDocument, const String& rLibName, const String& rModName, sal_Bool bCreateIfNotExist, sal_Bool bFindSuspended = sal_False ); + ModulWindow* ShowActiveModuleWindow( StarBASIC* pBasic ); + + virtual void SFX_NOTIFY( SfxBroadcaster& rBC, const TypeId& rBCType, + const SfxHint& rHint, const TypeId& rHintType ); + + virtual void Activate(sal_Bool bMDI); + virtual void Deactivate(sal_Bool bMDI); + + virtual void Move(); + virtual void ShowCursor( bool bOn = true ); + + void CreateModulWindowLayout(); + void DestroyModulWindowLayout(); + void UpdateModulWindowLayout( bool bBasicStopped ); + + // DocumentEventListener + virtual void onDocumentCreated( const ScriptDocument& _rDocument ); + virtual void onDocumentOpened( const ScriptDocument& _rDocument ); + virtual void onDocumentSave( const ScriptDocument& _rDocument ); + virtual void onDocumentSaveDone( const ScriptDocument& _rDocument ); + virtual void onDocumentSaveAs( const ScriptDocument& _rDocument ); + virtual void onDocumentSaveAsDone( const ScriptDocument& _rDocument ); + virtual void onDocumentClosed( const ScriptDocument& _rDocument ); + virtual void onDocumentTitleChanged( const ScriptDocument& _rDocument ); + virtual void onDocumentModeChanged( const ScriptDocument& _rDocument ); + +public: + TYPEINFO(); + SFX_DECL_INTERFACE( SVX_INTERFACE_BASIDE_VIEWSH ) + SFX_DECL_VIEWFACTORY(BasicIDEShell); + + BasicIDEShell( SfxViewFrame *pFrame, SfxViewShell *pOldSh ); + ~BasicIDEShell(); + + IDEBaseWindow* GetCurWindow() const { return pCurWin; } + const ScriptDocument& + GetCurDocument() const { return m_aCurDocument; } + const String& GetCurLibName() const { return m_aCurLibName; } + ObjectCatalog* GetObjectCatalog() const { return pObjectCatalog; } + LocalizationMgr* GetCurLocalizationMgr() const { return m_pCurLocalizationMgr; } + + ScrollBar& GetHScrollBar() { return aHScrollBar; } + ScrollBar& GetVScrollBar() { return aVScrollBar; } + ScrollBarBox& GetScrollBarBox() { return aScrollBarBox; } + TabBar* GetTabBar() { return (TabBar*)pTabBar; } + IDEWindowTable& GetIDEWindowTable() { return aIDEWindowTable; } + + SdrView* GetCurDlgView() const; + + ::svl::IUndoManager* + GetUndoManager(); + + virtual com::sun::star::uno::Reference< com::sun::star::view::XRenderable > GetRenderable(); + + // virtual sal_uInt16 Print( SfxProgress &rProgress, sal_Bool bIsAPI, PrintDialog *pPrintDialog = 0 ); + virtual SfxPrinter* GetPrinter( sal_Bool bCreate ); + virtual sal_uInt16 SetPrinter( SfxPrinter *pNewPrinter, sal_uInt16 nDiffFlags = SFX_PRINTER_ALL, bool bIsAPI=false ); + virtual String GetSelectionText( sal_Bool bCompleteWords ); + virtual sal_Bool HasSelection( sal_Bool bText ) const; + + void GetState( SfxItemSet& ); + void ExecuteGlobal( SfxRequest& rReq ); + void ExecuteCurrent( SfxRequest& rReq ); + void ExecuteBasic( SfxRequest& rReq ); + void ExecuteDialog( SfxRequest& rReq ); + + virtual sal_Bool HasUIFeature( sal_uInt32 nFeature ); + + long CallBasicErrorHdl( StarBASIC* pBasic ); + long CallBasicBreakHdl( StarBASIC* pBasic ); + + ModulWindowLayout* GetLayoutWindow() const { return pModulLayout; } + + IDEBaseWindow* FindWindow( const ScriptDocument& rDocument, const String& rLibName = String(), const String& rName = String(), sal_uInt16 nType = BASICIDE_TYPE_UNKNOWN, sal_Bool bFindSuspended = sal_False ); + DialogWindow* FindDlgWin( const ScriptDocument& rDocument, const String& rLibName, const String& rDlgName, sal_Bool bCreateIfNotExist, sal_Bool bFindSuspended = sal_False ); + IDEBaseWindow* FindApplicationWindow(); + sal_Bool NextPage( sal_Bool bPrev = sal_False ); + + sal_Bool IsAppBasicModified() const { return m_bAppBasicModified; } + void SetAppBasicModified( sal_Bool bModified = sal_True ) { m_bAppBasicModified = bModified; } + + // For Dialog Drag&Drop in Dialog Organizer + static void CopyDialogResources( + ::com::sun::star::uno::Reference< ::com::sun::star::io::XInputStreamProvider >& io_xISP, + const ScriptDocument& rSourceDoc, const String& rSourceLibName, const ScriptDocument& rDestDoc, + const String& rDestLibName, const String& rDlgName ); + + virtual ::com::sun::star::uno::Reference< ::com::sun::star::frame::XModel > + GetCurrentDocument() const; + +}; + +#endif // _BASIDESH_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/basobj.hxx b/basctl/source/inc/basobj.hxx new file mode 100644 index 000000000000..08126ad33bdf --- /dev/null +++ b/basctl/source/inc/basobj.hxx @@ -0,0 +1,128 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#ifndef _BASOBJ_HXX +#define _BASOBJ_HXX + +#include "scriptdocument.hxx" +#include <tools/string.hxx> +#include <svl/lstner.hxx> + +#include <com/sun/star/io/XInputStreamProvider.hpp> +#include <com/sun/star/script/XLibraryContainer.hpp> +#include <com/sun/star/frame/XModel.hpp> + +class SfxMacro; +class SbMethod; +class SbModule; +class SbxObject; +class SbxVariable; +class StarBASIC; +class BasicManager; +class SfxUInt16Item; +class SfxBindings; +class Window; +struct BasicIDE_Impl; + +namespace BasicIDE +{ + void Organize( sal_Int16 tabId ); + + + // Hilfsmethoden fuer den allg. Gebrauch: + SbMethod* CreateMacro( SbModule* pModule, const String& rMacroName ); + void RunMethod( SbMethod* pMethod ); + + StarBASIC* FindBasic( const SbxVariable* pVar ); + void StopBasic(); + long HandleBasicError( StarBASIC* pBasic ); + void BasicStopped( sal_Bool* pbAppWindowDisabled = 0, sal_Bool* pbDispatcherLocked = 0, sal_uInt16* pnWaitCount = 0, + SfxUInt16Item** ppSWActionCount = 0, SfxUInt16Item** ppSWLockViewCount = 0 ); + + sal_Bool IsValidSbxName( const String& rName ); + + BasicManager* FindBasicManager( StarBASIC* pLib ); + + SfxBindings* GetBindingsPtr(); + + void InvalidateDebuggerSlots(); + + // libraries + + ::com::sun::star::uno::Sequence< ::rtl::OUString > GetMergedLibraryNames( + const ::com::sun::star::uno::Reference< ::com::sun::star::script::XLibraryContainer >& xModLibContainer, + const ::com::sun::star::uno::Reference< ::com::sun::star::script::XLibraryContainer >& xDlgLibContainer ); + + // new methods for modules + + ::rtl::OUString GetModule( + const ScriptDocument& rDocument, const String& rLibName, const String& rModName ) + throw( ::com::sun::star::container::NoSuchElementException ); + + /** renames a module + + Will show an error message when renaming fails because the new name is already used. + */ + bool RenameModule( + Window* pErrorParent, const ScriptDocument& rDocument, + const String& rLibName, const String& rOldName, const String& rNewName ); + + // new methods for macros + + ::rtl::OUString ChooseMacro( const ::com::sun::star::uno::Reference< ::com::sun::star::frame::XModel >& rxLimitToDocument, + sal_Bool bChooseOnly, const ::rtl::OUString& rMacroDesc ); + + ::com::sun::star::uno::Sequence< ::rtl::OUString > GetMethodNames( + const ScriptDocument& rDocument, const String& rLibName, const String& rModName ) + throw( ::com::sun::star::container::NoSuchElementException ); + + sal_Bool HasMethod( + const ScriptDocument& rDocument, const String& rLibName, const String& rModName, const String& rMethName ); + + // new methods for dialogs + + ::com::sun::star::uno::Reference< ::com::sun::star::io::XInputStreamProvider > GetDialog( + const ScriptDocument& rDocument, const String& rLibName, const String& rDlgName ) + throw( ::com::sun::star::container::NoSuchElementException ); + + /** renames a dialog + + Will show an error message when renaming fails because the new name is already used. + */ + bool RenameDialog( + Window* pErrorParent, const ScriptDocument& rDocument, const String& rLibName, const String& rOldName, const String& rNewName ) + throw( ::com::sun::star::container::ElementExistException, ::com::sun::star::container::NoSuchElementException ); + + bool RemoveDialog( + const ScriptDocument& rDocument, const String& rLibName, const String& rDlgName ); + + void MarkDocumentModified( const ScriptDocument& rDocument ); +} + +#endif // _BASOBJ_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/bastypes.hxx b/basctl/source/inc/bastypes.hxx new file mode 100644 index 000000000000..3d57ce7da634 --- /dev/null +++ b/basctl/source/inc/bastypes.hxx @@ -0,0 +1,352 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#ifndef _BASTYPES_HXX +#define _BASTYPES_HXX + +#include <svheader.hxx> + +#include "scriptdocument.hxx" + +class ModulWindow; +class SfxRequest; +class SvTreeListBox; +class SvLBoxEntry; +class ScrollBar; +class SbModule; +class BasicManager; +class SfxItemSet; +#include <vcl/dockwin.hxx> +#include <vcl/toolbox.hxx> +#include <basic/sbstar.hxx> + +#include <iderid.hxx> + +#include <tools/table.hxx> + +#include <svtools/tabbar.hxx> +#include <com/sun/star/script/XLibraryContainer.hpp> + +#include <boost/unordered_map.hpp> +#include <vector> + +#define LINE_SEP_CR 0x0D +#define LINE_SEP 0x0A + +// Implementation: baside2b.cxx +sal_Int32 searchEOL( const ::rtl::OUString& rStr, sal_Int32 fromIndex ); + + +// Bedeutung von bToBeKilled: +// Wenn in Reschedule-Schleife, darf ich das Fenster nicht zerstoeren. +// Es muss erst aus der Reschedule-Schleife Fallen, um sich dann +// selbst zu zerstoeren. +// Geht so leider nicht: Destroying Window with living Child! + + +struct BasicStatus +{ + sal_Bool bIsRunning : 1; + sal_Bool bError : 1; + sal_Bool bIsInReschedule : 1; + sal_uInt16 nBasicFlags; + + BasicStatus() { + bIsRunning = sal_False; bError = sal_False; + nBasicFlags = 0; bIsInReschedule = sal_False; } +}; + +struct BreakPoint +{ + bool bEnabled; + bool bTemp; + size_t nLine; + size_t nStopAfter; + size_t nHitCount; + + BreakPoint( size_t nL ) { nLine = nL; nStopAfter = 0; nHitCount = 0; bEnabled = true; bTemp = false; } +}; + +class BasicDockingWindow : public DockingWindow +{ + Rectangle aFloatingPosAndSize; + +protected: + virtual sal_Bool Docking( const Point& rPos, Rectangle& rRect ); + virtual void EndDocking( const Rectangle& rRect, sal_Bool bFloatMode ); + virtual void ToggleFloatingMode(); + virtual sal_Bool PrepareToggleFloatingMode(); + virtual void StartDocking(); + +public: + BasicDockingWindow( Window* pParent ); +}; + +class BreakPointList +{ +private: + void operator =(BreakPointList); // not implemented + ::std::vector< BreakPoint* > maBreakPoints; + +public: + BreakPointList(); + + BreakPointList(BreakPointList const & rList); + + ~BreakPointList(); + + void reset(); + + void transfer(BreakPointList & rList); + + void InsertSorted( BreakPoint* pBrk ); + BreakPoint* FindBreakPoint( size_t nLine ); + void AdjustBreakPoints( size_t nLine, bool bInserted ); + void SetBreakPointsInBasic( SbModule* pModule ); + void ResetHitCount(); + + size_t size() const; + BreakPoint* at( size_t i ); + const BreakPoint* at( size_t i ) const; + BreakPoint* remove( BreakPoint* ptr ); + void push_back( BreakPoint* item ); + void clear(); +}; + +// helper class for sorting TabBar +class TabBarSortHelper +{ +public: + sal_uInt16 nPageId; + String aPageText; + + bool operator<(const TabBarSortHelper& rComp) const { return (aPageText.CompareIgnoreCaseToAscii( rComp.aPageText ) == COMPARE_LESS); } +}; + +class BasicIDETabBar : public TabBar +{ +protected: + virtual void MouseButtonDown( const MouseEvent& rMEvt ); + virtual void Command( const CommandEvent& rCEvt ); + + virtual long AllowRenaming(); + virtual void EndRenaming(); + +public: + BasicIDETabBar( Window* pParent ); + + void Sort(); +}; + +#define BASWIN_OK 0x00 +#define BASWIN_RUNNINGBASIC 0x01 +#define BASWIN_TOBEKILLED 0x02 +#define BASWIN_SUSPENDED 0x04 +#define BASWIN_INRESCHEDULE 0x08 + +class Printer; +class BasicEntryDescriptor; + +namespace svl +{ + class IUndoManager; +} + +class IDEBaseWindow : public Window +{ +private: + ScrollBar* pShellHScrollBar; + ScrollBar* pShellVScrollBar; + + DECL_LINK( ScrollHdl, ScrollBar * ); + sal_uInt8 nStatus; + + ScriptDocument m_aDocument; + String m_aLibName; + String m_aName; + +protected: + virtual void DoScroll( ScrollBar* pCurScrollBar ); + +public: + TYPEINFO(); + IDEBaseWindow( Window* pParent, const ScriptDocument& rDocument, String aLibName, String aName ); + virtual ~IDEBaseWindow(); + + void Init(); + virtual void DoInit(); + virtual void Deactivating(); + void GrabScrollBars( ScrollBar* pHScroll, ScrollBar* pVScroll ); + + ScrollBar* GetHScrollBar() const { return pShellHScrollBar; } + ScrollBar* GetVScrollBar() const { return pShellVScrollBar; } + + virtual void ExecuteCommand( SfxRequest& rReq ); + virtual void GetState( SfxItemSet& ); + virtual long Notify( NotifyEvent& rNEvt ); + + virtual void StoreData(); + virtual void UpdateData(); + virtual sal_Bool CanClose(); + + // return number of pages to be printed + virtual sal_Int32 countPages( Printer* pPrinter ) = 0; + // print page + virtual void printPage( sal_Int32 nPage, Printer* pPrinter ) = 0; + + virtual String GetTitle(); + String CreateQualifiedName(); + virtual BasicEntryDescriptor CreateEntryDescriptor() = 0; + + virtual sal_Bool IsModified(); + virtual sal_Bool IsPasteAllowed(); + + virtual sal_Bool AllowUndo(); + + virtual void SetReadOnly( sal_Bool bReadOnly ); + virtual sal_Bool IsReadOnly(); + + sal_uInt8 GetStatus() { return nStatus; } + void SetStatus( sal_uInt8 n ) { nStatus = n; } + void AddStatus( sal_uInt8 n ) { nStatus = nStatus | n; } + void ClearStatus( sal_uInt8 n ) { nStatus = nStatus & ~n; } + + virtual Window* GetLayoutWindow(); + + virtual ::svl::IUndoManager* + GetUndoManager(); + + virtual sal_uInt16 GetSearchOptions(); + + virtual void BasicStarted(); + virtual void BasicStopped(); + + sal_Bool IsSuspended() const + { return ( nStatus & BASWIN_SUSPENDED ) ? sal_True : sal_False; } + + const ScriptDocument& + GetDocument() const { return m_aDocument; } + void SetDocument( const ScriptDocument& rDocument ) { m_aDocument = rDocument; } + bool IsDocument( const ScriptDocument& rDocument ) const { return rDocument == m_aDocument; } + const String& GetLibName() const { return m_aLibName; } + void SetLibName( const String& aLibName ) { m_aLibName = aLibName; } + const String& GetName() const { return m_aName; } + void SetName( const String& aName ) { m_aName = aName; } +}; + +class LibInfoKey +{ +private: + ScriptDocument m_aDocument; + String m_aLibName; + +public: + LibInfoKey( const ScriptDocument& rDocument, const String& rLibName ); + ~LibInfoKey(); + + LibInfoKey( const LibInfoKey& rKey ); + LibInfoKey& operator=( const LibInfoKey& rKey ); + + bool operator==( const LibInfoKey& rKey ) const; + + const ScriptDocument& + GetDocument() const { return m_aDocument; } + const String& GetLibName() const { return m_aLibName; } +}; + +class LibInfoItem +{ +private: + ScriptDocument m_aDocument; + String m_aLibName; + String m_aCurrentName; + sal_uInt16 m_nCurrentType; + +public: + LibInfoItem( const ScriptDocument& rDocument, const String& rLibName, const String& rCurrentName, sal_uInt16 nCurrentType ); + ~LibInfoItem(); + + LibInfoItem( const LibInfoItem& rItem ); + LibInfoItem& operator=( const LibInfoItem& rItem ); + + const ScriptDocument& + GetDocument() const { return m_aDocument; } + const String& GetLibName() const { return m_aLibName; } + const String& GetCurrentName() const { return m_aCurrentName; } + sal_uInt16 GetCurrentType() const { return m_nCurrentType; } +}; + +class LibInfos +{ +private: + + struct LibInfoKeyHash + { + size_t operator()( const LibInfoKey& rKey ) const + { + size_t nHash = (size_t) rKey.GetDocument().hashCode(); + nHash += (size_t) ::rtl::OUString( rKey.GetLibName() ).hashCode(); + return nHash; + } + }; + + typedef ::boost::unordered_map< LibInfoKey, LibInfoItem*, LibInfoKeyHash, ::std::equal_to< LibInfoKey > > LibInfoMap; + LibInfoMap m_aLibInfoMap; + +public: + LibInfos(); + ~LibInfos(); + + void InsertInfo( LibInfoItem* pItem ); + void RemoveInfoFor( const ScriptDocument& _rDocument ); + + LibInfoItem* GetInfo( const LibInfoKey& rKey ); +}; + +void CutLines( ::rtl::OUString& rStr, sal_Int32 nStartLine, sal_Int32 nLines, sal_Bool bEraseTrailingEmptyLines = sal_False ); +String CreateMgrAndLibStr( const String& rMgrName, const String& rLibName ); +sal_uLong CalcLineCount( SvStream& rStream ); + +sal_Bool QueryReplaceMacro( const String& rName, Window* pParent = 0 ); +sal_Bool QueryDelMacro( const String& rName, Window* pParent = 0 ); +sal_Bool QueryDelDialog( const String& rName, Window* pParent = 0 ); +sal_Bool QueryDelModule( const String& rName, Window* pParent = 0 ); +sal_Bool QueryDelLib( const String& rName, sal_Bool bRef = sal_False, Window* pParent = 0 ); +sal_Bool QueryPassword( const ::com::sun::star::uno::Reference< ::com::sun::star::script::XLibraryContainer >& xLibContainer, const String& rLibName, String& rPassword, sal_Bool bRepeat = sal_False, sal_Bool bNewTitle = sal_False ); + +class ModuleInfoHelper +{ +ModuleInfoHelper(); +ModuleInfoHelper(const ModuleInfoHelper&); +ModuleInfoHelper& operator = (const ModuleInfoHelper&); +public: + static void getObjectName( const ::com::sun::star::uno::Reference< ::com::sun::star::container::XNameContainer >& rLib, const String& rModName, String& rObjName ); + static sal_Int32 getModuleType( const ::com::sun::star::uno::Reference< ::com::sun::star::container::XNameContainer >& rLib, const String& rModName ); +}; +#endif // _BASTYPES_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/dlged.hxx b/basctl/source/inc/dlged.hxx new file mode 100644 index 000000000000..592940c8b827 --- /dev/null +++ b/basctl/source/inc/dlged.hxx @@ -0,0 +1,215 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _BASCTL_DLGED_HXX +#define _BASCTL_DLGED_HXX + +#include <com/sun/star/container/XNameContainer.hpp> +#include <com/sun/star/awt/XControlContainer.hpp> +#include <com/sun/star/datatransfer/DataFlavor.hpp> +#include <com/sun/star/util/XNumberFormatsSupplier.hpp> +#include <com/sun/star/frame/XModel.hpp> +#include <tools/link.hxx> +#include <tools/gen.hxx> +#include <vcl/timer.hxx> +#include <svl/hint.hxx> +#include <svl/brdcst.hxx> + +#define DLGED_PAGE_WIDTH_MIN 1280 +#define DLGED_PAGE_HEIGHT_MIN 1024 + + +//============================================================================ +// DlgEdHint +//============================================================================ + +enum DlgEdHintKind +{ + DLGED_HINT_UNKNOWN, + DLGED_HINT_WINDOWSCROLLED, + DLGED_HINT_LAYERCHANGED, + DLGED_HINT_OBJORDERCHANGED, + DLGED_HINT_SELECTIONCHANGED +}; + +class DlgEdObj; + +class DlgEdHint: public SfxHint +{ +private: + DlgEdHintKind eHintKind; + DlgEdObj* pDlgEdObj; + +public: + TYPEINFO(); + DlgEdHint( DlgEdHintKind eHint ); + DlgEdHint( DlgEdHintKind eHint, DlgEdObj* pObj ); + virtual ~DlgEdHint(); + + DlgEdHintKind GetKind() const { return eHintKind; } + DlgEdObj* GetObject() const { return pDlgEdObj; } +}; + + +//============================================================================ +// DlgEditor +//============================================================================ + +enum DlgEdMode { DLGED_INSERT, DLGED_SELECT, DLGED_TEST, DLGED_READONLY }; + +class ScrollBar; +class DlgEdModel; +class DlgEdPage; +class DlgEdView; +class DlgEdForm; +class DlgEdFactory; +class DlgEdFunc; +class Printer; +class KeyEvent; +class MouseEvent; +class Timer; +class Window; + +class DlgEditor: public SfxBroadcaster +{ +private: + DECL_LINK( PaintTimeout, Timer * ); + DECL_LINK( MarkTimeout, Timer * ); + + void Print( Printer* pPrinter, const String& rTitle ); + +protected: + ScrollBar* pHScroll; + ScrollBar* pVScroll; + DlgEdModel* pDlgEdModel; + DlgEdPage* pDlgEdPage; + DlgEdView* pDlgEdView; + DlgEdForm* pDlgEdForm; + ::com::sun::star::uno::Reference< ::com::sun::star::container::XNameContainer > m_xUnoControlDialogModel; + ::com::sun::star::uno::Reference< ::com::sun::star::awt::XControlContainer > m_xControlContainer; + ::com::sun::star::uno::Sequence< ::com::sun::star::datatransfer::DataFlavor > m_ClipboardDataFlavors; + ::com::sun::star::uno::Sequence< ::com::sun::star::datatransfer::DataFlavor > m_ClipboardDataFlavorsResource; + ::com::sun::star::uno::Reference< ::com::sun::star::util::XNumberFormatsSupplier > m_xSupplier; + DlgEdFactory* pObjFac; + Window* pWindow; + DlgEdFunc* pFunc; + DlgEdMode eMode; + sal_uInt16 eActObj; + sal_Bool bFirstDraw; + Size aGridSize; + sal_Bool bGridVisible; + sal_Bool bGridSnap; + sal_Bool bCreateOK; + Timer aPaintTimer; + Rectangle aPaintRect; + sal_Bool bDialogModelChanged; + Timer aMarkTimer; + long mnPaintGuard; + ::com::sun::star::uno::Reference< ::com::sun::star::frame::XModel > m_xDocument; + + DlgEditor(); // not implemented +public: + DlgEditor( const ::com::sun::star::uno::Reference< ::com::sun::star::frame::XModel >& xModel ); + ~DlgEditor(); + + void SetWindow( Window* pWindow ); + Window* GetWindow() const { return pWindow; } + + /** returns the control container associated with our window + @see GetWindow + @see SetWindow + */ + ::com::sun::star::uno::Reference< ::com::sun::star::awt::XControlContainer > + GetWindowControlContainer(); + + void SetDlgEdForm( DlgEdForm* pForm ) { pDlgEdForm = pForm; } + DlgEdForm* GetDlgEdForm() const { return pDlgEdForm; } + + void SetScrollBars( ScrollBar* pHScroll, ScrollBar* pVScroll ); + void InitScrollBars(); + ScrollBar* GetHScroll() const { return pHScroll; } + ScrollBar* GetVScroll() const { return pVScroll; } + void DoScroll( ScrollBar* pActScroll ); + void UpdateScrollBars(); + + void SetDialog( ::com::sun::star::uno::Reference< + ::com::sun::star::container::XNameContainer > xUnoControlDialogModel ); + void ResetDialog( void ); + ::com::sun::star::uno::Reference< ::com::sun::star::container::XNameContainer > GetDialog() const + {return m_xUnoControlDialogModel;} + + ::com::sun::star::uno::Reference< ::com::sun::star::util::XNumberFormatsSupplier > const & GetNumberFormatsSupplier(); + + DlgEdModel* GetModel() const { return pDlgEdModel; } + DlgEdView* GetView() const { return pDlgEdView; } + DlgEdPage* GetPage() const { return pDlgEdPage; } + + void ShowDialog(); + + sal_Bool UnmarkDialog(); + sal_Bool RemarkDialog(); + + void SetDialogModelChanged( sal_Bool bChanged = sal_True ) { bDialogModelChanged = bChanged; } + sal_Bool IsDialogModelChanged() const { return bDialogModelChanged; } + + sal_Bool IsModified() const; + void ClearModifyFlag(); + + void MouseButtonDown( const MouseEvent& rMEvt ); + void MouseButtonUp( const MouseEvent& rMEvt ); + void MouseMove( const MouseEvent& rMEvt ); + void Paint( const Rectangle& rRect ); + sal_Bool KeyInput( const KeyEvent& rKEvt ); + + void SetMode( DlgEdMode eMode ); + void SetInsertObj( sal_uInt16 eObj ); + sal_uInt16 GetInsertObj() const; + void CreateDefaultObject(); + DlgEdMode GetMode() const { return eMode; } + sal_Bool IsCreateOK() const { return bCreateOK; } + + void Cut(); + void Copy(); + void Paste(); + void Delete(); + sal_Bool IsPasteAllowed(); + + void ShowProperties(); + void UpdatePropertyBrowserDelayed(); + + sal_Int32 countPages( Printer* pPrinter ); + void printPage( sal_Int32 nPage, Printer* pPrinter, const String& ); + + bool AdjustPageSize(); + + bool isInPaint() const { return mnPaintGuard > 0; } +}; + +#endif //_BASCTL_DLGED_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/dlgedclip.hxx b/basctl/source/inc/dlgedclip.hxx new file mode 100644 index 000000000000..605b6ee87e34 --- /dev/null +++ b/basctl/source/inc/dlgedclip.hxx @@ -0,0 +1,68 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _BASCTL_DLGEDCLIP_HXX +#define _BASCTL_DLGEDCLIP_HXX + +#include <cppuhelper/implbase2.hxx> +#include <com/sun/star/datatransfer/XTransferable.hpp> +#include <com/sun/star/datatransfer/DataFlavor.hpp> +#include <com/sun/star/datatransfer/clipboard/XClipboardOwner.hpp> + + +//============================================================================ +// DlgEdTransferableImpl +//============================================================================ + +typedef ::cppu::WeakImplHelper2< ::com::sun::star::datatransfer::XTransferable, ::com::sun::star::datatransfer::clipboard::XClipboardOwner > DlgEdTransferableHelper; + +class DlgEdTransferableImpl : public DlgEdTransferableHelper +{ +private: + ::com::sun::star::uno::Sequence< ::com::sun::star::datatransfer::DataFlavor > m_SeqFlavors; + ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Any > m_SeqData; + +protected: + virtual sal_Bool compareDataFlavors( const ::com::sun::star::datatransfer::DataFlavor& lFlavor, const ::com::sun::star::datatransfer::DataFlavor& rFlavor ); + +public: + DlgEdTransferableImpl( const ::com::sun::star::uno::Sequence< ::com::sun::star::datatransfer::DataFlavor >& aSeqFlavors, const ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Any >& aSeqData ); + virtual ~DlgEdTransferableImpl(); + + // XTransferable + virtual ::com::sun::star::uno::Any SAL_CALL getTransferData( const ::com::sun::star::datatransfer::DataFlavor& rFlavor ) throw(::com::sun::star::datatransfer::UnsupportedFlavorException, ::com::sun::star::io::IOException, ::com::sun::star::uno::RuntimeException); + virtual ::com::sun::star::uno::Sequence< ::com::sun::star::datatransfer::DataFlavor > SAL_CALL getTransferDataFlavors() throw(::com::sun::star::uno::RuntimeException); + virtual sal_Bool SAL_CALL isDataFlavorSupported( const ::com::sun::star::datatransfer::DataFlavor& rFlavor ) throw(::com::sun::star::uno::RuntimeException); + + // XClipboardOwner + virtual void SAL_CALL lostOwnership( const ::com::sun::star::uno::Reference< ::com::sun::star::datatransfer::clipboard::XClipboard >& xClipboard, const ::com::sun::star::uno::Reference< ::com::sun::star::datatransfer::XTransferable >& xTrans ) throw(::com::sun::star::uno::RuntimeException); +}; + +#endif // _BASCTL_DLGEDCLIP_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/dlgeddef.hxx b/basctl/source/inc/dlgeddef.hxx new file mode 100644 index 000000000000..85486f8bd288 --- /dev/null +++ b/basctl/source/inc/dlgeddef.hxx @@ -0,0 +1,86 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _BASCTL_DLGEDDEF_HXX +#define _BASCTL_DLGEDDEF_HXX + +#include <tools/solar.h> + + +const sal_uInt32 DlgInventor = sal_uInt32('D')*0x00000001+ + sal_uInt32('L')*0x00000100+ + sal_uInt32('G')*0x00010000+ + sal_uInt32('1')*0x01000000; + + +#define OBJ_DLG_CONTROL ((sal_uInt16) 1) +#define OBJ_DLG_DIALOG ((sal_uInt16) 2) +#define OBJ_DLG_PUSHBUTTON ((sal_uInt16) 3) +#define OBJ_DLG_RADIOBUTTON ((sal_uInt16) 4) +#define OBJ_DLG_CHECKBOX ((sal_uInt16) 5) +#define OBJ_DLG_LISTBOX ((sal_uInt16) 6) +#define OBJ_DLG_COMBOBOX ((sal_uInt16) 7) +#define OBJ_DLG_GROUPBOX ((sal_uInt16) 8) +#define OBJ_DLG_EDIT ((sal_uInt16) 9) +#define OBJ_DLG_FIXEDTEXT ((sal_uInt16)10) +#define OBJ_DLG_IMAGECONTROL ((sal_uInt16)11) +#define OBJ_DLG_PROGRESSBAR ((sal_uInt16)12) +#define OBJ_DLG_HSCROLLBAR ((sal_uInt16)13) +#define OBJ_DLG_VSCROLLBAR ((sal_uInt16)14) +#define OBJ_DLG_HFIXEDLINE ((sal_uInt16)15) +#define OBJ_DLG_VFIXEDLINE ((sal_uInt16)16) +#define OBJ_DLG_DATEFIELD ((sal_uInt16)17) +#define OBJ_DLG_TIMEFIELD ((sal_uInt16)18) +#define OBJ_DLG_NUMERICFIELD ((sal_uInt16)19) +#define OBJ_DLG_CURRENCYFIELD ((sal_uInt16)20) +#define OBJ_DLG_FORMATTEDFIELD ((sal_uInt16)21) +#define OBJ_DLG_PATTERNFIELD ((sal_uInt16)22) +#define OBJ_DLG_FILECONTROL ((sal_uInt16)23) +#define OBJ_DLG_TREECONTROL ((sal_uInt16)24) + +// control properties +#define DLGED_PROP_BACKGROUNDCOLOR ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "BackgroundColor" ) ) +#define DLGED_PROP_DROPDOWN ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Dropdown" ) ) +#define DLGED_PROP_FORMATSSUPPLIER ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "FormatsSupplier" ) ) +#define DLGED_PROP_HEIGHT ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Height" ) ) +#define DLGED_PROP_LABEL ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Label" ) ) +#define DLGED_PROP_NAME ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Name" ) ) +#define DLGED_PROP_ORIENTATION ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Orientation" ) ) +#define DLGED_PROP_POSITIONX ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "PositionX" ) ) +#define DLGED_PROP_POSITIONY ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "PositionY" ) ) +#define DLGED_PROP_STEP ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Step" ) ) +#define DLGED_PROP_TABINDEX ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "TabIndex" ) ) +#define DLGED_PROP_TEXTCOLOR ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "TextColor" ) ) +#define DLGED_PROP_TEXTLINECOLOR ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "TextLineColor" ) ) +#define DLGED_PROP_WIDTH ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Width" ) ) +#define DLGED_PROP_DECORATION ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Decoration" ) ) + + +#endif // _BASCTL_DLGEDDEF_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/dlgedfac.hxx b/basctl/source/inc/dlgedfac.hxx new file mode 100644 index 000000000000..0b3debc5dbc2 --- /dev/null +++ b/basctl/source/inc/dlgedfac.hxx @@ -0,0 +1,51 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + + +#ifndef _BASCTL_DLGEDFAC_HXX +#define _BASCTL_DLGEDFAC_HXX + +#include <svx/svdobj.hxx> + + +//============================================================================ +// DlgEdFactory +//============================================================================ + +class DlgEdFactory +{ +public: + DlgEdFactory(); + ~DlgEdFactory(); + + DECL_LINK( MakeObject, SdrObjFactory * ); +}; + +#endif // _BASCTL_DLGEDFAC_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/dlgedfunc.hxx b/basctl/source/inc/dlgedfunc.hxx new file mode 100644 index 000000000000..82cb32912fa8 --- /dev/null +++ b/basctl/source/inc/dlgedfunc.hxx @@ -0,0 +1,98 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _BASCTL_DLGEDFUNC_HXX +#define _BASCTL_DLGEDFUNC_HXX + +#include <vcl/timer.hxx> + +class DlgEditor; +class Timer; +class MouseEvent; +class Point; + +//============================================================================ +// DlgEdFunc +//============================================================================ + +class DlgEdFunc /* : public LinkHdl */ +{ +protected: + DlgEditor* pParent; + Timer aScrollTimer; + + DECL_LINK( ScrollTimeout, Timer * ); + void ForceScroll( const Point& rPos ); + +public: + DlgEdFunc( DlgEditor* pParent ); + virtual ~DlgEdFunc(); + + virtual sal_Bool MouseButtonDown( const MouseEvent& rMEvt ); + virtual sal_Bool MouseButtonUp( const MouseEvent& rMEvt ); + virtual sal_Bool MouseMove( const MouseEvent& rMEvt ); + virtual sal_Bool KeyInput( const KeyEvent& rKEvt ); +}; + +//============================================================================ +// DlgEdFuncInsert +//============================================================================ + +class DlgEdFuncInsert : public DlgEdFunc +{ +public: + DlgEdFuncInsert( DlgEditor* pParent ); + ~DlgEdFuncInsert(); + + virtual sal_Bool MouseButtonDown( const MouseEvent& rMEvt ); + virtual sal_Bool MouseButtonUp( const MouseEvent& rMEvt ); + virtual sal_Bool MouseMove( const MouseEvent& rMEvt ); +}; + +//============================================================================ +// DlgEdFuncSelect +//============================================================================ + +class DlgEdFuncSelect : public DlgEdFunc +{ +protected: + sal_Bool bMarkAction; + +public: + DlgEdFuncSelect( DlgEditor* pParent ); + ~DlgEdFuncSelect(); + + virtual sal_Bool MouseButtonDown( const MouseEvent& rMEvt ); + virtual sal_Bool MouseButtonUp( const MouseEvent& rMEvt ); + virtual sal_Bool MouseMove( const MouseEvent& rMEvt ); +}; + + +#endif //_BASCTL_DLGEDFUNC_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/dlgedlist.hxx b/basctl/source/inc/dlgedlist.hxx new file mode 100644 index 000000000000..39b9473abba4 --- /dev/null +++ b/basctl/source/inc/dlgedlist.hxx @@ -0,0 +1,87 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _BASCTL_DLGEDLIST_HXX +#define _BASCTL_DLGEDLIST_HXX + +#include <cppuhelper/implbase1.hxx> +#include <com/sun/star/beans/XPropertyChangeListener.hpp> +#include <com/sun/star/container/XContainerListener.hpp> + +class DlgEdObj; + +//============================================================================ +// DlgEdPropListenerImpl +//============================================================================ + +typedef ::cppu::WeakImplHelper1< ::com::sun::star::beans::XPropertyChangeListener > PropertyChangeListenerHelper; + +class DlgEdPropListenerImpl: public PropertyChangeListenerHelper +{ +private: + DlgEdObj* pDlgEdObj; + +public: + DlgEdPropListenerImpl(DlgEdObj* pObj); + virtual ~DlgEdPropListenerImpl(); + + // XEventListener + virtual void SAL_CALL disposing( const ::com::sun::star::lang::EventObject& Source ) throw(::com::sun::star::uno::RuntimeException); + + // XPropertyChangeListener + virtual void SAL_CALL propertyChange( const ::com::sun::star::beans::PropertyChangeEvent& evt ) throw(::com::sun::star::uno::RuntimeException); + +}; + +//============================================================================ +// DlgEdEvtContListenerImpl +//============================================================================ + +typedef ::cppu::WeakImplHelper1< ::com::sun::star::container::XContainerListener > ContainerListenerHelper; + +class DlgEdEvtContListenerImpl: public ContainerListenerHelper +{ +private: + DlgEdObj* pDlgEdObj; + +public: + DlgEdEvtContListenerImpl(DlgEdObj* pObj); + virtual ~DlgEdEvtContListenerImpl(); + + // XEventListener + virtual void SAL_CALL disposing( const ::com::sun::star::lang::EventObject& Source ) throw(::com::sun::star::uno::RuntimeException); + + // XContainerListener + virtual void SAL_CALL elementInserted( const ::com::sun::star::container::ContainerEvent& Event ) throw(::com::sun::star::uno::RuntimeException); + virtual void SAL_CALL elementReplaced( const ::com::sun::star::container::ContainerEvent& Event ) throw(::com::sun::star::uno::RuntimeException); + virtual void SAL_CALL elementRemoved( const ::com::sun::star::container::ContainerEvent& Event ) throw(::com::sun::star::uno::RuntimeException); +}; + +#endif // _BASCTL_DLGEDLIST_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/dlgedmod.hxx b/basctl/source/inc/dlgedmod.hxx new file mode 100644 index 000000000000..f4abcaad49c3 --- /dev/null +++ b/basctl/source/inc/dlgedmod.hxx @@ -0,0 +1,67 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + + +#ifndef _BASCTL_DLGEDMOD_HXX +#define _BASCTL_DLGEDMOD_HXX + +#include <svx/svdmodel.hxx> + + +//============================================================================ +// DlgEdModel +//============================================================================ + +class DlgEdPage; +class Window; +class SfxObjectShell; + +class DlgEdModel : public SdrModel +{ + friend class DlgEdPage; + +private: + DlgEdModel( const DlgEdModel& ); // not implemented + void operator=(const DlgEdModel& rSrcModel); // not implemented + +public: + TYPEINFO(); + + DlgEdModel(); + virtual ~DlgEdModel(); + + virtual void DlgEdModelChanged( bool bChanged = true ); + + virtual SdrPage* AllocPage(bool bMasterPage); + + virtual Window* GetCurDocViewWin(); +}; + +#endif + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/dlgedobj.hxx b/basctl/source/inc/dlgedobj.hxx new file mode 100644 index 000000000000..cbb6b6b67b26 --- /dev/null +++ b/basctl/source/inc/dlgedobj.hxx @@ -0,0 +1,197 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _BASCTL_DLGEDOBJ_HXX +#define _BASCTL_DLGEDOBJ_HXX + +#include <svx/svdouno.hxx> +#include <comphelper/processfactory.hxx> +#include <com/sun/star/beans/XPropertyChangeListener.hpp> +#include <com/sun/star/container/XContainerListener.hpp> + +#include <vector> +#include <map> + +#include <boost/optional.hpp> + +typedef ::std::multimap< sal_Int16, ::rtl::OUString, ::std::less< sal_Int16 > > IndexToNameMap; + + +class DlgEdForm; +class DlgEditor; + +//============================================================================ +// DlgEdObj +//============================================================================ + +class DlgEdObj: public SdrUnoObj +{ + friend class DlgEditor; + friend class DlgEdFactory; + friend class DlgEdPropListenerImpl; + friend class DlgEdForm; + +private: + sal_Bool bIsListening; + DlgEdForm* pDlgEdForm; + ::com::sun::star::uno::Reference< ::com::sun::star::beans::XPropertyChangeListener> m_xPropertyChangeListener; + ::com::sun::star::uno::Reference< ::com::sun::star::container::XContainerListener> m_xContainerListener; + +protected: + DlgEdObj(); + DlgEdObj(const ::rtl::OUString& rModelName, + const com::sun::star::uno::Reference< com::sun::star::lang::XMultiServiceFactory >& rxSFac); + + virtual void NbcMove( const Size& rSize ); + virtual void NbcResize(const Point& rRef, const Fraction& xFact, const Fraction& yFact); + virtual bool EndCreate(SdrDragStat& rStat, SdrCreateCmd eCmd); + + DECL_LINK(OnCreate, void* ); + + using SfxListener::StartListening; + void StartListening(); + using SfxListener::EndListening; + void EndListening(sal_Bool bRemoveListener = sal_True); + sal_Bool isListening() const { return bIsListening; } + + virtual bool TransformSdrToControlCoordinates( + sal_Int32 nXIn, sal_Int32 nYIn, sal_Int32 nWidthIn, sal_Int32 nHeightIn, + sal_Int32& nXOut, sal_Int32& nYOut, sal_Int32& nWidthOut, sal_Int32& nHeightOut ); + virtual bool TransformSdrToFormCoordinates( + sal_Int32 nXIn, sal_Int32 nYIn, sal_Int32 nWidthIn, sal_Int32 nHeightIn, + sal_Int32& nXOut, sal_Int32& nYOut, sal_Int32& nWidthOut, sal_Int32& nHeightOut ); + virtual bool TransformControlToSdrCoordinates( + sal_Int32 nXIn, sal_Int32 nYIn, sal_Int32 nWidthIn, sal_Int32 nHeightIn, + sal_Int32& nXOut, sal_Int32& nYOut, sal_Int32& nWidthOut, sal_Int32& nHeightOut ); + virtual bool TransformFormToSdrCoordinates( + sal_Int32 nXIn, sal_Int32 nYIn, sal_Int32 nWidthIn, sal_Int32 nHeightIn, + sal_Int32& nXOut, sal_Int32& nYOut, sal_Int32& nWidthOut, sal_Int32& nHeightOut ); + +public: + TYPEINFO(); + + virtual ~DlgEdObj(); + virtual void SetPage(SdrPage* pNewPage); + + virtual void SetDlgEdForm( DlgEdForm* pForm ) { pDlgEdForm = pForm; } + virtual DlgEdForm* GetDlgEdForm() const { return pDlgEdForm; } + + virtual sal_uInt32 GetObjInventor() const; + virtual sal_uInt16 GetObjIdentifier() const; + + virtual DlgEdObj* Clone() const; // not working yet + virtual void clonedFrom(const DlgEdObj* _pSource); // not working yet + + // FullDrag support + virtual SdrObject* getFullDragClone() const; + + virtual sal_Bool supportsService( const sal_Char* _pServiceName ) const; + virtual ::rtl::OUString GetDefaultName() const; + virtual ::rtl::OUString GetUniqueName() const; + + virtual sal_Int32 GetStep() const; + virtual void UpdateStep(); + + virtual void SetDefaults(); + virtual void SetRectFromProps(); + virtual void SetPropsFromRect(); + + ::com::sun::star::uno::Reference< ::com::sun::star::awt::XControl > GetControl() const; + + virtual void PositionAndSizeChange( const ::com::sun::star::beans::PropertyChangeEvent& evt ); + virtual void SAL_CALL NameChange( const ::com::sun::star::beans::PropertyChangeEvent& evt ) throw( ::com::sun::star::uno::RuntimeException); + virtual void SAL_CALL TabIndexChange( const ::com::sun::star::beans::PropertyChangeEvent& evt ) throw( ::com::sun::star::uno::RuntimeException); + + // PropertyChangeListener + virtual void SAL_CALL _propertyChange( const ::com::sun::star::beans::PropertyChangeEvent& evt ) throw(::com::sun::star::uno::RuntimeException); + + // ContainerListener + virtual void SAL_CALL _elementInserted( const ::com::sun::star::container::ContainerEvent& Event ) throw(::com::sun::star::uno::RuntimeException); + virtual void SAL_CALL _elementReplaced( const ::com::sun::star::container::ContainerEvent& Event ) throw(::com::sun::star::uno::RuntimeException); + virtual void SAL_CALL _elementRemoved( const ::com::sun::star::container::ContainerEvent& Event ) throw(::com::sun::star::uno::RuntimeException); + + virtual void SetLayer(SdrLayerID nLayer); +}; + + +//============================================================================ +// DlgEdForm +//============================================================================ + +class DlgEdForm: public DlgEdObj +{ + friend class DlgEditor; + friend class DlgEdFactory; + +private: + DlgEditor* pDlgEditor; + ::std::vector<DlgEdObj*> pChilds; + + mutable ::boost::optional< ::com::sun::star::awt::DeviceInfo > mpDeviceInfo; + + +protected: + DlgEdForm(); + + virtual void NbcMove( const Size& rSize ); + virtual void NbcResize(const Point& rRef, const Fraction& xFact, const Fraction& yFact); + virtual bool EndCreate(SdrDragStat& rStat, SdrCreateCmd eCmd); + +public: + TYPEINFO(); + + virtual ~DlgEdForm(); + + virtual void SetDlgEditor( DlgEditor* pEditor ); + virtual DlgEditor* GetDlgEditor() const { return pDlgEditor; } + + virtual void AddChild( DlgEdObj* pDlgEdObj ); + virtual void RemoveChild( DlgEdObj* pDlgEdObj ); + virtual ::std::vector<DlgEdObj*> GetChilds() const { return pChilds; } + + virtual void UpdateStep(); + + virtual void SetRectFromProps(); + virtual void SetPropsFromRect(); + + virtual void PositionAndSizeChange( const ::com::sun::star::beans::PropertyChangeEvent& evt ); + + virtual void UpdateTabIndices(); + virtual void UpdateTabOrder(); + virtual void UpdateGroups(); + virtual void UpdateTabOrderAndGroups(); + + ::com::sun::star::awt::DeviceInfo getDeviceInfo() const; + +private: + void ImplInvalidateDeviceInfo(); +}; + +#endif // _BASCTL_DLGEDOBJ_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/dlgedpage.hxx b/basctl/source/inc/dlgedpage.hxx new file mode 100644 index 000000000000..ccece06aa8cf --- /dev/null +++ b/basctl/source/inc/dlgedpage.hxx @@ -0,0 +1,64 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _BASCTL_DLGEDPAGE_HXX +#define _BASCTL_DLGEDPAGE_HXX + +#include "svx/svdpage.hxx" + +//============================================================================ +// DlgEdPage +//============================================================================ + +class DlgEdModel; +class DlgEdForm; + +class DlgEdPage : public SdrPage +{ +private: + DlgEdForm* pDlgEdForm; + +public: + TYPEINFO(); + + DlgEdPage( DlgEdModel& rModel, bool bMasterPage = false ); + DlgEdPage( const DlgEdPage& ); + virtual ~DlgEdPage(); + + using SdrPage::Clone; + virtual SdrPage* Clone() const; + + void SetDlgEdForm( DlgEdForm* pForm ) { pDlgEdForm = pForm; } + DlgEdForm* GetDlgEdForm() const { return pDlgEdForm; } + + virtual SdrObject* SetObjectOrdNum(sal_uLong nOldObjNum, sal_uLong nNewObjNum); +}; + +#endif //_BASCTL_DLGEDPAGE_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/dlgedview.hxx b/basctl/source/inc/dlgedview.hxx new file mode 100644 index 000000000000..fb28ae18ae43 --- /dev/null +++ b/basctl/source/inc/dlgedview.hxx @@ -0,0 +1,63 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + + +#ifndef _BASCTL_DLGEDVIEW_HXX +#define _BASCTL_DLGEDVIEW_HXX + +#include <svx/svdview.hxx> + +class DlgEditor; + +//============================================================================ +// DlgEdView +//============================================================================ + +class DlgEdView : public SdrView +{ +private: + DlgEditor* pDlgEditor; + +public: + TYPEINFO(); + + DlgEdView( SdrModel* pModel, OutputDevice* pOut, DlgEditor* pEditor ); + virtual ~DlgEdView(); + + virtual void MarkListHasChanged(); + virtual void MakeVisible( const Rectangle& rRect, Window& rWin ); + +protected: + // overloaded to handle HitTest for some objects special + using SdrView::CheckSingleSdrObjectHit; + virtual SdrObject* CheckSingleSdrObjectHit(const Point& rPnt, sal_uInt16 nTol, SdrObject* pObj, SdrPageView* pPV, sal_uLong nOptions, const SetOfByte* pMVisLay) const; +}; + +#endif //_BASCTL_DLGEDVIEW_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/dlgresid.hrc b/basctl/source/inc/dlgresid.hrc new file mode 100644 index 000000000000..3499cd5ed7c6 --- /dev/null +++ b/basctl/source/inc/dlgresid.hrc @@ -0,0 +1,77 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _BASCTL_DLGRESID_HRC +#define _BASCTL_DLGRESID_HRC + +// include ----------------------------------------------------------- + +#include <svl/solar.hrc> + +// Dialog Control Id's ----------------------------------------------------------- + +#define RID_STR_CLASS_CONTROL ( RID_DLG_START + 0 ) +#define RID_STR_CLASS_DIALOG ( RID_DLG_START + 1 ) +#define RID_STR_CLASS_BUTTON ( RID_DLG_START + 2 ) +#define RID_STR_CLASS_RADIOBUTTON ( RID_DLG_START + 3 ) +#define RID_STR_CLASS_CHECKBOX ( RID_DLG_START + 4 ) +#define RID_STR_CLASS_LISTBOX ( RID_DLG_START + 5 ) +#define RID_STR_CLASS_COMBOBOX ( RID_DLG_START + 6 ) +#define RID_STR_CLASS_GROUPBOX ( RID_DLG_START + 7 ) +#define RID_STR_CLASS_EDIT ( RID_DLG_START + 8 ) +#define RID_STR_CLASS_FIXEDTEXT ( RID_DLG_START + 9 ) +#define RID_STR_CLASS_IMAGECONTROL ( RID_DLG_START + 10 ) +#define RID_STR_CLASS_PROGRESSBAR ( RID_DLG_START + 11 ) +#define RID_STR_CLASS_SCROLLBAR ( RID_DLG_START + 12 ) +#define RID_STR_CLASS_FIXEDLINE ( RID_DLG_START + 13 ) +#define RID_STR_CLASS_DATEFIELD ( RID_DLG_START + 14 ) +#define RID_STR_CLASS_TIMEFIELD ( RID_DLG_START + 15 ) +#define RID_STR_CLASS_NUMERICFIELD ( RID_DLG_START + 16 ) +#define RID_STR_CLASS_CURRENCYFIELD ( RID_DLG_START + 17 ) +#define RID_STR_CLASS_FORMATTEDFIELD ( RID_DLG_START + 18 ) +#define RID_STR_CLASS_PATTERNFIELD ( RID_DLG_START + 19 ) +#define RID_STR_CLASS_FILECONTROL ( RID_DLG_START + 20 ) +#define RID_STR_TRANSLATION_NOTLOCALIZED ( RID_DLG_START + 21 ) +#define RID_STR_TRANSLATION_DEFAULT ( RID_DLG_START + 22 ) +#define RID_STR_CLASS_TREECONTROL ( RID_DLG_START + 23 ) +// Property Browser Headline Id's ----------------------------------------------------------- + +#define RID_STR_BRWTITLE_PROPERTIES ( RID_DLG_START + 60 ) +#define RID_STR_BRWTITLE_NO_PROPERTIES ( RID_DLG_START + 61 ) +#define RID_STR_BRWTITLE_MULTISELECT ( RID_DLG_START + 62 ) + +// Manage Language Dialogs + +#define RID_DLG_MANAGE_LANGUAGE ( RID_DLG_START + 70 ) +#define RID_QRYBOX_LANGUAGE ( RID_DLG_START + 71 ) +#define RID_DLG_SETDEF_LANGUAGE ( RID_DLG_START + 72 ) +#define RID_DLG_ADD_LANGUAGE ( RID_DLG_START + 73 ) + +// ----------------------------------------------------------------------- + +#endif // _BASCTL_DLGRESID_HRC + diff --git a/basctl/source/inc/doceventnotifier.hxx b/basctl/source/inc/doceventnotifier.hxx new file mode 100644 index 000000000000..bad9f29c515b --- /dev/null +++ b/basctl/source/inc/doceventnotifier.hxx @@ -0,0 +1,99 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef BASCTL_DOCEVENTNOTIFIER_HXX +#define BASCTL_DOCEVENTNOTIFIER_HXX + +/** === begin UNO includes === **/ +#include <com/sun/star/frame/XModel.hpp> +/** === end UNO includes === **/ + +#include <rtl/ref.hxx> + +#include <boost/noncopyable.hpp> + +//........................................................................ +namespace basctl +{ +//........................................................................ + + class ScriptDocument; + + //==================================================================== + //= DocumentEventListener + //==================================================================== + class SAL_NO_VTABLE DocumentEventListener : ::boost::noncopyable + { + public: + virtual void onDocumentCreated( const ScriptDocument& _rDocument ) = 0; + virtual void onDocumentOpened( const ScriptDocument& _rDocument ) = 0; + virtual void onDocumentSave( const ScriptDocument& _rDocument ) = 0; + virtual void onDocumentSaveDone( const ScriptDocument& _rDocument ) = 0; + virtual void onDocumentSaveAs( const ScriptDocument& _rDocument ) = 0; + virtual void onDocumentSaveAsDone( const ScriptDocument& _rDocument ) = 0; + virtual void onDocumentClosed( const ScriptDocument& _rDocument ) = 0; + virtual void onDocumentTitleChanged( const ScriptDocument& _rDocument ) = 0; + virtual void onDocumentModeChanged( const ScriptDocument& _rDocument ) = 0; + + virtual ~DocumentEventListener(); + }; + + //==================================================================== + //= DocumentEventNotifier + //==================================================================== + class DocumentEventNotifier_Impl; + /** allows registering at the GlobalEventBroadcaster for global document events + */ + class DocumentEventNotifier + { + public: + /** create a notifier instance which notifies about events of all documents in the whole application + */ + DocumentEventNotifier( DocumentEventListener& _rListener ); + + /** creates a notifier instance which notifies about events at a single document + */ + DocumentEventNotifier( DocumentEventListener& _rListener, + const ::com::sun::star::uno::Reference< ::com::sun::star::frame::XModel >& _rxDocument ); + + ~DocumentEventNotifier(); + + public: + void dispose(); + + private: + ::rtl::Reference< DocumentEventNotifier_Impl > m_pImpl; + }; + +//........................................................................ +} // namespace basctl +//........................................................................ + +#endif // BASCTL_DOCEVENTNOTIFIER_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/docsignature.hxx b/basctl/source/inc/docsignature.hxx new file mode 100644 index 000000000000..941b76026041 --- /dev/null +++ b/basctl/source/inc/docsignature.hxx @@ -0,0 +1,92 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#ifndef BASCTL_DOCSIGNATURE_HXX +#define BASCTL_DOCSIGNATURE_HXX + +/** === begin UNO includes === **/ +#include <com/sun/star/frame/XModel.hpp> +/** === end UNO includes === **/ + +#include <memory> + +//........................................................................ +namespace basctl +{ +//........................................................................ + + class ScriptDocument; + //==================================================================== + //= DocumentSignature + //==================================================================== + struct DocumentSignature_Data; + /// encapsulates (actions on) the signature/state of a document + class DocumentSignature + { + public: + /** creates a DocumentSignature instance for the given document + + If the given ScriptDocument instance refers to the application, or to a document + which does not support being signed, the DocumentSignature instance is invalid afterwards. + */ + DocumentSignature( const ScriptDocument& _rDocument ); + ~DocumentSignature(); + + /** determines whether the instance is valid + + An instance is valid if and only if it has been constructed with a document + which supports signatures. + */ + bool supportsSignatures() const; + + /** signs the scripting content inside the document + + @precond + isValid returns <TRUE/> + */ + void signScriptingContent() const; + + /** retrieves the state of the signature of the scripting content inside the document + + If the instance is not valid, then SIGNATURESTATE_NOSIGNATURES is returned. + */ + sal_uInt16 getScriptingSignatureState() const; + + private: + DocumentSignature(); // not implemented + + private: + ::std::auto_ptr< DocumentSignature_Data > m_pData; + }; + +//........................................................................ +} // namespace basctl +//........................................................................ + +#endif // BASCTL_DOCSIGNATURE_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/iderid.hxx b/basctl/source/inc/iderid.hxx new file mode 100644 index 000000000000..c9a72affaa00 --- /dev/null +++ b/basctl/source/inc/iderid.hxx @@ -0,0 +1,43 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _IDERID_HXX +#define _IDERID_HXX + +#include <tools/resid.hxx> + +class IDEResId: public ResId +{ +public: + IDEResId( sal_uInt16 nId ); +}; + + +#endif //_IDERID_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/localizationmgr.hxx b/basctl/source/inc/localizationmgr.hxx new file mode 100644 index 000000000000..7a61eeb132dc --- /dev/null +++ b/basctl/source/inc/localizationmgr.hxx @@ -0,0 +1,158 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _LOCALIZATIONMGR_HXX +#define _LOCALIZATIONMGR_HXX + +#include <com/sun/star/resource/XStringResourceManager.hpp> +#include <com/sun/star/container/XNameContainer.hpp> + +#include "scriptdocument.hxx" + +class BasicIDEShell; +class DlgEditor; + +class LocalizationMgr +{ + ::com::sun::star::uno::Reference + < ::com::sun::star::resource::XStringResourceManager > m_xStringResourceManager; + + BasicIDEShell* m_pIDEShell; + + ScriptDocument m_aDocument; + String m_aLibName; + + ::com::sun::star::lang::Locale m_aLocaleBeforeBasicStart; + + enum HandleResourceMode + { + SET_IDS, + RESET_IDS, + RENAME_DIALOG_IDS, + RENAME_CONTROL_IDS, + REMOVE_IDS_FROM_RESOURCE, + MOVE_RESOURCES, + COPY_RESOURCES + }; + static sal_Int32 implHandleControlResourceProperties( ::com::sun::star::uno::Any aControlAny, + const ::rtl::OUString& aDialogName, const ::rtl::OUString& aCtrlName, + ::com::sun::star::uno::Reference< ::com::sun::star::resource::XStringResourceManager > + xStringResourceManager, ::com::sun::star::uno::Reference< ::com::sun::star::resource:: + XStringResourceResolver > xSourceStringResolver, HandleResourceMode eMode ); + + void enableResourceForAllLibraryDialogs( void ) + { + implEnableDisableResourceForAllLibraryDialogs( SET_IDS ); + } + void disableResourceForAllLibraryDialogs( void ) + { + implEnableDisableResourceForAllLibraryDialogs( RESET_IDS ); + } + void implEnableDisableResourceForAllLibraryDialogs( HandleResourceMode eMode ); + +public: + LocalizationMgr( BasicIDEShell* pIDEShell, const ScriptDocument& rDocument, String aLibName, + const ::com::sun::star::uno::Reference + < ::com::sun::star::resource::XStringResourceManager >& xStringResourceManager ); + ::com::sun::star::uno::Reference + < ::com::sun::star::resource::XStringResourceManager >getStringResourceManager( void ) + { + return m_xStringResourceManager; + } + + bool isLibraryLocalized( void ); + + void handleTranslationbar( void ); + + void handleAddLocales( ::com::sun::star::uno::Sequence + < ::com::sun::star::lang::Locale > aLocaleSeq ); + + void handleRemoveLocales( ::com::sun::star::uno::Sequence + < ::com::sun::star::lang::Locale > aLocaleSeq ); + + void handleSetDefaultLocale( ::com::sun::star::lang::Locale aLocale ); + + void handleSetCurrentLocale( ::com::sun::star::lang::Locale aLocale ); + + void handleBasicStarted( void ); + + void handleBasicStopped( void ); + + static void setControlResourceIDsForNewEditorObject( DlgEditor* pEditor, + ::com::sun::star::uno::Any aControlAny, const ::rtl::OUString& aCtrlName ); + + static void renameControlResourceIDsForEditorObject( DlgEditor* pEditor, + ::com::sun::star::uno::Any aControlAny, const ::rtl::OUString& aNewCtrlName ); + + static void deleteControlResourceIDsForDeletedEditorObject( DlgEditor* pEditor, + ::com::sun::star::uno::Any aControlAny, const ::rtl::OUString& aCtrlName ); + + static void setStringResourceAtDialog( const ScriptDocument& rDocument, const String& aLibName, const String& aDlgName, + ::com::sun::star::uno::Reference< ::com::sun::star::container::XNameContainer > xDialogModel ); + + static void renameStringResourceIDs( const ScriptDocument& rDocument, const String& aLibName, const String& aDlgName, + ::com::sun::star::uno::Reference< ::com::sun::star::container::XNameContainer > xDialogModel ); + + static void removeResourceForDialog( const ScriptDocument& rDocument, const String& aLibName, const String& aDlgName, + ::com::sun::star::uno::Reference< ::com::sun::star::container::XNameContainer > xDialogModel ); + + static ::com::sun::star::uno::Reference< ::com::sun::star::resource::XStringResourceManager > + getStringResourceFromDialogLibrary( ::com::sun::star::uno::Reference + < ::com::sun::star::container::XNameContainer > xDialogLib ); + + // Clipboard / Drag & Drop + static void resetResourceForDialog( + ::com::sun::star::uno::Reference< ::com::sun::star::container::XNameContainer > xDialogModel, + ::com::sun::star::uno::Reference< ::com::sun::star::resource::XStringResourceManager > xStringResourceManager ); + + static void setResourceIDsForDialog( + ::com::sun::star::uno::Reference< ::com::sun::star::container::XNameContainer > xDialogModel, + ::com::sun::star::uno::Reference< ::com::sun::star::resource::XStringResourceManager > xStringResourceManager ); + + static void copyResourcesForPastedEditorObject( DlgEditor* pEditor, + ::com::sun::star::uno::Any aControlAny, const ::rtl::OUString& aCtrlName, + ::com::sun::star::uno::Reference< ::com::sun::star::resource:: + XStringResourceResolver > xSourceStringResolver ); + + static void copyResourceForDroppedDialog( + ::com::sun::star::uno::Reference< ::com::sun::star::container::XNameContainer > xDialogModel, + const ::rtl::OUString& aDialogName, + ::com::sun::star::uno::Reference< ::com::sun::star::resource::XStringResourceManager > xStringResourceManager, + ::com::sun::star::uno::Reference< ::com::sun::star::resource::XStringResourceResolver > xSourceStringResolver ); + + static void copyResourceForDialog( + const ::com::sun::star::uno::Reference< ::com::sun::star::container::XNameContainer >& xDialogModel, + const ::com::sun::star::uno::Reference< ::com::sun::star::resource:: + XStringResourceResolver >& xSourceStringResolver, + const ::com::sun::star::uno::Reference< ::com::sun::star::resource:: + XStringResourceManager >& xTargetStringResourceManager ); +}; + +#endif + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/managelang.hxx b/basctl/source/inc/managelang.hxx new file mode 100644 index 000000000000..ef030b4bcdf1 --- /dev/null +++ b/basctl/source/inc/managelang.hxx @@ -0,0 +1,121 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _BASCTL_MANAGELANG_HXX +#define _BASCTL_MANAGELANG_HXX + +#include <vcl/dialog.hxx> +#include <vcl/fixed.hxx> +#include <vcl/lstbox.hxx> +#include <vcl/button.hxx> +#include <svx/langbox.hxx> +#include <svx/checklbx.hxx> + +class LocalizationMgr; + +struct LanguageEntry +{ + String m_sLanguage; + ::com::sun::star::lang::Locale m_aLocale; + bool m_bIsDefault; + + LanguageEntry( const String& _rLanguage, + const ::com::sun::star::lang::Locale& _rLocale, + bool _bIsDefault ) : + m_sLanguage( _rLanguage ), + m_aLocale( _rLocale ), + m_bIsDefault( _bIsDefault ) {} +}; + +extern bool localesAreEqual( const ::com::sun::star::lang::Locale& rLocaleLeft, + const ::com::sun::star::lang::Locale& rLocaleRight ); + +class ManageLanguageDialog : public ModalDialog +{ +private: + FixedText m_aLanguageFT; + ListBox m_aLanguageLB; + PushButton m_aAddPB; + PushButton m_aDeletePB; + PushButton m_aMakeDefPB; + FixedText m_aInfoFT; + + FixedLine m_aBtnLine; + HelpButton m_aHelpBtn; + OKButton m_aCloseBtn; + + LocalizationMgr* m_pLocalizationMgr; + + String m_sDefLangStr; + String m_sDeleteStr; + String m_sCreateLangStr; + + void Init(); + void CalcInfoSize(); + void FillLanguageBox(); + void ClearLanguageBox(); + + DECL_LINK( AddHdl, Button * ); + DECL_LINK( DeleteHdl, Button * ); + DECL_LINK( MakeDefHdl, Button * ); + DECL_LINK( SelectHdl, ListBox * ); + +public: + ManageLanguageDialog( Window* pParent, LocalizationMgr* _pLMgr ); + ~ManageLanguageDialog(); +}; + +class SetDefaultLanguageDialog : public ModalDialog +{ +private: + FixedText m_aLanguageFT; + SvxLanguageBox* m_pLanguageLB; + SvxCheckListBox* m_pCheckLangLB; + FixedText m_aInfoFT; + + FixedLine m_aBtnLine; + OKButton m_aOKBtn; + CancelButton m_aCancelBtn; + HelpButton m_aHelpBtn; + + bool m_bIsDefaultMode; + LocalizationMgr* m_pLocalizationMgr; + + void FillLanguageBox(); + void CalcInfoSize(); + +public: + SetDefaultLanguageDialog( Window* pParent, LocalizationMgr* _pLMgr ); + ~SetDefaultLanguageDialog(); + + ::com::sun::star::uno::Sequence< ::com::sun::star::lang::Locale > GetLocales() const; +}; + +#endif //_BASCTL_MANAGELANG_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/propbrw.hxx b/basctl/source/inc/propbrw.hxx new file mode 100644 index 000000000000..9e0e1e334b0f --- /dev/null +++ b/basctl/source/inc/propbrw.hxx @@ -0,0 +1,118 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef _BASCTL_PROPBRW_HXX +#define _BASCTL_PROPBRW_HXX + +#include <com/sun/star/lang/XMultiServiceFactory.hpp> +#include <com/sun/star/beans/XPropertySet.hpp> +#include <com/sun/star/awt/XControlContainer.hpp> +#include <com/sun/star/frame/XFrame.hpp> +#include <comphelper/composedprops.hxx> +#include <sfx2/basedlgs.hxx> +#include <svl/brdcst.hxx> +#include <svl/lstner.hxx> +#include <sfx2/childwin.hxx> +#include <svx/svdmark.hxx> + +//============================================================================ +// PropBrwMgr +//============================================================================ + +class PropBrwMgr : public SfxChildWindow +{ +public: + PropBrwMgr(Window *pParent, sal_uInt16 nId, SfxBindings *pBindings, SfxChildWinInfo *pInfo); + SFX_DECL_CHILDWINDOW(PropBrwMgr); +}; + +//============================================================================ +// PropBrw +//============================================================================ + +class SfxBindings; +class SdrView; + +class PropBrw : public SfxFloatingWindow , public SfxListener, public SfxBroadcaster +{ +private: + sal_Bool m_bInitialStateChange; + + ::com::sun::star::uno::Reference< ::com::sun::star::lang::XMultiServiceFactory > + m_xORB; + ::com::sun::star::uno::Reference< ::com::sun::star::frame::XFrame > + m_xMeAsFrame; + ::com::sun::star::uno::Reference< ::com::sun::star::beans::XPropertySet > + m_xBrowserController; + ::com::sun::star::uno::Reference< ::com::sun::star::awt::XWindow > + m_xBrowserComponentWindow; + ::com::sun::star::uno::Reference< ::com::sun::star::frame::XModel > + m_xContextDocument; + +protected: + SdrView* pView; + virtual void Resize(); + virtual void FillInfo( SfxChildWinInfo& rInfo ) const; + virtual sal_Bool Close(); + + DECLARE_STL_VECTOR(::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface>, InterfaceArray); + + ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface > > + CreateMultiSelectionSequence( const SdrMarkList& _rMarkList ); + void implSetNewObjectSequence( const ::com::sun::star::uno::Sequence + < ::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface > >& _rObjectSeq ); + + void implSetNewObject( + const ::com::sun::star::uno::Reference< ::com::sun::star::beans::XPropertySet >& _rxObject); + + ::rtl::OUString GetHeadlineName( + const ::com::sun::star::uno::Reference< ::com::sun::star::beans::XPropertySet >& _rxObject); + +public: + PropBrw( const ::com::sun::star::uno::Reference< ::com::sun::star::lang::XMultiServiceFactory >& _xORB, + SfxBindings *pBindings, + PropBrwMgr* pMgr, + Window* pParent, + const ::com::sun::star::uno::Reference< ::com::sun::star::frame::XModel >& _rxContextDocument + ); + virtual ~PropBrw(); + using Window::Update; + // note: changing the Context document to an instance other than the one given in the ctor is not supported + // currently + void Update( const SfxViewShell* _pShell ); + SdrView* GetCurView() const { return pView; } + +private: + void ImplUpdate( const ::com::sun::star::uno::Reference< ::com::sun::star::frame::XModel >& _rxContextDocument, SdrView* pView ); + void ImplDestroyController(); + void ImplReCreateController(); +}; + +#endif // _BASCTL_PROPBRW_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/sbxitem.hxx b/basctl/source/inc/sbxitem.hxx new file mode 100644 index 000000000000..d1efe519c677 --- /dev/null +++ b/basctl/source/inc/sbxitem.hxx @@ -0,0 +1,79 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#ifndef _SBXITEM_HXX +#define _SBXITEM_HXX + +#include "scriptdocument.hxx" +#include <svl/poolitem.hxx> + +const sal_uInt16 BASICIDE_TYPE_UNKNOWN = 0; +const sal_uInt16 BASICIDE_TYPE_SHELL = 1; +const sal_uInt16 BASICIDE_TYPE_LIBRARY = 2; +const sal_uInt16 BASICIDE_TYPE_MODULE = 3; +const sal_uInt16 BASICIDE_TYPE_DIALOG = 4; +const sal_uInt16 BASICIDE_TYPE_METHOD = 5; + + +class SbxItem : public SfxPoolItem +{ + ScriptDocument m_aDocument; + String m_aLibName; + String m_aName; + String m_aMethodName; + sal_uInt16 m_nType; + +public: + TYPEINFO(); + SbxItem( sal_uInt16 nWhich, const ScriptDocument& rDocument, const String& aLibName, const String& aName, sal_uInt16 nType ); + SbxItem( sal_uInt16 nWhich, const ScriptDocument& rDocument, const String& aLibName, const String& aName, const String& aMethodName, sal_uInt16 nType ); + SbxItem( const SbxItem& ); + + virtual SfxPoolItem* Clone( SfxItemPool *pPool = 0 ) const; + virtual int operator==( const SfxPoolItem& ) const; + + const ScriptDocument& + GetDocument() const { return m_aDocument; } + void SetDocument( const ScriptDocument& rDocument ) { m_aDocument = rDocument; } + + const String& GetLibName() const { return m_aLibName; } + void SetLibName( const String& aLibName ) { m_aLibName = aLibName; } + + const String& GetName() const { return m_aName; } + void SetName( const String& aName ) { m_aName = aName; } + + const String& GetMethodName() const { return m_aMethodName; } + void SetMethodName( const String& aMethodName ) { m_aMethodName = aMethodName; } + + sal_uInt16 GetType() const { return m_nType; } + void SetType( sal_uInt16 nType ) { m_nType = nType; } +}; + + +#endif + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/scriptdocument.hxx b/basctl/source/inc/scriptdocument.hxx new file mode 100644 index 000000000000..5791971a57d8 --- /dev/null +++ b/basctl/source/inc/scriptdocument.hxx @@ -0,0 +1,540 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#ifndef SCRIPTDOCUMENT_HXX +#define SCRIPTDOCUMENT_HXX + +/** === begin UNO includes === **/ +#include <com/sun/star/script/XLibraryContainer.hpp> +#include <com/sun/star/frame/XModel.hpp> +#include <com/sun/star/task/XStatusIndicator.hpp> +#include <com/sun/star/io/XInputStreamProvider.hpp> +/** === end UNO includes === **/ + +#include <boost/shared_ptr.hpp> +#include <vector> + +class BasicManager; +class SfxListener; + +//........................................................................ +namespace basctl +{ +//........................................................................ + + //==================================================================== + //= LibraryContainerType + //==================================================================== + enum LibraryContainerType + { + E_SCRIPTS, + E_DIALOGS + }; + + enum LibraryLocation + { + LIBRARY_LOCATION_UNKNOWN, + LIBRARY_LOCATION_USER, + LIBRARY_LOCATION_SHARE, + LIBRARY_LOCATION_DOCUMENT + }; + + enum LibraryType + { + LIBRARY_TYPE_UNKNOWN, + LIBRARY_TYPE_MODULE, + LIBRARY_TYPE_DIALOG, + LIBRARY_TYPE_ALL + }; + + //==================================================================== + //= ScriptDocument + //==================================================================== + class ScriptDocument_Impl; + + class ScriptDocument; + typedef ::std::vector< ScriptDocument > ScriptDocuments; + + /** encapsulates a document which contains Basic scripts and dialogs + */ + class ScriptDocument + { + private: + ::boost::shared_ptr< ScriptDocument_Impl > m_pImpl; + + private: + /** creates a ScriptDocument instance which operates on the application-wide + scripts and dialogs + */ + ScriptDocument(); + + public: + enum SpecialDocument { NoDocument }; + /** creates a ScriptDocument instance which does refers to neither the application-wide, + nor a specific real document's scripts. + + This constructor might come handy when you need some kind of uninitialized + ScriptDocument, which you do not want to operate on (yet), but initialize later + by assignment. + + <member>isValid</member> will return <FALSE/> for a ScriptDocument constructed + this way. + */ + explicit ScriptDocument( SpecialDocument _eType ); + + /** creates a ScriptDocument instance which refers to a document given as + XModel + + @param _rxDocument + the document. Must not be <NULL/>. + */ + explicit ScriptDocument( const ::com::sun::star::uno::Reference< ::com::sun::star::frame::XModel >& _rxDocument ); + + /// copy constructor + ScriptDocument( const ScriptDocument& _rSource ); + + /// destructor + ~ScriptDocument(); + + /** returns a reference to a shared ScriptDocument instance which + operates on the application-wide scripts and dialogs + */ + static const ScriptDocument& + getApplicationScriptDocument(); + + /** returns a (newly created) ScriptDocument instance for the document to + which a given BasicManager belongs + + If the basic manager is the application's basic manager, then the (shared) + ScriptDocument instance which is responsible for the application is returned. + + @see getApplicationScriptDocument + */ + static ScriptDocument + getDocumentForBasicManager( const BasicManager* _pManager ); + + /** returns a (newly created) ScriptDocument instance for the document + with a given caption or URL + + If there is no document with the given caption, then the (shared) + ScriptDocument instance which is responsible for the application is returned. + + @see getApplicationScriptDocument + */ + static ScriptDocument + getDocumentWithURLOrCaption( const ::rtl::OUString& _rUrlOrCaption ); + + /** operation mode for getAllScriptDocuments + */ + enum ScriptDocumentList + { + /** all ScriptDocuments, including the dedicated one which represents + the application-wide scripts/dialogs. + */ + AllWithApplication, + /** real documents only + */ + DocumentsOnly, + /** real documents only, sorted lexicographically by their title (using the sys locale's default + collator) + */ + DocumentsSorted + }; + + /** returns the set of ScriptDocument instances, one for each open document which + contains Basic/Dialog containers; plus an additional instance for + the application, if desired + + Documents which are not visible - i.e. do not have a visible frame. + + @param _bIncludingApplication + <TRUE/> if the application-wide scripts/dialogs should also be represented + by a ScriptDocument + */ + static ScriptDocuments + getAllScriptDocuments( ScriptDocumentList _eListType ); + + // comparison + bool operator==( const ScriptDocument& _rhs ) const; + inline bool operator!=( const ScriptDocument& _rhs ) const { return !( *this == _rhs ); } + + /// retrieves a (pretty simple) hash code for the document + sal_Int32 hashCode() const; + + /** determines whether the document is actually able to contain Basic/Dialog libraries + + Note that validity does not automatically imply the document can be used for active + work. Instead, it is possible the document is closed already (or being closed currently). + In this case, isValid will return <TRUE/>, but isAlive will return <FALSE/>. + + @return + <TRUE/> if the instance refers to a document which contains Basic/Dialog libraries, + or the application as a whole, <FALSE/> otherwise. + + @see isAlive + */ + bool isValid() const; + + /** determines whether the document instance is alive + + If the instance is not valid, <FALSE/> is returned. + + If the instance refers to a real document, which is already closed, or just being closed, + the method returns <FALSE/>. + + If the instance refers to the application, <TRUE/> is returned. + + @see isValid + */ + bool isAlive() const; + + bool isInVBAMode() const; + /// returns the BasicManager associated with this instance + BasicManager* + getBasicManager() const; + + /** returns the UNO component representing the document which the instance operates on + + Must not be used when the instance operates on the application-wide + Basic/Dialog libraries. + */ + ::com::sun::star::uno::Reference< ::com::sun::star::frame::XModel > + getDocument() const; + + /** returns the UNO component representing the document which the instance operates on + + May be used when the instance operates on the application-wide + Basic/Dialog libraries, in this case it returns <NULL/>. + */ + ::com::sun::star::uno::Reference< ::com::sun::star::frame::XModel > + getDocumentOrNull() const; + + /** returns the Basic or Dialog library container of the document + + If the document is not valid, <NULL/> is returned. + */ + ::com::sun::star::uno::Reference< ::com::sun::star::script::XLibraryContainer > + getLibraryContainer( LibraryContainerType _eType ) const; + + /** determines whether there exists a library of the given type, with the given name + */ + bool hasLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName ) const; + + /** returns a script or dialog library given by name + + @param _eType + the type of library to load + @param _rLibName + the name of the script library + @param _bLoadLibrary + <TRUE/> if and only if the library should be loaded. + + @throws NoSuchElementException + if there is no script library with the given name + */ + ::com::sun::star::uno::Reference< ::com::sun::star::container::XNameContainer > + getLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, bool _bLoadLibrary ) const + SAL_THROW((::com::sun::star::container::NoSuchElementException)); + + /** creates a script or dialog library in the document, or returns an existing one + + If <code>_rLibName</code> denotes an existing library which does not need to be created, + then this library will automatically be loaded, and then returned. + */ + ::com::sun::star::uno::Reference< ::com::sun::star::container::XNameContainer > + getOrCreateLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName ) const; + + /** returns the names of the modules in a given script or dialog library of the document + */ + ::com::sun::star::uno::Sequence< ::rtl::OUString > + getObjectNames( LibraryContainerType _eType, const ::rtl::OUString& _rLibName ) const; + + /** retrieves a name for a newly to be created module or dialog + */ + ::rtl::OUString + createObjectName( LibraryContainerType _eType, const ::rtl::OUString& _rLibName ) const; + + /** loads a script or dialog library given by name, if there is such a library + */ + void loadLibraryIfExists( LibraryContainerType _eType, const ::rtl::OUString& _rLibrary ); + + /// retrieves the (combined) names of all script and dialog libraries + ::com::sun::star::uno::Sequence< ::rtl::OUString > + getLibraryNames() const; + + /** removes a given script module from the document + + @return + <TRUE/> if and only if the removal was successful. When <FALSE/> is returned, + this will reported as assertion in a non-product build. + */ + bool removeModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModuleName ) const; + + /** creates a module with the given name in the given library + @param _rLibName + the library name + @param _rModName + the name of the to-be-created module + @param _bCreateMain + determines whether or not a function Main should be created + @param _out_rNewModuleCode + the source code of the newly created module + @return + <TRUE/> if and only if the creation was successful + */ + bool createModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName, bool _bCreateMain, ::rtl::OUString& _out_rNewModuleCode ) const; + + /** inserts a given piece as code as module + @param _rLibName + the name of the library to insert the module into. If a library with this name does + not yet exist, it will be created. + @param _rModName + the name of the module to insert the code as. Must denote a name which is not yet + used in the module library. + @param _rModuleCode + the code of the new module + @return + <TRUE/> if and only if the insertion was successful. + */ + bool insertModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName, const ::rtl::OUString& _rModuleCode ) const; + + /** updates a given module with new code + @param _rLibName + the name of the library the modules lives in. Must denote an existing module library. + @param _rModName + the name of the module to update. Must denote an existing module in the given library. + @param _rModuleCode + the new module code. + @return + <TRUE/> if and only if the insertion was successful. + */ + bool updateModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName, const ::rtl::OUString& _rModuleCode ) const; + + /// determines whether a module with the given name exists in the given library + bool hasModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName ) const; + + /** retrieves a module's source + @param _rLibName + the library name where the module is located + @param _rModName + the module name + @param _out_rModuleSource + takes the module's source upon successful return + @return + <TRUE/> if and only if the code could be successfully retrieved, <FALSE/> otherwise + */ + bool getModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName, ::rtl::OUString& _rModuleSource ) const; + + /** renames a module + @param _rLibName + the library where the module lives in. Must denote an existing library. + @param _rOldName + the old module name. Must denote an existing module. + @param _rNewName + the new module name + @return + <TRUE/> if and only if renaming was successful. + */ + bool renameModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rOldName, const ::rtl::OUString& _rNewName ) const; + + /** removes a given dialog from the document + + @return + <TRUE/> if and only if the removal was successful. When <FALSE/> is returned, + this will reported as assertion in a non-product build. + */ + bool removeDialog( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rDialogName ) const; + + /// determines whether a dialog with the given name exists in the given library + bool hasDialog( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rDialogName ) const; + + /** retrieves a dialog + @param _rLibName + the library name where the module is located + @param _rDialogName + the dialog's name + @param _out_rDialogSource + takes the provider for the dialog's desription, upon successful return + @return + <TRUE/> if and only if the dialog could be successfully retrieved, <FALSE/> otherwise + */ + bool getDialog( + const ::rtl::OUString& _rLibName, + const ::rtl::OUString& _rDialogName, + ::com::sun::star::uno::Reference< ::com::sun::star::io::XInputStreamProvider >& _out_rDialogProvider + ) const; + + /** renames a dialog + @param _rLibName + the library where the dialog lives in. Must denote an existing library. + @param _rOldName + the old dialog name. Must denote an existing dialog. + @param _rNewName + the new dialog name + @param _rxExistingDialogModel + the existing model of the dialog, if already loaded in the IDE + @return + <TRUE/> if and only if renaming was successful. + */ + bool renameDialog( + const ::rtl::OUString& _rLibName, + const ::rtl::OUString& _rOldName, + const ::rtl::OUString& _rNewName, + const ::com::sun::star::uno::Reference< ::com::sun::star::container::XNameContainer >& _rxExistingDialogModel + ) const; + + /** create a dialog + @param _rLibName + the library name where the module is located + @param _rDialogName + the dialog's name + @param _out_rDialogSource + takes the provider for the dialog's desription, upon successful return + @return + <TRUE/> if and only if the dialog could be successfully retrieved, <FALSE/> otherwise + */ + bool createDialog( + const ::rtl::OUString& _rLibName, + const ::rtl::OUString& _rDialogName, + ::com::sun::star::uno::Reference< ::com::sun::star::io::XInputStreamProvider >& _out_rDialogProvider + ) const; + + /** inserts a given dialog into a given library + + @param _rLibName + the name of the library to insert the dialog into. If a library with this name does + not yet exist, it will be created. + @param _rModName + the name of the dialog to insert. Must denote a name which is not yet + used in the dialog library. + @param _rDialogProvider + the provider of the dialog's description + @return + <TRUE/> if and only if the insertion was successful. + */ + bool insertDialog( + const ::rtl::OUString& _rLibName, + const ::rtl::OUString& _rDialogName, + const ::com::sun::star::uno::Reference< ::com::sun::star::io::XInputStreamProvider >& _rDialogProvider + ) const; + + /** determines whether the document is read-only + + cannot be called if the document operates on the application-wide scripts + */ + bool isReadOnly() const; + + /** determines whether the ScriptDocument instance operates on the whole application, + as opposed to a real document + */ + bool isApplication() const; + + /** determines whether the ScriptDocument instance operates on a real document, + as opposed to the whole application + */ + bool isDocument() const { return isValid() && !isApplication(); } + + /** marks the document as modified + @precond + the instance operates on a real document, not on the application + @see isDocument + */ + void setDocumentModified() const; + + /** determines whether the document is modified + @precond + the instance operates on a real document, not on the application + @see isDocument + */ + bool isDocumentModified() const; + + /** saves the document, if the instance refers to a real document + @precond + <code>isApplication</code> returns <FALSE/> + */ + bool saveDocument( + const ::com::sun::star::uno::Reference< ::com::sun::star::task::XStatusIndicator >& _rxStatusIndicator + ) const; + + /// returns the location of a library given by name + LibraryLocation + getLibraryLocation( const ::rtl::OUString& _rLibName ) const; + + /// returns the title for the document + ::rtl::OUString + getTitle( LibraryLocation _eLocation, LibraryType _eType = LIBRARY_TYPE_ALL ) const; + + /** returns the title of the document + + to be used for valid documents only + */ + ::rtl::OUString + getTitle() const; + + /** returns the URL of the document + + to be used for valid documents only + */ + ::rtl::OUString + getURL() const; + + /** determines whether the document is currently the one-and-only application-wide active document + */ + bool isActive() const; + + /** determines whether macro execution for this document is allowed + + only to be called for real documents (->isDocument) + */ + bool allowMacros() const; + }; + +//........................................................................ +} // namespace basctl +//........................................................................ + +// convenience ... better would be all classes in the project are in +// the same namespace ... +using ::basctl::ScriptDocument; +using ::basctl::ScriptDocuments; +using ::basctl::E_SCRIPTS; +using ::basctl::E_DIALOGS; +using ::basctl::LibraryLocation; +using ::basctl::LIBRARY_LOCATION_UNKNOWN; +using ::basctl::LIBRARY_LOCATION_USER; +using ::basctl::LIBRARY_LOCATION_SHARE; +using ::basctl::LIBRARY_LOCATION_DOCUMENT; +using ::basctl::LibraryType; +using ::basctl::LIBRARY_TYPE_UNKNOWN; +using ::basctl::LIBRARY_TYPE_MODULE; +using ::basctl::LIBRARY_TYPE_DIALOG; +using ::basctl::LIBRARY_TYPE_ALL; + +#endif // SCRIPTDOCUMENT_HXX + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/basctl/source/inc/svheader.hxx b/basctl/source/inc/svheader.hxx new file mode 100644 index 000000000000..152495d9ee8d --- /dev/null +++ b/basctl/source/inc/svheader.hxx @@ -0,0 +1,91 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#ifndef _SVHEADER_HXX +#define _SVHEADER_HXX + + +// SV +#define _COLDLG_HXX +#define _CONFIG_HXX +#define _CURSOR_HXX +#define _FONTDLG_HXX +#define _PRVWIN_HXX +//#define _SELENG_HXX +#define _VIRTDEV_HXX + +// Wenn Brkdlg ohne PCH: +// #define _SPIN_HXX +// #define _FIELD_HXX + +// SVTOOLS +#define _CTRLBOX_HXX +#define _EXTATTR_HXX +#define _CTRLTOOL_HXX +#define _CTRLBOX_HXX +#define _STDMENU_HXX +#define _VALUESET_HXX +#define _RULER_HXX +#define _SCRWIN_HXX + +// SFX +#define _SFXAPPWIN_HXX +#define _SFX_RESMGR_HXX +#define _SFX_PRNMON_HXX +#define _INTRO_HXX +#define _SFXMSGDESCR_HXX +#define _SFXMSGPOOL_HXX +// #define _PASSWD_HXX +#define _SFXMNUMGR_HXX + +// SFXDLG +// #define _SFXTABDLG_HXX +// #define _SFX_DINFDLG_HXX +#define _SFX_MGETEMPL_HXX +#define _SFX_STYLEDLG_HXX +#define _SFX_TPLPITEM_HXX +#define _NEWSTYLE_HXX +#define _SFXDOCTEMPL_HXX +#define _SFXDOCTDLG_HXX +#define _SFX_TEMPLDLG_HXX +#define _SFXNEW_HXX + +// SFXDOC +// #define _SFXDOCINF_HXX +//#define _SFX_DOCFILT_HXX +#define _SFX_IPFRM_HXX +#define _SFX_INTERNO_HXX + +// SVCONTNR +#define _SVICNVW_HXX + +#define _SBSTDOBJ1_HXX +#define _SBXMSTRM_HXX + +#endif + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ |