[Libreoffice-commits] core.git: wizards/source
Jean-Pierre Ledure
jp at ledure.be
Sat Aug 23 03:46:39 PDT 2014
wizards/source/access2base/Control.xba | 155 -----------------------------
wizards/source/access2base/DataDef.xba | 11 --
wizards/source/access2base/Dialog.xba | 22 ----
wizards/source/access2base/Field.xba | 18 ---
wizards/source/access2base/Form.xba | 62 -----------
wizards/source/access2base/OptionGroup.xba | 10 -
wizards/source/access2base/Recordset.xba | 15 --
wizards/source/access2base/SubForm.xba | 42 -------
wizards/source/access2base/acConstants.xba | 2
9 files changed, 1 insertion(+), 336 deletions(-)
New commits:
commit fbbd7045a89e93cb732011471e98cedb0487eff3
Author: Jean-Pierre Ledure <jp at ledure.be>
Date: Sat Aug 23 12:42:57 2014 +0200
Access2Base - Removal of Property Set constructions
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
diff --git a/wizards/source/access2base/Control.xba b/wizards/source/access2base/Control.xba
index 4f4244e..66705d9 100644
--- a/wizards/source/access2base/Control.xba
+++ b/wizards/source/access2base/Control.xba
@@ -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>
\ No newline at end of file
diff --git a/wizards/source/access2base/DataDef.xba b/wizards/source/access2base/DataDef.xba
index 874428a..e151b28 100644
--- a/wizards/source/access2base/DataDef.xba
+++ b/wizards/source/access2base/DataDef.xba
@@ -560,15 +560,4 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function ' _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("SQL", pvValue)
-End Property ' SQL (set)
-
-
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Dialog.xba b/wizards/source/access2base/Dialog.xba
index 3e6fbd7..7847438 100644
--- a/wizards/source/access2base/Dialog.xba
+++ b/wizards/source/access2base/Dialog.xba
@@ -659,26 +659,4 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function ' _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("Caption", pvValue)
-End Property ' Caption (set)
-
-Property Set Height(ByVal pvValue As Variant)
- Call _PropertySet("Height", pvValue)
-End Property ' Height (set)
-
-Property Set Visible(ByVal pvValue As Variant)
- Call _PropertySet("Visible", pvValue)
-End Property ' Visible (set)
-
-Property Set Width(ByVal pvValue As Variant)
- Call _PropertySet("Width", pvValue)
-End Property ' Width (set)
-
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Field.xba b/wizards/source/access2base/Field.xba
index 9c9ac72..4bd9154 100644
--- a/wizards/source/access2base/Field.xba
+++ b/wizards/source/access2base/Field.xba
@@ -767,22 +767,4 @@ Error_Function:
TraceError(TRACEABORT, Err, _CalledSub, Erl)
GoTo Exit_Function
End Function ' 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("DefaultValue", pvDefaultValue)
-End Property ' DefaultValue (set)
-
-Property Set Description(ByVal pvDescription As Variant)
- Call _PropertySet("Description", pvDescription)
-End Property ' Description (set)
-
-Property Set Value(ByVal pvValue As Variant)
- Call _PropertySet("Value", pvValue)
-End Property ' Value (set)
-
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Form.xba b/wizards/source/access2base/Form.xba
index 039551e..a787dfe 100644
--- a/wizards/source/access2base/Form.xba
+++ b/wizards/source/access2base/Form.xba
@@ -871,66 +871,4 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function ' _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("AllowAdditions", pvValue)
-End Property ' AllowAdditions (set)
-
-Property Set AllowDeletions(ByVal pvValue As Variant)
- Call _PropertySet("AllowDeletions", pvValue)
-End Property ' AllowDeletions (set)
-
-Property Set AllowEdits(ByVal pvValue As Variant)
- Call _PropertySet("AllowEdits", pvValue)
-End Property ' AllowEdits (set)
-
-Property Set Bookmark(ByVal pvValue As Variant)
- Call _PropertySet("Bookmark", pvValue)
-End Property ' Bookmark (set)
-
-Property Set Caption(ByVal pvValue As Variant)
- Call _PropertySet("Caption", pvValue)
-End Property ' Caption (set)
-
-Property Set CurrentRecord(ByVal pvValue As Variant)
- Call _PropertySet("CurrentRecord", pvValue)
-End Property ' CurrentRecord (set)
-
-Property Set Filter(ByVal pvValue As Variant)
- Call _PropertySet("Filter", pvValue)
-End Property ' Filter (set)
-
-Property Set FilterOn(ByVal pvValue As Variant)
- Call _PropertySet("FilterOn", pvValue)
-End Property ' FilterOn (set)
-
-Property Set Height(ByVal pvValue As Variant)
- Call _PropertySet("Height", pvValue)
-End Property ' Height (set)
-
-Property Set OrderBy(ByVal pvValue As Variant)
- Call _PropertySet("OrderBy", pvValue)
-End Property ' OrderBy (set)
-
-Property Set OrderByOn(ByVal pvValue As Variant)
- Call _PropertySet("OrderByOn", pvValue)
-End Property ' OrderByOn (set)
-
-Property Set RecordSource(ByVal pvValue As Variant)
- Call _PropertySet("RecordSource", pvValue)
-End Property ' RecordSource (set)
-
-Property Set Visible(ByVal pvValue As Variant)
- Call _PropertySet("Visible", pvValue)
-End Property ' Visible (set)
-
-Property Set Width(ByVal pvValue As Variant)
- Call _PropertySet("Width", pvValue)
-End Property ' Width (set)
-
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/OptionGroup.xba b/wizards/source/access2base/OptionGroup.xba
index 7b8e4a7..1fe5230 100644
--- a/wizards/source/access2base/OptionGroup.xba
+++ b/wizards/source/access2base/OptionGroup.xba
@@ -302,14 +302,4 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function ' _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("Value", pvValue)
-End Property ' Value (set)
-
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Recordset.xba b/wizards/source/access2base/Recordset.xba
index 144a9f4..4a9c833 100644
--- a/wizards/source/access2base/Recordset.xba
+++ b/wizards/source/access2base/Recordset.xba
@@ -1108,19 +1108,4 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function ' _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("Bookmark", pvValue)
-End Property ' Bookmark (set)
-
-Property Set Filter(ByVal pvValue As Variant)
- Call _PropertySet("Filter", pvValue)
-End Property ' Filter (set)
-
-
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/SubForm.xba b/wizards/source/access2base/SubForm.xba
index e42c53e..a28f251 100644
--- a/wizards/source/access2base/SubForm.xba
+++ b/wizards/source/access2base/SubForm.xba
@@ -558,46 +558,4 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function ' _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("AllowAdditions", pvValue)
-End Property ' AllowAdditions (set)
-
-Property Set AllowDeletions(ByVal pvValue As Variant)
- Call _PropertySet("AllowDeletions", pvValue)
-End Property ' AllowDeletions (set)
-
-Property Set AllowEdits(ByVal pvValue As Variant)
- Call _PropertySet("AllowEdits", pvValue)
-End Property ' AllowEdits (set)
-
-Property Set CurrentRecord(ByVal pvValue As Variant)
- Call _PropertySet("CurrentRecord", pvValue)
-End Property ' CurrentRecord (set)
-
-Property Set Filter(ByVal pvValue As Variant)
- Call _PropertySet("Filter", pvValue)
-End Property ' Filter (set)
-
-Property Set FilterOn(ByVal pvValue As Variant)
- Call _PropertySet("FilterOn", pvValue)
-End Property ' FilterOn (set)
-
-Property Set OrderBy(ByVal pvValue As Variant)
- Call _PropertySet("OrderBy", pvValue)
-End Property ' OrderBy (set)
-
-Property Set OrderByOn(ByVal pvValue As Variant)
- Call _PropertySet("OrderByOn", pvValue)
-End Property ' OrderByOn (set)
-
-Property Set RecordSource(ByVal pvValue As Variant)
- Call _PropertySet("RecordSource", pvValue)
-End Property ' RecordSource (set)
-
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/acConstants.xba b/wizards/source/access2base/acConstants.xba
index d8b16c5..4876d1c 100644
--- a/wizards/source/access2base/acConstants.xba
+++ b/wizards/source/access2base/acConstants.xba
@@ -8,7 +8,7 @@ REM ============================================================================
Option Explicit
REM Access2Base -----------------------------------------------------
-Global Const Access2Base_Version = "1.1.0d"
+Global Const Access2Base_Version = "1.1.0e"
REM AcCloseSave
REM -----------------------------------------------------------------
More information about the Libreoffice-commits
mailing list