1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski *
3*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file
5*b1cdbd2cSJim Jagielski * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file
7*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski *
11*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski *
13*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the
17*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski * under the License.
19*b1cdbd2cSJim Jagielski *
20*b1cdbd2cSJim Jagielski *************************************************************/
21*b1cdbd2cSJim Jagielski
22*b1cdbd2cSJim Jagielski #include "vbatable.hxx"
23*b1cdbd2cSJim Jagielski #include "vbarange.hxx"
24*b1cdbd2cSJim Jagielski #include <com/sun/star/frame/XModel.hpp>
25*b1cdbd2cSJim Jagielski #include <com/sun/star/text/XTextViewCursorSupplier.hpp>
26*b1cdbd2cSJim Jagielski #include <com/sun/star/view/XSelectionSupplier.hpp>
27*b1cdbd2cSJim Jagielski #include <com/sun/star/text/XTextTable.hpp>
28*b1cdbd2cSJim Jagielski #include <com/sun/star/text/XTextTablesSupplier.hpp>
29*b1cdbd2cSJim Jagielski #include <com/sun/star/table/XTableRows.hpp>
30*b1cdbd2cSJim Jagielski #include <com/sun/star/container/XNamed.hpp>
31*b1cdbd2cSJim Jagielski #include "vbaborders.hxx"
32*b1cdbd2cSJim Jagielski #include "vbapalette.hxx"
33*b1cdbd2cSJim Jagielski
34*b1cdbd2cSJim Jagielski using namespace ::ooo::vba;
35*b1cdbd2cSJim Jagielski using namespace ::com::sun::star;
36*b1cdbd2cSJim Jagielski
SwVbaTable(const uno::Reference<ooo::vba::XHelperInterface> & rParent,const uno::Reference<uno::XComponentContext> & rContext,const css::uno::Reference<css::text::XTextDocument> & rDocument,const uno::Reference<css::text::XTextTable> & xTextTable)37*b1cdbd2cSJim Jagielski SwVbaTable::SwVbaTable( const uno::Reference< ooo::vba::XHelperInterface >& rParent, const uno::Reference< uno::XComponentContext >& rContext, const css::uno::Reference< css::text::XTextDocument >& rDocument, const uno::Reference< css::text::XTextTable >& xTextTable) throw ( uno::RuntimeException ) : SwVbaTable_BASE( rParent, rContext ), mxTextDocument( rDocument )
38*b1cdbd2cSJim Jagielski {
39*b1cdbd2cSJim Jagielski mxTextTable.set( xTextTable, uno::UNO_QUERY_THROW );
40*b1cdbd2cSJim Jagielski }
41*b1cdbd2cSJim Jagielski
42*b1cdbd2cSJim Jagielski uno::Reference< word::XRange > SAL_CALL
Range()43*b1cdbd2cSJim Jagielski SwVbaTable::Range( ) throw (script::BasicErrorException, uno::RuntimeException)
44*b1cdbd2cSJim Jagielski {
45*b1cdbd2cSJim Jagielski return new SwVbaRange( mxParent, mxContext, mxTextDocument, mxTextTable->getAnchor() );
46*b1cdbd2cSJim Jagielski }
47*b1cdbd2cSJim Jagielski
48*b1cdbd2cSJim Jagielski void SAL_CALL
Select()49*b1cdbd2cSJim Jagielski SwVbaTable::Select( ) throw (script::BasicErrorException, uno::RuntimeException)
50*b1cdbd2cSJim Jagielski {
51*b1cdbd2cSJim Jagielski uno::Reference< frame::XModel > xModel( mxTextDocument, uno::UNO_QUERY_THROW );
52*b1cdbd2cSJim Jagielski uno::Reference< frame::XController > xController = xModel->getCurrentController();
53*b1cdbd2cSJim Jagielski
54*b1cdbd2cSJim Jagielski uno::Reference< text::XTextViewCursorSupplier > xViewCursorSupplier( xController, uno::UNO_QUERY_THROW );
55*b1cdbd2cSJim Jagielski uno::Reference< view::XSelectionSupplier > xSelectionSupplier( xController, uno::UNO_QUERY_THROW );
56*b1cdbd2cSJim Jagielski
57*b1cdbd2cSJim Jagielski // set the view cursor to the start of the table.
58*b1cdbd2cSJim Jagielski xSelectionSupplier->select( uno::makeAny( mxTextTable ) );
59*b1cdbd2cSJim Jagielski
60*b1cdbd2cSJim Jagielski // go to the end of the table and span the view
61*b1cdbd2cSJim Jagielski uno::Reference< text::XTextViewCursor > xCursor = xViewCursorSupplier->getViewCursor();
62*b1cdbd2cSJim Jagielski xCursor->gotoEnd(sal_True);
63*b1cdbd2cSJim Jagielski
64*b1cdbd2cSJim Jagielski }
65*b1cdbd2cSJim Jagielski
66*b1cdbd2cSJim Jagielski void SAL_CALL
Delete()67*b1cdbd2cSJim Jagielski SwVbaTable::Delete( ) throw (script::BasicErrorException, uno::RuntimeException)
68*b1cdbd2cSJim Jagielski {
69*b1cdbd2cSJim Jagielski uno::Reference< table::XTableRows > xRows( mxTextTable->getRows() );
70*b1cdbd2cSJim Jagielski xRows->removeByIndex( 0, xRows->getCount() );
71*b1cdbd2cSJim Jagielski }
72*b1cdbd2cSJim Jagielski
73*b1cdbd2cSJim Jagielski uno::Reference< word::XRange > SAL_CALL
ConvertToText(const uno::Any &,const uno::Any &)74*b1cdbd2cSJim Jagielski SwVbaTable::ConvertToText( const uno::Any& /*Separator*/, const uno::Any& /*NestedTables*/ ) throw (script::BasicErrorException, uno::RuntimeException)
75*b1cdbd2cSJim Jagielski {
76*b1cdbd2cSJim Jagielski // #FIXME the helper api uses the dreaded dispatch mechanism, holding off
77*b1cdbd2cSJim Jagielski // implementation while I look for alternative solution
78*b1cdbd2cSJim Jagielski throw uno::RuntimeException();
79*b1cdbd2cSJim Jagielski }
80*b1cdbd2cSJim Jagielski
81*b1cdbd2cSJim Jagielski rtl::OUString SAL_CALL
getName()82*b1cdbd2cSJim Jagielski SwVbaTable::getName() throw (uno::RuntimeException)
83*b1cdbd2cSJim Jagielski {
84*b1cdbd2cSJim Jagielski uno::Reference< container::XNamed > xNamed( mxTextTable, uno::UNO_QUERY_THROW );
85*b1cdbd2cSJim Jagielski return xNamed->getName();
86*b1cdbd2cSJim Jagielski }
87*b1cdbd2cSJim Jagielski
88*b1cdbd2cSJim Jagielski uno::Any SAL_CALL
Borders(const uno::Any & index)89*b1cdbd2cSJim Jagielski SwVbaTable::Borders( const uno::Any& index ) throw (uno::RuntimeException)
90*b1cdbd2cSJim Jagielski {
91*b1cdbd2cSJim Jagielski uno::Reference< table::XCellRange > aCellRange( mxTextTable, uno::UNO_QUERY_THROW );
92*b1cdbd2cSJim Jagielski VbaPalette aPalette;
93*b1cdbd2cSJim Jagielski uno::Reference< XCollection > xCol( new SwVbaBorders( this, mxContext, aCellRange, aPalette ) );
94*b1cdbd2cSJim Jagielski if ( index.hasValue() )
95*b1cdbd2cSJim Jagielski return xCol->Item( index, uno::Any() );
96*b1cdbd2cSJim Jagielski return uno::makeAny( xCol );
97*b1cdbd2cSJim Jagielski }
98*b1cdbd2cSJim Jagielski
99*b1cdbd2cSJim Jagielski // XHelperInterface
100*b1cdbd2cSJim Jagielski rtl::OUString&
getServiceImplName()101*b1cdbd2cSJim Jagielski SwVbaTable::getServiceImplName()
102*b1cdbd2cSJim Jagielski {
103*b1cdbd2cSJim Jagielski static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("SwVbaTable") );
104*b1cdbd2cSJim Jagielski return sImplName;
105*b1cdbd2cSJim Jagielski }
106*b1cdbd2cSJim Jagielski
107*b1cdbd2cSJim Jagielski uno::Sequence<rtl::OUString>
getServiceNames()108*b1cdbd2cSJim Jagielski SwVbaTable::getServiceNames()
109*b1cdbd2cSJim Jagielski {
110*b1cdbd2cSJim Jagielski static uno::Sequence< rtl::OUString > aServiceNames;
111*b1cdbd2cSJim Jagielski if ( aServiceNames.getLength() == 0 )
112*b1cdbd2cSJim Jagielski {
113*b1cdbd2cSJim Jagielski aServiceNames.realloc( 1 );
114*b1cdbd2cSJim Jagielski aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.word.Table" ) );
115*b1cdbd2cSJim Jagielski }
116*b1cdbd2cSJim Jagielski return aServiceNames;
117*b1cdbd2cSJim Jagielski }
118*b1cdbd2cSJim Jagielski
119