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

[Jean-Pierre Ledure]

 wizards/source/access2base/DataDef.xba   |    9 +++++++++
 wizards/source/access2base/Field.xba     |    9 +++++++++
 wizards/source/access2base/Recordset.xba |    9 +++++++++
 3 files changed, 27 insertions(+)

New commits:
commit c3fe2934ffc1d3c14c19bcb758d125a5d6df783f
Author: Jean-Pierre Ledure <jp at ledure.be>
Date:   Sun May 25 18:46:57 2014 +0200

    Access2Base - setProperty erroneously omitted
    
    Change-Id: I5d2a1b37d80137e6b8fd080d8c2d73372ad0512c
    Reviewed-on: https://gerrit.libreoffice.org/9479
    Reviewed-by: Lionel Elie Mamane <lionel at mamane.lu>
    Tested-by: Lionel Elie Mamane <lionel at mamane.lu>

diff --git a/wizards/source/access2base/DataDef.xba b/wizards/source/access2base/DataDef.xba
index 4236548..061a7c7 100644
--- a/wizards/source/access2base/DataDef.xba
+++ b/wizards/source/access2base/DataDef.xba
@@ -419,6 +419,15 @@ Exit_Function:
 	Exit Function
 End Function	'	Properties
 
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function setProperty(ByVal Optional psProperty As String, ByVal Optional pvValue As Variant) As Boolean
+'	Return True if property setting OK
+Dim cstThisSub As String
+	cstThisSub = Utils._PCase(_Type) & ".getProperty"
+	Utils._SetCalledSub(cstThisSub)
+	setProperty = _PropertySet(psProperty, pvValue)
+	Utils._ResetCalledSub(cstThisSub)
+End Function
 
 REM -----------------------------------------------------------------------------------------------------------------------
 REM --- PRIVATE FUNCTIONS 								        														---
diff --git a/wizards/source/access2base/Field.xba b/wizards/source/access2base/Field.xba
index 4819e83..871133f 100644
--- a/wizards/source/access2base/Field.xba
+++ b/wizards/source/access2base/Field.xba
@@ -199,6 +199,15 @@ Exit_Function:
 End Function		'	ReadAllText
 
 REM -----------------------------------------------------------------------------------------------------------------------
+Public Function setProperty(ByVal Optional psProperty As String, ByVal Optional pvValue As Variant) As Boolean
+'	Return True if property setting OK
+Const cstThisSub = "Field.setProperty"
+	Utils._SetCalledSub(cstThisSub)
+	setProperty = _PropertySet(psProperty, pvValue)
+	Utils._ResetCalledSub(cstThisSub)
+End Function
+
+REM -----------------------------------------------------------------------------------------------------------------------
 Public Function WriteAllBytes(ByVal Optional pvFile As Variant) As Boolean
 '	Write the whole content of a Long Binary Field object to a file
 
diff --git a/wizards/source/access2base/Recordset.xba b/wizards/source/access2base/Recordset.xba
index 16fc3a2..1a25e36 100644
--- a/wizards/source/access2base/Recordset.xba
+++ b/wizards/source/access2base/Recordset.xba
@@ -727,6 +727,15 @@ Exit_Function:
 End Function	'	Properties
 
 REM -----------------------------------------------------------------------------------------------------------------------
+Public Function setProperty(ByVal Optional psProperty As String, ByVal Optional pvValue As Variant) As Boolean
+'	Return True if property setting OK
+Const cstThisSub = "Recordset.setProperty"
+	Utils._SetCalledSub(cstThisSub)
+	setProperty = _PropertySet(psProperty, pvValue)
+	Utils._ResetCalledSub(cstThisSub)
+End Function
+
+REM -----------------------------------------------------------------------------------------------------------------------
 Public Function Update() As Boolean
 '	Finalize the updates of the current record