diff options
author | Jean-Pierre Ledure <jp@ledure.be> | 2019-06-13 14:42:49 +0200 |
---|---|---|
committer | Jean-Pierre Ledure <jp@ledure.be> | 2019-06-13 14:46:27 +0200 |
commit | 28dcdd5f6c2204718519e215d2ef5466743536c7 (patch) | |
tree | 45cde6c4ea79d84dd68ffb6675cb3003286c3640 /wizards/source/access2base/Module.xba | |
parent | 5c7fa1518e9ca8921d2d6c2a4b09a8a6fb938804 (diff) |
Access2Base - Robustness changes
Addition of _This address in every Basic object
Default parameters reviewed when ambiguous
Typo's corrections
Diffstat (limited to 'wizards/source/access2base/Module.xba')
-rw-r--r-- | wizards/source/access2base/Module.xba | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/wizards/source/access2base/Module.xba b/wizards/source/access2base/Module.xba index e2f60b79dfb6..383d792a4f0f 100644 --- a/wizards/source/access2base/Module.xba +++ b/wizards/source/access2base/Module.xba @@ -16,6 +16,7 @@ REM --- CLASS ROOT FIELDS --- REM ----------------------------------------------------------------------------------------------------------------------- Private _Type As String ' Must be MODULE +Private _This As Object ' Workaround for absence of This builtin function Private _Name As String Private _Library As Object ' com.sun.star.container.XNameAccess Private _LibraryName As String @@ -34,6 +35,7 @@ REM --- CONSTRUCTORS / DESTRUCTORS --- REM ----------------------------------------------------------------------------------------------------------------------- Private Sub Class_Initialize() _Type = OBJMODULE + Set _This = Nothing _Name = "" Set _Library = Nothing _LibraryName = "" |