/*************************************************************************
*
* $RCSfile: insdlg.cxx,v $
*
* $Revision: 1.6 $
*
* last change: $Author: obo $ $Date: 2005-03-15 11:31:27 $
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
*
* - GNU Lesser General Public License Version 2.1
* - Sun Industry Standards Source License Version 1.1
*
* Sun Microsystems Inc., October, 2000
*
* GNU Lesser General Public License Version 2.1
* =============================================
* Copyright 2000 by Sun Microsystems, Inc.
* 901 San Antonio Road, Palo Alto, CA 94303, USA
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License version 2.1, as published by the Free Software Foundation.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston,
* MA 02111-1307 USA
*
*
* Sun Industry Standards Source License Version 1.1
* =================================================
* The contents of this file are subject to the Sun Industry Standards
* Source License Version 1.1 (the "License"); You may not use this file
* except in compliance with the License. You may obtain a copy of the
* License at http://www.openoffice.org/license.html.
*
* Software provided under this License is provided on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
* See the License for the specific provisions governing your rights and
* obligations concerning the Software.
*
* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
*
* Copyright: 2000 by Sun Microsystems, Inc.
*
* All Rights Reserved.
*
* Contributor(s): _______________________________________
*
*
************************************************************************/
#ifdef SVX_DLLIMPLEMENTATION
#undef SVX_DLLIMPLEMENTATION
#endif
#ifndef _COM_SUN_STAR_UI_DIALOGS_TEMPLATEDESCRIPTION_HPP_
#include <com/sun/star/ui/dialogs/TemplateDescription.hpp>
#endif
#ifndef _COM_SUN_STAR_UI_DIALOGS_EXECUTABLEDIALOGRESULTS_HPP_
#include <com/sun/star/ui/dialogs/ExecutableDialogResults.hpp>
#endif
#ifndef _COM_SUN_STAR_UI_DIALOGS_XFILEPICKER_HPP_
#include <com/sun/star/ui/dialogs/XFilePicker.hpp>
#endif
#ifndef _COM_SUN_STAR_UI_DIALOGS_XFILTERMANAGER_HPP_
#include <com/sun/star/ui/dialogs/XFilterManager.hpp>
#endif
#ifndef _COM_SUN_STAR_LANG_XMULTISERVICEFACTORY_HPP_
#include <com/sun/star/lang/XMultiServiceFactory.hpp>
#endif
#ifndef _COM_SUN_STAR_LANG_XINITIALIZATION_HPP_
#include <com/sun/star/lang/XInitialization.hpp>
#endif
#ifndef _COMPHELPER_PROCESSFACTORY_HXX_
#include <comphelper/processfactory.hxx>
#endif
#ifndef _COM_SUN_STAR_EMBED_EMBEDSTATES_HPP_
#include <com/sun/star/embed/EmbedStates.hpp>
#endif
#ifndef _COM_SUN_STAR_BEANS_XPROPERTYSET_HPP_
#include <com/sun/star/beans/XPropertySet.hpp>
#endif
#ifndef _COM_SUN_STAR_BEANS_PROPERTYVALUE_HPP_
#include <com/sun/star/beans/PropertyValue.hpp>
#endif
#ifndef _COM_SUN_STAR_EMBED_XINSERTOBJECTDIALOG_HPP_
#include <com/sun/star/embed/XInsertObjectDialog.hpp>
#endif
#ifndef _COM_SUN_STAR_UCB_COMMANDABORTEDEXCEPTION_HPP_
#include <com/sun/star/ucb/CommandAbortedException.hpp>
#endif
#ifndef _COM_SUN_STAR_TASK_XINTERACTIONHANDLER_HPP_
#include <com/sun/star/task/XInteractionHandler.hpp>
#endif
#include "insdlg.hxx"
#include "dialmgr.hxx"
#include <svtools/sores.hxx>
#include <stdio.h>
#include <tools/urlobj.hxx>
#include <tools/debug.hxx>
#include <svtools/urihelper.hxx>
#include <svtools/svmedit.hxx>
#include <vcl/button.hxx>
#include <vcl/fixed.hxx>
#include <vcl/group.hxx>
#include <vcl/lstbox.hxx>
#include <vcl/msgbox.hxx>
#include <vcl/svapp.hxx>
#include <sot/clsids.hxx>
#include <sfx2/frmdescr.hxx>
#include <sfx2/viewsh.hxx>
#include <sfx2/filedlghelper.hxx>
#include <svtools/ownlist.hxx>
#include "svuidlg.hrc"
#include <osl/file.hxx>
#include <com/sun/star/container/XHierarchicalNameAccess.hpp>
#include <com/sun/star/container/XNameAccess.hpp>
#include <unotools/processfactory.hxx>
using namespace ::com::sun::star;
using namespace ::com::sun::star::lang;
using namespace ::com::sun::star::uno;
using namespace ::rtl;
using namespace ::com::sun::star::container;
using namespace ::com::sun::star::ui::dialogs;
#define _SVSTDARR_STRINGSDTOR
#include <svtools/svstdarr.hxx>
BOOL InsertObjectDialog_Impl::IsCreateNew() const
{
return FALSE;
}
InsertObjectDialog_Impl::InsertObjectDialog_Impl( Window * pParent, const ResId & rResId, const com::sun::star::uno::Reference < com::sun::star::embed::XStorage >& xStorage )
: ModalDialog( pParent, rResId )
, m_xStorage( xStorage )
, aCnt( m_xStorage )
{
}
// -----------------------------------------------------------------------
IMPL_LINK_INLINE_START( SvInsertOleDlg, DoubleClickHdl, ListBox *, EMPTYARG )
{
EndDialog( RET_OK );
return 0;
}
IMPL_LINK_INLINE_END( SvInsertOleDlg, DoubleClickHdl, ListBox *, pListBox )
// -----------------------------------------------------------------------
IMPL_LINK( SvInsertOleDlg, BrowseHdl, PushButton *, EMPTYARG )
{
Reference< XMultiServiceFactory > xFactory( ::comphelper::getProcessServiceFactory() );
if( xFactory.is() )
{
Reference< XFilePicker > xFilePicker( xFactory->createInstance( OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ui.dialogs.FilePicker" ) ) ), UNO_QUERY );
DBG_ASSERT( xFilePicker.is(), "could not get FilePicker service" );
Reference< XInitialization > xInit( xFilePicker, UNO_QUERY );
Reference< XFilterManager > xFilterMgr( xFilePicker, UNO_QUERY );
if( xInit.is() && xFilePicker.is() && xFilterMgr.is() )
{
Sequence< Any > aServiceType( 1 );
aServiceType[0] <<= TemplateDescription::FILEOPEN_SIMPLE;
xInit->initialize( aServiceType );
// add filter
try
{
xFilterMgr->appendFilter(
OUString(),
OUString( RTL_CONSTASCII_USTRINGPARAM( "*.*" ) )
);
}
catch( IllegalArgumentException& )
{
DBG_ASSERT( 0, "caught IllegalArgumentException when registering filter\n" );
}
if( xFilePicker->execute() == ExecutableDialogResults::OK )
{
Sequence< OUString > aPathSeq( xFilePicker->getFiles() );
INetURLObject aObj( aPathSeq[0] );
aEdFilepath.SetText( aObj.PathToFileName() );
}
}
}
return 0;
}
// -----------------------------------------------------------------------
IMPL_LINK( SvInsertOleDlg, RadioHdl, RadioButton *, EMPTYARG )
{
if ( aRbNewObject.IsChecked() )
{
aLbObjecttype.Show();
aEdFilepath.Hide();
aBtnFilepath.Hide();
aCbFilelink.Hide();
aGbObject.SetText( _aOldStr );
}
else
{
aCbFilelink.Show();
aLbObjecttype.Hide();
aEdFilepath.Show();
aBtnFilepath.Show();
aCbFilelink.Show();
aGbObject.SetText( aStrFile );
}
return 0;
}
// -----------------------------------------------------------------------
void SvInsertOleDlg::SelectDefault()
{
aLbObjecttype.SelectEntryPos( 0 );
}
void SvInsertOleDlg::FillObjectServerList( SvObjectServerList* pList )
{
pList->FillInsertObjects();
}
// -----------------------------------------------------------------------
SvInsertOleDlg::SvInsertOleDlg
(
Window* pParent,
const Reference < embed::XStorage >& xStorage,
const SvObjectServerList* pServers
)
: InsertObjectDialog_Impl( pParent, ResId( MD_INSERT_OLEOBJECT, DIALOG_MGR() ), xStorage ),
m_pServers( pServers ),
aRbNewObject( this, ResId( RB_NEW_OBJECT ) ),
aRbObjectFromfile( this, ResId( RB_OBJECT_FROMFILE ) ),
aLbObjecttype( this, ResId( LB_OBJECTTYPE ) ),
aEdFilepath( this, ResId( ED_FILEPATH ) ),
aBtnFilepath( this, ResId( BTN_FILEPATH ) ),
aCbFilelink( this, ResId( CB_FILELINK ) ),
aGbObject( this, ResId( GB_OBJECT ) ),
aOKButton1( this, ResId( 1 ) ),
aCancelButton1( this, ResId( 1 ) ),
aHelpButton1( this, ResId( 1 ) ),
aStrFile( ResId( STR_FILE ) )
{
FreeResource();
_aOldStr = aGbObject.GetText();
aLbObjecttype.SetDoubleClickHdl( LINK( this, SvInsertOleDlg, DoubleClickHdl ) );
aBtnFilepath.SetClickHdl( LINK( this, SvInsertOleDlg, BrowseHdl ) );
Link aLink( LINK( this, SvInsertOleDlg, RadioHdl ) );
aRbNewObject.SetClickHdl( aLink );
aRbObjectFromfile.SetClickHdl( aLink );
aRbNewObject.Check( TRUE );
RadioHdl( NULL );
}
short SvInsertOleDlg::Execute()
{
short nRet;
SvObjectServerList aObjS;
if ( !m_pServers )
{
// if no list was provided, take the complete one
aObjS.FillInsertObjects();
m_pServers = &aObjS;
}
// fill listbox and select default
ListBox& rBox = GetObjectTypes();
rBox.SetUpdateMode( FALSE );
for ( ULONG i = 0; i < m_pServers->Count(); i++ )
rBox.InsertEntry( (*m_pServers)[i].GetHumanName() );
rBox.SetUpdateMode( TRUE );
SelectDefault();
::rtl::OUString aName;
DBG_ASSERT( m_xStorage.is(), "No storage!");
if ( m_xStorage.is() && ( nRet = Dialog::Execute() ) == RET_OK )
{
String aFileName;
BOOL bLink = FALSE;
BOOL bCreateNew = IsCreateNew();
if ( bCreateNew )
{
// create and insert new embedded object
String aServerName = rBox.GetSelectEntry();
const SvObjectServer* pS = m_pServers->Get( aServerName );
if ( pS )
{
if( pS->GetClassName() == SvGlobalName( SO3_OUT_CLASSID ) )
{
try
{
uno::Reference < embed::XInsertObjectDialog > xDialogCreator(
::comphelper::getProcessServiceFactory()->createInstance(
::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.embed.MSOLEObjectSystemCreator")) ),
uno::UNO_QUERY );
if ( xDialogCreator.is() )
{
aName = aCnt.CreateUniqueObjectName();
embed::InsertedObjectInfo aNewInf = xDialogCreator->createInstanceByDialog(
m_xStorage,
aName,
uno::Sequence < beans::PropertyValue >() );
OSL_ENSURE( aNewInf.Object.is(), "The object must be created or an exception must be thrown!" );
m_xObj = aNewInf.Object;
// TODO/LATER: use the options from aNewInf ( iconified objects related )
}
}
catch( ucb::CommandAbortedException& )
{
// the user has pressed cancel
}
catch( uno::Exception& )
{
// TODO: Error handling
}
}
else
{
// create object with desired ClassId
m_xObj = aCnt.CreateEmbeddedObject( pS->GetClassName().GetByteSequence(), aName );
}
if ( !m_xObj.is() )
{
if( aFileName.Len() ) // from OLE Dialog
{
// Objekt konnte nicht aus Datei erzeugt werden
// global Resource from svtools (former so3 resource)
String aErr( ResId( STR_ERROR_OBJNOCREATE_FROM_FILE ) );
aErr.SearchAndReplace( String( '%' ), aFileName );
ErrorBox( this, WB_3DLOOK | WB_OK, aErr ).Execute();
}
else
{
// Objekt konnte nicht erzeugt werden
// global Resource from svtools (former so3 resource)
String aErr( ResId( STR_ERROR_OBJNOCREATE ) );
aErr.SearchAndReplace( String( '%' ), aServerName );
ErrorBox( this, WB_3DLOOK | WB_OK, aErr ).Execute();
}
}
}
}
else
{
aFileName = GetFilePath();
INetURLObject aURL;
aURL.SetSmartProtocol( INET_PROT_FILE );
aURL.SetSmartURL( aFileName );
aFileName = aURL.GetMainURL( INetURLObject::NO_DECODE );
bLink = IsLinked();
if ( aFileName.Len() )
{
// create MediaDescriptor for file to create object from
uno::Sequence < beans::PropertyValue > aMedium( 2 );
aMedium[0].Name = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "URL" ) );
aMedium[0].Value <<= ::rtl::OUString( aFileName );
uno::Reference< task::XInteractionHandler > xInteraction;
uno::Reference< lang::XMultiServiceFactory > xFactory = ::comphelper::getProcessServiceFactory();
if ( xFactory.is() )
xInteraction = uno::Reference< task::XInteractionHandler >(
xFactory->createInstance(
DEFINE_CONST_UNICODE("com.sun.star.task.InteractionHandler") ),
uno::UNO_QUERY_THROW );
if ( xInteraction.is() )
{
aMedium[1].Name = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "InteractionHandler" ) );
aMedium[1].Value <<= xInteraction;
}
else
{
OSL_ASSERT( "Can not get InteractionHandler!\n" );
aMedium.realloc( 1 );
}
// create object from media descriptor
if ( bLink )
m_xObj = aCnt.InsertEmbeddedLink( aMedium, aName );
else
m_xObj = aCnt.InsertEmbeddedObject( aMedium, aName );
}
if ( !m_xObj.is() )
{
// Objekt konnte nicht aus Datei erzeugt werden
// global Resource from svtools (former so3 resource)
String aErr( ResId( STR_ERROR_OBJNOCREATE_FROM_FILE ) );
aErr.SearchAndReplace( String( '%' ), aFileName );
ErrorBox( this, WB_3DLOOK | WB_OK, aErr ).Execute();
}
}
}
m_pServers = 0;
return nRet;
}
IMPL_LINK( SvInsertPlugInDialog, BrowseHdl, PushButton *, EMPTYARG )
{
Sequence< OUString > aFilterNames, aFilterTypes;
void fillNetscapePluginFilters( Sequence< OUString >& rNames, Sequence< OUString >& rTypes );
fillNetscapePluginFilters( aFilterNames, aFilterTypes );
Reference< XMultiServiceFactory > xFactory( ::comphelper::getProcessServiceFactory() );
if( xFactory.is() )
{
Reference< XFilePicker > xFilePicker( xFactory->createInstance( OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ui.dialogs.FilePicker" ) ) ), UNO_QUERY );
DBG_ASSERT( xFilePicker.is(), "could not get FilePicker service" );
Reference< XInitialization > xInit( xFilePicker, UNO_QUERY );
Reference< XFilterManager > xFilterMgr( xFilePicker, UNO_QUERY );
if( xInit.is() && xFilePicker.is() && xFilterMgr.is() )
{
Sequence< Any > aServiceType( 1 );
aServiceType[0] <<= TemplateDescription::FILEOPEN_SIMPLE;
xInit->initialize( aServiceType );
// add the filters
try
{
const OUString* pNames = aFilterNames.getConstArray();
const OUString* pTypes = aFilterTypes.getConstArray();
for( int i = 0; i < aFilterNames.getLength(); i++ )
xFilterMgr->appendFilter( pNames[i], pTypes[i] );
}
catch( IllegalArgumentException& )
{
DBG_ASSERT( 0, "caught IllegalArgumentException when registering filter\n" );
}
if( xFilePicker->execute() == ExecutableDialogResults::OK )
{
Sequence< OUString > aPathSeq( xFilePicker->getFiles() );
INetURLObject aObj( aPathSeq[0] );
aEdFileurl.SetText( aObj.PathToFileName() );
}
}
}
return 0;
}
// -----------------------------------------------------------------------
SvInsertPlugInDialog::SvInsertPlugInDialog( Window* pParent, const uno::Reference < embed::XStorage >& xStorage )
: InsertObjectDialog_Impl( pParent, ResId( MD_INSERT_OBJECT_PLUGIN, DIALOG_MGR() ), xStorage ),
aEdFileurl( this, ResId( ED_FILEURL ) ),
aBtnFileurl( this, ResId( BTN_FILEURL ) ),
aGbFileurl( this, ResId( GB_FILEURL ) ),
aEdPluginsOptions( this, ResId( ED_PLUGINS_OPTIONS ) ),
aGbPluginsOptions( this, ResId( GB_PLUGINS_OPTIONS ) ),
aOKButton1( this, ResId( 1 ) ),
aCancelButton1( this, ResId( 1 ) ),
m_pURL(0),
aHelpButton1( this, ResId( 1 ) )
{
FreeResource();
aBtnFileurl.SetClickHdl( LINK( this, SvInsertPlugInDialog, BrowseHdl ) );
}
SvInsertPlugInDialog::~SvInsertPlugInDialog()
{
delete m_pURL;
}
// -----------------------------------------------------------------------
static void Plugin_ImplFillCommandSequence( const String& aCommands, uno::Sequence< beans::PropertyValue >& aCommandSequence )
{
USHORT nEaten;
SvCommandList aLst;
aLst.AppendCommands( aCommands, &nEaten );
const sal_Int32 nCount = aLst.Count();
aCommandSequence.realloc( nCount );
for( sal_Int32 nIndex = 0; nIndex < nCount; nIndex++ )
{
const SvCommand& rCommand = aLst[ nIndex ];
aCommandSequence[nIndex].Name = rCommand.GetCommand();
aCommandSequence[nIndex].Handle = -1;
aCommandSequence[nIndex].Value = makeAny( OUString( rCommand.GetArgument() ) );
aCommandSequence[nIndex].State = beans::PropertyState_DIRECT_VALUE;
}
}
short SvInsertPlugInDialog::Execute()
{
short nRet;
m_aCommands.Erase();
DBG_ASSERT( m_xStorage.is(), "No storage!");
if ( m_xStorage.is() && ( nRet = Dialog::Execute() ) == RET_OK )
{
if ( !m_pURL )
m_pURL = new INetURLObject();
else
*m_pURL = INetURLObject();
m_aCommands = GetPlugInOptions();
String aURL = GetPlugInFile();
// URL can be a valid and absolute URL or a system file name
m_pURL->SetSmartProtocol( INET_PROT_FILE );
if ( !aURL.Len() || m_pURL->SetSmartURL( aURL ) )
{
// create a plugin object
::rtl::OUString aName;
SvGlobalName aClassId( SO3_PLUGIN_CLASSID );
m_xObj = aCnt.CreateEmbeddedObject( aClassId.GetByteSequence(), aName );
}
if ( m_xObj.is() )
{
// set properties from dialog
if ( m_xObj->getCurrentState() == embed::EmbedStates::LOADED )
m_xObj->changeState( embed::EmbedStates::RUNNING );
uno::Reference < beans::XPropertySet > xSet( m_xObj->getComponent(), uno::UNO_QUERY );
if ( xSet.is() )
{
xSet->setPropertyValue( ::rtl::OUString::createFromAscii("PluginURL"),
makeAny( ::rtl::OUString( m_pURL->GetMainURL( INetURLObject::NO_DECODE ) ) ) );
uno::Sequence< beans::PropertyValue > aCommandSequence;
Plugin_ImplFillCommandSequence( m_aCommands, aCommandSequence );
xSet->setPropertyValue( ::rtl::OUString::createFromAscii("PluginCommands"), makeAny( aCommandSequence ) );
}
}
else
{
// PlugIn konnte nicht erzeugt werden
// global Resource from svtools (former so3 resource)
String aErr( ResId( STR_ERROR_OBJNOCREATE_PLUGIN ) );
aErr.SearchAndReplace( String( '%' ), aURL );
ErrorBox( this, WB_3DLOOK | WB_OK, aErr ).Execute();
}
}
return nRet;
}
// class SvInsertAppletDlg -----------------------------------------------
IMPL_LINK( SvInsertAppletDialog, BrowseHdl, PushButton *, EMPTYARG )
{
Reference< XMultiServiceFactory > xFactory( ::comphelper::getProcessServiceFactory() );
if( xFactory.is() )
{
Reference< XFilePicker > xFilePicker( xFactory->createInstance( OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ui.dialogs.FilePicker" ) ) ), UNO_QUERY );
DBG_ASSERT( xFilePicker.is(), "could not get FilePicker service" );
Reference< XInitialization > xInit( xFilePicker, UNO_QUERY );
Reference< XFilterManager > xFilterMgr( xFilePicker, UNO_QUERY );
if( xInit.is() && xFilePicker.is() && xFilterMgr.is() )
{
Sequence< Any > aServiceType( 1 );
aServiceType[0] <<= TemplateDescription::FILEOPEN_SIMPLE;
xInit->initialize( aServiceType );
// add filter
try
{
xFilterMgr->appendFilter(
OUString( RTL_CONSTASCII_USTRINGPARAM( "Applet" ) ),
OUString( RTL_CONSTASCII_USTRINGPARAM( "*.class" ) )
);
}
catch( IllegalArgumentException& )
{
DBG_ASSERT( 0, "caught IllegalArgumentException when registering filter\n" );
}
if( xFilePicker->execute() == ExecutableDialogResults::OK )
{
Sequence< OUString > aPathSeq( xFilePicker->getFiles() );
INetURLObject aObj( aPathSeq[0] );
aEdClassfile.SetText( aObj.getName() );
aObj.removeSegment();
aEdClasslocation.SetText( aObj.PathToFileName() );
}
}
}
return 0;
}
// -----------------------------------------------------------------------
SvInsertAppletDialog::SvInsertAppletDialog( Window* pParent, const uno::Reference < embed::XStorage >& xStorage )
: InsertObjectDialog_Impl( pParent, ResId( MD_INSERT_OBJECT_APPLET, DIALOG_MGR() ), xStorage ),
aFtClassfile( this, ResId( FT_CLASSFILE ) ),
aEdClassfile( this, ResId( ED_CLASSFILE ) ),
aFtClasslocation( this, ResId( FT_CLASSLOCATION ) ),
aEdClasslocation( this, ResId( ED_CLASSLOCATION ) ),
aBtnClass( this, ResId( BTN_CLASS ) ),
aGbClass( this, ResId( GB_CLASS ) ),
aEdAppletOptions( this, ResId( ED_APPLET_OPTIONS ) ),
aGbAppletOptions( this, ResId( GB_APPLET_OPTIONS ) ),
aOKButton1( this, ResId( 1 ) ),
aCancelButton1( this, ResId( 1 ) ),
m_pURL(0),
aHelpButton1( this, ResId( 1 ) )
{
FreeResource();
aBtnClass.SetClickHdl( LINK( this, SvInsertAppletDialog, BrowseHdl ) );
}
SvInsertAppletDialog::SvInsertAppletDialog( Window* pParent, const uno::Reference < embed::XEmbeddedObject >& xObj )
: InsertObjectDialog_Impl( pParent, ResId( MD_INSERT_OBJECT_APPLET, DIALOG_MGR() ), uno::Reference < embed::XStorage >() ),
aFtClassfile( this, ResId( FT_CLASSFILE ) ),
aEdClassfile( this, ResId( ED_CLASSFILE ) ),
aFtClasslocation( this, ResId( FT_CLASSLOCATION ) ),
aEdClasslocation( this, ResId( ED_CLASSLOCATION ) ),
aBtnClass( this, ResId( BTN_CLASS ) ),
aGbClass( this, ResId( GB_CLASS ) ),
aEdAppletOptions( this, ResId( ED_APPLET_OPTIONS ) ),
aGbAppletOptions( this, ResId( GB_APPLET_OPTIONS ) ),
aOKButton1( this, ResId( 1 ) ),
aCancelButton1( this, ResId( 1 ) ),
m_pURL(0),
aHelpButton1( this, ResId( 1 ) )
{
m_xObj = xObj;
FreeResource();
aBtnClass.SetClickHdl( LINK( this, SvInsertAppletDialog, BrowseHdl ) );
}
SvInsertAppletDialog::~SvInsertAppletDialog()
{
delete m_pURL;
}
short SvInsertAppletDialog::Execute()
{
short nRet;
m_aClass.Erase();
m_aCommands.Erase();
BOOL bOK = FALSE;
uno::Reference < beans::XPropertySet > xSet;
if ( m_xObj.is() )
{
try
{
if ( m_xObj->getCurrentState() == embed::EmbedStates::LOADED )
m_xObj->changeState( embed::EmbedStates::RUNNING );
xSet = uno::Reference < beans::XPropertySet >( m_xObj->getComponent(), uno::UNO_QUERY );
::rtl::OUString aStr;
uno::Any aAny = xSet->getPropertyValue( ::rtl::OUString::createFromAscii("AppletCode") );
if ( aAny >>= aStr )
SetClass( aStr );
aAny = xSet->getPropertyValue( ::rtl::OUString::createFromAscii("AppletCodeBase") );
if ( aAny >>= aStr )
SetClassLocation( aStr );
uno::Sequence< beans::PropertyValue > aCommands;
aAny = xSet->getPropertyValue( ::rtl::OUString::createFromAscii("AppletCommands") );
if ( aAny >>= aCommands )
{
SvCommandList aList;
aList.FillFromSequence( aCommands );
SetAppletOptions( aList.GetCommands() );
}
String aText( ResId( STR_EDIT_APPLET, DIALOG_MGR() ) );
SetText( aText );
bOK = TRUE;
}
catch ( uno::Exception& )
{
DBG_ERROR( "No Applet!" );
}
}
else
{
DBG_ASSERT( m_xStorage.is(), "No storage!");
bOK = m_xStorage.is();
}
if ( bOK && ( nRet = Dialog::Execute() ) == RET_OK )
{
if ( !m_xObj.is() )
{
::rtl::OUString aName;
SvGlobalName aClassId( SO3_APPLET_CLASSID );
m_xObj = aCnt.CreateEmbeddedObject( aClassId.GetByteSequence(), aName );
if ( m_xObj->getCurrentState() == embed::EmbedStates::LOADED )
m_xObj->changeState( embed::EmbedStates::RUNNING );
xSet = uno::Reference < beans::XPropertySet >( m_xObj->getComponent(), uno::UNO_QUERY );
}
if ( m_xObj.is() )
{
try
{
BOOL bIPActive = m_xObj->getCurrentState() == embed::EmbedStates::INPLACE_ACTIVE;
if ( bIPActive )
m_xObj->changeState( embed::EmbedStates::RUNNING );
String aClassLocation = GetClassLocation();
// Hack, aFileName wird auch fuer Class benutzt
m_aClass = GetClass();
xSet->setPropertyValue( ::rtl::OUString::createFromAscii("AppletCode"), makeAny( ::rtl::OUString( m_aClass ) ) );
::rtl::OUString tmp = aClassLocation;
::osl::File::getFileURLFromSystemPath(tmp, tmp);
aClassLocation = tmp;
xSet->setPropertyValue( ::rtl::OUString::createFromAscii("AppletCodeBase"), makeAny( tmp ) );
m_aCommands = GetAppletOptions();
uno::Sequence< beans::PropertyValue > aCommandSequence;
Plugin_ImplFillCommandSequence( m_aCommands, aCommandSequence );
xSet->setPropertyValue( ::rtl::OUString::createFromAscii("AppletCommands"), makeAny( aCommandSequence ) );
if ( bIPActive )
m_xObj->changeState( embed::EmbedStates::INPLACE_ACTIVE );
}
catch ( uno::Exception& )
{
DBG_ERROR( "No Applet!" );
}
}
}
return nRet;
}
SfxInsertFloatingFrameDialog::SfxInsertFloatingFrameDialog( Window *pParent,
const com::sun::star::uno::Reference < com::sun::star::embed::XStorage >& xStorage )
: InsertObjectDialog_Impl( pParent, ResId( MD_INSERT_OBJECT_IFRAME, DIALOG_MGR() ), xStorage )
, aFTName ( this, ResId( FT_FRAMENAME ) )
, aEDName ( this, ResId( ED_FRAMENAME ) )
, aFTURL ( this, ResId( FT_URL ) )
, aEDURL ( this, ResId( ED_URL ) )
, aBTOpen ( this, ResId(BT_FILEOPEN ) )
, aRBScrollingOn ( this, ResId( RB_SCROLLINGON ) )
, aRBScrollingOff ( this, ResId( RB_SCROLLINGOFF ) )
, aRBScrollingAuto ( this, ResId( RB_SCROLLINGAUTO ) )
, aFLScrolling ( this, ResId( GB_SCROLLING ) )
, aFLSepLeft( this, ResId( FL_SEP_LEFT ) )
, aRBFrameBorderOn ( this, ResId( RB_FRMBORDER_ON ) )
, aRBFrameBorderOff ( this, ResId( RB_FRMBORDER_OFF ) )
, aFLFrameBorder( this, ResId( GB_BORDER ) )
, aFLSepRight( this, ResId( FL_SEP_RIGHT ) )
, aFTMarginWidth ( this, ResId( FT_MARGINWIDTH ) )
, aNMMarginWidth ( this, ResId( NM_MARGINWIDTH ) )
, aCBMarginWidthDefault( this, ResId( CB_MARGINHEIGHTDEFAULT ) )
, aFTMarginHeight ( this, ResId( FT_MARGINHEIGHT ) )
, aNMMarginHeight ( this, ResId( NM_MARGINHEIGHT ) )
, aCBMarginHeightDefault( this, ResId( CB_MARGINHEIGHTDEFAULT ) )
, aFLMargin( this, ResId( GB_MARGIN ) )
, aOKButton1( this, ResId( 1 ) )
, aCancelButton1( this, ResId( 1 ) )
, aHelpButton1( this, ResId( 1 ) )
{
FreeResource();
aFLSepLeft.SetStyle(aFLSepLeft.GetStyle()|WB_VERT);
aFLSepRight.SetStyle(aFLSepRight.GetStyle()|WB_VERT);
Link aLink( STATIC_LINK( this, SfxInsertFloatingFrameDialog, CheckHdl ) );
aCBMarginWidthDefault.SetClickHdl( aLink );
aCBMarginHeightDefault.SetClickHdl( aLink );
aCBMarginWidthDefault.Check();
aCBMarginHeightDefault.Check();
aRBScrollingAuto.Check();
aRBFrameBorderOn.Check();
aBTOpen.SetClickHdl( STATIC_LINK( this, SfxInsertFloatingFrameDialog, OpenHdl ) );
}
SfxInsertFloatingFrameDialog::SfxInsertFloatingFrameDialog( Window *pParent, const uno::Reference < embed::XEmbeddedObject >& xObj )
: InsertObjectDialog_Impl( pParent, ResId( MD_INSERT_OBJECT_IFRAME, DIALOG_MGR() ), uno::Reference < embed::XStorage >() )
, aFTName ( this, ResId( FT_FRAMENAME ) )
, aEDName ( this, ResId( ED_FRAMENAME ) )
, aFTURL ( this, ResId( FT_URL ) )
, aEDURL ( this, ResId( ED_URL ) )
, aBTOpen ( this, ResId(BT_FILEOPEN ) )
, aRBScrollingOn ( this, ResId( RB_SCROLLINGON ) )
, aRBScrollingOff ( this, ResId( RB_SCROLLINGOFF ) )
, aRBScrollingAuto ( this, ResId( RB_SCROLLINGAUTO ) )
, aFLScrolling ( this, ResId( GB_SCROLLING ) )
, aFLSepLeft( this, ResId( FL_SEP_LEFT ) )
, aRBFrameBorderOn ( this, ResId( RB_FRMBORDER_ON ) )
, aRBFrameBorderOff ( this, ResId( RB_FRMBORDER_OFF ) )
, aFLFrameBorder( this, ResId( GB_BORDER ) )
, aFLSepRight( this, ResId( FL_SEP_RIGHT ) )
, aFTMarginWidth ( this, ResId( FT_MARGINWIDTH ) )
, aNMMarginWidth ( this, ResId( NM_MARGINWIDTH ) )
, aCBMarginWidthDefault( this, ResId( CB_MARGINHEIGHTDEFAULT ) )
, aFTMarginHeight ( this, ResId( FT_MARGINHEIGHT ) )
, aNMMarginHeight ( this, ResId( NM_MARGINHEIGHT ) )
, aCBMarginHeightDefault( this, ResId( CB_MARGINHEIGHTDEFAULT ) )
, aFLMargin( this, ResId( GB_MARGIN ) )
, aOKButton1( this, ResId( 1 ) )
, aCancelButton1( this, ResId( 1 ) )
, aHelpButton1( this, ResId( 1 ) )
{
FreeResource();
m_xObj = xObj;
aFLSepLeft.SetStyle(aFLSepLeft.GetStyle()|WB_VERT);
aFLSepRight.SetStyle(aFLSepRight.GetStyle()|WB_VERT);
Link aLink( STATIC_LINK( this, SfxInsertFloatingFrameDialog, CheckHdl ) );
aCBMarginWidthDefault.SetClickHdl( aLink );
aCBMarginHeightDefault.SetClickHdl( aLink );
aCBMarginWidthDefault.Check();
aCBMarginHeightDefault.Check();
aRBScrollingAuto.Check();
aRBFrameBorderOn.Check();
aBTOpen.SetClickHdl( STATIC_LINK( this, SfxInsertFloatingFrameDialog, OpenHdl ) );
}
short SfxInsertFloatingFrameDialog::Execute()
{
short nRet;
BOOL bOK = FALSE;
uno::Reference < beans::XPropertySet > xSet;
if ( m_xObj.is() )
{
try
{
if ( m_xObj->getCurrentState() == embed::EmbedStates::LOADED )
m_xObj->changeState( embed::EmbedStates::RUNNING );
xSet = uno::Reference < beans::XPropertySet >( m_xObj->getComponent(), uno::UNO_QUERY );
::rtl::OUString aStr;
uno::Any aAny = xSet->getPropertyValue( ::rtl::OUString::createFromAscii("FrameURL") );
if ( aAny >>= aStr )
aEDURL.SetText( aStr );
aAny = xSet->getPropertyValue( ::rtl::OUString::createFromAscii("FrameName") );
if ( aAny >>= aStr )
aEDName.SetText( aStr );
sal_Int32 nSize = SIZE_NOT_SET;
aAny = xSet->getPropertyValue( ::rtl::OUString::createFromAscii("FrameMarginWidth") );
aAny >>= nSize;
if ( nSize == SIZE_NOT_SET )
{
aCBMarginWidthDefault.Check( TRUE );
aNMMarginWidth.SetText( String::CreateFromInt32( DEFAULT_MARGIN_WIDTH ) );
aFTMarginWidth.Enable( FALSE );
aNMMarginWidth.Enable( FALSE );
}
else
aNMMarginWidth.SetText( String::CreateFromInt32( nSize ) );
aAny = xSet->getPropertyValue( ::rtl::OUString::createFromAscii("FrameMarginHeight") );
aAny >>= nSize;
if ( nSize == SIZE_NOT_SET )
{
aCBMarginHeightDefault.Check( TRUE );
aNMMarginHeight.SetText( String::CreateFromInt32( DEFAULT_MARGIN_HEIGHT ) );
aFTMarginHeight.Enable( FALSE );
aNMMarginHeight.Enable( FALSE );
}
else
aNMMarginHeight.SetText( String::CreateFromInt32( nSize ) );
BOOL bScrollOn = FALSE;
BOOL bScrollOff = FALSE;
BOOL bScrollAuto = FALSE;
sal_Bool bSet = sal_False;
aAny = xSet->getPropertyValue( ::rtl::OUString::createFromAscii("FrameIsAutoScroll") );
aAny >>= bSet;
if ( !bSet )
{
aAny = xSet->getPropertyValue( ::rtl::OUString::createFromAscii("FrameIsScrollingMode") );
aAny >>= bSet;
bScrollOn = bSet;
bScrollOff = !bSet;
}
else
bScrollAuto = TRUE;
aRBScrollingOn.Check( bScrollOn );
aRBScrollingOff.Check( bScrollOff );
aRBScrollingAuto.Check( bScrollAuto );
bSet = sal_False;
aAny = xSet->getPropertyValue( ::rtl::OUString::createFromAscii("FrameIsAutoBorder") );
aAny >>= bSet;
if ( !bSet )
{
aAny = xSet->getPropertyValue( ::rtl::OUString::createFromAscii("FrameIsBorder") );
aAny >>= bSet;
aRBFrameBorderOn.Check( bSet );
aRBFrameBorderOff.Check( !bSet );
}
SetUpdateMode( TRUE );
bOK = TRUE;
}
catch ( uno::Exception& )
{
DBG_ERROR( "No IFrame!" );
}
}
else
{
DBG_ASSERT( m_xStorage.is(), "No storage!");
bOK = m_xStorage.is();
}
if ( bOK && ( nRet = Dialog::Execute() ) == RET_OK )
{
::rtl::OUString aURL;
if ( aEDURL.GetText().Len() )
{
// URL can be a valid and absolute URL or a system file name
INetURLObject aObj;
aObj.SetSmartProtocol( INET_PROT_FILE );
if ( aObj.SetSmartURL( aEDURL.GetText() ) )
aURL = aObj.GetMainURL( INetURLObject::NO_DECODE );
}
if ( !m_xObj.is() && aURL.getLength() )
{
// create the object
::rtl::OUString aName;
SvGlobalName aClassId( SO3_IFRAME_CLASSID );
m_xObj = aCnt.CreateEmbeddedObject( aClassId.GetByteSequence(), aName );
if ( m_xObj->getCurrentState() == embed::EmbedStates::LOADED )
m_xObj->changeState( embed::EmbedStates::RUNNING );
xSet = uno::Reference < beans::XPropertySet >( m_xObj->getComponent(), uno::UNO_QUERY );
}
if ( m_xObj.is() )
{
try
{
BOOL bIPActive = m_xObj->getCurrentState() == embed::EmbedStates::INPLACE_ACTIVE;
if ( bIPActive )
m_xObj->changeState( embed::EmbedStates::RUNNING );
::rtl::OUString aName = aEDName.GetText();
ScrollingMode eScroll = ScrollingNo;
if ( aRBScrollingOn.IsChecked() )
eScroll = ScrollingYes;
if ( aRBScrollingOff.IsChecked() )
eScroll = ScrollingNo;
if ( aRBScrollingAuto.IsChecked() )
eScroll = ScrollingAuto;
sal_Bool bHasBorder = aRBFrameBorderOn.IsChecked();
long lMarginWidth;
if ( !aCBMarginWidthDefault.IsChecked() )
lMarginWidth = (long) aNMMarginWidth.GetText().ToInt32();
else
lMarginWidth = SIZE_NOT_SET;
long lMarginHeight;
if ( !aCBMarginHeightDefault.IsChecked() )
lMarginHeight = (long) aNMMarginHeight.GetText().ToInt32();
else
lMarginHeight = SIZE_NOT_SET;
xSet->setPropertyValue( ::rtl::OUString::createFromAscii("FrameURL"), makeAny( aURL ) );
xSet->setPropertyValue( ::rtl::OUString::createFromAscii("FrameName"), makeAny( aName ) );
if ( eScroll == ScrollingAuto )
xSet->setPropertyValue( ::rtl::OUString::createFromAscii("FrameIsAutoScroll"),
makeAny( sal_True ) );
else
xSet->setPropertyValue( ::rtl::OUString::createFromAscii("FrameIsScrollingMode"),
makeAny( (sal_Bool) ( eScroll == ScrollingYes) ) );
//if ( aFrmDescr.IsFrameBorderSet() )
xSet->setPropertyValue( ::rtl::OUString::createFromAscii("FrameIsBorder"),
makeAny( bHasBorder ) );
/*else
xSet->setPropertyValue( ::rtl::OUString::createFromAscii("FrameIsAutoBorder"),
makeAny( sal_True ) );*/
xSet->setPropertyValue( ::rtl::OUString::createFromAscii("FrameMarginWidth"),
makeAny( sal_Int32( lMarginWidth ) ) );
xSet->setPropertyValue( ::rtl::OUString::createFromAscii("FrameMarginHeight"),
makeAny( sal_Int32( lMarginHeight ) ) );
if ( bIPActive )
m_xObj->changeState( embed::EmbedStates::INPLACE_ACTIVE );
}
catch ( uno::Exception& )
{
DBG_ERROR( "No IFrame!" );
}
}
}
return nRet;
}
//------------------------------------------------------------------------------
IMPL_STATIC_LINK( SfxInsertFloatingFrameDialog, CheckHdl, CheckBox*, pCB )
{
if ( pCB == &pThis->aCBMarginWidthDefault )
{
if ( pCB->IsChecked() )
pThis->aNMMarginWidth.SetText( String::CreateFromInt32( DEFAULT_MARGIN_WIDTH ) );
pThis->aFTMarginWidth.Enable( !pCB->IsChecked() );
pThis->aNMMarginWidth.Enable( !pCB->IsChecked() );
}
if ( pCB == &pThis->aCBMarginHeightDefault )
{
if ( pCB->IsChecked() )
pThis->aNMMarginHeight.SetText( String::CreateFromInt32( DEFAULT_MARGIN_HEIGHT ) );
pThis->aFTMarginHeight.Enable( !pCB->IsChecked() );
pThis->aNMMarginHeight.Enable( !pCB->IsChecked() );
}
return 0L;
}
//------------------------------------------------------------------------------
IMPL_STATIC_LINK( SfxInsertFloatingFrameDialog, OpenHdl, PushButton*, EMPTYARG )
{
Window* pOldParent = Application::GetDefDialogParent();
Application::SetDefDialogParent( pThis );
// create the file dialog
sfx2::FileDialogHelper aFileDlg( WB_OPEN | SFXWB_PASSWORD, String() );
// set the title
aFileDlg.SetTitle( OUString( String( ResId( MD_INSERT_OBJECT_IFRAME, DIALOG_MGR() ) ) ) );
// show the dialog
if ( aFileDlg.Execute() == ERRCODE_NONE )
pThis->aEDURL.SetText(
INetURLObject( aFileDlg.GetPath() ).GetMainURL( INetURLObject::DECODE_WITH_CHARSET ) );
Application::SetDefDialogParent( pOldParent );
return 0L;
}