strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

#101048# ExecuteBasic(): Check if IDEShell still exists after execution

Browse source
This commit is contained in:
Andreas Bregas 2002-10-30 08:27:01 +00:00
parent a1d0c53d3d
commit 15f5fd1a97
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
basctl/source/basicide/basides2.cxx
View file

@ -2,9 +2,9 @@
*
* $RCSfile: basides2.cxx,v $
*
* $Revision: 1.6 $
* $Revision: 1.7 $
*
* last change: $Author: tbe $ $Date: 2001-09-25 09:10:51 $
* last change: $Author: ab $ $Date: 2002-10-30 09:27:01 $
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
@ -333,6 +333,9 @@ void __EXPORT BasicIDEShell::ShowCursor( FASTBOOL bOn )
((ModulWindow*)pCurWin)->ShowCursor( (BOOL)bOn );
}
// Hack for #101048
sal_Int32 getBasicIDEShellCount( void );
// Nur wenn Basicfenster oben:
void __EXPORT BasicIDEShell::ExecuteBasic( SfxRequest& rReq )
{
@ -340,6 +343,8 @@ void __EXPORT BasicIDEShell::ExecuteBasic( SfxRequest& rReq )
return;
pCurWin->ExecuteCommand( rReq );
CheckWindows();
sal_Int32 nCount = getBasicIDEShellCount();
if( nCount )
CheckWindows();
}