[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 <j...@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 <lio...@mamane.lu>
    Tested-by: Lionel Elie Mamane <lio...@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   &apos;  Properties
 
+REM 
-----------------------------------------------------------------------------------------------------------------------
+Public Function setProperty(ByVal Optional psProperty As String, ByVal 
Optional pvValue As Variant) As Boolean
+&apos; Return True if property setting OK
+Dim cstThisSub As String
+       cstThisSub = Utils._PCase(_Type) &amp; &quot;.getProperty&quot;
+       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           &apos;  ReadAllText
 
 REM 
-----------------------------------------------------------------------------------------------------------------------
+Public Function setProperty(ByVal Optional psProperty As String, ByVal 
Optional pvValue As Variant) As Boolean
+&apos; Return True if property setting OK
+Const cstThisSub = &quot;Field.setProperty&quot;
+       Utils._SetCalledSub(cstThisSub)
+       setProperty = _PropertySet(psProperty, pvValue)
+       Utils._ResetCalledSub(cstThisSub)
+End Function
+
+REM 
-----------------------------------------------------------------------------------------------------------------------
 Public Function WriteAllBytes(ByVal Optional pvFile As Variant) As Boolean
 &apos; 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   &apos;  Properties
 
 REM 
-----------------------------------------------------------------------------------------------------------------------
+Public Function setProperty(ByVal Optional psProperty As String, ByVal 
Optional pvValue As Variant) As Boolean
+&apos; Return True if property setting OK
+Const cstThisSub = &quot;Recordset.setProperty&quot;
+       Utils._SetCalledSub(cstThisSub)
+       setProperty = _PropertySet(psProperty, pvValue)
+       Utils._ResetCalledSub(cstThisSub)
+End Function
+
+REM 
-----------------------------------------------------------------------------------------------------------------------
 Public Function Update() As Boolean
 &apos; Finalize the updates of the current record
 
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
http://lists.freedesktop.org/mailman/listinfo/libreoffice-commits