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 #if defined(_MSC_VER) && (_MSC_VER >= 1300)
27 #pragma warning( disable : 4290 )
28 #endif
29 #include <com/sun/star/document/UpdateDocMode.hpp>
30
31 #include "sal/config.h"
32
33 #include <sfx2/appuno.hxx>
34 #include "appbaslib.hxx"
35
36 #include "sfx2/dllapi.h"
37
38 #include <basic/sbx.hxx>
39 #include <svl/itempool.hxx>
40 #include <svl/rectitem.hxx>
41 #include <tools/debug.hxx>
42 #include <tools/wldcrd.hxx>
43
44 #include <tools/urlobj.hxx>
45 #include <tools/config.hxx>
46 #include <basic/sbxmeth.hxx>
47 #include <basic/sbmeth.hxx>
48 #include <basic/sbxobj.hxx>
49 #include <basic/sberrors.hxx>
50 #include <basic/basmgr.hxx>
51 #include <basic/sbuno.hxx>
52
53 #include <basic/sbxcore.hxx>
54 #include <svl/ownlist.hxx>
55 #include <svl/lckbitem.hxx>
56 #include <svl/stritem.hxx>
57 #include <svl/slstitm.hxx>
58 #include <svl/intitem.hxx>
59 #include <svl/eitem.hxx>
60 #include <com/sun/star/task/XStatusIndicatorFactory.hpp>
61 #include <com/sun/star/task/XInteractionHandler.hpp>
62 #include <com/sun/star/io/XInputStream.hpp>
63 #include <com/sun/star/beans/XPropertySet.hpp>
64 #include <com/sun/star/frame/XFrameActionListener.hpp>
65 #include <com/sun/star/frame/XComponentLoader.hpp>
66 #include <com/sun/star/frame/XFrame.hpp>
67 #include <com/sun/star/frame/FrameActionEvent.hpp>
68 #include <com/sun/star/frame/FrameAction.hpp>
69 #include <com/sun/star/container/XContainer.hpp>
70 #include <com/sun/star/container/XIndexContainer.hpp>
71 #include <com/sun/star/container/XNameReplace.hpp>
72 #include <com/sun/star/container/XContainerListener.hpp>
73 #include <com/sun/star/container/XSet.hpp>
74 #include <com/sun/star/container/ContainerEvent.hpp>
75 #include <com/sun/star/container/XIndexReplace.hpp>
76 #include <com/sun/star/container/XNameContainer.hpp>
77 #include <com/sun/star/awt/XTopWindow.hpp>
78 #include <com/sun/star/awt/XWindow.hpp>
79 #include <com/sun/star/awt/PosSize.hpp>
80 #include <com/sun/star/registry/RegistryValueType.hpp>
81 #include <comphelper/processfactory.hxx>
82 #include <com/sun/star/awt/PosSize.hpp>
83 #include <com/sun/star/awt/XButton.hpp>
84 #include <com/sun/star/frame/DispatchResultEvent.hpp>
85 #include <com/sun/star/frame/DispatchResultState.hpp>
86 #include <com/sun/star/frame/XModel.hpp>
87 #include <com/sun/star/document/MacroExecMode.hpp>
88 #include <com/sun/star/ucb/XContent.hpp>
89
90 #include <tools/cachestr.hxx>
91 #include <osl/mutex.hxx>
92 #include <comphelper/sequence.hxx>
93 #include <framework/documentundoguard.hxx>
94 #include <rtl/ustrbuf.hxx>
95 #include <comphelper/interaction.hxx>
96
97 using namespace ::com::sun::star;
98 using namespace ::com::sun::star::ucb;
99 using namespace ::com::sun::star::uno;
100 using namespace ::com::sun::star::registry;
101 using namespace ::com::sun::star::frame;
102 using namespace ::com::sun::star::beans;
103 using namespace ::com::sun::star::io;
104
105 #include "sfxtypes.hxx"
106 #include <sfx2/sfxuno.hxx>
107 #include <sfx2/app.hxx>
108 #include <sfx2/sfxsids.hrc>
109 #include <sfx2/msg.hxx>
110 #include <sfx2/msgpool.hxx>
111 #include <sfx2/request.hxx>
112 #include <sfx2/module.hxx>
113 #include <sfx2/fcontnr.hxx>
114 #include "frmload.hxx"
115 #include <sfx2/frame.hxx>
116 #include <sfx2/objsh.hxx>
117 #include <sfx2/objuno.hxx>
118 #include <sfx2/unoctitm.hxx>
119 #include <sfx2/dispatch.hxx>
120 #include "doctemplates.hxx"
121 #include "shutdownicon.hxx"
122 #include "objshimp.hxx"
123 #include "fltoptint.hxx"
124 #include <sfx2/docfile.hxx>
125 #include <sfx2/sfxbasecontroller.hxx>
126 #include <sfx2/brokenpackageint.hxx>
127 #include "eventsupplier.hxx"
128 #include "xpackcreator.hxx"
129 #include "plugin.hxx"
130 #include "iframe.hxx"
131 #include <ownsubfilterservice.hxx>
132 #include "SfxDocumentMetaData.hxx"
133
134 #define FRAMELOADER_SERVICENAME "com.sun.star.frame.FrameLoader"
135 #define PROTOCOLHANDLER_SERVICENAME "com.sun.star.frame.ProtocolHandler"
136
137 #include <sfxslots.hxx>
138
139 // needs to be converted to a better data structure
140 SfxFormalArgument aFormalArgs[] =
141 {
142 SFX_ARGUMENT(SID_DEFAULTFILENAME,"SuggestedSaveAsName",SfxStringItem),
143 SFX_ARGUMENT(SID_DEFAULTFILEPATH,"SuggestedSaveAsDir",SfxStringItem),
144 SFX_ARGUMENT(SID_DOCINFO_AUTHOR,"VersionAuthor",SfxStringItem),
145 SFX_ARGUMENT(SID_DOCINFO_COMMENTS,"VersionComment",SfxStringItem),
146 SFX_ARGUMENT(SID_FILE_FILTEROPTIONS,"FilterOptions",SfxStringItem),
147 SFX_ARGUMENT(SID_FILTER_NAME,"FilterName",SfxStringItem),
148 // SFX_ARGUMENT(SID_FILE_NAME,"FileName",SfxStringItem),
149 SFX_ARGUMENT(SID_FILE_NAME,"URL",SfxStringItem),
150 SFX_ARGUMENT(SID_OPTIONS,"OpenFlags",SfxStringItem),
151 SFX_ARGUMENT(SID_OVERWRITE,"Overwrite",SfxBoolItem),
152 SFX_ARGUMENT(SID_PASSWORD,"Password",SfxStringItem),
153 SFX_ARGUMENT(SID_PASSWORDINTERACTION,"PasswordInteraction",SfxBoolItem),
154 SFX_ARGUMENT(SID_REFERER,"Referer",SfxStringItem),
155 SFX_ARGUMENT(SID_SAVETO,"SaveTo",SfxBoolItem),
156 SFX_ARGUMENT(SID_TEMPLATE_NAME,"TemplateName",SfxStringItem),
157 SFX_ARGUMENT(SID_TEMPLATE_REGIONNAME,"TemplateRegion",SfxStringItem),
158 // SFX_ARGUMENT(SID_TEMPLATE_REGIONNAME,"Region",SfxStringItem),
159 // SFX_ARGUMENT(SID_TEMPLATE_NAME,"Name",SfxStringItem),
160 SFX_ARGUMENT(SID_UNPACK,"Unpacked",SfxBoolItem),
161 SFX_ARGUMENT(SID_VERSION,"Version",SfxInt16Item),
162 };
163
164 static sal_uInt16 nMediaArgsCount = sizeof(aFormalArgs) / sizeof (SfxFormalArgument);
165
166 static char const sTemplateRegionName[] = "TemplateRegionName";
167 static char const sTemplateName[] = "TemplateName";
168 static char const sAsTemplate[] = "AsTemplate";
169 static char const sOpenNewView[] = "OpenNewView";
170 static char const sViewId[] = "ViewId";
171 static char const sPluginMode[] = "PluginMode";
172 static char const sReadOnly[] = "ReadOnly";
173 static char const sStartPresentation[] = "StartPresentation";
174 static char const sFrameName[] = "FrameName";
175 static char const sMediaType[] = "MediaType";
176 static char const sPostData[] = "PostData";
177 static char const sCharacterSet[] = "CharacterSet";
178 static char const sInputStream[] = "InputStream";
179 static char const sStream[] = "Stream";
180 static char const sOutputStream[] = "OutputStream";
181 static char const sHidden[] = "Hidden";
182 static char const sPreview[] = "Preview";
183 static char const sViewOnly[] = "ViewOnly";
184 static char const sDontEdit[] = "DontEdit";
185 static char const sSilent[] = "Silent";
186 static char const sJumpMark[] = "JumpMark";
187 static char const sFileName[] = "FileName";
188 static char const sSalvagedFile[] = "SalvagedFile";
189 static char const sStatusInd[] = "StatusIndicator";
190 static char const sModel[] = "Model";
191 static char const sFrame[] = "Frame";
192 static char const sViewData[] = "ViewData";
193 static char const sFilterData[] = "FilterData";
194 static char const sSelectionOnly[] = "SelectionOnly";
195 static char const sFilterFlags[] = "FilterFlags";
196 static char const sMacroExecMode[] = "MacroExecutionMode";
197 static char const sUpdateDocMode[] = "UpdateDocMode";
198 static char const sMinimized[] = "Minimized";
199 static char const sInteractionHdl[] = "InteractionHandler";
200 static char const sUCBContent[] = "UCBContent";
201 static char const sRepairPackage[] = "RepairPackage";
202 static char const sDocumentTitle[] = "DocumentTitle";
203 static char const sComponentData[] = "ComponentData";
204 static char const sComponentContext[] = "ComponentContext";
205 static char const sDocumentBaseURL[] = "DocumentBaseURL";
206 static char const sHierarchicalDocumentName[] = "HierarchicalDocumentName";
207 static char const sCopyStreamIfPossible[] = "CopyStreamIfPossible";
208 static char const sNoAutoSave[] = "NoAutoSave";
209 static char const sFolderName[] = "FolderName";
210 static char const sUseSystemDialog[] = "UseSystemDialog";
211 static char const sStandardDir[] = "StandardDir";
212 static char const sBlackList[] = "BlackList";
213 static char const sModifyPasswordInfo[] = "ModifyPasswordInfo";
214 static char const sSuggestedSaveAsDir[] = "SuggestedSaveAsDir";
215 static char const sSuggestedSaveAsName[] = "SuggestedSaveAsName";
216 static char const sEncryptionData[] = "EncryptionData";
217 static char const sFailOnWarning[] = "FailOnWarning";
218
isMediaDescriptor(sal_uInt16 nSlotId)219 bool isMediaDescriptor( sal_uInt16 nSlotId )
220 {
221 return ( nSlotId == SID_OPENDOC || nSlotId == SID_EXPORTDOC || nSlotId == SID_SAVEASDOC || nSlotId == SID_SAVEDOC ||
222 nSlotId == SID_SAVETO || nSlotId == SID_EXPORTDOCASPDF || nSlotId == SID_DIRECTEXPORTDOCASPDF );
223 }
224
TransformParameters(sal_uInt16 nSlotId,const::com::sun::star::uno::Sequence<::com::sun::star::beans::PropertyValue> & rArgs,SfxAllItemSet & rSet,const SfxSlot * pSlot)225 void TransformParameters( sal_uInt16 nSlotId, const ::com::sun::star::uno::Sequence< ::com::sun::star::beans::PropertyValue>& rArgs, SfxAllItemSet& rSet, const SfxSlot* pSlot )
226 {
227 if ( !pSlot )
228 pSlot = SFX_SLOTPOOL().GetSlot( nSlotId );
229
230 if ( !pSlot )
231 return;
232
233 if ( nSlotId == SID_OPENURL )
234 nSlotId = SID_OPENDOC;
235 if ( nSlotId == SID_SAVEASURL )
236 nSlotId = SID_SAVEASDOC;
237
238 sal_Int32 nCount = rArgs.getLength();
239 if ( !nCount )
240 return;
241
242 const ::com::sun::star::beans::PropertyValue* pPropsVal = rArgs.getConstArray();
243 if ( !pSlot->IsMode(SFX_SLOT_METHOD) )
244 {
245 // slot is a property
246 const SfxType* pType = pSlot->GetType();
247 SfxPoolItem* pItem = pType->CreateItem();
248 if ( !pItem )
249 {
250 #ifdef DBG_UTIL
251 ByteString aStr( "No creator method for item: ");
252 aStr += ByteString::CreateFromInt32( nSlotId );
253 DBG_ERROR( aStr.GetBuffer() );
254 #endif
255 return;
256 }
257
258 sal_uInt16 nWhich = rSet.GetPool()->GetWhich(nSlotId);
259 sal_Bool bConvertTwips = ( rSet.GetPool()->GetMetric( nWhich ) == SFX_MAPUNIT_TWIP );
260 pItem->SetWhich( nWhich );
261 sal_uInt16 nSubCount = pType->nAttribs;
262
263 const ::com::sun::star::beans::PropertyValue& rProp = pPropsVal[0];
264 String aName = rProp.Name;
265 if ( nCount == 1 && aName.CompareToAscii( pSlot->pUnoName ) == COMPARE_EQUAL )
266 {
267 // there is only one parameter and its name matches the name of the property,
268 // so it's either a simple property or a complex property in one single UNO struct
269 if( pItem->PutValue( rProp.Value, bConvertTwips ? CONVERT_TWIPS : 0 ) )
270 // only use successfully converted items
271 rSet.Put( *pItem );
272 #ifdef DBG_UTIL
273 else
274 {
275 ByteString aStr( "Property not convertable: ");
276 aStr += pSlot->pUnoName;
277 DBG_ERROR( aStr.GetBuffer() );
278 }
279 #endif
280 }
281 #ifdef DBG_UTIL
282 else if ( nSubCount == 0 )
283 {
284 // for a simple property there can be only one parameter and its name *must* match
285 ByteString aStr( "Property name does not match: ");
286 aStr += ByteString( aName, RTL_TEXTENCODING_UTF8 );
287 DBG_ERROR( aStr.GetBuffer() );
288 }
289 #endif
290 else
291 {
292 // there is more than one parameter and the property is a complex one
293 #ifdef DBG_UTIL
294 // if the dispatch API is used for UI purposes or from the testtool,
295 // it is possible to skip some or all arguments,
296 // but it indicates an error for macro recording;
297 // so this should be notified as a warning only
298 if ( nCount != nSubCount )
299 {
300 ByteString aStr( "MacroPlayer: wrong number of parameters for slot: ");
301 aStr += ByteString::CreateFromInt32( nSlotId );
302 DBG_WARNING( aStr.GetBuffer() );
303 }
304 #endif
305 // complex property; collect sub items from the parameter set and reconstruct complex item
306 sal_uInt16 nFound=0;
307 for ( sal_uInt16 n=0; n<nCount; n++ )
308 {
309 const ::com::sun::star::beans::PropertyValue& rPropValue = pPropsVal[n];
310 sal_uInt16 nSub;
311 for ( nSub=0; nSub<nSubCount; nSub++ )
312 {
313 // search sub item by name
314 ByteString aStr( pSlot->pUnoName );
315 aStr += '.';
316 aStr += ByteString( pType->aAttrib[nSub].pName );
317 const char* pName = aStr.GetBuffer();
318 if ( rPropValue.Name.compareToAscii( pName ) == COMPARE_EQUAL )
319 {
320 sal_uInt8 nSubId = (sal_uInt8) (sal_Int8) pType->aAttrib[nSub].nAID;
321 if ( bConvertTwips )
322 nSubId |= CONVERT_TWIPS;
323 if ( pItem->PutValue( rPropValue.Value, nSubId ) )
324 nFound++;
325 #ifdef DBG_UTIL
326 else
327 {
328 ByteString aDbgStr( "Property not convertable: ");
329 aDbgStr += pSlot->pUnoName;
330 DBG_ERROR( aDbgStr.GetBuffer() );
331 }
332 #endif
333 break;
334 }
335 }
336
337 #ifdef DBG_UTIL
338 if ( nSub >= nSubCount )
339 {
340 // there was a parameter with a name that didn't match to any of the members
341 ByteString aStr( "Property name does not match: ");
342 aStr += ByteString( String(rPropValue.Name), RTL_TEXTENCODING_UTF8 );
343 DBG_ERROR( aStr.GetBuffer() );
344 }
345 #endif
346 }
347
348 // at least one part of the complex item must be present; other parts can have default values
349 if ( nFound > 0 )
350 rSet.Put( *pItem );
351 }
352
353 delete pItem;
354 }
355 else if ( nCount )
356 {
357 #ifdef DBG_UTIL
358 // detect parameters that don't match to any formal argument or one of its members
359 sal_Int32 nFoundArgs = 0;
360 #endif
361 // slot is a method
362 bool bIsMediaDescriptor = isMediaDescriptor( nSlotId );
363 sal_uInt16 nMaxArgs = bIsMediaDescriptor ? nMediaArgsCount : pSlot->nArgDefCount;
364 for ( sal_uInt16 nArgs=0; nArgs<nMaxArgs; nArgs++ )
365 {
366 const SfxFormalArgument &rArg = bIsMediaDescriptor ? aFormalArgs[nArgs] : pSlot->GetFormalArgument( nArgs );
367 SfxPoolItem* pItem = rArg.CreateItem();
368 if ( !pItem )
369 {
370 #ifdef DBG_UTIL
371 ByteString aStr( "No creator method for argument: ");
372 aStr += rArg.pName;
373 DBG_ERROR( aStr.GetBuffer() );
374 #endif
375 return;
376 }
377
378 sal_uInt16 nWhich = rSet.GetPool()->GetWhich(rArg.nSlotId);
379 sal_Bool bConvertTwips = ( rSet.GetPool()->GetMetric( nWhich ) == SFX_MAPUNIT_TWIP );
380 pItem->SetWhich( nWhich );
381 const SfxType* pType = rArg.pType;
382 sal_uInt16 nSubCount = pType->nAttribs;
383 if ( nSubCount == 0 )
384 {
385 // "simple" (base type) argument
386 for ( sal_uInt16 n=0; n<nCount; n++ )
387 {
388 const ::com::sun::star::beans::PropertyValue& rProp = pPropsVal[n];
389 String aName = rProp.Name;
390 if ( aName.CompareToAscii(rArg.pName) == COMPARE_EQUAL )
391 {
392 #ifdef DBG_UTIL
393 ++nFoundArgs;
394 #endif
395 if( pItem->PutValue( rProp.Value ) )
396 // only use successfully converted items
397 rSet.Put( *pItem );
398 #ifdef DBG_UTIL
399 else
400 {
401 ByteString aStr( "Property not convertable: ");
402 aStr += rArg.pName;
403 DBG_ERROR( aStr.GetBuffer() );
404 }
405 #endif
406 break;
407 }
408 }
409 }
410 else
411 {
412 // complex argument, could be passed in one struct
413 sal_Bool bAsWholeItem = sal_False;
414 for ( sal_uInt16 n=0; n<nCount; n++ )
415 {
416 const ::com::sun::star::beans::PropertyValue& rProp = pPropsVal[n];
417 String aName = rProp.Name;
418 if ( aName.CompareToAscii(rArg.pName) == COMPARE_EQUAL )
419 {
420 bAsWholeItem = sal_True;
421 #ifdef DBG_UTIL
422 ++nFoundArgs;
423 #endif
424 if( pItem->PutValue( rProp.Value ) )
425 // only use successfully converted items
426 rSet.Put( *pItem );
427 #ifdef DBG_UTIL
428 else
429 {
430 ByteString aStr( "Property not convertable: ");
431 aStr += rArg.pName;
432 DBG_ERROR( aStr.GetBuffer() );
433 }
434 #endif
435 }
436 }
437
438 if ( !bAsWholeItem )
439 {
440 // complex argument; collect sub items from argument array and reconstruct complex item
441 // only put item if at least one member was found and had the correct type
442 // (is this a good idea?! Should we ask for *all* members?)
443 sal_Bool bRet = sal_False;
444 for ( sal_uInt16 n=0; n<nCount; n++ )
445 {
446 const ::com::sun::star::beans::PropertyValue& rProp = pPropsVal[n];
447 for ( sal_uInt16 nSub=0; nSub<nSubCount; nSub++ )
448 {
449 // search sub item by name
450 ByteString aStr( rArg.pName );
451 aStr += '.';
452 aStr += pType->aAttrib[nSub].pName;
453 const char* pName = aStr.GetBuffer();
454 if ( rProp.Name.compareToAscii( pName ) == COMPARE_EQUAL )
455 {
456 // at least one member found ...
457 bRet = sal_True;
458 #ifdef DBG_UTIL
459 ++nFoundArgs;
460 #endif
461 sal_uInt8 nSubId = (sal_uInt8) (sal_Int8) pType->aAttrib[nSub].nAID;
462 if ( bConvertTwips )
463 nSubId |= CONVERT_TWIPS;
464 if (!pItem->PutValue( rProp.Value, nSubId ) )
465 {
466 // ... but it was not convertable
467 bRet = sal_False;
468 #ifdef DBG_UTIL
469 ByteString aDbgStr( "Property not convertable: ");
470 aDbgStr += rArg.pName;
471 DBG_ERROR( aDbgStr.GetBuffer() );
472 #endif
473 }
474
475 break;
476 }
477 }
478 }
479
480 if ( bRet )
481 // only use successfully converted items
482 rSet.Put( *pItem );
483
484 }
485 }
486
487 delete pItem;
488 }
489
490 // special additional parameters for some slots not seen in the slot definitions
491 // Some of these slots are not considered to be used for macro recording, because they shouldn't be recorded as slots,
492 // but as dispatching or factory or arbitrary URLs to the frame
493 // Some also can use additional arguments that are not recordable (will be changed later,
494 // f.e. "SaveAs" shouldn't support parameters not in the slot definition!)
495 if ( nSlotId == SID_NEWWINDOW )
496 {
497 for ( sal_uInt16 n=0; n<nCount; n++ )
498 {
499 const ::com::sun::star::beans::PropertyValue& rProp = pPropsVal[n];
500 rtl::OUString aName = rProp.Name;
501 if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sFrame)) )
502 {
503 Reference< XFrame > xFrame;
504 OSL_VERIFY( rProp.Value >>= xFrame );
505 rSet.Put( SfxUnoFrameItem( SID_FILLFRAME, xFrame ) );
506 }
507 else
508 if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sHidden)) )
509 {
510 sal_Bool bVal = sal_False;
511 if (rProp.Value >>= bVal)
512 rSet.Put( SfxBoolItem( SID_HIDDEN, bVal ) );
513 }
514 }
515 }
516 else if ( bIsMediaDescriptor )
517 {
518 for ( sal_uInt16 n=0; n<nCount; n++ )
519 {
520 #ifdef DBG_UTIL
521 ++nFoundArgs;
522 #endif
523 const ::com::sun::star::beans::PropertyValue& rProp = pPropsVal[n];
524 rtl::OUString aName = rProp.Name;
525 if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sModel)) )
526 rSet.Put( SfxUnoAnyItem( SID_DOCUMENT, rProp.Value ) );
527 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sComponentData)) )
528 {
529 rSet.Put( SfxUnoAnyItem( SID_COMPONENTDATA, rProp.Value ) );
530 }
531 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sComponentContext)) )
532 {
533 rSet.Put( SfxUnoAnyItem( SID_COMPONENTCONTEXT, rProp.Value ) );
534 }
535 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sStatusInd)) )
536 {
537 Reference< ::com::sun::star::task::XStatusIndicator > xVal;
538 sal_Bool bOK = (rProp.Value >>= xVal);
539 DBG_ASSERT( bOK, "invalid type for StatusIndicator" );
540 if (bOK && xVal.is())
541 rSet.Put( SfxUnoAnyItem( SID_PROGRESS_STATUSBAR_CONTROL, rProp.Value ) );
542 }
543 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sInteractionHdl)) )
544 {
545 Reference< ::com::sun::star::task::XInteractionHandler > xVal;
546 sal_Bool bOK = (rProp.Value >>= xVal);
547 DBG_ASSERT( bOK, "invalid type for InteractionHandler" );
548 if (bOK && xVal.is())
549 rSet.Put( SfxUnoAnyItem( SID_INTERACTIONHANDLER, rProp.Value ) );
550 }
551 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sViewData)) )
552 rSet.Put( SfxUnoAnyItem( SID_VIEW_DATA, rProp.Value ) );
553 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sFilterData)) )
554 rSet.Put( SfxUnoAnyItem( SID_FILTER_DATA, rProp.Value ) );
555 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sInputStream)) )
556 {
557 Reference< XInputStream > xVal;
558 sal_Bool bOK = ((rProp.Value >>= xVal) && xVal.is());
559 DBG_ASSERT( bOK, "invalid type for InputStream" );
560 if (bOK)
561 rSet.Put( SfxUnoAnyItem( SID_INPUTSTREAM, rProp.Value ) );
562 }
563 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sStream)) )
564 {
565 Reference< XInputStream > xVal;
566 sal_Bool bOK = ((rProp.Value >>= xVal) && xVal.is());
567 DBG_ASSERT( bOK, "invalid type for Stream" );
568 if (bOK)
569 rSet.Put( SfxUnoAnyItem( SID_STREAM, rProp.Value ) );
570 }
571 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sUCBContent)) )
572 {
573 Reference< XContent > xVal;
574 sal_Bool bOK = ((rProp.Value >>= xVal) && xVal.is());
575 DBG_ASSERT( bOK, "invalid type for UCBContent" );
576 if (bOK)
577 rSet.Put( SfxUnoAnyItem( SID_CONTENT, rProp.Value ) );
578 }
579 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sOutputStream)) )
580 {
581 Reference< XOutputStream > xVal;
582 sal_Bool bOK = ((rProp.Value >>= xVal) && xVal.is());
583 DBG_ASSERT( bOK, "invalid type for OutputStream" );
584 if (bOK)
585 rSet.Put( SfxUnoAnyItem( SID_OUTPUTSTREAM, rProp.Value ) );
586 }
587 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sPostData)) )
588 {
589 Reference< XInputStream > xVal;
590 sal_Bool bOK = (rProp.Value >>= xVal);
591 DBG_ASSERT( bOK, "invalid type for PostData" );
592 if (bOK)
593 rSet.Put( SfxUnoAnyItem( SID_POSTDATA, rProp.Value ) );
594 }
595 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sFrame)) )
596 {
597 Reference< XFrame > xFrame;
598 sal_Bool bOK = (rProp.Value >>= xFrame);
599 DBG_ASSERT( bOK, "invalid type for Frame" );
600 if (bOK)
601 rSet.Put( SfxUnoFrameItem( SID_FILLFRAME, xFrame ) );
602 }
603 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sAsTemplate)) )
604 {
605 sal_Bool bVal = sal_False;
606 sal_Bool bOK = (rProp.Value >>= bVal);
607 DBG_ASSERT( bOK, "invalid type for AsTemplate" );
608 if (bOK)
609 rSet.Put( SfxBoolItem( SID_TEMPLATE, bVal ) );
610 }
611 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sOpenNewView)) )
612 {
613 sal_Bool bVal = sal_False;
614 sal_Bool bOK = (rProp.Value >>= bVal);
615 DBG_ASSERT( bOK, "invalid type for OpenNewView" );
616 if (bOK)
617 rSet.Put( SfxBoolItem( SID_OPEN_NEW_VIEW, bVal ) );
618 }
619 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sFailOnWarning)) )
620 {
621 sal_Bool bVal = sal_False;
622 sal_Bool bOK = (rProp.Value >>= bVal);
623 DBG_ASSERT( bOK, "invalid type for FailOnWarning" );
624 if (bOK)
625 rSet.Put( SfxBoolItem( SID_FAIL_ON_WARNING, bVal ) );
626 }
627 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sViewId)) )
628 {
629 sal_Int16 nVal = -1;
630 sal_Bool bOK = ((rProp.Value >>= nVal) && (nVal != -1));
631 DBG_ASSERT( bOK, "invalid type for ViewId" );
632 if (bOK)
633 rSet.Put( SfxUInt16Item( SID_VIEW_ID, nVal ) );
634 }
635 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sPluginMode)) )
636 {
637 sal_Int16 nVal = -1;
638 sal_Bool bOK = ((rProp.Value >>= nVal) && (nVal != -1));
639 DBG_ASSERT( bOK, "invalid type for PluginMode" );
640 if (bOK)
641 rSet.Put( SfxUInt16Item( SID_PLUGIN_MODE, nVal ) );
642 }
643 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sReadOnly)) )
644 {
645 sal_Bool bVal = sal_False;
646 sal_Bool bOK = (rProp.Value >>= bVal);
647 DBG_ASSERT( bOK, "invalid type for ReadOnly" );
648 if (bOK)
649 rSet.Put( SfxBoolItem( SID_DOC_READONLY, bVal ) );
650 }
651 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sStartPresentation)) )
652 {
653 sal_Bool bVal = sal_False;
654 sal_Bool bOK = (rProp.Value >>= bVal);
655 DBG_ASSERT( bOK, "invalid type for StartPresentation" );
656 if (bOK)
657 rSet.Put( SfxBoolItem( SID_DOC_STARTPRESENTATION, bVal ) );
658 }
659 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sSelectionOnly)) )
660 {
661 sal_Bool bVal = sal_False;
662 sal_Bool bOK = (rProp.Value >>= bVal);
663 DBG_ASSERT( bOK, "invalid type for SelectionOnly" );
664 if (bOK)
665 rSet.Put( SfxBoolItem( SID_SELECTION, bVal ) );
666 }
667 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sHidden)) )
668 {
669 sal_Bool bVal = sal_False;
670 sal_Bool bOK = (rProp.Value >>= bVal);
671 DBG_ASSERT( bOK, "invalid type for Hidden" );
672 if (bOK)
673 rSet.Put( SfxBoolItem( SID_HIDDEN, bVal ) );
674 }
675 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sMinimized)) )
676 {
677 sal_Bool bVal = sal_False;
678 sal_Bool bOK = (rProp.Value >>= bVal);
679 DBG_ASSERT( bOK, "invalid type for Minimized" );
680 if (bOK)
681 rSet.Put( SfxBoolItem( SID_MINIMIZED, bVal ) );
682 }
683 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sSilent)) )
684 {
685 sal_Bool bVal = sal_False;
686 sal_Bool bOK = (rProp.Value >>= bVal);
687 DBG_ASSERT( bOK, "invalid type for Silent" );
688 if (bOK)
689 rSet.Put( SfxBoolItem( SID_SILENT, bVal ) );
690 }
691 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sPreview)) )
692 {
693 sal_Bool bVal = sal_False;
694 sal_Bool bOK = (rProp.Value >>= bVal);
695 DBG_ASSERT( bOK, "invalid type for Preview" );
696 if (bOK)
697 rSet.Put( SfxBoolItem( SID_PREVIEW, bVal ) );
698 }
699 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sViewOnly)) )
700 {
701 sal_Bool bVal = sal_False;
702 sal_Bool bOK = (rProp.Value >>= bVal);
703 DBG_ASSERT( bOK, "invalid type for ViewOnly" );
704 if (bOK)
705 rSet.Put( SfxBoolItem( SID_VIEWONLY, bVal ) );
706 }
707 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sDontEdit)) )
708 {
709 sal_Bool bVal = sal_False;
710 sal_Bool bOK = (rProp.Value >>= bVal);
711 DBG_ASSERT( bOK, "invalid type for ViewOnly" );
712 if (bOK)
713 rSet.Put( SfxBoolItem( SID_EDITDOC, !bVal ) );
714 }
715 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sUseSystemDialog)) )
716 {
717 sal_Bool bVal = sal_False;
718 sal_Bool bOK = (rProp.Value >>= bVal);
719 DBG_ASSERT( bOK, "invalid type for ViewOnly" );
720 if (bOK)
721 rSet.Put( SfxBoolItem( SID_FILE_DIALOG, bVal ) );
722 }
723 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sStandardDir)) )
724 {
725 ::rtl::OUString sVal;
726 sal_Bool bOK = ((rProp.Value >>= sVal) && sVal.getLength());
727 DBG_ASSERT( bOK, "invalid type or value for StandardDir" );
728 if (bOK)
729 rSet.Put( SfxStringItem( SID_STANDARD_DIR, sVal ) );
730 }
731 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sBlackList)) )
732 {
733 ::com::sun::star::uno::Sequence< ::rtl::OUString > xVal;
734 sal_Bool bOK = (rProp.Value >>= xVal);
735 DBG_ASSERT( bOK, "invalid type or value for BlackList" );
736 if (bOK)
737 {
738 SfxStringListItem stringList(SID_BLACK_LIST);
739 stringList.SetStringList( xVal );
740 rSet.Put( stringList );
741 }
742 }
743 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sFileName)) )
744 {
745 ::rtl::OUString sVal;
746 sal_Bool bOK = ((rProp.Value >>= sVal) && sVal.getLength());
747 DBG_ASSERT( bOK, "invalid type or value for FileName" );
748 if (bOK)
749 rSet.Put( SfxStringItem( SID_FILE_NAME, sVal ) );
750 }
751 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sSalvagedFile)) )
752 {
753 ::rtl::OUString sVal;
754 sal_Bool bOK = (rProp.Value >>= sVal);
755 DBG_ASSERT( bOK, "invalid type or value for SalvagedFile" );
756 if (bOK)
757 rSet.Put( SfxStringItem( SID_DOC_SALVAGE, sVal ) );
758 }
759 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sFolderName)) )
760 {
761 ::rtl::OUString sVal;
762 sal_Bool bOK = (rProp.Value >>= sVal);
763 DBG_ASSERT( bOK, "invalid type or value for FolderName" );
764 if (bOK)
765 rSet.Put( SfxStringItem( SID_PATH, sVal ) );
766 }
767 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sFrameName)) )
768 {
769 ::rtl::OUString sVal;
770 sal_Bool bOK = (rProp.Value >>= sVal);
771 DBG_ASSERT( bOK, "invalid type for FrameName" );
772 if (bOK && sVal.getLength())
773 rSet.Put( SfxStringItem( SID_TARGETNAME, sVal ) );
774 }
775 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sMediaType)) )
776 {
777 ::rtl::OUString sVal;
778 sal_Bool bOK = ((rProp.Value >>= sVal) && sVal.getLength());
779 DBG_ASSERT( bOK, "invalid type or value for MediaType" );
780 if (bOK)
781 rSet.Put( SfxStringItem( SID_CONTENTTYPE, sVal ) );
782 }
783 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sTemplateName)) )
784 {
785 ::rtl::OUString sVal;
786 sal_Bool bOK = ((rProp.Value >>= sVal) && sVal.getLength());
787 DBG_ASSERT( bOK, "invalid type or value for TemplateName" );
788 if (bOK)
789 rSet.Put( SfxStringItem( SID_TEMPLATE_NAME, sVal ) );
790 }
791 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sTemplateRegionName)) )
792 {
793 ::rtl::OUString sVal;
794 sal_Bool bOK = ((rProp.Value >>= sVal) && sVal.getLength());
795 DBG_ASSERT( bOK, "invalid type or value for TemplateRegionName" );
796 if (bOK)
797 rSet.Put( SfxStringItem( SID_TEMPLATE_REGIONNAME, sVal ) );
798 }
799 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sJumpMark)) )
800 {
801 ::rtl::OUString sVal;
802 sal_Bool bOK = ((rProp.Value >>= sVal) && sVal.getLength());
803 DBG_ASSERT( bOK, "invalid type or value for JumpMark" );
804 if (bOK)
805 rSet.Put( SfxStringItem( SID_JUMPMARK, sVal ) );
806 }
807 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sCharacterSet)) )
808 {
809 ::rtl::OUString sVal;
810 sal_Bool bOK = ((rProp.Value >>= sVal) && sVal.getLength());
811 DBG_ASSERT( bOK, "invalid type or value for CharacterSet" );
812 if (bOK)
813 rSet.Put( SfxStringItem( SID_CHARSET, sVal ) );
814 }
815 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sFilterFlags)) )
816 {
817 ::rtl::OUString sVal;
818 sal_Bool bOK = ((rProp.Value >>= sVal) && sVal.getLength());
819 DBG_ASSERT( bOK, "invalid type or value for FilterFlags" );
820 if (bOK)
821 rSet.Put( SfxStringItem( SID_FILE_FILTEROPTIONS, sVal ) );
822 }
823 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sMacroExecMode)) )
824 {
825 sal_Int16 nVal =-1;
826 sal_Bool bOK = ((rProp.Value >>= nVal) && (nVal != -1));
827 DBG_ASSERT( bOK, "invalid type for MacroExecMode" );
828 if (bOK)
829 rSet.Put( SfxUInt16Item( SID_MACROEXECMODE, nVal ) );
830 }
831 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sUpdateDocMode)) )
832 {
833 sal_Int16 nVal =-1;
834 sal_Bool bOK = ((rProp.Value >>= nVal) && (nVal != -1));
835 DBG_ASSERT( bOK, "invalid type for UpdateDocMode" );
836 if (bOK)
837 rSet.Put( SfxUInt16Item( SID_UPDATEDOCMODE, nVal ) );
838 }
839 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sRepairPackage)) )
840 {
841 sal_Bool bVal = sal_False;
842 sal_Bool bOK = (rProp.Value >>= bVal);
843 DBG_ASSERT( bOK, "invalid type for RepairPackage" );
844 if (bOK)
845 rSet.Put( SfxBoolItem( SID_REPAIRPACKAGE, bVal ) );
846 }
847 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sDocumentTitle)) )
848 {
849 ::rtl::OUString sVal;
850 sal_Bool bOK = ((rProp.Value >>= sVal) && sVal.getLength());
851 DBG_ASSERT( bOK, "invalid type or value for DocumentTitle" );
852 if (bOK)
853 rSet.Put( SfxStringItem( SID_DOCINFO_TITLE, sVal ) );
854 }
855 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sDocumentBaseURL)) )
856 {
857 ::rtl::OUString sVal;
858 // the base url can be set to empty ( for embedded objects for example )
859 sal_Bool bOK = (rProp.Value >>= sVal);
860 DBG_ASSERT( bOK, "invalid type or value for DocumentBaseURL" );
861 if (bOK)
862 rSet.Put( SfxStringItem( SID_DOC_BASEURL, sVal ) );
863 }
864 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sHierarchicalDocumentName)) )
865 {
866 ::rtl::OUString sVal;
867 sal_Bool bOK = ((rProp.Value >>= sVal) && sVal.getLength());
868 DBG_ASSERT( bOK, "invalid type or value for HierarchicalDocumentName" );
869 if (bOK)
870 rSet.Put( SfxStringItem( SID_DOC_HIERARCHICALNAME, sVal ) );
871 }
872 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sCopyStreamIfPossible)) )
873 {
874 sal_Bool bVal = sal_False;
875 sal_Bool bOK = (rProp.Value >>= bVal);
876 DBG_ASSERT( bOK, "invalid type for CopyStreamIfPossible" );
877 if (bOK)
878 rSet.Put( SfxBoolItem( SID_COPY_STREAM_IF_POSSIBLE, bVal ) );
879 }
880 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sNoAutoSave)) )
881 {
882 sal_Bool bVal = sal_False;
883 sal_Bool bOK = (rProp.Value >>= bVal);
884 DBG_ASSERT( bOK, "invalid type for NoAutoSave" );
885 if (bOK)
886 rSet.Put( SfxBoolItem( SID_NOAUTOSAVE, bVal ) );
887 }
888 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sModifyPasswordInfo)) )
889 {
890 rSet.Put( SfxUnoAnyItem( SID_MODIFYPASSWORDINFO, rProp.Value ) );
891 }
892 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sEncryptionData)) )
893 {
894 rSet.Put( SfxUnoAnyItem( SID_ENCRYPTIONDATA, rProp.Value ) );
895 }
896 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sSuggestedSaveAsDir)) )
897 {
898 ::rtl::OUString sVal;
899 sal_Bool bOK = ((rProp.Value >>= sVal) && sVal.getLength());
900 DBG_ASSERT( bOK, "invalid type or value for SuggestedSaveAsDir" );
901 if (bOK)
902 rSet.Put( SfxStringItem( SID_SUGGESTEDSAVEASDIR, sVal ) );
903 }
904 else if ( aName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM(sSuggestedSaveAsName)) )
905 {
906 ::rtl::OUString sVal;
907 sal_Bool bOK = ((rProp.Value >>= sVal) && sVal.getLength());
908 DBG_ASSERT( bOK, "invalid type or value for SuggestedSaveAsName" );
909 if (bOK)
910 rSet.Put( SfxStringItem( SID_SUGGESTEDSAVEASNAME, sVal ) );
911 }
912 #ifdef DBG_UTIL
913 else
914 --nFoundArgs;
915 #endif
916 }
917 }
918 // --> PB 2007-12-09 #i83757#
919 else
920 {
921 // transform parameter "OptionsPageURL" of slot "OptionsTreeDialog"
922 String sSlotName( DEFINE_CONST_UNICODE( "OptionsTreeDialog" ) );
923 String sPropName( DEFINE_CONST_UNICODE( "OptionsPageURL" ) );
924 if ( sSlotName.EqualsAscii( pSlot->pUnoName ) )
925 {
926 for ( sal_uInt16 n = 0; n < nCount; ++n )
927 {
928 const PropertyValue& rProp = pPropsVal[n];
929 String sName( rProp.Name );
930 if ( sName == sPropName )
931 {
932 ::rtl::OUString sURL;
933 if ( rProp.Value >>= sURL )
934 rSet.Put( SfxStringItem( SID_OPTIONS_PAGEURL, sURL ) );
935 break;
936 }
937 }
938 }
939 }
940 // <--
941 #ifdef DB_UTIL
942 if ( nFoundArgs == nCount )
943 {
944 // except for the "special" slots: assure that every argument was convertable
945 ByteString aStr( "MacroPlayer: Some properties didn't match to any formal argument for slot: ");
946 aStr += pSlot->pUnoName;
947 DBG_WARNING( aStr.GetBuffer() );
948 }
949 #endif
950 }
951 }
952
TransformItems(sal_uInt16 nSlotId,const SfxItemSet & rSet,::com::sun::star::uno::Sequence<::com::sun::star::beans::PropertyValue> & rArgs,const SfxSlot * pSlot)953 void TransformItems( sal_uInt16 nSlotId, const SfxItemSet& rSet, ::com::sun::star::uno::Sequence< ::com::sun::star::beans::PropertyValue>& rArgs, const SfxSlot* pSlot )
954 {
955 if ( !pSlot )
956 pSlot = SFX_SLOTPOOL().GetSlot( nSlotId );
957
958 if ( !pSlot)
959 return;
960
961 if ( nSlotId == SID_OPENURL )
962 nSlotId = SID_OPENDOC;
963 if ( nSlotId == SID_SAVEASURL )
964 nSlotId = SID_SAVEASDOC;
965
966 // find number of properties to avoid permanent reallocations in the sequence
967 sal_Int32 nProps=0;
968
969 #ifdef DBG_UTIL
970 // trace number of items and compare with number of properties for debugging purposes
971 sal_Int32 nItems=0;
972 #endif
973
974 const SfxType *pType = pSlot->GetType();
975 if ( !pSlot->IsMode(SFX_SLOT_METHOD) )
976 {
977 // slot is a property
978 sal_uInt16 nWhich = rSet.GetPool()->GetWhich(nSlotId);
979 if ( rSet.GetItemState( nWhich ) == SFX_ITEM_SET ) //???
980 {
981 sal_uInt16 nSubCount = pType->nAttribs;
982 if ( nSubCount )
983 // it's a complex property, we want it split into simple types
984 // so we expect to get as many items as we have (sub) members
985 nProps = nSubCount;
986 else
987 // simple property: we expect to get exactly one item
988 nProps++;
989 }
990 #ifdef DBG_UTIL
991 else
992 {
993 // we will not rely on the "toggle" ability of some property slots
994 ByteString aStr( "Processing property slot without argument: ");
995 aStr += ByteString::CreateFromInt32( nSlotId );
996 DBG_ERROR( aStr.GetBuffer() );
997 }
998 #endif
999
1000 #ifdef DBG_UTIL
1001 nItems++;
1002 #endif
1003 }
1004 else
1005 {
1006 // slot is a method
1007 bool bIsMediaDescriptor = isMediaDescriptor( nSlotId );
1008 sal_uInt16 nFormalArgs = bIsMediaDescriptor ? nMediaArgsCount : pSlot->GetFormalArgumentCount();
1009 for ( sal_uInt16 nArg=0; nArg<nFormalArgs; ++nArg )
1010 {
1011 // check every formal argument of the method
1012 const SfxFormalArgument &rArg = pSlot->GetFormalArgument( nArg );
1013
1014 sal_uInt16 nWhich = rSet.GetPool()->GetWhich( rArg.nSlotId );
1015 if ( rSet.GetItemState( nWhich ) == SFX_ITEM_SET ) //???
1016 {
1017 sal_uInt16 nSubCount = rArg.pType->nAttribs;
1018 if ( nSubCount )
1019 // argument has a complex type, we want it split into simple types
1020 // so for this argument we expect to get as many items as we have (sub) members
1021 nProps += nSubCount;
1022 else
1023 // argument of simple type: we expect to get exactly one item for it
1024 nProps++;
1025 #ifdef DBG_UTIL
1026 nItems++;
1027 #endif
1028 }
1029 }
1030
1031 // special treatment for slots that are *not* meant to be recorded as slots (except SaveAs/To)
1032 if ( bIsMediaDescriptor )
1033 {
1034 sal_Int32 nAdditional=0;
1035 if ( rSet.GetItemState( SID_PROGRESS_STATUSBAR_CONTROL ) == SFX_ITEM_SET )
1036 nAdditional++;
1037 if ( rSet.GetItemState( SID_INTERACTIONHANDLER ) == SFX_ITEM_SET )
1038 nAdditional++;
1039 if ( rSet.GetItemState( SID_DOC_SALVAGE ) == SFX_ITEM_SET )
1040 nAdditional++;
1041 if ( rSet.GetItemState( SID_PATH ) == SFX_ITEM_SET )
1042 nAdditional++;
1043 if ( rSet.GetItemState( SID_FILE_DIALOG ) == SFX_ITEM_SET )
1044 nAdditional++;
1045 if ( rSet.GetItemState( SID_STANDARD_DIR ) == SFX_ITEM_SET )
1046 nAdditional++;
1047 if ( rSet.GetItemState( SID_BLACK_LIST ) == SFX_ITEM_SET )
1048 nAdditional++;
1049 if ( rSet.GetItemState( SID_CONTENT ) == SFX_ITEM_SET )
1050 nAdditional++;
1051 if ( rSet.GetItemState( SID_INPUTSTREAM ) == SFX_ITEM_SET )
1052 nAdditional++;
1053 if ( rSet.GetItemState( SID_STREAM ) == SFX_ITEM_SET )
1054 nAdditional++;
1055 if ( rSet.GetItemState( SID_OUTPUTSTREAM ) == SFX_ITEM_SET )
1056 nAdditional++;
1057 if ( rSet.GetItemState( SID_TEMPLATE ) == SFX_ITEM_SET )
1058 nAdditional++;
1059 if ( rSet.GetItemState( SID_OPEN_NEW_VIEW ) == SFX_ITEM_SET )
1060 nAdditional++;
1061 if ( rSet.GetItemState( SID_FAIL_ON_WARNING ) == SFX_ITEM_SET )
1062 nAdditional++;
1063 if ( rSet.GetItemState( SID_VIEW_ID ) == SFX_ITEM_SET )
1064 nAdditional++;
1065 if ( rSet.GetItemState( SID_VIEW_DATA ) == SFX_ITEM_SET )
1066 nAdditional++;
1067 if ( rSet.GetItemState( SID_FILTER_DATA ) == SFX_ITEM_SET )
1068 nAdditional++;
1069 if ( rSet.GetItemState( SID_PLUGIN_MODE ) == SFX_ITEM_SET )
1070 nAdditional++;
1071 if ( rSet.GetItemState( SID_DOC_READONLY ) == SFX_ITEM_SET )
1072 nAdditional++;
1073 if ( rSet.GetItemState( SID_DOC_STARTPRESENTATION ) == SFX_ITEM_SET )
1074 nAdditional++;
1075 if ( rSet.GetItemState( SID_SELECTION ) == SFX_ITEM_SET )
1076 nAdditional++;
1077 if ( rSet.GetItemState( SID_CONTENTTYPE ) == SFX_ITEM_SET )
1078 nAdditional++;
1079 if ( rSet.GetItemState( SID_POSTDATA ) == SFX_ITEM_SET )
1080 nAdditional++;
1081 if ( rSet.GetItemState( SID_FILLFRAME ) == SFX_ITEM_SET )
1082 nAdditional++;
1083 if ( rSet.GetItemState( SID_CHARSET ) == SFX_ITEM_SET )
1084 nAdditional++;
1085 if ( rSet.GetItemState( SID_TARGETNAME ) == SFX_ITEM_SET )
1086 nAdditional++;
1087 if ( rSet.GetItemState( SID_TEMPLATE_NAME ) == SFX_ITEM_SET )
1088 nAdditional++;
1089 if ( rSet.GetItemState( SID_TEMPLATE_REGIONNAME ) == SFX_ITEM_SET )
1090 nAdditional++;
1091 if ( rSet.GetItemState( SID_HIDDEN ) == SFX_ITEM_SET )
1092 nAdditional++;
1093 if ( rSet.GetItemState( SID_MINIMIZED ) == SFX_ITEM_SET )
1094 nAdditional++;
1095 if ( rSet.GetItemState( SID_PREVIEW ) == SFX_ITEM_SET )
1096 nAdditional++;
1097 if ( rSet.GetItemState( SID_VIEWONLY ) == SFX_ITEM_SET )
1098 nAdditional++;
1099 if ( rSet.GetItemState( SID_EDITDOC ) == SFX_ITEM_SET )
1100 nAdditional++;
1101 if ( rSet.GetItemState( SID_SILENT ) == SFX_ITEM_SET )
1102 nAdditional++;
1103 if ( rSet.GetItemState( SID_JUMPMARK ) == SFX_ITEM_SET )
1104 nAdditional++;
1105 if ( rSet.GetItemState( SID_DOCUMENT ) == SFX_ITEM_SET )
1106 nAdditional++;
1107 if ( rSet.GetItemState( SID_MACROEXECMODE ) == SFX_ITEM_SET )
1108 nAdditional++;
1109 if ( rSet.GetItemState( SID_UPDATEDOCMODE ) == SFX_ITEM_SET )
1110 nAdditional++;
1111 if ( rSet.GetItemState( SID_REPAIRPACKAGE ) == SFX_ITEM_SET )
1112 nAdditional++;
1113 if ( rSet.GetItemState( SID_DOCINFO_TITLE ) == SFX_ITEM_SET )
1114 nAdditional++;
1115 if ( rSet.GetItemState( SID_COMPONENTDATA ) == SFX_ITEM_SET )
1116 nAdditional++;
1117 if ( rSet.GetItemState( SID_COMPONENTCONTEXT ) == SFX_ITEM_SET )
1118 nAdditional++;
1119 if ( rSet.GetItemState( SID_DOC_BASEURL ) == SFX_ITEM_SET )
1120 nAdditional++;
1121 if ( rSet.GetItemState( SID_DOC_HIERARCHICALNAME ) == SFX_ITEM_SET )
1122 nAdditional++;
1123 if ( rSet.GetItemState( SID_COPY_STREAM_IF_POSSIBLE ) == SFX_ITEM_SET )
1124 nAdditional++;
1125 if ( rSet.GetItemState( SID_NOAUTOSAVE ) == SFX_ITEM_SET )
1126 nAdditional++;
1127 if ( rSet.GetItemState( SID_MODIFYPASSWORDINFO ) == SFX_ITEM_SET )
1128 nAdditional++;
1129 if ( rSet.GetItemState( SID_SUGGESTEDSAVEASDIR ) == SFX_ITEM_SET )
1130 nAdditional++;
1131 if ( rSet.GetItemState( SID_ENCRYPTIONDATA ) == SFX_ITEM_SET )
1132 nAdditional++;
1133 if ( rSet.GetItemState( SID_SUGGESTEDSAVEASNAME ) == SFX_ITEM_SET )
1134 nAdditional++;
1135
1136 // consider additional arguments
1137 nProps += nAdditional;
1138 #ifdef DBG_UTIL
1139 nItems += nAdditional;
1140 #endif
1141 }
1142 }
1143
1144 #ifdef DBG_UTIL
1145 // now check the itemset: is there any item that is not convertable using the list of formal arguments
1146 // or the table of additional items?!
1147 if ( rSet.Count() != nItems )
1148 {
1149 // detect unknown item and present error message
1150 const sal_uInt16 *pRanges = rSet.GetRanges();
1151 while ( *pRanges )
1152 {
1153 for(sal_uInt16 nId = *pRanges++; nId <= *pRanges; ++nId)
1154 {
1155 if ( rSet.GetItemState(nId) < SFX_ITEM_SET ) //???
1156 // not really set
1157 continue;
1158
1159 if ( !pSlot->IsMode(SFX_SLOT_METHOD) && nId == rSet.GetPool()->GetWhich( pSlot->GetSlotId() ) )
1160 continue;
1161
1162 bool bIsMediaDescriptor = isMediaDescriptor( nSlotId );
1163 sal_uInt16 nFormalArgs = bIsMediaDescriptor ? nMediaArgsCount : pSlot->nArgDefCount;
1164 sal_uInt16 nArg;
1165 for ( nArg=0; nArg<nFormalArgs; ++nArg )
1166 {
1167 const SfxFormalArgument &rArg = bIsMediaDescriptor ? aFormalArgs[nArg] : pSlot->GetFormalArgument( nArg );
1168 sal_uInt16 nWhich = rSet.GetPool()->GetWhich( rArg.nSlotId );
1169 if ( nId == nWhich )
1170 break;
1171 }
1172
1173 if ( nArg<nFormalArgs )
1174 continue;
1175
1176 if ( bIsMediaDescriptor )
1177 {
1178 if ( nId == SID_DOCFRAME )
1179 continue;
1180 if ( nId == SID_PROGRESS_STATUSBAR_CONTROL )
1181 continue;
1182 if ( nId == SID_INTERACTIONHANDLER )
1183 continue;
1184 if ( nId == SID_VIEW_DATA )
1185 continue;
1186 if ( nId == SID_FILTER_DATA )
1187 continue;
1188 if ( nId == SID_DOCUMENT )
1189 continue;
1190 if ( nId == SID_CONTENT )
1191 continue;
1192 if ( nId == SID_INPUTSTREAM )
1193 continue;
1194 if ( nId == SID_STREAM )
1195 continue;
1196 if ( nId == SID_OUTPUTSTREAM )
1197 continue;
1198 if ( nId == SID_POSTDATA )
1199 continue;
1200 if ( nId == SID_FILLFRAME )
1201 continue;
1202 if ( nId == SID_TEMPLATE )
1203 continue;
1204 if ( nId == SID_OPEN_NEW_VIEW )
1205 continue;
1206 if ( nId == SID_VIEW_ID )
1207 continue;
1208 if ( nId == SID_PLUGIN_MODE )
1209 continue;
1210 if ( nId == SID_DOC_READONLY )
1211 continue;
1212 if ( nId == SID_DOC_STARTPRESENTATION )
1213 continue;
1214 if ( nId == SID_SELECTION )
1215 continue;
1216 if ( nId == SID_HIDDEN )
1217 continue;
1218 if ( nId == SID_MINIMIZED )
1219 continue;
1220 if ( nId == SID_SILENT )
1221 continue;
1222 if ( nId == SID_PREVIEW )
1223 continue;
1224 if ( nId == SID_VIEWONLY )
1225 continue;
1226 if ( nId == SID_EDITDOC )
1227 continue;
1228 if ( nId == SID_TARGETNAME )
1229 continue;
1230 if ( nId == SID_DOC_SALVAGE )
1231 continue;
1232 if ( nId == SID_PATH )
1233 continue;
1234 if ( nId == SID_FILE_DIALOG )
1235 continue;
1236 if ( nId == SID_STANDARD_DIR )
1237 continue;
1238 if ( nId == SID_BLACK_LIST )
1239 continue;
1240 if ( nId == SID_CONTENTTYPE )
1241 continue;
1242 if ( nId == SID_TEMPLATE_NAME )
1243 continue;
1244 if ( nId == SID_TEMPLATE_REGIONNAME )
1245 continue;
1246 if ( nId == SID_JUMPMARK )
1247 continue;
1248 if ( nId == SID_CHARSET )
1249 continue;
1250 if ( nId == SID_MACROEXECMODE )
1251 continue;
1252 if ( nId == SID_UPDATEDOCMODE )
1253 continue;
1254 if ( nId == SID_REPAIRPACKAGE )
1255 continue;
1256 if ( nId == SID_DOCINFO_TITLE )
1257 continue;
1258 if ( nId == SID_COMPONENTDATA )
1259 continue;
1260 if ( nId == SID_COMPONENTCONTEXT )
1261 continue;
1262 if ( nId == SID_DOC_BASEURL )
1263 continue;
1264 if ( nId == SID_DOC_HIERARCHICALNAME )
1265 continue;
1266 if ( nId == SID_COPY_STREAM_IF_POSSIBLE )
1267 continue;
1268 if ( nId == SID_NOAUTOSAVE )
1269 continue;
1270 if ( nId == SID_ENCRYPTIONDATA )
1271 continue;
1272
1273 // used only internally
1274 if ( nId == SID_SAVETO )
1275 continue;
1276 if ( nId == SID_MODIFYPASSWORDINFO )
1277 continue;
1278 if ( nId == SID_SUGGESTEDSAVEASDIR )
1279 continue;
1280 if ( nId == SID_SUGGESTEDSAVEASNAME )
1281 continue;
1282 }
1283
1284 ByteString aDbg( "Unknown item detected: ");
1285 aDbg += ByteString::CreateFromInt32( nId );
1286 DBG_ASSERT( nArg<nFormalArgs, aDbg.GetBuffer() );
1287 }
1288 }
1289 }
1290 #endif
1291
1292 if ( !nProps )
1293 return;
1294
1295 // convert every item into a property
1296 ::com::sun::star::uno::Sequence< ::com::sun::star::beans::PropertyValue> aSequ( nProps );
1297 ::com::sun::star::beans::PropertyValue *pValue = aSequ.getArray();
1298
1299 sal_Int32 nActProp=0;
1300 if ( !pSlot->IsMode(SFX_SLOT_METHOD) )
1301 {
1302 // slot is a property
1303 sal_uInt16 nWhich = rSet.GetPool()->GetWhich(nSlotId);
1304 sal_Bool bConvertTwips = ( rSet.GetPool()->GetMetric( nWhich ) == SFX_MAPUNIT_TWIP );
1305 SFX_ITEMSET_ARG( &rSet, pItem, SfxPoolItem, nWhich, sal_False );
1306 if ( pItem ) //???
1307 {
1308 sal_uInt16 nSubCount = pType->nAttribs;
1309 if ( !nSubCount )
1310 {
1311 //rPool.FillVariable( *pItem, *pVar, eUserMetric );
1312 pValue[nActProp].Name = String( String::CreateFromAscii( pSlot->pUnoName ) ) ;
1313 if ( !pItem->QueryValue( pValue[nActProp].Value ) )
1314 {
1315 ByteString aStr( "Item not convertable: ");
1316 aStr += ByteString::CreateFromInt32(nSlotId);
1317 DBG_ERROR( aStr.GetBuffer() );
1318 }
1319 }
1320 else
1321 {
1322 // complex type, add a property value for every member of the struct
1323 for ( sal_uInt16 n=1; n<=nSubCount; ++n )
1324 {
1325 //rPool.FillVariable( *pItem, *pVar, eUserMetric );
1326 sal_uInt8 nSubId = (sal_uInt8) (sal_Int8) pType->aAttrib[n-1].nAID;
1327 if ( bConvertTwips )
1328 nSubId |= CONVERT_TWIPS;
1329
1330 DBG_ASSERT(( pType->aAttrib[n-1].nAID ) <= 127, "Member ID out of range" );
1331 String aName( String::CreateFromAscii( pSlot->pUnoName ) ) ;
1332 aName += '.';
1333 aName += String( String::CreateFromAscii( pType->aAttrib[n-1].pName ) ) ;
1334 pValue[nActProp].Name = aName;
1335 if ( !pItem->QueryValue( pValue[nActProp++].Value, nSubId ) )
1336 {
1337 ByteString aStr( "Sub item ");
1338 aStr += ByteString::CreateFromInt32( pType->aAttrib[n-1].nAID );
1339 aStr += " not convertable in slot: ";
1340 aStr += ByteString::CreateFromInt32(nSlotId);
1341 DBG_ERROR( aStr.GetBuffer() );
1342 }
1343 }
1344 }
1345 }
1346 }
1347 else
1348 {
1349 // slot is a method
1350 sal_uInt16 nFormalArgs = pSlot->GetFormalArgumentCount();
1351 for ( sal_uInt16 nArg=0; nArg<nFormalArgs; ++nArg )
1352 {
1353 const SfxFormalArgument &rArg = pSlot->GetFormalArgument( nArg );
1354 sal_uInt16 nWhich = rSet.GetPool()->GetWhich( rArg.nSlotId );
1355 sal_Bool bConvertTwips = ( rSet.GetPool()->GetMetric( nWhich ) == SFX_MAPUNIT_TWIP );
1356 SFX_ITEMSET_ARG( &rSet, pItem, SfxPoolItem, nWhich, sal_False );
1357 if ( pItem ) //???
1358 {
1359 sal_uInt16 nSubCount = rArg.pType->nAttribs;
1360 if ( !nSubCount )
1361 {
1362 //rPool.FillVariable( *pItem, *pVar, eUserMetric );
1363 pValue[nActProp].Name = String( String::CreateFromAscii( rArg.pName ) ) ;
1364 if ( !pItem->QueryValue( pValue[nActProp++].Value ) )
1365 {
1366 ByteString aStr( "Item not convertable: ");
1367 aStr += ByteString::CreateFromInt32(rArg.nSlotId);
1368 DBG_ERROR( aStr.GetBuffer() );
1369 }
1370 }
1371 else
1372 {
1373 // complex type, add a property value for every member of the struct
1374 for ( sal_uInt16 n = 1; n <= nSubCount; ++n )
1375 {
1376 //rPool.FillVariable( rItem, *pVar, eUserMetric );
1377 sal_uInt8 nSubId = (sal_uInt8) (sal_Int8) rArg.pType->aAttrib[n-1].nAID;
1378 if ( bConvertTwips )
1379 nSubId |= CONVERT_TWIPS;
1380
1381 DBG_ASSERT((rArg.pType->aAttrib[n-1].nAID) <= 127, "Member ID out of range" );
1382 String aName( String::CreateFromAscii( rArg.pName ) ) ;
1383 aName += '.';
1384 aName += String( String::CreateFromAscii( rArg.pType->aAttrib[n-1].pName ) ) ;
1385 pValue[nActProp].Name = aName;
1386 if ( !pItem->QueryValue( pValue[nActProp++].Value, nSubId ) )
1387 {
1388 ByteString aStr( "Sub item ");
1389 aStr += ByteString::CreateFromInt32( rArg.pType->aAttrib[n-1].nAID );
1390 aStr += " not convertable in slot: ";
1391 aStr += ByteString::CreateFromInt32(rArg.nSlotId);
1392 DBG_ERROR( aStr.GetBuffer() );
1393 }
1394 }
1395 }
1396 }
1397 }
1398
1399 if ( nSlotId == SID_OPENDOC || nSlotId == SID_EXPORTDOC || nSlotId == SID_SAVEASDOC || nSlotId == SID_SAVEDOC ||
1400 nSlotId == SID_SAVETO || nSlotId == SID_EXPORTDOCASPDF || nSlotId == SID_DIRECTEXPORTDOCASPDF )
1401 {
1402 const SfxPoolItem *pItem=0;
1403 if ( rSet.GetItemState( SID_COMPONENTDATA, sal_False, &pItem ) == SFX_ITEM_SET )
1404 {
1405 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sComponentData));
1406 pValue[nActProp++].Value = ( ((SfxUnoAnyItem*)pItem)->GetValue() );
1407 }
1408 if ( rSet.GetItemState( SID_COMPONENTCONTEXT, sal_False, &pItem ) == SFX_ITEM_SET )
1409 {
1410 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sComponentContext));
1411 pValue[nActProp++].Value = ( ((SfxUnoAnyItem*)pItem)->GetValue() );
1412 }
1413 if ( rSet.GetItemState( SID_PROGRESS_STATUSBAR_CONTROL, sal_False, &pItem ) == SFX_ITEM_SET )
1414 {
1415 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sStatusInd));
1416 pValue[nActProp++].Value = ( ((SfxUnoAnyItem*)pItem)->GetValue() );
1417 }
1418 if ( rSet.GetItemState( SID_INTERACTIONHANDLER, sal_False, &pItem ) == SFX_ITEM_SET )
1419 {
1420 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sInteractionHdl));
1421 pValue[nActProp++].Value = ( ((SfxUnoAnyItem*)pItem)->GetValue() );
1422 }
1423 if ( rSet.GetItemState( SID_VIEW_DATA, sal_False, &pItem ) == SFX_ITEM_SET )
1424 {
1425 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sViewData));
1426 pValue[nActProp++].Value = ( ((SfxUnoAnyItem*)pItem)->GetValue() );
1427 }
1428 if ( rSet.GetItemState( SID_FILTER_DATA, sal_False, &pItem ) == SFX_ITEM_SET )
1429 {
1430 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sFilterData));
1431 pValue[nActProp++].Value = ( ((SfxUnoAnyItem*)pItem)->GetValue() );
1432 }
1433 if ( rSet.GetItemState( SID_DOCUMENT, sal_False, &pItem ) == SFX_ITEM_SET )
1434 {
1435 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sModel));
1436 pValue[nActProp++].Value = ( ((SfxUnoAnyItem*)pItem)->GetValue() );
1437 }
1438 if ( rSet.GetItemState( SID_CONTENT, sal_False, &pItem ) == SFX_ITEM_SET )
1439 {
1440 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sUCBContent));
1441 pValue[nActProp++].Value = ( ((SfxUnoAnyItem*)pItem)->GetValue() );
1442 }
1443 if ( rSet.GetItemState( SID_INPUTSTREAM, sal_False, &pItem ) == SFX_ITEM_SET )
1444 {
1445 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sInputStream));
1446 pValue[nActProp++].Value = ( ((SfxUnoAnyItem*)pItem)->GetValue() );
1447 }
1448 if ( rSet.GetItemState( SID_STREAM, sal_False, &pItem ) == SFX_ITEM_SET )
1449 {
1450 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sStream));
1451 pValue[nActProp++].Value = ( ((SfxUnoAnyItem*)pItem)->GetValue() );
1452 }
1453 if ( rSet.GetItemState( SID_OUTPUTSTREAM, sal_False, &pItem ) == SFX_ITEM_SET )
1454 {
1455 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sOutputStream));
1456 pValue[nActProp++].Value = ( ((SfxUnoAnyItem*)pItem)->GetValue() );
1457 }
1458 if ( rSet.GetItemState( SID_POSTDATA, sal_False, &pItem ) == SFX_ITEM_SET )
1459 {
1460 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sPostData));
1461 pValue[nActProp++].Value = ( ((SfxUnoAnyItem*)pItem)->GetValue() );
1462 }
1463 if ( rSet.GetItemState( SID_FILLFRAME, sal_False, &pItem ) == SFX_ITEM_SET )
1464 {
1465 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sFrame));
1466 if ( pItem->ISA( SfxUsrAnyItem ) )
1467 {
1468 OSL_ENSURE( false, "TransformItems: transporting an XFrame via an SfxUsrAnyItem is not deprecated!" );
1469 pValue[nActProp++].Value = static_cast< const SfxUsrAnyItem* >( pItem )->GetValue();
1470 }
1471 else if ( pItem->ISA( SfxUnoFrameItem ) )
1472 pValue[nActProp++].Value <<= static_cast< const SfxUnoFrameItem* >( pItem )->GetFrame();
1473 else
1474 OSL_ENSURE( false, "TransformItems: invalid item type for SID_FILLFRAME!" );
1475 }
1476 if ( rSet.GetItemState( SID_TEMPLATE, sal_False, &pItem ) == SFX_ITEM_SET )
1477 {
1478 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sAsTemplate));
1479 pValue[nActProp++].Value <<= ( ((SfxBoolItem*)pItem)->GetValue() );
1480 }
1481 if ( rSet.GetItemState( SID_OPEN_NEW_VIEW, sal_False, &pItem ) == SFX_ITEM_SET )
1482 {
1483 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sOpenNewView));
1484 pValue[nActProp++].Value <<= ( ((SfxBoolItem*)pItem)->GetValue() );
1485 }
1486 if ( rSet.GetItemState( SID_FAIL_ON_WARNING, sal_False, &pItem ) == SFX_ITEM_SET )
1487 {
1488 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sFailOnWarning));
1489 pValue[nActProp++].Value <<= ( ((SfxBoolItem*)pItem)->GetValue() );
1490 }
1491 if ( rSet.GetItemState( SID_VIEW_ID, sal_False, &pItem ) == SFX_ITEM_SET )
1492 {
1493 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sViewId));
1494 pValue[nActProp++].Value <<= ( (sal_Int16) ((SfxUInt16Item*)pItem)->GetValue() );
1495 }
1496 if ( rSet.GetItemState( SID_PLUGIN_MODE, sal_False, &pItem ) == SFX_ITEM_SET )
1497 {
1498 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sPluginMode));
1499 pValue[nActProp++].Value <<= ( (sal_Int16) ((SfxUInt16Item*)pItem)->GetValue() );
1500 }
1501 if ( rSet.GetItemState( SID_DOC_READONLY, sal_False, &pItem ) == SFX_ITEM_SET )
1502 {
1503 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sReadOnly));
1504 pValue[nActProp++].Value <<= ( ((SfxBoolItem*)pItem)->GetValue() );
1505 }
1506 if ( rSet.GetItemState( SID_DOC_STARTPRESENTATION, sal_False, &pItem ) == SFX_ITEM_SET )
1507 {
1508 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sStartPresentation));
1509 pValue[nActProp++].Value <<= ( ((SfxBoolItem*)pItem)->GetValue() );
1510 }
1511 if ( rSet.GetItemState( SID_SELECTION, sal_False, &pItem ) == SFX_ITEM_SET )
1512 {
1513 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sSelectionOnly));
1514 pValue[nActProp++].Value <<= ( ((SfxBoolItem*)pItem)->GetValue() );
1515 }
1516 if ( rSet.GetItemState( SID_HIDDEN, sal_False, &pItem ) == SFX_ITEM_SET )
1517 {
1518 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sHidden));
1519 pValue[nActProp++].Value <<= ( ((SfxBoolItem*)pItem)->GetValue() );
1520 }
1521 if ( rSet.GetItemState( SID_MINIMIZED, sal_False, &pItem ) == SFX_ITEM_SET )
1522 {
1523 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sMinimized));
1524 pValue[nActProp++].Value <<= ( ((SfxBoolItem*)pItem)->GetValue() );
1525 }
1526 if ( rSet.GetItemState( SID_SILENT, sal_False, &pItem ) == SFX_ITEM_SET )
1527 {
1528 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sSilent));
1529 pValue[nActProp++].Value <<= ( ((SfxBoolItem*)pItem)->GetValue() );
1530 }
1531 if ( rSet.GetItemState( SID_PREVIEW, sal_False, &pItem ) == SFX_ITEM_SET )
1532 {
1533 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sPreview));
1534 pValue[nActProp++].Value <<= ( ((SfxBoolItem*)pItem)->GetValue() );
1535 }
1536 if ( rSet.GetItemState( SID_VIEWONLY, sal_False, &pItem ) == SFX_ITEM_SET )
1537 {
1538 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sViewOnly));
1539 pValue[nActProp++].Value <<= (sal_Bool) (( ((SfxBoolItem*)pItem)->GetValue() ));
1540 }
1541 if ( rSet.GetItemState( SID_EDITDOC, sal_False, &pItem ) == SFX_ITEM_SET )
1542 {
1543 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sDontEdit));
1544 pValue[nActProp++].Value <<= (sal_Bool) (!( ((SfxBoolItem*)pItem)->GetValue() ));
1545 }
1546 if ( rSet.GetItemState( SID_FILE_DIALOG, sal_False, &pItem ) == SFX_ITEM_SET )
1547 {
1548 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sUseSystemDialog));
1549 pValue[nActProp++].Value <<= (sal_Bool) ( ((SfxBoolItem*)pItem)->GetValue() );
1550 }
1551 if ( rSet.GetItemState( SID_STANDARD_DIR, sal_False, &pItem ) == SFX_ITEM_SET )
1552 {
1553 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sStandardDir));
1554 pValue[nActProp++].Value <<= ( ::rtl::OUString(((SfxStringItem*)pItem)->GetValue()) );
1555 }
1556 if ( rSet.GetItemState( SID_BLACK_LIST, sal_False, &pItem ) == SFX_ITEM_SET )
1557 {
1558 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sBlackList));
1559
1560 com::sun::star::uno::Sequence< rtl::OUString > aList;
1561 ((SfxStringListItem*)pItem)->GetStringList( aList );
1562 pValue[nActProp++].Value <<= aList ;
1563 }
1564 if ( rSet.GetItemState( SID_TARGETNAME, sal_False, &pItem ) == SFX_ITEM_SET )
1565 {
1566 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sFrameName));
1567 pValue[nActProp++].Value <<= ( ::rtl::OUString(((SfxStringItem*)pItem)->GetValue()) );
1568 }
1569 if ( rSet.GetItemState( SID_DOC_SALVAGE, sal_False, &pItem ) == SFX_ITEM_SET )
1570 {
1571 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sSalvagedFile));
1572 pValue[nActProp++].Value <<= ( ::rtl::OUString(((SfxStringItem*)pItem)->GetValue()) );
1573 }
1574 if ( rSet.GetItemState( SID_PATH, sal_False, &pItem ) == SFX_ITEM_SET )
1575 {
1576 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sFolderName));
1577 pValue[nActProp++].Value <<= ( ::rtl::OUString(((SfxStringItem*)pItem)->GetValue()) );
1578 }
1579 if ( rSet.GetItemState( SID_CONTENTTYPE, sal_False, &pItem ) == SFX_ITEM_SET )
1580 {
1581 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sMediaType));
1582 pValue[nActProp++].Value <<= ( ::rtl::OUString(((SfxStringItem*)pItem)->GetValue()) );
1583 }
1584 if ( rSet.GetItemState( SID_TEMPLATE_NAME, sal_False, &pItem ) == SFX_ITEM_SET )
1585 {
1586 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sTemplateName));
1587 pValue[nActProp++].Value <<= ( ::rtl::OUString(((SfxStringItem*)pItem)->GetValue()) );
1588 }
1589 if ( rSet.GetItemState( SID_TEMPLATE_REGIONNAME, sal_False, &pItem ) == SFX_ITEM_SET )
1590 {
1591 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sTemplateRegionName));
1592 pValue[nActProp++].Value <<= ( ::rtl::OUString(((SfxStringItem*)pItem)->GetValue()) );
1593 }
1594 if ( rSet.GetItemState( SID_JUMPMARK, sal_False, &pItem ) == SFX_ITEM_SET )
1595 {
1596 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sJumpMark));
1597 pValue[nActProp++].Value <<= ( ::rtl::OUString(((SfxStringItem*)pItem)->GetValue()) );
1598 }
1599
1600 if ( rSet.GetItemState( SID_CHARSET, sal_False, &pItem ) == SFX_ITEM_SET )
1601 {
1602 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sCharacterSet));
1603 pValue[nActProp++].Value <<= ( ::rtl::OUString(((SfxStringItem*)pItem)->GetValue()) );
1604 }
1605 if ( rSet.GetItemState( SID_MACROEXECMODE, sal_False, &pItem ) == SFX_ITEM_SET )
1606 {
1607 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sMacroExecMode));
1608 pValue[nActProp++].Value <<= ( (sal_Int16) ((SfxUInt16Item*)pItem)->GetValue() );
1609 }
1610 if ( rSet.GetItemState( SID_UPDATEDOCMODE, sal_False, &pItem ) == SFX_ITEM_SET )
1611 {
1612 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sUpdateDocMode));
1613 pValue[nActProp++].Value <<= ( (sal_Int16) ((SfxUInt16Item*)pItem)->GetValue() );
1614 }
1615 if ( rSet.GetItemState( SID_REPAIRPACKAGE, sal_False, &pItem ) == SFX_ITEM_SET )
1616 {
1617 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sRepairPackage));
1618 pValue[nActProp++].Value <<= ( ((SfxBoolItem*)pItem)->GetValue() );
1619 }
1620 if ( rSet.GetItemState( SID_DOCINFO_TITLE, sal_False, &pItem ) == SFX_ITEM_SET )
1621 {
1622 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sDocumentTitle));
1623 pValue[nActProp++].Value <<= ( ::rtl::OUString(((SfxStringItem*)pItem)->GetValue()) );
1624 }
1625 if ( rSet.GetItemState( SID_DOC_BASEURL, sal_False, &pItem ) == SFX_ITEM_SET )
1626 {
1627 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sDocumentBaseURL));
1628 pValue[nActProp++].Value <<= ( ::rtl::OUString(((SfxStringItem*)pItem)->GetValue()) );
1629 }
1630 if ( rSet.GetItemState( SID_DOC_HIERARCHICALNAME, sal_False, &pItem ) == SFX_ITEM_SET )
1631 {
1632 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sHierarchicalDocumentName));
1633 pValue[nActProp++].Value <<= ( ::rtl::OUString(((SfxStringItem*)pItem)->GetValue()) );
1634 }
1635 if ( rSet.GetItemState( SID_COPY_STREAM_IF_POSSIBLE, sal_False, &pItem ) == SFX_ITEM_SET )
1636 {
1637 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sCopyStreamIfPossible));
1638 pValue[nActProp++].Value = ( ((SfxUnoAnyItem*)pItem)->GetValue() );
1639 }
1640 if ( rSet.GetItemState( SID_NOAUTOSAVE, sal_False, &pItem ) == SFX_ITEM_SET )
1641 {
1642 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sNoAutoSave));
1643 pValue[nActProp++].Value <<= ( ((SfxBoolItem*)pItem)->GetValue() );
1644 }
1645 if ( rSet.GetItemState( SID_MODIFYPASSWORDINFO, sal_False, &pItem ) == SFX_ITEM_SET )
1646 {
1647 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sModifyPasswordInfo));
1648 pValue[nActProp++].Value = ( ((SfxUnoAnyItem*)pItem)->GetValue() );
1649 }
1650 if ( rSet.GetItemState( SID_ENCRYPTIONDATA, sal_False, &pItem ) == SFX_ITEM_SET )
1651 {
1652 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sEncryptionData));
1653 pValue[nActProp++].Value = ( ((SfxUnoAnyItem*)pItem)->GetValue() );
1654 }
1655 if ( rSet.GetItemState( SID_SUGGESTEDSAVEASDIR, sal_False, &pItem ) == SFX_ITEM_SET )
1656 {
1657 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sSuggestedSaveAsDir));
1658 pValue[nActProp++].Value <<= ( ::rtl::OUString(((SfxStringItem*)pItem)->GetValue()) );
1659 }
1660 if ( rSet.GetItemState( SID_SUGGESTEDSAVEASNAME, sal_False, &pItem ) == SFX_ITEM_SET )
1661 {
1662 pValue[nActProp].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(sSuggestedSaveAsName));
1663 pValue[nActProp++].Value <<= ( ::rtl::OUString(((SfxStringItem*)pItem)->GetValue()) );
1664 }
1665 }
1666 }
1667
1668 rArgs = aSequ;
1669 }
1670
SFX_IMPL_XINTERFACE_5(SfxMacroLoader,OWeakObject,::com::sun::star::frame::XDispatchProvider,::com::sun::star::frame::XNotifyingDispatch,::com::sun::star::frame::XDispatch,::com::sun::star::frame::XSynchronousDispatch,::com::sun::star::lang::XInitialization)1671 SFX_IMPL_XINTERFACE_5( SfxMacroLoader, OWeakObject, ::com::sun::star::frame::XDispatchProvider, ::com::sun::star::frame::XNotifyingDispatch, ::com::sun::star::frame::XDispatch, ::com::sun::star::frame::XSynchronousDispatch,::com::sun::star::lang::XInitialization )
1672 SFX_IMPL_XTYPEPROVIDER_5( SfxMacroLoader, ::com::sun::star::frame::XDispatchProvider, ::com::sun::star::frame::XNotifyingDispatch, ::com::sun::star::frame::XDispatch, ::com::sun::star::frame::XSynchronousDispatch,::com::sun::star::lang::XInitialization )
1673 SFX_IMPL_XSERVICEINFO( SfxMacroLoader, PROTOCOLHANDLER_SERVICENAME, "com.sun.star.comp.sfx2.SfxMacroLoader" )
1674 SFX_IMPL_SINGLEFACTORY( SfxMacroLoader )
1675
1676 void SAL_CALL SfxMacroLoader::initialize( const ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Any >& aArguments ) throw (::com::sun::star::uno::Exception, ::com::sun::star::uno::RuntimeException)
1677 {
1678 Reference < XFrame > xFrame;
1679 if ( aArguments.getLength() )
1680 {
1681 aArguments[0] >>= xFrame;
1682 m_xFrame = xFrame;
1683 }
1684 }
1685
GetObjectShell_Impl()1686 SfxObjectShell* SfxMacroLoader::GetObjectShell_Impl()
1687 {
1688 SfxObjectShell* pDocShell = NULL;
1689 Reference < XFrame > xFrame( m_xFrame.get(), UNO_QUERY );
1690 if ( xFrame.is() )
1691 {
1692 SfxFrame* pFrame=0;
1693 for ( pFrame = SfxFrame::GetFirst(); pFrame; pFrame = SfxFrame::GetNext( *pFrame ) )
1694 {
1695 if ( pFrame->GetFrameInterface() == xFrame )
1696 break;
1697 }
1698
1699 if ( pFrame )
1700 pDocShell = pFrame->GetCurrentDocument();
1701 }
1702
1703 return pDocShell;
1704 }
1705
1706 // -----------------------------------------------------------------------
queryDispatch(const::com::sun::star::util::URL & aURL,const::rtl::OUString &,sal_Int32)1707 ::com::sun::star::uno::Reference< ::com::sun::star::frame::XDispatch > SAL_CALL SfxMacroLoader::queryDispatch(
1708 const ::com::sun::star::util::URL& aURL ,
1709 const ::rtl::OUString& /*sTargetFrameName*/,
1710 sal_Int32 /*nSearchFlags*/ ) throw( ::com::sun::star::uno::RuntimeException )
1711 {
1712 ::com::sun::star::uno::Reference< ::com::sun::star::frame::XDispatch > xDispatcher;
1713 if(aURL.Complete.compareToAscii("macro:",6)==0)
1714 xDispatcher = this;
1715 return xDispatcher;
1716 }
1717
1718 // -----------------------------------------------------------------------
1719 ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Reference < ::com::sun::star::frame::XDispatch > > SAL_CALL
queryDispatches(const::com::sun::star::uno::Sequence<::com::sun::star::frame::DispatchDescriptor> & seqDescriptor)1720 SfxMacroLoader::queryDispatches( const ::com::sun::star::uno::Sequence < ::com::sun::star::frame::DispatchDescriptor >& seqDescriptor )
1721 throw( ::com::sun::star::uno::RuntimeException )
1722 {
1723 sal_Int32 nCount = seqDescriptor.getLength();
1724 ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Reference < ::com::sun::star::frame::XDispatch > > lDispatcher(nCount);
1725 for( sal_Int32 i=0; i<nCount; ++i )
1726 lDispatcher[i] = this->queryDispatch( seqDescriptor[i].FeatureURL,
1727 seqDescriptor[i].FrameName,
1728 seqDescriptor[i].SearchFlags );
1729 return lDispatcher;
1730 }
1731
1732 // -----------------------------------------------------------------------
dispatchWithNotification(const::com::sun::star::util::URL & aURL,const::com::sun::star::uno::Sequence<::com::sun::star::beans::PropertyValue> & lArgs,const::com::sun::star::uno::Reference<::com::sun::star::frame::XDispatchResultListener> & xListener)1733 void SAL_CALL SfxMacroLoader::dispatchWithNotification( const ::com::sun::star::util::URL& aURL ,
1734 const ::com::sun::star::uno::Sequence< ::com::sun::star::beans::PropertyValue >& lArgs ,
1735 const ::com::sun::star::uno::Reference< ::com::sun::star::frame::XDispatchResultListener >& xListener )
1736 throw (::com::sun::star::uno::RuntimeException)
1737 {
1738 ::vos::OGuard aGuard( Application::GetSolarMutex() );
1739
1740 sal_uInt32 nPropertyCount = lArgs.getLength();
1741 ::rtl::OUString aReferer;
1742 for( sal_uInt32 nProperty=0; nProperty<nPropertyCount; ++nProperty )
1743 {
1744 if( lArgs[nProperty].Name == ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Referer")) )
1745 {
1746 lArgs[nProperty].Value >>= aReferer;
1747 break;
1748 }
1749 }
1750
1751 ::com::sun::star::uno::Any aAny;
1752 ErrCode nErr = loadMacro( aURL.Complete, aAny, GetObjectShell_Impl() );
1753 if( xListener.is() )
1754 {
1755 // always call dispatchFinished(), because we didn't load a document but
1756 // executed a macro instead!
1757 ::com::sun::star::frame::DispatchResultEvent aEvent;
1758
1759 aEvent.Source = static_cast< ::cppu::OWeakObject* >(this);
1760 if( nErr == ERRCODE_NONE )
1761 aEvent.State = ::com::sun::star::frame::DispatchResultState::SUCCESS;
1762 else
1763 aEvent.State = ::com::sun::star::frame::DispatchResultState::FAILURE;
1764
1765 xListener->dispatchFinished( aEvent ) ;
1766 }
1767 }
1768
dispatchWithReturnValue(const::com::sun::star::util::URL & aURL,const::com::sun::star::uno::Sequence<::com::sun::star::beans::PropertyValue> &)1769 ::com::sun::star::uno::Any SAL_CALL SfxMacroLoader::dispatchWithReturnValue(
1770 const ::com::sun::star::util::URL& aURL,
1771 const ::com::sun::star::uno::Sequence< ::com::sun::star::beans::PropertyValue >& ) throw (::com::sun::star::uno::RuntimeException)
1772 {
1773 ::com::sun::star::uno::Any aRet;
1774 /*ErrCode nErr = */loadMacro( aURL.Complete, aRet, GetObjectShell_Impl() );
1775 return aRet;
1776 }
1777
1778 // -----------------------------------------------------------------------
dispatch(const::com::sun::star::util::URL & aURL,const::com::sun::star::uno::Sequence<::com::sun::star::beans::PropertyValue> & lArgs)1779 void SAL_CALL SfxMacroLoader::dispatch( const ::com::sun::star::util::URL& aURL ,
1780 const ::com::sun::star::uno::Sequence< ::com::sun::star::beans::PropertyValue >& lArgs )
1781 throw (::com::sun::star::uno::RuntimeException)
1782 {
1783 ::vos::OGuard aGuard( Application::GetSolarMutex() );
1784
1785 sal_uInt32 nPropertyCount = lArgs.getLength();
1786 ::rtl::OUString aReferer;
1787 for( sal_uInt32 nProperty=0; nProperty<nPropertyCount; ++nProperty )
1788 {
1789 if( lArgs[nProperty].Name == ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Referer")) )
1790 {
1791 lArgs[nProperty].Value >>= aReferer;
1792 break;
1793 }
1794 }
1795
1796 ::com::sun::star::uno::Any aAny;
1797 /*ErrCode nErr = */loadMacro( aURL.Complete, aAny, GetObjectShell_Impl() );
1798 }
1799
1800 // -----------------------------------------------------------------------
addStatusListener(const::com::sun::star::uno::Reference<::com::sun::star::frame::XStatusListener> &,const::com::sun::star::util::URL &)1801 void SAL_CALL SfxMacroLoader::addStatusListener(
1802 const ::com::sun::star::uno::Reference< ::com::sun::star::frame::XStatusListener >& ,
1803 const ::com::sun::star::util::URL& )
1804 throw (::com::sun::star::uno::RuntimeException)
1805 {
1806 /* TODO
1807 How we can handle different listener for further coming or currently running dispatch() jobs
1808 without any inconsistency!
1809 */
1810 }
1811
1812 // -----------------------------------------------------------------------
removeStatusListener(const::com::sun::star::uno::Reference<::com::sun::star::frame::XStatusListener> &,const::com::sun::star::util::URL &)1813 void SAL_CALL SfxMacroLoader::removeStatusListener(
1814 const ::com::sun::star::uno::Reference< ::com::sun::star::frame::XStatusListener >&,
1815 const ::com::sun::star::util::URL& )
1816 throw (::com::sun::star::uno::RuntimeException)
1817 {
1818 }
1819
loadMacro(const::rtl::OUString & rURL,com::sun::star::uno::Any & rRetval,SfxObjectShell * pSh)1820 ErrCode SfxMacroLoader::loadMacro( const ::rtl::OUString& rURL, com::sun::star::uno::Any& rRetval, SfxObjectShell* pSh )
1821 throw ( ::com::sun::star::uno::RuntimeException )
1822 {
1823 SfxObjectShell* pCurrent = pSh;
1824 if ( !pCurrent )
1825 // all not full qualified names use the BASIC of the given or current document
1826 pCurrent = SfxObjectShell::Current();
1827
1828 // 'macro:///lib.mod.proc(args)' => macro of App-BASIC
1829 // 'macro://[docname|.]/lib.mod.proc(args)' => macro of current or qualified document
1830 // 'macro://obj.method(args)' => direct API call, execute it via App-BASIC
1831 String aMacro( rURL );
1832 sal_uInt16 nHashPos = aMacro.Search( '/', 8 );
1833 sal_uInt16 nArgsPos = aMacro.Search( '(' );
1834 BasicManager *pAppMgr = SFX_APP()->GetBasicManager();
1835 BasicManager *pBasMgr = 0;
1836 ErrCode nErr = ERRCODE_NONE;
1837
1838 // should a macro function be executed ( no direct API call)?
1839 if ( STRING_NOTFOUND != nHashPos && nHashPos < nArgsPos )
1840 {
1841 // find BasicManager
1842 SfxObjectShell* pDoc = NULL;
1843 String aBasMgrName( INetURLObject::decode(aMacro.Copy( 8, nHashPos-8 ), INET_HEX_ESCAPE, INetURLObject::DECODE_WITH_CHARSET) );
1844 if ( !aBasMgrName.Len() )
1845 pBasMgr = pAppMgr;
1846 else if ( aBasMgrName.EqualsAscii(".") )
1847 {
1848 // current/actual document
1849 pDoc = pCurrent;
1850 if (pDoc)
1851 pBasMgr = pDoc->GetBasicManager();
1852 }
1853 else
1854 {
1855 // full qualified name, find document by name
1856 for ( SfxObjectShell *pObjSh = SfxObjectShell::GetFirst();
1857 pObjSh && !pBasMgr;
1858 pObjSh = SfxObjectShell::GetNext(*pObjSh) )
1859 if ( aBasMgrName == pObjSh->GetTitle(SFX_TITLE_APINAME) )
1860 {
1861 pDoc = pObjSh;
1862 pBasMgr = pDoc->GetBasicManager();
1863 }
1864 }
1865
1866 if ( pBasMgr )
1867 {
1868 const bool bIsAppBasic = ( pBasMgr == pAppMgr );
1869 const bool bIsDocBasic = ( pBasMgr != pAppMgr );
1870
1871 if ( pDoc )
1872 {
1873 // security check for macros from document basic if an SFX doc is given
1874 if ( !pDoc->AdjustMacroMode( String() ) )
1875 // check forbids execution
1876 return ERRCODE_IO_ACCESSDENIED;
1877 }
1878 else if ( pDoc && pDoc->GetMedium() )
1879 {
1880 pDoc->AdjustMacroMode( String() );
1881 SFX_ITEMSET_ARG( pDoc->GetMedium()->GetItemSet(), pUpdateDocItem, SfxUInt16Item, SID_UPDATEDOCMODE, sal_False);
1882 SFX_ITEMSET_ARG( pDoc->GetMedium()->GetItemSet(), pMacroExecModeItem, SfxUInt16Item, SID_MACROEXECMODE, sal_False);
1883 if ( pUpdateDocItem && pMacroExecModeItem
1884 && pUpdateDocItem->GetValue() == document::UpdateDocMode::NO_UPDATE
1885 && pMacroExecModeItem->GetValue() == document::MacroExecMode::NEVER_EXECUTE )
1886 return ERRCODE_IO_ACCESSDENIED;
1887 }
1888
1889 // find BASIC method
1890 String aQualifiedMethod( INetURLObject::decode(aMacro.Copy( nHashPos+1 ), INET_HEX_ESCAPE, INetURLObject::DECODE_WITH_CHARSET) );
1891 String aArgs;
1892 if ( STRING_NOTFOUND != nArgsPos )
1893 {
1894 // remove arguments from macro name
1895 aArgs = aQualifiedMethod.Copy( nArgsPos - nHashPos - 1 );
1896 aQualifiedMethod.Erase( nArgsPos - nHashPos - 1 );
1897 }
1898
1899 if ( pBasMgr->HasMacro( aQualifiedMethod ) )
1900 {
1901 Any aOldThisComponent;
1902 const bool bSetDocMacroMode = ( pDoc != NULL ) && bIsDocBasic;
1903 const bool bSetGlobalThisComponent = ( pDoc != NULL ) && bIsAppBasic;
1904 if ( bSetDocMacroMode )
1905 {
1906 // mark document: it executes an own macro, so it's in a modal mode
1907 pDoc->SetMacroMode_Impl( sal_True );
1908 }
1909
1910 if ( bSetGlobalThisComponent )
1911 {
1912 // document is executed via AppBASIC, adjust ThisComponent variable
1913 aOldThisComponent = pAppMgr->SetGlobalUNOConstant( "ThisComponent", makeAny( pDoc->GetModel() ) );
1914 }
1915
1916 // just to let the shell be alive
1917 SfxObjectShellRef xKeepDocAlive = pDoc;
1918
1919 {
1920 // attempt to protect the document against the script tampering with its Undo Context
1921 ::std::auto_ptr< ::framework::DocumentUndoGuard > pUndoGuard;
1922 if ( bIsDocBasic )
1923 pUndoGuard.reset( new ::framework::DocumentUndoGuard( pDoc->GetModel() ) );
1924
1925 // execute the method
1926 SbxVariableRef retValRef = new SbxVariable;
1927 nErr = pBasMgr->ExecuteMacro( aQualifiedMethod, aArgs, retValRef );
1928 if ( nErr == ERRCODE_NONE )
1929 rRetval = sbxToUnoValue( retValRef );
1930 }
1931
1932 if ( bSetGlobalThisComponent )
1933 {
1934 pAppMgr->SetGlobalUNOConstant( "ThisComponent", aOldThisComponent );
1935 }
1936
1937 if ( bSetDocMacroMode )
1938 {
1939 // remove flag for modal mode
1940 pDoc->SetMacroMode_Impl( sal_False );
1941 }
1942 }
1943 else
1944 nErr = ERRCODE_BASIC_PROC_UNDEFINED;
1945 }
1946 else
1947 nErr = ERRCODE_IO_NOTEXISTS;
1948 }
1949 else
1950 {
1951 // direct API call on a specified object
1952 String aCall( '[' );
1953 aCall += String(INetURLObject::decode(aMacro.Copy(6), INET_HEX_ESCAPE,
1954 INetURLObject::DECODE_WITH_CHARSET));
1955 aCall += ']';
1956 pAppMgr->GetLib(0)->Execute( aCall );
1957 nErr = SbxBase::GetError();
1958 }
1959
1960 SbxBase::ResetError();
1961 return nErr;
1962 }
1963
1964 SFX_IMPL_XSERVICEINFO( SfxAppDispatchProvider, "com.sun.star.frame.DispatchProvider", "com.sun.star.comp.sfx2.AppDispatchProvider" ) \
1965 SFX_IMPL_SINGLEFACTORY( SfxAppDispatchProvider );
1966
initialize(const::com::sun::star::uno::Sequence<::com::sun::star::uno::Any> & aArguments)1967 void SAL_CALL SfxAppDispatchProvider::initialize( const ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Any >& aArguments ) throw (::com::sun::star::uno::Exception, ::com::sun::star::uno::RuntimeException)
1968 {
1969 Reference < XFrame > xFrame;
1970 if ( aArguments.getLength() )
1971 {
1972 aArguments[0] >>= xFrame;
1973 m_xFrame = xFrame;
1974 }
1975 }
1976
queryDispatch(const::com::sun::star::util::URL & aURL,const::rtl::OUString &,FrameSearchFlags)1977 Reference < XDispatch > SAL_CALL SfxAppDispatchProvider::queryDispatch(
1978 const ::com::sun::star::util::URL& aURL,
1979 const ::rtl::OUString& /*sTargetFrameName*/,
1980 FrameSearchFlags /*eSearchFlags*/ ) throw( RuntimeException )
1981 {
1982 sal_uInt16 nId( 0 );
1983 sal_Bool bMasterCommand( sal_False );
1984 Reference < XDispatch > xDisp;
1985 const SfxSlot* pSlot = 0;
1986 SfxDispatcher* pAppDisp = SFX_APP()->GetAppDispatcher_Impl();
1987 if ( aURL.Protocol.compareToAscii( "slot:" ) == COMPARE_EQUAL ||
1988 aURL.Protocol.compareToAscii( "commandId:" ) == COMPARE_EQUAL )
1989 {
1990 nId = (sal_uInt16) aURL.Path.toInt32();
1991 SfxShell* pShell;
1992 pAppDisp->GetShellAndSlot_Impl( nId, &pShell, &pSlot, sal_True, sal_True );
1993 }
1994 else if ( aURL.Protocol.compareToAscii( ".uno:" ) == COMPARE_EQUAL )
1995 {
1996 // Support ".uno" commands. Map commands to slotid
1997 bMasterCommand = SfxOfficeDispatch::IsMasterUnoCommand( aURL );
1998 if ( bMasterCommand )
1999 pSlot = pAppDisp->GetSlot( SfxOfficeDispatch::GetMasterUnoCommand( aURL ) );
2000 else
2001 pSlot = pAppDisp->GetSlot( aURL.Main );
2002 }
2003
2004 if ( pSlot )
2005 {
2006 SfxOfficeDispatch* pDispatch = new SfxOfficeDispatch( pAppDisp, pSlot, aURL ) ;
2007 pDispatch->SetFrame(m_xFrame);
2008 pDispatch->SetMasterUnoCommand( bMasterCommand );
2009 xDisp = pDispatch;
2010 }
2011
2012 return xDisp;
2013 }
2014
queryDispatches(const Sequence<DispatchDescriptor> & seqDescriptor)2015 Sequence< Reference < XDispatch > > SAL_CALL SfxAppDispatchProvider::queryDispatches( const Sequence < DispatchDescriptor >& seqDescriptor )
2016 throw( RuntimeException )
2017 {
2018 sal_Int32 nCount = seqDescriptor.getLength();
2019 ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Reference < ::com::sun::star::frame::XDispatch > > lDispatcher(nCount);
2020 for( sal_Int32 i=0; i<nCount; ++i )
2021 lDispatcher[i] = this->queryDispatch( seqDescriptor[i].FeatureURL,
2022 seqDescriptor[i].FrameName,
2023 seqDescriptor[i].SearchFlags );
2024 return lDispatcher;
2025 }
2026
getSupportedCommandGroups()2027 Sequence< sal_Int16 > SAL_CALL SfxAppDispatchProvider::getSupportedCommandGroups()
2028 throw (::com::sun::star::uno::RuntimeException)
2029 {
2030 ::vos::OGuard aGuard( Application::GetSolarMutex() );
2031
2032 std::list< sal_Int16 > aGroupList;
2033 SfxSlotPool* pAppSlotPool = &SFX_APP()->GetAppSlotPool_Impl();
2034
2035 const sal_uIntPtr nMode( SFX_SLOT_TOOLBOXCONFIG|SFX_SLOT_ACCELCONFIG|SFX_SLOT_MENUCONFIG );
2036
2037 // Gruppe anw"ahlen ( Gruppe 0 ist intern )
2038 for ( sal_uInt16 i=0; i<pAppSlotPool->GetGroupCount(); i++ )
2039 {
2040 String aName = pAppSlotPool->SeekGroup( i );
2041 const SfxSlot* pSfxSlot = pAppSlotPool->FirstSlot();
2042 while ( pSfxSlot )
2043 {
2044 if ( pSfxSlot->GetMode() & nMode )
2045 {
2046 sal_Int16 nCommandGroup = MapGroupIDToCommandGroup( pSfxSlot->GetGroupId() );
2047 aGroupList.push_back( nCommandGroup );
2048 break;
2049 }
2050 pSfxSlot = pAppSlotPool->NextSlot();
2051 }
2052 }
2053
2054 ::com::sun::star::uno::Sequence< sal_Int16 > aSeq =
2055 comphelper::containerToSequence< sal_Int16, std::list< sal_Int16 > >( aGroupList );
2056
2057 return aSeq;
2058 }
2059
getConfigurableDispatchInformation(sal_Int16 nCmdGroup)2060 Sequence< ::com::sun::star::frame::DispatchInformation > SAL_CALL SfxAppDispatchProvider::getConfigurableDispatchInformation( sal_Int16 nCmdGroup )
2061 throw (::com::sun::star::uno::RuntimeException)
2062 {
2063 std::list< ::com::sun::star::frame::DispatchInformation > aCmdList;
2064
2065 ::vos::OGuard aGuard( Application::GetSolarMutex() );
2066 SfxSlotPool* pAppSlotPool = &SFX_APP()->GetAppSlotPool_Impl();
2067
2068 if ( pAppSlotPool )
2069 {
2070 const sal_uIntPtr nMode( SFX_SLOT_TOOLBOXCONFIG|SFX_SLOT_ACCELCONFIG|SFX_SLOT_MENUCONFIG );
2071 rtl::OUString aCmdPrefix( RTL_CONSTASCII_USTRINGPARAM( ".uno:" ));
2072
2073 // Gruppe anw"ahlen ( Gruppe 0 ist intern )
2074 for ( sal_uInt16 i=0; i<pAppSlotPool->GetGroupCount(); i++ )
2075 {
2076 String aName = pAppSlotPool->SeekGroup( i );
2077 const SfxSlot* pSfxSlot = pAppSlotPool->FirstSlot();
2078 if ( pSfxSlot )
2079 {
2080 sal_Int16 nCommandGroup = MapGroupIDToCommandGroup( pSfxSlot->GetGroupId() );
2081 if ( nCommandGroup == nCmdGroup )
2082 {
2083 while ( pSfxSlot )
2084 {
2085 if ( pSfxSlot->GetMode() & nMode )
2086 {
2087 ::com::sun::star::frame::DispatchInformation aCmdInfo;
2088 ::rtl::OUStringBuffer aBuf( aCmdPrefix );
2089 aBuf.appendAscii( pSfxSlot->GetUnoName() );
2090 aCmdInfo.Command = aBuf.makeStringAndClear();
2091 aCmdInfo.GroupId = nCommandGroup;
2092 aCmdList.push_back( aCmdInfo );
2093 }
2094 pSfxSlot = pAppSlotPool->NextSlot();
2095 }
2096 }
2097 }
2098 }
2099 }
2100
2101 ::com::sun::star::uno::Sequence< ::com::sun::star::frame::DispatchInformation > aSeq =
2102 comphelper::containerToSequence< ::com::sun::star::frame::DispatchInformation, std::list< ::com::sun::star::frame::DispatchInformation > >( aCmdList );
2103
2104 return aSeq;
2105 }
2106
2107 #ifdef TEST_HANDLERS
2108 #include <cppuhelper/implbase2.hxx>
2109
2110 #include <com/sun/star/awt/XKeyHandler.hdl>
2111 #include <com/sun/star/awt/XMouseClickHandler.hdl>
2112
2113 class TestKeyHandler: public ::cppu::WeakImplHelper2
2114 <
2115 com::sun::star::awt::XKeyHandler,
2116 com::sun::star::lang::XServiceInfo
2117 >
2118 {
2119 public:
TestKeyHandler(const com::sun::star::uno::Reference<::com::sun::star::lang::XMultiServiceFactory> &)2120 TestKeyHandler( const com::sun::star::uno::Reference < ::com::sun::star::lang::XMultiServiceFactory >& ){}
2121
2122 SFX_DECL_XSERVICEINFO
2123 virtual sal_Bool SAL_CALL keyPressed( const ::com::sun::star::awt::KeyEvent& aEvent ) throw (::com::sun::star::uno::RuntimeException);
2124 virtual sal_Bool SAL_CALL keyReleased( const ::com::sun::star::awt::KeyEvent& aEvent ) throw (::com::sun::star::uno::RuntimeException);
2125 virtual void SAL_CALL disposing( const ::com::sun::star::lang::EventObject& Source)
2126 throw (::com::sun::star::uno::RuntimeException);
2127 };
2128
2129 class TestMouseClickHandler: public ::cppu::WeakImplHelper2
2130 <
2131 com::sun::star::awt::XMouseClickHandler,
2132 com::sun::star::lang::XServiceInfo
2133 >
2134 {
2135 public:
TestMouseClickHandler(const com::sun::star::uno::Reference<::com::sun::star::lang::XMultiServiceFactory> &)2136 TestMouseClickHandler( const com::sun::star::uno::Reference < ::com::sun::star::lang::XMultiServiceFactory >& ){}
2137
2138 SFX_DECL_XSERVICEINFO
2139 virtual sal_Bool SAL_CALL mousePressed( const ::com::sun::star::awt::MouseEvent& e ) throw (::com::sun::star::uno::RuntimeException);
2140 virtual sal_Bool SAL_CALL mouseReleased( const ::com::sun::star::awt::MouseEvent& e ) throw (::com::sun::star::uno::RuntimeException);
2141 virtual void SAL_CALL disposing( const ::com::sun::star::lang::EventObject& Source)
2142 throw (::com::sun::star::uno::RuntimeException);
2143 };
2144
keyPressed(const::com::sun::star::awt::KeyEvent & aEvent)2145 sal_Bool SAL_CALL TestKeyHandler::keyPressed( const ::com::sun::star::awt::KeyEvent& aEvent ) throw (::com::sun::star::uno::RuntimeException)
2146 {
2147 return sal_False;
2148 }
2149
keyReleased(const::com::sun::star::awt::KeyEvent & aEvent)2150 sal_Bool SAL_CALL TestKeyHandler::keyReleased( const ::com::sun::star::awt::KeyEvent& aEvent ) throw (::com::sun::star::uno::RuntimeException)
2151 {
2152 return sal_False;
2153 }
2154
disposing(const::com::sun::star::lang::EventObject & Source)2155 void SAL_CALL TestKeyHandler::disposing( const ::com::sun::star::lang::EventObject& Source) throw (::com::sun::star::uno::RuntimeException)
2156 {
2157 }
2158
mousePressed(const::com::sun::star::awt::MouseEvent & e)2159 sal_Bool SAL_CALL TestMouseClickHandler::mousePressed( const ::com::sun::star::awt::MouseEvent& e ) throw (::com::sun::star::uno::RuntimeException)
2160 {
2161 return sal_False;
2162 }
2163
mouseReleased(const::com::sun::star::awt::MouseEvent & e)2164 sal_Bool SAL_CALL TestMouseClickHandler::mouseReleased( const ::com::sun::star::awt::MouseEvent& e ) throw (::com::sun::star::uno::RuntimeException)
2165 {
2166 return sal_False;
2167 }
2168
disposing(const::com::sun::star::lang::EventObject & Source)2169 void SAL_CALL TestMouseClickHandler::disposing( const ::com::sun::star::lang::EventObject& Source) throw (::com::sun::star::uno::RuntimeException)
2170 {
2171 }
2172
2173 SFX_IMPL_XSERVICEINFO( TestKeyHandler, "com.sun.star.task.Job", "com.sun.star.comp.Office.KeyHandler");
2174 SFX_IMPL_XSERVICEINFO( TestMouseClickHandler, "com.sun.star.task.Job", "com.sun.star.comp.Office.MouseClickHandler");
2175 SFX_IMPL_SINGLEFACTORY( TestKeyHandler );
2176 SFX_IMPL_SINGLEFACTORY( TestMouseClickHandler );
2177 #endif
2178 // -----------------------------------------------------------------------
2179
2180 extern "C" {
2181
component_getImplementationEnvironment(const sal_Char ** ppEnvironmentTypeName,uno_Environment **)2182 SFX2_DLLPUBLIC void SAL_CALL component_getImplementationEnvironment(
2183 const sal_Char** ppEnvironmentTypeName ,
2184 uno_Environment** )
2185 {
2186 *ppEnvironmentTypeName = CPPU_CURRENT_LANGUAGE_BINDING_NAME ;
2187 }
2188
component_getFactory(const sal_Char * pImplementationName,void * pServiceManager,void *)2189 SFX2_DLLPUBLIC void* SAL_CALL component_getFactory(
2190 const sal_Char* pImplementationName ,
2191 void* pServiceManager ,
2192 void* )
2193 {
2194 // Set default return value for this operation - if it failed.
2195 void* pReturn = NULL ;
2196
2197 if (
2198 ( pImplementationName != NULL ) &&
2199 ( pServiceManager != NULL )
2200 )
2201 {
2202 // Define variables which are used in following macros.
2203 ::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface >
2204 xFactory;
2205 ::com::sun::star::uno::Reference< ::com::sun::star::lang::XMultiServiceFactory > xServiceManager( reinterpret_cast< ::com::sun::star::lang::XMultiServiceFactory* >( pServiceManager ) ) ;
2206
2207 //=============================================================================
2208 // Add new macro line to handle new service.
2209 //
2210 // !!! ATTENTION !!!
2211 // Write no ";" at end of line and dont forget "else" ! (see macro)
2212 //=============================================================================
2213 IF_NAME_CREATECOMPONENTFACTORY( SfxGlobalEvents_Impl )
2214 IF_NAME_CREATECOMPONENTFACTORY( SfxFrameLoader_Impl )
2215 IF_NAME_CREATECOMPONENTFACTORY( SfxMacroLoader )
2216 IF_NAME_CREATECOMPONENTFACTORY( SfxStandaloneDocumentInfoObject )
2217 IF_NAME_CREATECOMPONENTFACTORY( SfxAppDispatchProvider )
2218 IF_NAME_CREATECOMPONENTFACTORY( SfxDocTplService )
2219 IF_NAME_CREATECOMPONENTFACTORY( ShutdownIcon )
2220 IF_NAME_CREATECOMPONENTFACTORY( SfxApplicationScriptLibraryContainer )
2221 IF_NAME_CREATECOMPONENTFACTORY( SfxApplicationDialogLibraryContainer )
2222 #ifdef TEST_HANDLERS
2223 IF_NAME_CREATECOMPONENTFACTORY( TestKeyHandler )
2224 IF_NAME_CREATECOMPONENTFACTORY( TestMouseClickHandler )
2225 #endif
2226 IF_NAME_CREATECOMPONENTFACTORY( OPackageStructureCreator )
2227 #if 0
2228 if ( ::sfx2::AppletObject::impl_getStaticImplementationName().equals(
2229 ::rtl::OUString::createFromAscii( pImplementationName ) ) )
2230 {
2231 xFactory = ::sfx2::AppletObject::impl_createFactory();
2232 }
2233 #endif
2234 IF_NAME_CREATECOMPONENTFACTORY( ::sfx2::PluginObject )
2235 IF_NAME_CREATECOMPONENTFACTORY( ::sfx2::IFrameObject )
2236 IF_NAME_CREATECOMPONENTFACTORY( ::sfx2::OwnSubFilterService )
2237 if ( ::comp_SfxDocumentMetaData::_getImplementationName().equals(
2238 ::rtl::OUString::createFromAscii( pImplementationName ) ) )
2239 {
2240 xFactory = ::cppu::createSingleComponentFactory(
2241 ::comp_SfxDocumentMetaData::_create,
2242 ::comp_SfxDocumentMetaData::_getImplementationName(),
2243 ::comp_SfxDocumentMetaData::_getSupportedServiceNames());
2244 }
2245
2246 // Factory is valid - service was found.
2247 if ( xFactory.is() )
2248 {
2249 xFactory->acquire();
2250 pReturn = xFactory.get();
2251 }
2252 }
2253 // Return with result of this operation.
2254 return pReturn ;
2255 }
2256 } // extern "C"
2257
2258 //=========================================================================
2259
setFilterOptions(const::com::sun::star::uno::Sequence<::com::sun::star::beans::PropertyValue> & rProps)2260 void SAL_CALL FilterOptionsContinuation::setFilterOptions(
2261 const ::com::sun::star::uno::Sequence< ::com::sun::star::beans::PropertyValue >& rProps )
2262 throw (::com::sun::star::uno::RuntimeException)
2263 {
2264 rProperties = rProps;
2265 }
2266
2267 ::com::sun::star::uno::Sequence< ::com::sun::star::beans::PropertyValue > SAL_CALL
getFilterOptions()2268 FilterOptionsContinuation::getFilterOptions()
2269 throw (::com::sun::star::uno::RuntimeException)
2270 {
2271 return rProperties;
2272 }
2273
2274 //=========================================================================
2275
RequestFilterOptions(::com::sun::star::uno::Reference<::com::sun::star::frame::XModel> rModel,::com::sun::star::uno::Sequence<::com::sun::star::beans::PropertyValue> rProperties)2276 RequestFilterOptions::RequestFilterOptions( ::com::sun::star::uno::Reference< ::com::sun::star::frame::XModel > rModel,
2277 ::com::sun::star::uno::Sequence< ::com::sun::star::beans::PropertyValue > rProperties )
2278 {
2279 ::rtl::OUString temp;
2280 ::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface > temp2;
2281 ::com::sun::star::document::FilterOptionsRequest aOptionsRequest( temp,
2282 temp2,
2283 rModel,
2284 rProperties );
2285
2286 m_aRequest <<= aOptionsRequest;
2287
2288 m_pAbort = new comphelper::OInteractionAbort;
2289 m_pOptions = new FilterOptionsContinuation;
2290
2291 m_lContinuations.realloc( 2 );
2292 m_lContinuations[0] = ::com::sun::star::uno::Reference< ::com::sun::star::task::XInteractionContinuation >( m_pAbort );
2293 m_lContinuations[1] = ::com::sun::star::uno::Reference< ::com::sun::star::task::XInteractionContinuation >( m_pOptions );
2294 }
2295
getRequest()2296 ::com::sun::star::uno::Any SAL_CALL RequestFilterOptions::getRequest()
2297 throw( ::com::sun::star::uno::RuntimeException )
2298 {
2299 return m_aRequest;
2300 }
2301
2302 ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Reference< ::com::sun::star::task::XInteractionContinuation > >
getContinuations()2303 SAL_CALL RequestFilterOptions::getContinuations()
2304 throw( ::com::sun::star::uno::RuntimeException )
2305 {
2306 return m_lContinuations;
2307 }
2308
2309 //=========================================================================
2310 class RequestPackageReparation_Impl : public ::cppu::WeakImplHelper1< ::com::sun::star::task::XInteractionRequest >
2311 {
2312 ::com::sun::star::uno::Any m_aRequest;
2313 ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Reference< ::com::sun::star::task::XInteractionContinuation > > m_lContinuations;
2314 comphelper::OInteractionApprove* m_pApprove;
2315 comphelper::OInteractionDisapprove* m_pDisapprove;
2316
2317 public:
2318 RequestPackageReparation_Impl( ::rtl::OUString aName );
2319 sal_Bool isApproved();
2320 virtual ::com::sun::star::uno::Any SAL_CALL getRequest() throw( ::com::sun::star::uno::RuntimeException );
2321 virtual ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Reference< ::com::sun::star::task::XInteractionContinuation > > SAL_CALL getContinuations()
2322 throw( ::com::sun::star::uno::RuntimeException );
2323 };
2324
RequestPackageReparation_Impl(::rtl::OUString aName)2325 RequestPackageReparation_Impl::RequestPackageReparation_Impl( ::rtl::OUString aName )
2326 {
2327 ::rtl::OUString temp;
2328 ::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface > temp2;
2329 ::com::sun::star::document::BrokenPackageRequest aBrokenPackageRequest( temp,
2330 temp2,
2331 aName );
2332 m_aRequest <<= aBrokenPackageRequest;
2333 m_pApprove = new comphelper::OInteractionApprove;
2334 m_pDisapprove = new comphelper::OInteractionDisapprove;
2335 m_lContinuations.realloc( 2 );
2336 m_lContinuations[0] = ::com::sun::star::uno::Reference< ::com::sun::star::task::XInteractionContinuation >( m_pApprove );
2337 m_lContinuations[1] = ::com::sun::star::uno::Reference< ::com::sun::star::task::XInteractionContinuation >( m_pDisapprove );
2338 }
2339
isApproved()2340 sal_Bool RequestPackageReparation_Impl::isApproved()
2341 {
2342 return m_pApprove->wasSelected();
2343 }
2344
getRequest()2345 ::com::sun::star::uno::Any SAL_CALL RequestPackageReparation_Impl::getRequest()
2346 throw( ::com::sun::star::uno::RuntimeException )
2347 {
2348 return m_aRequest;
2349 }
2350
2351 ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Reference< ::com::sun::star::task::XInteractionContinuation > >
getContinuations()2352 SAL_CALL RequestPackageReparation_Impl::getContinuations()
2353 throw( ::com::sun::star::uno::RuntimeException )
2354 {
2355 return m_lContinuations;
2356 }
2357
RequestPackageReparation(::rtl::OUString aName)2358 RequestPackageReparation::RequestPackageReparation( ::rtl::OUString aName )
2359 {
2360 pImp = new RequestPackageReparation_Impl( aName );
2361 pImp->acquire();
2362 }
2363
~RequestPackageReparation()2364 RequestPackageReparation::~RequestPackageReparation()
2365 {
2366 pImp->release();
2367 }
2368
isApproved()2369 sal_Bool RequestPackageReparation::isApproved()
2370 {
2371 return pImp->isApproved();
2372 }
2373
GetRequest()2374 com::sun::star::uno::Reference < ::com::sun::star::task::XInteractionRequest > RequestPackageReparation::GetRequest()
2375 {
2376 return com::sun::star::uno::Reference < ::com::sun::star::task::XInteractionRequest >(pImp);
2377 }
2378
2379 //=========================================================================
2380 class NotifyBrokenPackage_Impl : public ::cppu::WeakImplHelper1< ::com::sun::star::task::XInteractionRequest >
2381 {
2382 ::com::sun::star::uno::Any m_aRequest;
2383 ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Reference< ::com::sun::star::task::XInteractionContinuation > > m_lContinuations;
2384 comphelper::OInteractionAbort* m_pAbort;
2385
2386 public:
2387 NotifyBrokenPackage_Impl( ::rtl::OUString aName );
2388 sal_Bool isAborted();
2389 virtual ::com::sun::star::uno::Any SAL_CALL getRequest() throw( ::com::sun::star::uno::RuntimeException );
2390 virtual ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Reference< ::com::sun::star::task::XInteractionContinuation > > SAL_CALL getContinuations()
2391 throw( ::com::sun::star::uno::RuntimeException );
2392 };
2393
NotifyBrokenPackage_Impl(::rtl::OUString aName)2394 NotifyBrokenPackage_Impl::NotifyBrokenPackage_Impl( ::rtl::OUString aName )
2395 {
2396 ::rtl::OUString temp;
2397 ::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface > temp2;
2398 ::com::sun::star::document::BrokenPackageRequest aBrokenPackageRequest( temp,
2399 temp2,
2400 aName );
2401 m_aRequest <<= aBrokenPackageRequest;
2402 m_pAbort = new comphelper::OInteractionAbort;
2403 m_lContinuations.realloc( 1 );
2404 m_lContinuations[0] = ::com::sun::star::uno::Reference< ::com::sun::star::task::XInteractionContinuation >( m_pAbort );
2405 }
2406
isAborted()2407 sal_Bool NotifyBrokenPackage_Impl::isAborted()
2408 {
2409 return m_pAbort->wasSelected();
2410 }
2411
getRequest()2412 ::com::sun::star::uno::Any SAL_CALL NotifyBrokenPackage_Impl::getRequest()
2413 throw( ::com::sun::star::uno::RuntimeException )
2414 {
2415 return m_aRequest;
2416 }
2417
2418 ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Reference< ::com::sun::star::task::XInteractionContinuation > >
getContinuations()2419 SAL_CALL NotifyBrokenPackage_Impl::getContinuations()
2420 throw( ::com::sun::star::uno::RuntimeException )
2421 {
2422 return m_lContinuations;
2423 }
2424
NotifyBrokenPackage(::rtl::OUString aName)2425 NotifyBrokenPackage::NotifyBrokenPackage( ::rtl::OUString aName )
2426 {
2427 pImp = new NotifyBrokenPackage_Impl( aName );
2428 pImp->acquire();
2429 }
2430
~NotifyBrokenPackage()2431 NotifyBrokenPackage::~NotifyBrokenPackage()
2432 {
2433 pImp->release();
2434 }
2435
isAborted()2436 sal_Bool NotifyBrokenPackage::isAborted()
2437 {
2438 return pImp->isAborted();
2439 }
2440
GetRequest()2441 com::sun::star::uno::Reference < ::com::sun::star::task::XInteractionRequest > NotifyBrokenPackage::GetRequest()
2442 {
2443 return com::sun::star::uno::Reference < ::com::sun::star::task::XInteractionRequest >(pImp);
2444 }
2445
2446