Branch data Line data Source code
1 : : /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 : : /*
3 : : * Version: MPL 1.1 / GPLv3+ / LGPLv3+
4 : : *
5 : : * The contents of this file are subject to the Mozilla Public License Version
6 : : * 1.1 (the "License"); you may not use this file except in compliance with
7 : : * the License. You may obtain a copy of the License at
8 : : * http://www.mozilla.org/MPL/
9 : : *
10 : : * Software distributed under the License is distributed on an "AS IS" basis,
11 : : * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
12 : : * for the specific language governing rights and limitations under the
13 : : * License.
14 : : *
15 : : * The Initial Developer of the Original Code is
16 : : * Novell Inc.
17 : : * Portions created by the Initial Developer are Copyright (C) 2010 the
18 : : * Initial Developer. All Rights Reserved.
19 : : *
20 : : * Contributor(s): Pei Feng Lin <pflin@novell.com>
21 : : *
22 : : * Alternatively, the contents of this file may be used under the terms of
23 : : * either the GNU General Public License Version 3 or later (the "GPLv3+"), or
24 : : * the GNU Lesser General Public License Version 3 or later (the "LGPLv3+"),
25 : : * in which case the provisions of the GPLv3+ or the LGPLv3+ are applicable
26 : : * instead of those above.
27 : : */
28 : : #include "vbamenuitems.hxx"
29 : : #include "vbamenuitem.hxx"
30 : : #include "vbamenu.hxx"
31 : : #include <ooo/vba/office/MsoControlType.hpp>
32 : :
33 : : using namespace com::sun::star;
34 : : using namespace ooo::vba;
35 : :
36 : :
37 : : typedef ::cppu::WeakImplHelper1< container::XEnumeration > MenuEnumeration_BASE;
38 : :
39 [ # # ]: 0 : class MenuEnumeration : public MenuEnumeration_BASE
40 : : {
41 : : uno::Reference< XHelperInterface > m_xParent;
42 : : uno::Reference< uno::XComponentContext > m_xContext;
43 : : uno::Reference< container::XEnumeration > m_xEnumeration;
44 : : public:
45 : 0 : MenuEnumeration( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< container::XEnumeration >& xEnumeration) throw ( uno::RuntimeException ) : m_xParent( xParent ), m_xContext( xContext ), m_xEnumeration( xEnumeration )
46 : : {
47 : 0 : }
48 : 0 : virtual sal_Bool SAL_CALL hasMoreElements() throw ( uno::RuntimeException )
49 : : {
50 : 0 : return m_xEnumeration->hasMoreElements();
51 : : }
52 : 0 : virtual uno::Any SAL_CALL nextElement() throw ( container::NoSuchElementException, lang::WrappedTargetException, uno::RuntimeException )
53 : : {
54 : : // FIXME: should be add menu
55 [ # # ]: 0 : if( hasMoreElements() )
56 : : {
57 [ # # ][ # # ]: 0 : uno::Reference< XCommandBarControl > xCommandBarControl( m_xEnumeration->nextElement(), uno::UNO_QUERY_THROW );
[ # # ]
58 [ # # ][ # # ]: 0 : if( xCommandBarControl->getType() == office::MsoControlType::msoControlPopup )
[ # # ]
59 : : {
60 [ # # ][ # # ]: 0 : uno::Reference< excel::XMenu > xMenu( new ScVbaMenu( m_xParent, m_xContext, xCommandBarControl ) );
[ # # ]
61 [ # # ]: 0 : return uno::makeAny( xMenu );
62 : : }
63 [ # # ][ # # ]: 0 : else if( xCommandBarControl->getType() == office::MsoControlType::msoControlButton )
[ # # ]
64 : : {
65 [ # # ][ # # ]: 0 : uno::Reference< excel::XMenuItem > xMenuItem( new ScVbaMenuItem( m_xParent, m_xContext, xCommandBarControl ) );
[ # # ]
66 [ # # ]: 0 : return uno::makeAny( xMenuItem );
67 : : }
68 [ # # ][ # # ]: 0 : nextElement();
69 : : }
70 : : else
71 [ # # ]: 0 : throw container::NoSuchElementException();
72 : 0 : return uno::Any();
73 : : }
74 : : };
75 : :
76 [ # # ]: 0 : ScVbaMenuItems::ScVbaMenuItems( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< XCommandBarControls >& xCommandBarControls ) throw ( uno::RuntimeException ) : MenuItems_BASE( xParent, xContext, uno::Reference< container::XIndexAccess>() ), m_xCommandBarControls( xCommandBarControls )
77 : : {
78 : 0 : }
79 : :
80 : : // XEnumerationAccess
81 : : uno::Type SAL_CALL
82 : 0 : ScVbaMenuItems::getElementType() throw ( uno::RuntimeException )
83 : : {
84 : 0 : return excel::XMenuItem::static_type( 0 );
85 : : }
86 : :
87 : : uno::Reference< container::XEnumeration >
88 : 0 : ScVbaMenuItems::createEnumeration() throw ( uno::RuntimeException )
89 : : {
90 [ # # ]: 0 : uno::Reference< container::XEnumerationAccess > xEnumAccess( m_xCommandBarControls, uno::UNO_QUERY_THROW );
91 [ # # ][ # # ]: 0 : return uno::Reference< container::XEnumeration >( new MenuEnumeration( this, mxContext, xEnumAccess->createEnumeration() ) );
[ # # ][ # # ]
[ # # ][ # # ]
92 : : }
93 : :
94 : : uno::Any
95 : 0 : ScVbaMenuItems::createCollectionObject( const uno::Any& aSource )
96 : : {
97 : : // make no sense
98 : 0 : return aSource;
99 : : }
100 : :
101 : : sal_Int32 SAL_CALL
102 : 0 : ScVbaMenuItems::getCount() throw(css::uno::RuntimeException)
103 : : {
104 : : // FIXME: should check if it is a popup menu
105 : 0 : return m_xCommandBarControls->getCount();
106 : : }
107 : :
108 : : // ScVbaCollectionBaseImpl
109 : : uno::Any SAL_CALL
110 : 0 : ScVbaMenuItems::Item( const uno::Any& aIndex, const uno::Any& /*aIndex2*/ ) throw( uno::RuntimeException )
111 : : {
112 [ # # ][ # # ]: 0 : uno::Reference< XCommandBarControl > xCommandBarControl( m_xCommandBarControls->Item( aIndex, uno::Any() ), uno::UNO_QUERY_THROW );
[ # # ]
113 [ # # ][ # # ]: 0 : if( xCommandBarControl->getType() == office::MsoControlType::msoControlPopup )
[ # # ]
114 [ # # ][ # # ]: 0 : return uno::makeAny( uno::Reference< excel::XMenu > ( new ScVbaMenu( this, mxContext, xCommandBarControl ) ) );
[ # # ][ # # ]
[ # # ]
115 [ # # ][ # # ]: 0 : else if( xCommandBarControl->getType() == office::MsoControlType::msoControlButton )
[ # # ]
116 [ # # ][ # # ]: 0 : return uno::makeAny( uno::Reference< excel::XMenuItem > ( new ScVbaMenuItem( this, mxContext, xCommandBarControl ) ) );
[ # # ][ # # ]
[ # # ]
117 [ # # ]: 0 : throw uno::RuntimeException();
118 : : }
119 : :
120 : 0 : uno::Reference< excel::XMenuItem > SAL_CALL ScVbaMenuItems::Add( const rtl::OUString& Caption, const css::uno::Any& OnAction, const css::uno::Any& /*ShortcutKey*/, const css::uno::Any& Before, const css::uno::Any& Restore, const css::uno::Any& /*StatusBar*/, const css::uno::Any& /*HelpFile*/, const css::uno::Any& /*HelpContextID*/ ) throw (css::script::BasicErrorException, css::uno::RuntimeException)
121 : : {
122 : 0 : sal_Int32 nType = office::MsoControlType::msoControlButton;
123 [ # # ][ # # ]: 0 : uno::Reference< XCommandBarControl > xCommandBarControl = m_xCommandBarControls->Add( uno::makeAny( nType ), uno::Any(), uno::Any(), Before, Restore );
[ # # ]
124 [ # # ][ # # ]: 0 : xCommandBarControl->setCaption( Caption );
125 [ # # ]: 0 : if( OnAction.hasValue() )
126 : : {
127 : 0 : rtl::OUString sAction;
128 : 0 : OnAction >>= sAction;
129 [ # # ][ # # ]: 0 : xCommandBarControl->setOnAction( sAction );
130 : : }
131 [ # # ][ # # ]: 0 : return uno::Reference< excel::XMenuItem >( new ScVbaMenuItem( this, mxContext, xCommandBarControl ) );
[ # # ][ # # ]
132 : : }
133 : :
134 : : // XHelperInterface
135 : : rtl::OUString
136 : 0 : ScVbaMenuItems::getServiceImplName()
137 : : {
138 : 0 : return rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("ScVbaMenuItems"));
139 : : }
140 : :
141 : : uno::Sequence<rtl::OUString>
142 : 0 : ScVbaMenuItems::getServiceNames()
143 : : {
144 [ # # ][ # # ]: 0 : static uno::Sequence< rtl::OUString > aServiceNames;
[ # # ][ # # ]
145 [ # # ]: 0 : if ( aServiceNames.getLength() == 0 )
146 : : {
147 : 0 : aServiceNames.realloc( 1 );
148 [ # # ]: 0 : aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.MenuItems" ) );
149 : : }
150 : 0 : return aServiceNames;
151 : : }
152 : :
153 : : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|