1 /**************************************************************
2 *
3 * Licensed to the Apache Software Foundation (ASF) under one
4 * or more contributor license agreements. See the NOTICE file
5 * distributed with this work for additional information
6 * regarding copyright ownership. The ASF licenses this file
7 * to you under the Apache License, Version 2.0 (the
8 * "License"); you may not use this file except in compliance
9 * with the License. You may obtain a copy of the License at
10 *
11 * http://www.apache.org/licenses/LICENSE-2.0
12 *
13 * Unless required by applicable law or agreed to in writing,
14 * software distributed under the License is distributed on an
15 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16 * KIND, either express or implied. See the License for the
17 * specific language governing permissions and limitations
18 * under the License.
19 *
20 *************************************************************/
21
22
23
24 // MARKER(update_precomp.py): autogen include statement, do not remove
25 #include "precompiled_sfx2.hxx"
26 #include <vcl/msgbox.hxx>
27 #include <tools/resary.hxx>
28 #include <svl/lstner.hxx>
29 #include <basic/basmgr.hxx>
30 #include <basic/sbmod.hxx>
31 #include <tools/urlobj.hxx>
32 #include <basic/sbx.hxx>
33 #include <sot/storage.hxx>
34 #include <unotools/securityoptions.hxx>
35
36 #include <rtl/ustring.h>
37 #include <com/sun/star/uno/Any.hxx>
38 #include <framework/eventsconfiguration.hxx>
39 #include <comphelper/processfactory.hxx>
40 #include <sfx2/evntconf.hxx>
41
42 #include <sfx2/docfile.hxx>
43 #include <sfx2/app.hxx>
44 #include <sfx2/objsh.hxx>
45 #include <sfx2/dispatch.hxx>
46 #include "sfx2/sfxresid.hxx"
47 #include "eventsupplier.hxx"
48
49 #include <com/sun/star/beans/PropertyValue.hpp>
50 #include <com/sun/star/container/XNameReplace.hpp>
51 #include <com/sun/star/document/XEventsSupplier.hpp>
52 #include <com/sun/star/uno/Sequence.hxx>
53 #include <com/sun/star/uno/Reference.hxx>
54
55 // -----------------------------------------------------------------------
56 TYPEINIT1(SfxEventHint, SfxHint);
57 TYPEINIT1(SfxEventNamesItem, SfxPoolItem);
58 TYPEINIT1(SfxViewEventHint, SfxEventHint);
59
60 using namespace com::sun::star;
61
operator =(const SfxEventNamesList & rTbl)62 SfxEventNamesList& SfxEventNamesList::operator=( const SfxEventNamesList& rTbl )
63 {
64 DelDtor();
65 for (sal_uInt16 n=0; n<rTbl.Count(); n++ )
66 {
67 SfxEventName* pTmp = ((SfxEventNamesList&)rTbl).GetObject(n);
68 SfxEventName *pNew = new SfxEventName( *pTmp );
69 Insert( pNew, n );
70 }
71 return *this;
72 }
73
DelDtor()74 void SfxEventNamesList::DelDtor()
75 {
76 SfxEventName* pTmp = First();
77 while( pTmp )
78 {
79 delete pTmp;
80 pTmp = Next();
81 }
82 Clear();
83 }
84
operator ==(const SfxPoolItem & rAttr) const85 int SfxEventNamesItem::operator==( const SfxPoolItem& rAttr ) const
86 {
87 DBG_ASSERT( SfxPoolItem::operator==(rAttr), "unequal types" );
88
89 const SfxEventNamesList& rOwn = aEventsList;
90 const SfxEventNamesList& rOther = ( (SfxEventNamesItem&) rAttr ).aEventsList;
91
92 if ( rOwn.Count() != rOther.Count() )
93 return sal_False;
94
95 for ( sal_uInt16 nNo = 0; nNo < rOwn.Count(); ++nNo )
96 {
97 const SfxEventName *pOwn = rOwn.GetObject(nNo);
98 const SfxEventName *pOther = rOther.GetObject(nNo);
99 if ( pOwn->mnId != pOther->mnId ||
100 pOwn->maEventName != pOther->maEventName ||
101 pOwn->maUIName != pOther->maUIName )
102 return sal_False;
103 }
104
105 return sal_True;
106
107 }
108
GetPresentation(SfxItemPresentation,SfxMapUnit,SfxMapUnit,XubString & rText,const IntlWrapper *) const109 SfxItemPresentation SfxEventNamesItem::GetPresentation( SfxItemPresentation,
110 SfxMapUnit,
111 SfxMapUnit,
112 XubString &rText,
113 const IntlWrapper* ) const
114 {
115 rText.Erase();
116 return SFX_ITEM_PRESENTATION_NONE;
117 }
118
Clone(SfxItemPool *) const119 SfxPoolItem* SfxEventNamesItem::Clone( SfxItemPool *) const
120 {
121 return new SfxEventNamesItem(*this);
122 }
123
Create(SvStream &,sal_uInt16) const124 SfxPoolItem* SfxEventNamesItem::Create(SvStream &, sal_uInt16) const
125 {
126 DBG_ERROR("not streamable!");
127 return new SfxEventNamesItem(Which());
128 }
129
Store(SvStream & rStream,sal_uInt16) const130 SvStream& SfxEventNamesItem::Store(SvStream &rStream, sal_uInt16 ) const
131 {
132 DBG_ERROR("not streamable!");
133 return rStream;
134 }
135
GetVersion(sal_uInt16) const136 sal_uInt16 SfxEventNamesItem::GetVersion( sal_uInt16 ) const
137 {
138 DBG_ERROR("not streamable!");
139 return 0;
140 }
141
AddEvent(const String & rName,const String & rUIName,sal_uInt16 nID)142 void SfxEventNamesItem::AddEvent( const String& rName, const String& rUIName, sal_uInt16 nID )
143 {
144 aEventsList.Insert( new SfxEventName( nID, rName, rUIName.Len() ? rUIName : rName ) );
145 }
146
147
148 //==========================================================================
149
150 //--------------------------------------------------------------------------
CreateEventData_Impl(const SvxMacro * pMacro)151 uno::Any CreateEventData_Impl( const SvxMacro *pMacro )
152 {
153 /*
154 This function converts a SvxMacro into an Any containing three
155 properties. These properties are EventType and Script. Possible
156 values for EventType ar StarBasic, JavaScript, ...
157 The Script property should contain the URL to the macro and looks
158 like "macro://./standard.module1.main()"
159
160 If pMacro is NULL, we return an empty property sequence, so PropagateEvent_Impl
161 can delete an event binding.
162 */
163 uno::Any aEventData;
164
165 if ( pMacro )
166 {
167 if ( pMacro->GetScriptType() == STARBASIC )
168 {
169 uno::Sequence < beans::PropertyValue > aProperties(3);
170 beans::PropertyValue *pValues = aProperties.getArray();
171
172 ::rtl::OUString aType = ::rtl::OUString::createFromAscii( STAR_BASIC );;
173 ::rtl::OUString aLib = pMacro->GetLibName();
174 ::rtl::OUString aMacro = pMacro->GetMacName();
175
176 pValues[ 0 ].Name = ::rtl::OUString::createFromAscii( PROP_EVENT_TYPE );
177 pValues[ 0 ].Value <<= aType;
178
179 pValues[ 1 ].Name = ::rtl::OUString::createFromAscii( PROP_LIBRARY );
180 pValues[ 1 ].Value <<= aLib;
181
182 pValues[ 2 ].Name = ::rtl::OUString::createFromAscii( PROP_MACRO_NAME );
183 pValues[ 2 ].Value <<= aMacro;
184
185 aEventData <<= aProperties;
186 }
187 else if ( pMacro->GetScriptType() == EXTENDED_STYPE )
188 {
189 uno::Sequence < beans::PropertyValue > aProperties(2);
190 beans::PropertyValue *pValues = aProperties.getArray();
191
192 ::rtl::OUString aLib = pMacro->GetLibName();
193 ::rtl::OUString aMacro = pMacro->GetMacName();
194
195 pValues[ 0 ].Name = ::rtl::OUString::createFromAscii( PROP_EVENT_TYPE );
196 pValues[ 0 ].Value <<= aLib;
197
198 pValues[ 1 ].Name = ::rtl::OUString::createFromAscii( PROP_SCRIPT );
199 pValues[ 1 ].Value <<= aMacro;
200
201 aEventData <<= aProperties;
202 }
203 else if ( pMacro->GetScriptType() == JAVASCRIPT )
204 {
205 uno::Sequence < beans::PropertyValue > aProperties(2);
206 beans::PropertyValue *pValues = aProperties.getArray();
207
208 ::rtl::OUString aMacro = pMacro->GetMacName();
209
210 pValues[ 0 ].Name = ::rtl::OUString::createFromAscii( PROP_EVENT_TYPE );
211 pValues[ 0 ].Value <<= ::rtl::OUString::createFromAscii(SVX_MACRO_LANGUAGE_JAVASCRIPT);
212
213 pValues[ 1 ].Name = ::rtl::OUString::createFromAscii( PROP_MACRO_NAME );
214 pValues[ 1 ].Value <<= aMacro;
215
216 aEventData <<= aProperties;
217 }
218 else
219 {
220 DBG_ERRORFILE( "CreateEventData_Impl(): ScriptType not supported!");
221 }
222 }
223 else
224 {
225 uno::Sequence < beans::PropertyValue > aProperties;
226 aEventData <<= aProperties;
227 }
228
229 return aEventData;
230 }
231
232 //--------------------------------------------------------------------------
PropagateEvent_Impl(SfxObjectShell * pDoc,rtl::OUString aEventName,const SvxMacro * pMacro)233 void PropagateEvent_Impl( SfxObjectShell *pDoc, rtl::OUString aEventName, const SvxMacro* pMacro )
234 {
235 uno::Reference < document::XEventsSupplier > xSupplier;
236 if ( pDoc )
237 {
238 xSupplier = uno::Reference < document::XEventsSupplier >( pDoc->GetModel(), uno::UNO_QUERY );
239 }
240 else
241 {
242 xSupplier = uno::Reference < document::XEventsSupplier >
243 ( ::comphelper::getProcessServiceFactory()->createInstance(
244 rtl::OUString::createFromAscii("com.sun.star.frame.GlobalEventBroadcaster" )), uno::UNO_QUERY );
245 }
246
247 if ( xSupplier.is() )
248 {
249 uno::Reference < container::XNameReplace > xEvents = xSupplier->getEvents();
250 if ( aEventName.getLength() )
251 {
252 uno::Any aEventData = CreateEventData_Impl( pMacro );
253
254 try
255 {
256 xEvents->replaceByName( aEventName, aEventData );
257 }
258 catch( ::com::sun::star::lang::IllegalArgumentException )
259 { DBG_ERRORFILE( "PropagateEvents_Impl: caught IllegalArgumentException" ); }
260 catch( ::com::sun::star::container::NoSuchElementException )
261 { DBG_ERRORFILE( "PropagateEvents_Impl: caught NoSuchElementException" ); }
262 }
263 else {
264 DBG_WARNING( "PropagateEvents_Impl: Got unkown event" );
265 }
266 }
267 }
268
269 //--------------------------------------------------------------------------------------------------------
ConfigureEvent(rtl::OUString aName,const SvxMacro & rMacro,SfxObjectShell * pDoc)270 void SfxEventConfiguration::ConfigureEvent( rtl::OUString aName, const SvxMacro& rMacro, SfxObjectShell *pDoc )
271 {
272 SvxMacro *pMacro = NULL;
273 if ( rMacro.GetMacName().Len() )
274 pMacro = new SvxMacro( rMacro.GetMacName(), rMacro.GetLibName(), rMacro.GetScriptType() );
275 if ( pDoc )
276 {
277 PropagateEvent_Impl( pDoc, aName, pMacro );
278 }
279 else
280 {
281 PropagateEvent_Impl( NULL, aName, pMacro );
282 }
283 }
284
285 // -------------------------------------------------------------------------------------------------------
ConvertToMacro(const com::sun::star::uno::Any & rElement,SfxObjectShell * pDoc,sal_Bool bBlowUp)286 SvxMacro* SfxEventConfiguration::ConvertToMacro( const com::sun::star::uno::Any& rElement, SfxObjectShell* pDoc, sal_Bool bBlowUp )
287 {
288 return SfxEvents_Impl::ConvertToMacro( rElement, pDoc, bBlowUp );
289 }
290