From b0465391ff56c5a87b5db2147eff358ebf8d73ed Mon Sep 17 00:00:00 2001 From: Noel Power Date: Wed, 23 Sep 2009 11:48:33 +0000 Subject: oops, remove last changes ( they are not to do with Application:Quit ) or at least not directly --- basic/source/classes/sbxmod.cxx | 17 ----------------- 1 file changed, 17 deletions(-) (limited to 'basic') diff --git a/basic/source/classes/sbxmod.cxx b/basic/source/classes/sbxmod.cxx index dd5600ed35a0..889426d68d4c 100644 --- a/basic/source/classes/sbxmod.cxx +++ b/basic/source/classes/sbxmod.cxx @@ -706,22 +706,6 @@ USHORT SbModule::Run( SbMethod* pMeth ) delete pRt; pMOD = pOldMod; - if ( pINST->nCallLvl == 0 && IsVBACompat() ) - { - // VBA always ensure screenupdating is enabled after completing - StarBASIC* pBasic = PTR_CAST(StarBASIC,GetParent()); - if ( pBasic && pBasic->IsDocBasic() ) - { - uno::Any aUnoVar; - ::rtl::OUString sVarName( ::rtl::OUString::createFromAscii( "ThisComponent" ) ); - SbUnoObject* pGlobs = dynamic_cast( pBasic->Find( sVarName, SbxCLASS_DONTCARE ) ); - if ( pGlobs ) - aUnoVar = pGlobs->getUnoAny(); - uno::Reference< frame::XModel > xModel( aUnoVar, uno::UNO_QUERY); - if ( xModel.is() ) - xModel->unlockControllers(); - } - } if( bDelInst ) { // #57841 Uno-Objekte, die in RTL-Funktionen gehalten werden, @@ -746,7 +730,6 @@ USHORT SbModule::Run( SbMethod* pMeth ) pINST->nCallLvl--; // Call-Level wieder runter StarBASIC::FatalError( SbERR_STACK_OVERFLOW ); } - if( bDelInst ) { // #57841 Uno-Objekte, die in RTL-Funktionen gehalten werden, -- cgit