summaryrefslogtreecommitdiff
path: root/wizards/source/access2base/Module.xba
diff options
context:
space:
mode:
authorJean-Pierre Ledure <jp@ledure.be>2019-07-13 16:19:17 +0200
committerJean-Pierre Ledure <jp@ledure.be>2019-07-13 16:22:32 +0200
commit15fec4ee1c07b7c2b234384654ca3ee730acc2c8 (patch)
treed053260ace1ac15e11f53519c0bb44ea6e5baa35 /wizards/source/access2base/Module.xba
parent35463d886e15d13a81bce36610140e40ae742416 (diff)
Access2Base - Set Parent property in all classes
To get faster access to parents from controls Top classes (form, dialog and commandbar) should return Parent = Nothing
Diffstat (limited to 'wizards/source/access2base/Module.xba')
-rw-r--r--wizards/source/access2base/Module.xba2
1 files changed, 2 insertions, 0 deletions
diff --git a/wizards/source/access2base/Module.xba b/wizards/source/access2base/Module.xba
index 34d7c244cb92..d3095d6459f5 100644
--- a/wizards/source/access2base/Module.xba
+++ b/wizards/source/access2base/Module.xba
@@ -17,6 +17,7 @@ REM ----------------------------------------------------------------------------
Private _Type As String &apos; Must be MODULE
Private _This As Object &apos; Workaround for absence of This builtin function
+Private _Parent As Object
Private _Name As String
Private _Library As Object &apos; com.sun.star.container.XNameAccess
Private _LibraryName As String
@@ -36,6 +37,7 @@ REM ----------------------------------------------------------------------------
Private Sub Class_Initialize()
_Type = OBJMODULE
Set _This = Nothing
+ Set _Parent = Nothing
_Name = &quot;&quot;
Set _Library = Nothing
_LibraryName = &quot;&quot;