stub implementation(s) for Application EnableCancelKey & International

Change-Id: I810897b3981390fc39e59d9c8a4c0095547a407a

oovbaapi/ooo/vba/excel/XApplication.idl

@@ -56,6 +56,7 @@ interface XApplication
     [attribute] any StatusBar;
     [attribute] long Cursor;
     [attribute] boolean EnableEvents;
+    [attribute] boolean EnableCancelKey;
     [attribute] boolean DisplayFullScreen;
     [attribute] boolean DisplayScrollBars;
     [attribute] boolean DisplayExcel4Menus;
@@ -70,7 +71,7 @@ interface XApplication
 
     string getDefaultFilePath() raises(com::sun::star::script::BasicErrorException);
 
-    //any CommandBars( [in] any Index );
+    any International( [in] long Index );
     any Workbooks( [in] any Index );
     any Worksheets( [in] any Index );
     any Windows( [in] any Index );

sc/source/ui/vba/vbaapplication.cxx

@@ -117,6 +117,7 @@ struct ScVbaAppSettings
     sal_Bool mbExcel4Menus;
     sal_Bool mbDisplayNoteIndicator;
     sal_Bool mbShowWindowsInTaskbar;
+    sal_Bool mbEnableCancelKey;
     explicit ScVbaAppSettings();
 };
 
@@ -126,7 +127,8 @@ ScVbaAppSettings::ScVbaAppSettings() :
     mbEnableEvents( sal_True ),
     mbExcel4Menus( sal_False ),
     mbDisplayNoteIndicator( sal_True ),
-    mbShowWindowsInTaskbar( sal_True )
+    mbShowWindowsInTaskbar( sal_True ),
+    mbEnableCancelKey( sal_False )
 {
 }
 
@@ -324,6 +326,15 @@ ScVbaApplication::getActiveCell() throw (uno::RuntimeException )
     return new ScVbaRange( excel::getUnoSheetModuleObj( xRange ), mxContext, xRange->getCellRangeByPosition( nCursorX, nCursorY, nCursorX, nCursorY ) );
 }
 
+uno::Any SAL_CALL
+ScVbaApplication::International( sal_Int32 Index ) throw (uno::RuntimeException)
+{
+    // complete stub for now
+    // #TODO flesh out some of the Indices we could handle
+    uno::Any aRet;
+    return aRet;
+}
+
 uno::Any SAL_CALL
 ScVbaApplication::Workbooks( const uno::Any& aIndex ) throw (uno::RuntimeException)
 {
@@ -742,6 +753,19 @@ ScVbaApplication::getEnableEvents() throw (uno::RuntimeException)
     return mrAppSettings.mbEnableEvents;
 }
 
+void SAL_CALL
+ScVbaApplication::setEnableCancelKey(sal_Bool bEnable) throw (uno::RuntimeException)
+{
+    // Stub, does nothing
+    mrAppSettings.mbEnableCancelKey = bEnable;
+}
+
+sal_Bool SAL_CALL
+ScVbaApplication::getEnableCancelKey() throw (uno::RuntimeException)
+{
+    return mrAppSettings.mbEnableCancelKey;
+}
+
 sal_Bool SAL_CALL
 ScVbaApplication::getDisplayFullScreen()  throw (uno::RuntimeException)
 {

sc/source/ui/vba/vbaapplication.hxx

@@ -85,6 +85,7 @@ public:
 
     virtual css::uno::Reference< ov::XAssistant > SAL_CALL getAssistant() throw (css::uno::RuntimeException);
     virtual css::uno::Reference< ov::excel::XWorkbook > SAL_CALL getThisWorkbook() throw (css::uno::RuntimeException);
+    virtual css::uno::Any SAL_CALL International( sal_Int32 Index ) throw (css::uno::RuntimeException);
     virtual css::uno::Any SAL_CALL Workbooks( const css::uno::Any& aIndex ) throw (css::uno::RuntimeException);
     virtual css::uno::Any SAL_CALL Worksheets( const css::uno::Any& aIndex ) throw (css::uno::RuntimeException);
     virtual css::uno::Any SAL_CALL WorksheetFunction( ) throw (css::uno::RuntimeException);
@@ -99,6 +100,8 @@ public:
     virtual void SAL_CALL OnKey( const OUString& Key, const css::uno::Any& Procedure ) throw (css::uno::RuntimeException);
     virtual sal_Bool SAL_CALL getEnableEvents() throw (css::uno::RuntimeException);
     virtual void SAL_CALL setEnableEvents( sal_Bool bEnable ) throw (css::uno::RuntimeException);
+    virtual sal_Bool SAL_CALL getEnableCancelKey() throw (css::uno::RuntimeException);
+    virtual void SAL_CALL setEnableCancelKey( sal_Bool bEnable ) throw (css::uno::RuntimeException);
 
     virtual sal_Bool SAL_CALL getDisplayFullScreen() throw (css::uno::RuntimeException);
     virtual void SAL_CALL setDisplayFullScreen( sal_Bool bSet ) throw (css::uno::RuntimeException);