mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

implement Application.Undo

Browse Source 
Change-Id: Ibba3c5e2c617daea70fb75b3235636620a46f9ff
This commit is contained in:
Noel Power
2013-05-03 15:32:29 +01:00
parent 894a0348dc
commit c087feeefb
3 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
oovbaapi/ooo/vba/excel/XApplication.idl
View File

@@ -89,6 +89,7 @@ interface XApplication
void Volatile([in] any Volatile);
any Caller( [in] any Index );
any MenuBars( [in] any aIndex );
void Undo();
};
}; }; };

9
sc/source/ui/vba/vbaapplication.cxx
View File

@@ -1309,6 +1309,15 @@ void SAL_CALL ScVbaApplication::OnKey( const OUString& Key, const uno::Any& Proc
}
}
void SAL_CALL ScVbaApplication::Undo() throw (uno::RuntimeException)
{
uno::Reference< frame::XModel > xModel( getThisExcelDoc( mxContext ), uno::UNO_SET_THROW );
ScTabViewShell* pViewShell = excel::getBestViewShell( xModel );
if ( pViewShell )
dispatchExecute( pViewShell, SID_UNDO );
}
OUString
ScVbaApplication::getServiceImplName()
{

1
sc/source/ui/vba/vbaapplication.hxx
View File

@@ -124,6 +124,7 @@ public:
virtual css::uno::Any SAL_CALL Caller( const css::uno::Any& aIndex ) throw (css::uno::RuntimeException);
virtual css::uno::Any SAL_CALL GetOpenFilename( const css::uno::Any& rFileFilter, const css::uno::Any& rFilterIndex, const css::uno::Any& rTitle, const css::uno::Any& rButtonText, const css::uno::Any& rMultiSelect ) throw (css::uno::RuntimeException);
virtual css::uno::Any SAL_CALL GetSaveAsFilename( const css::uno::Any& rInitialFileName, const css::uno::Any& rFileFilter, const css::uno::Any& rFilterIndex, const css::uno::Any& rTitle, const css::uno::Any& rButtonText ) throw (css::uno::RuntimeException);
virtual void Undo() throw (css::uno::RuntimeException);
// XHelperInterface
virtual OUString getServiceImplName();
virtual css::uno::Sequence<OUString> getServiceNames();