xref: /aoo4110/main/sw/source/ui/vba/vbadialog.cxx (revision b1cdbd2c)
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 #include "vbadialog.hxx"
24 #include <ooo/vba/word/WdWordDialog.hpp>
25 
26 using namespace ::ooo::vba;
27 using namespace ::com::sun::star;
28 
29 struct WordDialogTable
30 {
31     sal_Int32 wdDialog;
32     const sal_Char* ooDialog;
33 };
34 
35 static const WordDialogTable aWordDialogTable[] =
36 {
37     { word::WdWordDialog::wdDialogFileNew, ".uno:NewDoc" },
38     { word::WdWordDialog::wdDialogFileOpen, ".uno:Open" },
39     { word::WdWordDialog::wdDialogFilePrint, ".uno:Print" },
40     { word::WdWordDialog::wdDialogFileSaveAs, ".uno:SaveAs" },
41     { 0, 0 }
42 };
43 
44 rtl::OUString
mapIndexToName(sal_Int32 nIndex)45 SwVbaDialog::mapIndexToName( sal_Int32 nIndex )
46 {
47     for( const WordDialogTable* pTable = aWordDialogTable; pTable != NULL; pTable++ )
48     {
49         if( nIndex == pTable->wdDialog )
50         {
51             return rtl::OUString::createFromAscii( pTable->ooDialog );
52         }
53     }
54 	return rtl::OUString();
55 }
56 
57 rtl::OUString&
getServiceImplName()58 SwVbaDialog::getServiceImplName()
59 {
60 	static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("SwVbaDialog") );
61 	return sImplName;
62 }
63 
64 uno::Sequence< rtl::OUString >
getServiceNames()65 SwVbaDialog::getServiceNames()
66 {
67 	static uno::Sequence< rtl::OUString > aServiceNames;
68 	if ( aServiceNames.getLength() == 0 )
69 	{
70 		aServiceNames.realloc( 1 );
71 		aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.word.Dialog" ) );
72 	}
73 	return aServiceNames;
74 }
75