[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 <jp at 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		'	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, "" , com.sun.star.system.SystemShellExecuteFlags.DEFAULTS)
 
 End Sub				'	_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	'	_PropValuesToStr V1.3.0
-</script:module>
+</script:module>
\ No newline at end of file