diff options
| author | Andreas Bregas <ab@openoffice.org> | 2001-07-03 09:46:50 +0000 |
|---|---|---|
| committer | Andreas Bregas <ab@openoffice.org> | 2001-07-03 09:46:50 +0000 |
| commit | 5162410edde5762ff73dbc733481a884108db1bc (patch) | |
| tree | ee194740b0a11fd3c53f720a57929cce782cd686 /basic/source | |
| parent | 1f2c0549a5817819f16df90359904155502fe21e (diff) | |
#88042# ClearAllModuleVars(): No deletion of vars in child basics
Diffstat (limited to 'basic/source')
| -rw-r--r-- | basic/source/classes/sbxmod.cxx | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/basic/source/classes/sbxmod.cxx b/basic/source/classes/sbxmod.cxx index b439303cdf62..6e2d47ca0c83 100644 --- a/basic/source/classes/sbxmod.cxx +++ b/basic/source/classes/sbxmod.cxx @@ -2,9 +2,9 @@ * * $RCSfile: sbxmod.cxx,v $ * - * $Revision: 1.2 $ + * $Revision: 1.3 $ * - * last change: $Author: ab $ $Date: 2000-10-10 14:38:53 $ + * last change: $Author: ab $ $Date: 2001-07-03 10:46:50 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses @@ -755,6 +755,8 @@ void StarBASIC::ClearAllModuleVars( void ) if( pModule->pImage && pModule->pImage->bInit ) pModule->ClearPrivateVars(); } + + /* #88042 This code can delete already used public vars during runtime! // Alle Objekte ueberpruefen, ob es sich um ein Basic handelt // Wenn ja, auch dort initialisieren for ( USHORT nObj = 0; nObj < pObjs->Count(); nObj++ ) @@ -764,7 +766,7 @@ void StarBASIC::ClearAllModuleVars( void ) if( pBasic ) pBasic->ClearAllModuleVars(); } - + */ } // Ausfuehren des Init-Codes aller Module |