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

9 files changed, 1 insertions, 336 deletions

diff --git a/wizards/source/access2base/Control.xba b/wizards/source/access2base/Control.xba
index 4f4244e56057..66705d9d55f6 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 874428ad3fb8..e151b28ab024 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			&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>
\ No newline at end of file
diff --git a/wizards/source/access2base/Dialog.xba b/wizards/source/access2base/Dialog.xba
index 3e6fbd70aa00..7847438056c2 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		&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>
\ No newline at end of file
diff --git a/wizards/source/access2base/Field.xba b/wizards/source/access2base/Field.xba
index 9c9ac727fccc..4bd9154f42e2 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		&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>
\ No newline at end of file
diff --git a/wizards/source/access2base/Form.xba b/wizards/source/access2base/Form.xba
index 039551e142ca..a787dfec6257 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		&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>
\ No newline at end of file
diff --git a/wizards/source/access2base/OptionGroup.xba b/wizards/source/access2base/OptionGroup.xba
index 7b8e4a78503c..1fe523034419 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		&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>
\ No newline at end of file
diff --git a/wizards/source/access2base/Recordset.xba b/wizards/source/access2base/Recordset.xba
index 144a9f440561..4a9c83354adb 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		&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>
\ No newline at end of file
diff --git a/wizards/source/access2base/SubForm.xba b/wizards/source/access2base/SubForm.xba
index e42c53e19fdc..a28f251f5901 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		&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>
\ No newline at end of file
diff --git a/wizards/source/access2base/acConstants.xba b/wizards/source/access2base/acConstants.xba
index d8b16c58e351..4876d1c682fe 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 = &quot;1.1.0d&quot;
+Global Const Access2Base_Version = &quot;1.1.0e&quot;
 
 REM AcCloseSave
 REM -----------------------------------------------------------------