[Libreoffice-commits] core.git: wizards/source

[Jean-Pierre Ledure]

 wizards/source/access2base/CommandBar.xba   |    1 +
 wizards/source/access2base/DoCmd.xba        |    2 +-
 wizards/source/access2base/UtilProperty.xba |    2 +-
 3 files changed, 3 insertions(+), 2 deletions(-)

New commits:
commit 379737991f0fe26dca74d72aa32bd94fe55402d3
Author: Jean-Pierre Ledure <j...@ledure.be>
Date:   Sat Jul 25 12:56:38 2015 +0200

    Access2Base - Correct CommandBarControls collection
    
    Make the Item property of the CommandBarControls collection work correctly
    thanks to a complete initialization of the object.
    
    Change-Id: I714d1034d69be197f68702b0e2d7b21ff64ffff8

diff --git a/wizards/source/access2base/CommandBar.xba 
b/wizards/source/access2base/CommandBar.xba
index 93bc884..ed7955d 100644
--- a/wizards/source/access2base/CommandBar.xba
+++ b/wizards/source/access2base/CommandBar.xba
@@ -170,6 +170,7 @@ Dim oObject As Object
                                Set oObject = New Collect
                                oObject._CollType = COLLCOMMANDBARCONTROLS
                                oObject._ParentType = OBJCOMMANDBAR
+                               oObject._ParentName = _Name
                                oObject._Count = iItemsCount
                        Case Else               &apos;  pvIndex is numeric
                                Goto Trace_IndexError
diff --git a/wizards/source/access2base/DoCmd.xba 
b/wizards/source/access2base/DoCmd.xba
index 5415655..261aa26 100644
--- a/wizards/source/access2base/DoCmd.xba
+++ b/wizards/source/access2base/DoCmd.xba
@@ -2466,4 +2466,4 @@ Dim oShell As Object
        oShell.execute(sCommand, &quot;&quot; , 
com.sun.star.system.SystemShellExecuteFlags.DEFAULTS)
 
 End Sub                                &apos;  _ShellExecute                   
V0.8.5
-</script:module>
+</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/UtilProperty.xba 
b/wizards/source/access2base/UtilProperty.xba
index 4f96ab8..b265550 100644
--- a/wizards/source/access2base/UtilProperty.xba
+++ b/wizards/source/access2base/UtilProperty.xba
@@ -180,4 +180,4 @@ Dim sName As String, vValue As Variant
        _PropValuesToStr() = sResult
 
 End Function   &apos;  _PropValuesToStr V1.3.0
-</script:module>
+</script:module>
\ No newline at end of file
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
http://lists.freedesktop.org/mailman/listinfo/libreoffice-commits