diff options
| author | Pascal Junck <pjunck@openoffice.org> | 2004-11-02 11:00:08 +0000 |
|---|---|---|
| committer | Pascal Junck <pjunck@openoffice.org> | 2004-11-02 11:00:08 +0000 |
| commit | 4c5169d924da8dfed6739d9d8d2c774c28d0b24b (patch) | |
| tree | 2f8d971deeda55578288628f4fd31ad0dc2d3a36 /basctl/source/basicide/basides1.cxx | |
| parent | 28cfd1f82d6f474da8f66c92cd338f9fa53e71af (diff) | |
INTEGRATION: CWS ab11clonepp4 (1.33.6); FILE MERGED
2004/10/19 09:51:17 ab 1.33.6.2: RESYNC: (1.33-1.34); FILE MERGED
2004/10/15 08:55:09 ab 1.33.6.1: #118083# Class support PP4 -> SO 8
Diffstat (limited to 'basctl/source/basicide/basides1.cxx')
| -rw-r--r-- | basctl/source/basicide/basides1.cxx | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/basctl/source/basicide/basides1.cxx b/basctl/source/basicide/basides1.cxx index 75913e94192d..758be37515c3 100644 --- a/basctl/source/basicide/basides1.cxx +++ b/basctl/source/basicide/basides1.cxx @@ -2,9 +2,9 @@ * * $RCSfile: basides1.cxx,v $ * - * $Revision: 1.34 $ + * $Revision: 1.35 $ * - * last change: $Author: rt $ $Date: 2004-09-20 10:00:10 $ + * last change: $Author: pjunck $ $Date: 2004-11-02 12:00:08 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses @@ -1225,6 +1225,10 @@ ModulWindow* BasicIDEShell::ShowActiveModuleWindow( StarBASIC* pBasic ) SetCurLib( 0, String(), false ); SbModule* pActiveModule = StarBASIC::GetActiveModule(); + SbClassModuleObject* pClassModuleObject = PTR_CAST(SbClassModuleObject,pActiveModule); + if( pClassModuleObject != NULL ) + pActiveModule = pClassModuleObject->getClassModule(); + DBG_ASSERT( pActiveModule, "Kein aktives Modul im ErrorHdl?!" ); if ( pActiveModule ) { |