diff options
Diffstat (limited to 'wizards/source/access2base/CommandBar.xba')
| -rw-r--r-- | wizards/source/access2base/CommandBar.xba | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/wizards/source/access2base/CommandBar.xba b/wizards/source/access2base/CommandBar.xba index 69e2e97efc74..c30f696fb7d5 100644 --- a/wizards/source/access2base/CommandBar.xba +++ b/wizards/source/access2base/CommandBar.xba @@ -17,6 +17,7 @@ REM ---------------------------------------------------------------------------- Private _Type As String ' Must be COMMANDBAR Private _This As Object ' Workaround for absence of This builtin function +Private _Parent As Object Private _Name As String Private _ResourceURL As String Private _Window As Object ' com.sun.star.frame.XFrame @@ -31,6 +32,7 @@ REM ---------------------------------------------------------------------------- Private Sub Class_Initialize() _Type = OBJCOMMANDBAR Set _This = Nothing + Set _Parent = Nothing _Name = "" _ResourceURL = "" Set _Window = Nothing @@ -75,6 +77,11 @@ Property Get ObjectType() As String End Property ' ObjectType (get) REM ----------------------------------------------------------------------------------------------------------------------- +Public Function Parent() As Object + Parent = _Parent +End Function ' Parent (get) V6.4.0 + +REM ----------------------------------------------------------------------------------------------------------------------- Public Function Properties(ByVal Optional pvIndex As Variant) As Variant ' Return ' a Collection object if pvIndex absent @@ -151,7 +158,8 @@ Dim oObject As Object If pvIndex = iItemsCount - 1 Then Set oObject = New CommandBarControl With oObject - ._This = oObject + Set ._This = oObject + Set ._Parent = _This ._ParentCommandBarName = _Name ._ParentCommandBar = oToolbar ._ParentBuiltin = ( _BarBuiltin = 1 ) |