diff options
| author | Rüdiger Timm <rt@openoffice.org> | 2006-05-05 09:13:10 +0000 |
|---|---|---|
| committer | Rüdiger Timm <rt@openoffice.org> | 2006-05-05 09:13:10 +0000 |
| commit | acb9db080f3140b7c13d81edf395cfd8bb52c961 (patch) | |
| tree | eb51f1eba038315444472d787818d438d8121d38 /basic | |
| parent | 76801aad25ae1772c9b585050d53f4ce27aa409b (diff) | |
INTEGRATION: CWS npower1 (1.26.36); FILE MERGED
2006/04/20 17:31:08 npower 1.26.36.3: #i64396 some code cleanup
2006/04/14 11:03:18 npower 1.26.36.2: #i64394 allow Array Function to honour Option Base setting
2006/04/12 11:25:09 npower 1.26.36.1: #i64317#, #i64315# changes to add new option 'VBASupport' & uno->basic multi-dim array support
Diffstat (limited to 'basic')
| -rw-r--r-- | basic/source/runtime/runtime.cxx | 23 |
1 files changed, 20 insertions, 3 deletions
diff --git a/basic/source/runtime/runtime.cxx b/basic/source/runtime/runtime.cxx index e78150a77a8f..25ef562a08de 100644 --- a/basic/source/runtime/runtime.cxx +++ b/basic/source/runtime/runtime.cxx @@ -4,9 +4,9 @@ * * $RCSfile: runtime.cxx,v $ * - * $Revision: 1.26 $ + * $Revision: 1.27 $ * - * last change: $Author: rt $ $Date: 2005-12-14 14:36:16 $ + * last change: $Author: rt $ $Date: 2006-05-05 10:13:10 $ * * The Contents of this file are made available subject to * the terms of GNU Lesser General Public License Version 2.1. @@ -67,6 +67,14 @@ // Makro MEMBER() #include <macfix.hxx> +bool SbiRuntime::isVBAEnabled() +{ + bool result = false; + SbiInstance* pInst = pINST; + if ( pInst && pINST->pRun ) + result = pInst->pRun->GetImageFlag( SBIMG_VBASUPPORT ); + return result; +} // #91147 Global reschedule flag static BOOL bStaticGlobalEnableReschedule = TRUE; @@ -1116,4 +1124,13 @@ void SbiRuntime::DllCall Error( nErr ); PushVar( pRes ); } - +USHORT +SbiRuntime::GetImageFlag( USHORT n ) const +{ + return pImg->GetFlag( n ); +} +USHORT +SbiRuntime::GetBase() +{ + return pImg->GetBase(); +} |