diff options
Diffstat (limited to 'basctl')
| -rw-r--r-- | basctl/source/basicide/basobj2.cxx | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/basctl/source/basicide/basobj2.cxx b/basctl/source/basicide/basobj2.cxx index 20fd764a1a4e..05c3caf877b8 100644 --- a/basctl/source/basicide/basobj2.cxx +++ b/basctl/source/basicide/basobj2.cxx @@ -2,9 +2,9 @@ * * $RCSfile: basobj2.cxx,v $ * - * $Revision: 1.18 $ + * $Revision: 1.19 $ * - * last change: $Author: tbe $ $Date: 2001-11-14 22:43:37 $ + * last change: $Author: tbe $ $Date: 2001-12-12 18:11:43 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses @@ -673,12 +673,10 @@ void BasicIDE::UpdateModule( SfxObjectShell* pShell, const String& rLibName, con if ( pShell ) { // document basic + aLocation = String::CreateFromAscii("document"); + SfxObjectShell* pCurrShell = SfxObjectShell::Current(); - if ( pShell == pCurrShell ) - { - aLocation = String::CreateFromAscii("document"); - } - else + if ( !bExecute && pShell != pCurrShell ) { // error bError = TRUE; |