From 8e8c789742874ac823e68f6154050c64b6fc5b85 Mon Sep 17 00:00:00 2001 From: Tamas Bunth Date: Thu, 7 Sep 2017 22:00:01 +0200 Subject: oovbaapi: create XOval and XLine shape types MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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 Reviewed-by: Tamás Bunth --- basic/source/runtime/runtime.cxx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'basic') 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(pVal); if (!pObj) -- cgit