diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2014-08-23 12:12:05 +0200 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2014-08-23 12:16:53 +0200 |
| commit | 9e8b930b136b5e6b74aea92863dc9fb2dfd97e9f (patch) | |
| tree | aa357c8c7fe8f9c1465dbc8017e5cc6c3a719c44 /wizards/source/access2base/OptionGroup.xba | |
| parent | 552f139d2a4785882d68016cbdf2f630c69f6300 (diff) | |
Dispose() method for all objects
An implicit (Terminate_Class) and an explicit (Dispose) method have been created
to stimulate better memory management.
Change-Id: I240e5117db6bf0d1fcf268e3ddf6d67e0bc1b8eb
Diffstat (limited to 'wizards/source/access2base/OptionGroup.xba')
| -rw-r--r-- | wizards/source/access2base/OptionGroup.xba | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/wizards/source/access2base/OptionGroup.xba b/wizards/source/access2base/OptionGroup.xba index ab0993d2ec17..7b8e4a78503c 100644 --- a/wizards/source/access2base/OptionGroup.xba +++ b/wizards/source/access2base/OptionGroup.xba @@ -40,7 +40,15 @@ Private Sub Class_Initialize() End Sub ' Constructor REM ----------------------------------------------------------------------------------------------------------------------- -'Private Sub Class_Terminate() +Private Sub Class_Terminate() + On Local Error Resume Next + Call Class_Initialize() +End Sub ' Destructor + +REM ----------------------------------------------------------------------------------------------------------------------- +Public Sub Dispose() + Call Class_Terminate() +End Sub ' Explicit destructor REM ----------------------------------------------------------------------------------------------------------------------- REM --- CLASS GET/LET/SET PROPERTIES --- |