mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Access2Base - Removal of Property Set constructions

Browse Source 
The workaround to bug https://www.libreoffice.org/bugzilla/show_bug.cgi?id=60752 has been removed.
Bug corrected in LO 4.0.2
End of support of Access2Base under LO 4.0.0 and 4.0.1

Change-Id: Ide5046ce4a44096bca42eaf14c4dc96c59958e16
This commit is contained in:
Jean-Pierre Ledure
2014-08-23 12:42:57 +02:00
parent 9e8b930b13
commit fbbd7045a8
9 changed files with 1 additions and 336 deletions
Download Patch File Download Diff File Expand all files Collapse all files

155
wizards/source/access2base/Control.xba
View File

@@ -2160,159 +2160,4 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function ' _PropertySet V1.1.0
REM -----------------------------------------------------------------------------------------------------------------------
REM --- CLASS PROPERTY SETs ---
REM --- Workaround to bug https://www.libreoffice.org/bugzilla/show_bug.cgi?id=60752 (LibreOffice 4.0) ---
REM -----------------------------------------------------------------------------------------------------------------------
Property Set BackColor(ByVal pvValue As Variant)
Call _PropertySet("BackColor", pvValue)
End Property ' BackColor (set)
Property Set BorderColor(ByVal pvValue As Variant)
Call _PropertySet("BorderColor", pvValue)
End Property ' BorderColor (set)
Property Set BorderStyle(ByVal pvValue As Variant)
Call _PropertySet("BorderStyle", pvValue)
End Property ' BorderStyle (set)
Property Set Cancel(ByVal pvValue As Variant)
Call _PropertySet("Cancel", pvValue)
End Property ' Cancel (set)
Property Set Caption(ByVal pvValue As Variant)
Call _PropertySet("Caption", pvValue)
End Property ' Caption (set)
Property Set ControlTipText(ByVal pvValue As Variant)
Call _PropertySet("ControlTipText", pvValue)
End Property ' ControlTipText (set)
Property Set Default(ByVal pvValue As Variant)
Call _PropertySet("Default", pvValue)
End Property ' Default (set)
Property Set DefaultValue(ByVal pvValue As Variant)
Call _PropertySet("DefaultValue", pvValue)
End Property ' DefaultValue (set)
Property Set Enabled(ByVal pvValue As Variant)
Call _PropertySet("Enabled", pvValue)
End Property ' Enabled (set)
Property Set FontBold(ByVal pvValue As Variant)
Call _PropertySet("FontBold", pvValue)
End Property ' FontBold (set)
Property Set FontItalic(ByVal pvValue As Variant)
Call _PropertySet("FontItalic", pvValue)
End Property ' FontItalic (set)
Property Set FontName(ByVal pvValue As Variant)
Call _PropertySet("FontName", pvValue)
End Property ' FontName (set)
Property Set FontSize(ByVal pvValue As Variant)
Call _PropertySet("FontSize", pvValue)
End Property ' FontSize (set)
Property Set FontUnderline(ByVal pvValue As Variant)
Call _PropertySet("FontUnderline", pvValue)
End Property ' FontUnderline (set)
Property Set FontWeight(ByVal pvValue As Variant)
Call _PropertySet("FontWeight", pvValue)
End Property ' FontWeight (set)
Property Set ForeColor(ByVal pvValue As Variant)
Call _PropertySet("ForeColor", pvValue)
End Property ' ForeColor (set)
Property Set Format(ByVal pvValue As Variant)
Call _PropertySet("Format", pvValue)
End Property ' Format (set)
Property Set ListIndex(ByVal pvValue As Variant)
Call _PropertySet("ListIndex", pvValue)
End Property ' ListIndex (set)
Property Set Locked(ByVal pvValue As Variant)
Call _PropertySet("Locked", pvValue)
End Property ' Locked (set)
Property Set MultiSelect(ByVal pvValue As Variant)
Call _PropertySet("MultiSelect", pvValue)
End Property ' MultiSelect (set)
Property Set OptionValue(ByVal pvValue As Variant)
Call _PropertySet("OptionValue", pvValue)
End Property ' OptionValue (set)
Property Set Page(ByVal pvValue As Variant)
Call _PropertySet("Page", pvValue)
End Property ' Page (set)
Property Set Required(ByVal pvValue As Variant)
Call _PropertySet("Required", pvValue)
End Property ' Required (set)
Property Set RowSource(ByVal pvValue As Variant)
Call _PropertySet("RowSource", pvValue)
End Property ' RowSource (set)
Property Set RowSourceType(ByVal pvValue As Variant)
Call _PropertySet("RowSourceType", pvValue)
End Property ' RowSourceType (set)
Property Set Selected(ByVal pvValue As Variant) ' , ByVal Optional pvIndex As Variant)
' If IsMissing(pvIndex) Then Call _PropertySet("Selected", pvValue) Else Call _PropertySet("Selected", pvValue, pvIndex)
Call _PropertySet("Selected", pvValue)
End Property ' Selected (set)
Property Set SelLength(ByVal pvValue As Variant)
Call _PropertySet("SelLength", pvValue)
End Property ' SelLength (set)
Property Set SelStart(ByVal pvValue As Variant)
Call _PropertySet("SelStart", pvValue)
End Property ' SelStart (set)
Property Set SelText(ByVal pvValue As Variant)
Call _PropertySet("SelText", pvValue)
End Property ' SelText (set)
Property Set SpecialEffect(ByVal pvValue As Variant)
Call _PropertySet("SpecialEffect", pvValue)
End Property ' SpecialEffect (set)
Property Set TabIndex(ByVal pvValue As Variant)
Call _PropertySet("TabIndex", pvValue)
End Property ' TabIndex (set)
Property Set TabStop(ByVal pvValue As Variant)
Call _PropertySet("TabStop", pvValue)
End Property ' TabStop (set)
Property Set Tag(ByVal pvValue As Variant)
Call _PropertySet("Tag", pvValue)
End Property ' Tag (set)
Property Set TextAlign(ByVal pvValue As Variant)
Call _PropertySet("TextAlign", pvValue)
End Property ' TextAlign (set)
Property Set TripleState(ByVal pvValue As Variant)
Call _PropertySet("TripleState", pvValue)
End Property ' TripleState (set)
Property Set Value(ByVal pvValue As Variant)
Call _PropertySet("Value", pvValue)
End Property ' Value (set)
Property Set Visible(ByVal pvValue As Variant)
Call _PropertySet("Visible", pvValue)
End Property ' Visible (set)
</script:module>

11
wizards/source/access2base/DataDef.xba
View File

@@ -560,15 +560,4 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function &apos; _PropertySet
REM -----------------------------------------------------------------------------------------------------------------------
REM --- CLASS PROPERTY SETs ---
REM --- Workaround to bug https://www.libreoffice.org/bugzilla/show_bug.cgi?id=60752 (LibreOffice 4.0) ---
REM -----------------------------------------------------------------------------------------------------------------------
Property Set SQL(ByVal pvValue As Variant)
Call _PropertySet(&quot;SQL&quot;, pvValue)
End Property &apos; SQL (set)
</script:module>

22
wizards/source/access2base/Dialog.xba
View File

@@ -659,26 +659,4 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function &apos; _PropertySet
REM -----------------------------------------------------------------------------------------------------------------------
REM --- CLASS PROPERTY SETs ---
REM --- Workaround to bug https://www.libreoffice.org/bugzilla/show_bug.cgi?id=60752 (LibreOffice 4.0) ---
REM -----------------------------------------------------------------------------------------------------------------------
Property Set Caption(ByVal pvValue As Variant)
Call _PropertySet(&quot;Caption&quot;, pvValue)
End Property &apos; Caption (set)
Property Set Height(ByVal pvValue As Variant)
Call _PropertySet(&quot;Height&quot;, pvValue)
End Property &apos; Height (set)
Property Set Visible(ByVal pvValue As Variant)
Call _PropertySet(&quot;Visible&quot;, pvValue)
End Property &apos; Visible (set)
Property Set Width(ByVal pvValue As Variant)
Call _PropertySet(&quot;Width&quot;, pvValue)
End Property &apos; Width (set)
</script:module>

18
wizards/source/access2base/Field.xba
View File

@@ -767,22 +767,4 @@ Error_Function:
TraceError(TRACEABORT, Err, _CalledSub, Erl)
GoTo Exit_Function
End Function &apos; WriteAll
REM -----------------------------------------------------------------------------------------------------------------------
REM --- CLASS PROPERTY SETs ---
REM --- Workaround to bug https://www.libreoffice.org/bugzilla/show_bug.cgi?id=60752 (LibreOffice 4.0) ---
REM -----------------------------------------------------------------------------------------------------------------------
Property Set DefaultValue(ByVal pvDefaultValue As Variant)
Call _PropertySet(&quot;DefaultValue&quot;, pvDefaultValue)
End Property &apos; DefaultValue (set)
Property Set Description(ByVal pvDescription As Variant)
Call _PropertySet(&quot;Description&quot;, pvDescription)
End Property &apos; Description (set)
Property Set Value(ByVal pvValue As Variant)
Call _PropertySet(&quot;Value&quot;, pvValue)
End Property &apos; Value (set)
</script:module>

62
wizards/source/access2base/Form.xba
View File

@@ -871,66 +871,4 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function &apos; _PropertySet
REM -----------------------------------------------------------------------------------------------------------------------
REM --- CLASS PROPERTY SETs ---
REM --- Workaround to bug https://www.libreoffice.org/bugzilla/show_bug.cgi?id=60752 (LibreOffice 4.0) ---
REM -----------------------------------------------------------------------------------------------------------------------
Property Set AllowAdditions(ByVal pvValue As Variant)
Call _PropertySet(&quot;AllowAdditions&quot;, pvValue)
End Property &apos; AllowAdditions (set)
Property Set AllowDeletions(ByVal pvValue As Variant)
Call _PropertySet(&quot;AllowDeletions&quot;, pvValue)
End Property &apos; AllowDeletions (set)
Property Set AllowEdits(ByVal pvValue As Variant)
Call _PropertySet(&quot;AllowEdits&quot;, pvValue)
End Property &apos; AllowEdits (set)
Property Set Bookmark(ByVal pvValue As Variant)
Call _PropertySet(&quot;Bookmark&quot;, pvValue)
End Property &apos; Bookmark (set)
Property Set Caption(ByVal pvValue As Variant)
Call _PropertySet(&quot;Caption&quot;, pvValue)
End Property &apos; Caption (set)
Property Set CurrentRecord(ByVal pvValue As Variant)
Call _PropertySet(&quot;CurrentRecord&quot;, pvValue)
End Property &apos; CurrentRecord (set)
Property Set Filter(ByVal pvValue As Variant)
Call _PropertySet(&quot;Filter&quot;, pvValue)
End Property &apos; Filter (set)
Property Set FilterOn(ByVal pvValue As Variant)
Call _PropertySet(&quot;FilterOn&quot;, pvValue)
End Property &apos; FilterOn (set)
Property Set Height(ByVal pvValue As Variant)
Call _PropertySet(&quot;Height&quot;, pvValue)
End Property &apos; Height (set)
Property Set OrderBy(ByVal pvValue As Variant)
Call _PropertySet(&quot;OrderBy&quot;, pvValue)
End Property &apos; OrderBy (set)
Property Set OrderByOn(ByVal pvValue As Variant)
Call _PropertySet(&quot;OrderByOn&quot;, pvValue)
End Property &apos; OrderByOn (set)
Property Set RecordSource(ByVal pvValue As Variant)
Call _PropertySet(&quot;RecordSource&quot;, pvValue)
End Property &apos; RecordSource (set)
Property Set Visible(ByVal pvValue As Variant)
Call _PropertySet(&quot;Visible&quot;, pvValue)
End Property &apos; Visible (set)
Property Set Width(ByVal pvValue As Variant)
Call _PropertySet(&quot;Width&quot;, pvValue)
End Property &apos; Width (set)
</script:module>

10
wizards/source/access2base/OptionGroup.xba
View File

@@ -302,14 +302,4 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function &apos; _PropertySet
REM -----------------------------------------------------------------------------------------------------------------------
REM --- CLASS PROPERTY SETs ---
REM --- Workaround to bug https://www.libreoffice.org/bugzilla/show_bug.cgi?id=60752 (LibreOffice 4.0) ---
REM -----------------------------------------------------------------------------------------------------------------------
Property Set Value(ByVal pvValue As Variant)
Call _PropertySet(&quot;Value&quot;, pvValue)
End Property &apos; Value (set)
</script:module>

15
wizards/source/access2base/Recordset.xba
View File

@@ -1108,19 +1108,4 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function &apos; _PropertySet
REM -----------------------------------------------------------------------------------------------------------------------
REM --- CLASS PROPERTY SETs ---
REM --- Workaround to bug https://www.libreoffice.org/bugzilla/show_bug.cgi?id=60752 (LibreOffice 4.0) ---
REM -----------------------------------------------------------------------------------------------------------------------
Property Set Bookmark(ByVal pvValue As Variant)
Call _PropertySet(&quot;Bookmark&quot;, pvValue)
End Property &apos; Bookmark (set)
Property Set Filter(ByVal pvValue As Variant)
Call _PropertySet(&quot;Filter&quot;, pvValue)
End Property &apos; Filter (set)
</script:module>

42
wizards/source/access2base/SubForm.xba
View File

@@ -558,46 +558,4 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function &apos; _PropertySet
REM -----------------------------------------------------------------------------------------------------------------------
REM --- CLASS PROPERTY SETs ---
REM --- Workaround to bug https://www.libreoffice.org/bugzilla/show_bug.cgi?id=60752 (LibreOffice 4.0) ---
REM -----------------------------------------------------------------------------------------------------------------------
Property Set AllowAdditions(ByVal pvValue As Variant)
Call _PropertySet(&quot;AllowAdditions&quot;, pvValue)
End Property &apos; AllowAdditions (set)
Property Set AllowDeletions(ByVal pvValue As Variant)
Call _PropertySet(&quot;AllowDeletions&quot;, pvValue)
End Property &apos; AllowDeletions (set)
Property Set AllowEdits(ByVal pvValue As Variant)
Call _PropertySet(&quot;AllowEdits&quot;, pvValue)
End Property &apos; AllowEdits (set)
Property Set CurrentRecord(ByVal pvValue As Variant)
Call _PropertySet(&quot;CurrentRecord&quot;, pvValue)
End Property &apos; CurrentRecord (set)
Property Set Filter(ByVal pvValue As Variant)
Call _PropertySet(&quot;Filter&quot;, pvValue)
End Property &apos; Filter (set)
Property Set FilterOn(ByVal pvValue As Variant)
Call _PropertySet(&quot;FilterOn&quot;, pvValue)
End Property &apos; FilterOn (set)
Property Set OrderBy(ByVal pvValue As Variant)
Call _PropertySet(&quot;OrderBy&quot;, pvValue)
End Property &apos; OrderBy (set)
Property Set OrderByOn(ByVal pvValue As Variant)
Call _PropertySet(&quot;OrderByOn&quot;, pvValue)
End Property &apos; OrderByOn (set)
Property Set RecordSource(ByVal pvValue As Variant)
Call _PropertySet(&quot;RecordSource&quot;, pvValue)
End Property &apos; RecordSource (set)
</script:module>

2
wizards/source/access2base/acConstants.xba
View File

@@ -8,7 +8,7 @@ REM ============================================================================
Option Explicit
REM Access2Base -----------------------------------------------------
Global Const Access2Base_Version = &quot;1.1.0d&quot;
Global Const Access2Base_Version = &quot;1.1.0e&quot;
REM AcCloseSave
REM -----------------------------------------------------------------