diff options
| author | Tamas Bunth <tamas.bunth@collabora.co.uk> | 2017-09-07 22:00:01 +0200 |
|---|---|---|
| committer | Tamás Bunth <btomi96@gmail.com> | 2017-09-08 09:29:36 +0200 |
| commit | 8e8c789742874ac823e68f6154050c64b6fc5b85 (patch) | |
| tree | 39c3f0bbb622a215c76f1dc73c7ed78ecf420667 /basic | |
| parent | 2e0a25ce2b87d3a4bbf944025fc3720933fb391d (diff) | |
oovbaapi: create XOval and XLine shape types
This is needed in order to make "TypeOf myLine Is Line" or similar
expressions return the expected "true" value.
The implementation of the basic interpreter of TypeOf uses XTypeProvider
to determine the type of an object by getting the last part of the type
name. E.g. "ooo:vba::msforms::XLine" is determined as a "Line". That's
why I created the XLine and XOval blank classes.
TypeOf doc:
https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/operators/typeof-operator
Change-Id: Ia49cc92d672e30d0126f02d61a55a956ac1425f0
Reviewed-on: https://gerrit.libreoffice.org/42083
Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Tamás Bunth <btomi96@gmail.com>
Diffstat (limited to 'basic')
| -rw-r--r-- | basic/source/runtime/runtime.cxx | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/basic/source/runtime/runtime.cxx b/basic/source/runtime/runtime.cxx index 5d9764fa7581..032e4d85128b 100644 --- a/basic/source/runtime/runtime.cxx +++ b/basic/source/runtime/runtime.cxx @@ -3174,7 +3174,7 @@ bool SbiRuntime::checkClass_Impl( const SbxVariableRef& refVal, t = pProp->getRealType(); } } - if( t == SbxOBJECT ) + if( t == SbxOBJECT || bVBAEnabled ) { SbxObject* pObj = dynamic_cast<SbxObject*>(pVal); if (!pObj) |