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

Jean-Pierre Ledure Sat, 23 Aug 2014 03:46:57 -0700

 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 <j...@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                   &apos;  _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(&quot;BackColor&quot;, pvValue)
-End Property           &apos;  BackColor (set)
-
-Property Set BorderColor(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;BorderColor&quot;, pvValue)
-End Property           &apos;  BorderColor (set)
-
-Property Set BorderStyle(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;BorderStyle&quot;, pvValue)
-End Property           &apos;  BorderStyle (set)
-
-Property Set Cancel(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;Cancel&quot;, pvValue)
-End Property           &apos;  Cancel (set)
-
-Property Set Caption(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;Caption&quot;, pvValue)
-End Property           &apos;  Caption (set)
-
-Property Set ControlTipText(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;ControlTipText&quot;, pvValue)
-End Property           &apos;  ControlTipText (set)
-
-Property Set Default(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;Default&quot;, pvValue)
-End Property           &apos;  Default (set)
-
-Property Set DefaultValue(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;DefaultValue&quot;, pvValue)
-End Property           &apos;  DefaultValue (set)
-
-Property Set Enabled(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;Enabled&quot;, pvValue)
-End Property           &apos;  Enabled (set)
-
-Property Set FontBold(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;FontBold&quot;, pvValue)
-End Property           &apos;  FontBold (set)
-
-Property Set FontItalic(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;FontItalic&quot;, pvValue)
-End Property           &apos;  FontItalic (set)
-
-Property Set FontName(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;FontName&quot;, pvValue)
-End Property           &apos;  FontName (set)
-
-Property Set FontSize(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;FontSize&quot;, pvValue)
-End Property           &apos;  FontSize (set)
-
-Property Set FontUnderline(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;FontUnderline&quot;, pvValue)
-End Property           &apos;  FontUnderline (set)
-
-Property Set FontWeight(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;FontWeight&quot;, pvValue)
-End Property           &apos;  FontWeight (set)
-
-Property Set ForeColor(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;ForeColor&quot;, pvValue)
-End Property           &apos;  ForeColor (set)
-
-Property Set Format(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;Format&quot;, pvValue)
-End Property           &apos;  Format (set)
-
-Property Set ListIndex(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;ListIndex&quot;, pvValue)
-End Property           &apos;  ListIndex (set)
-
-Property Set Locked(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;Locked&quot;, pvValue)
-End Property           &apos;  Locked (set)
-
-Property Set MultiSelect(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;MultiSelect&quot;, pvValue)
-End Property           &apos;  MultiSelect (set)
-
-Property Set OptionValue(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;OptionValue&quot;, pvValue)
-End Property           &apos;  OptionValue (set)
-
-Property Set Page(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;Page&quot;, pvValue)
-End Property           &apos;  Page (set)
-
-Property Set Required(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;Required&quot;, pvValue)
-End Property           &apos;  Required (set)
-
-Property Set RowSource(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;RowSource&quot;, pvValue)
-End Property           &apos;  RowSource (set)
-
-Property Set RowSourceType(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;RowSourceType&quot;, pvValue)
-End Property           &apos;  RowSourceType (set)
-
-Property Set Selected(ByVal pvValue As Variant)                &apos;  , ByVal 
Optional pvIndex As Variant)
-&apos; If IsMissing(pvIndex) Then Call _PropertySet(&quot;Selected&quot;, 
pvValue) Else Call _PropertySet(&quot;Selected&quot;, pvValue, pvIndex)
-       Call _PropertySet(&quot;Selected&quot;, pvValue)
-End Property           &apos;  Selected (set)
-
-Property Set SelLength(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;SelLength&quot;, pvValue)
-End Property           &apos;  SelLength (set)
-
-Property Set SelStart(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;SelStart&quot;, pvValue)
-End Property           &apos;  SelStart (set)
-
-Property Set SelText(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;SelText&quot;, pvValue)
-End Property           &apos;  SelText (set)
-
-Property Set SpecialEffect(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;SpecialEffect&quot;, pvValue)
-End Property           &apos;  SpecialEffect (set)
-
-Property Set TabIndex(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;TabIndex&quot;, pvValue)
-End Property           &apos;  TabIndex (set)
-
-Property Set TabStop(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;TabStop&quot;, pvValue)
-End Property           &apos;  TabStop (set)
-
-Property Set Tag(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;Tag&quot;, pvValue)
-End Property           &apos;  Tag (set)
-
-Property Set TextAlign(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;TextAlign&quot;, pvValue)
-End Property           &apos;  TextAlign (set)
-
-Property Set TripleState(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;TripleState&quot;, pvValue)
-End Property           &apos;  TripleState (set)
-
-Property Set Value(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;Value&quot;, pvValue)
-End Property           &apos;  Value (set)
-
-Property Set Visible(ByVal pvValue As Variant)
-       Call _PropertySet(&quot;Visible&quot;, pvValue)
-End Property           &apos;  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                   &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 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           &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 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           &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 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           &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 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           &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 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           &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 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           &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 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 = &quot;1.1.0d&quot;
+Global Const Access2Base_Version = &quot;1.1.0e&quot;
 
 REM AcCloseSave
 REM -----------------------------------------------------------------
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
http://lists.freedesktop.org/mailman/listinfo/libreoffice-commits

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

Reply via email to