[Libreoffice-commits] core.git: wizards/source
Jean-Pierre Ledure
jp at ledure.be
Tue May 8 07:52:49 UTC 2018
wizards/source/access2base/Application.xba | 1 +
wizards/source/access2base/Collect.xba | 1 +
wizards/source/access2base/CommandBar.xba | 1 +
wizards/source/access2base/CommandBarControl.xba | 1 +
wizards/source/access2base/Compatible.xba | 1 +
wizards/source/access2base/Control.xba | 1 +
wizards/source/access2base/DataDef.xba | 1 +
wizards/source/access2base/Database.xba | 1 +
wizards/source/access2base/Dialog.xba | 1 +
wizards/source/access2base/DoCmd.xba | 1 +
wizards/source/access2base/Event.xba | 1 +
wizards/source/access2base/Field.xba | 1 +
wizards/source/access2base/Form.xba | 1 +
wizards/source/access2base/L10N.xba | 1 -
wizards/source/access2base/Methods.xba | 1 +
wizards/source/access2base/Module.xba | 7 +------
wizards/source/access2base/OptionGroup.xba | 1 +
wizards/source/access2base/PropertiesGet.xba | 1 +
wizards/source/access2base/PropertiesSet.xba | 1 +
wizards/source/access2base/Property.xba | 1 -
wizards/source/access2base/Recordset.xba | 1 +
wizards/source/access2base/Root_.xba | 1 +
wizards/source/access2base/SubForm.xba | 1 +
wizards/source/access2base/TempVar.xba | 1 +
wizards/source/access2base/UtilProperty.xba | 1 +
wizards/source/access2base/Utils.xba | 1 -
26 files changed, 23 insertions(+), 9 deletions(-)
New commits:
commit 00f45dcf550a5ebdeb087f84eb489123fbee35f6
Author: Jean-Pierre Ledure <jp at ledure.be>
Date: Tue May 8 09:49:14 2018 +0200
Access2Base - Remove useless trailing blank lines
Keep exactly 1 line feed at the end of each Basic module
diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba
index 611bfde517d6..809082690226 100644
--- a/wizards/source/access2base/Application.xba
+++ b/wizards/source/access2base/Application.xba
@@ -1638,4 +1638,5 @@ Public Sub _RootInit(Optional ByVal pbForce As Boolean)
If IsEmpty(_A2B_) Or pbForce Then _A2B_ = New Root_
End Sub ' _RootInit V1.1.0
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Collect.xba b/wizards/source/access2base/Collect.xba
index d0adbe0a52c4..8fb6e480aaac 100644
--- a/wizards/source/access2base/Collect.xba
+++ b/wizards/source/access2base/Collect.xba
@@ -423,4 +423,5 @@ Error_Function:
_PropertyGet = Nothing
GoTo Exit_Function
End Function ' _PropertyGet
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/CommandBar.xba b/wizards/source/access2base/CommandBar.xba
index ed7955d3cef1..b5cfae7a308a 100644
--- a/wizards/source/access2base/CommandBar.xba
+++ b/wizards/source/access2base/CommandBar.xba
@@ -380,4 +380,5 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function ' _PropertySet
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/CommandBarControl.xba b/wizards/source/access2base/CommandBarControl.xba
index 286dc07daa6d..633934efcc2b 100644
--- a/wizards/source/access2base/CommandBarControl.xba
+++ b/wizards/source/access2base/CommandBarControl.xba
@@ -330,4 +330,5 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function ' _PropertySet
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Compatible.xba b/wizards/source/access2base/Compatible.xba
index 45f3e2eacb9f..9215ee2b37ba 100644
--- a/wizards/source/access2base/Compatible.xba
+++ b/wizards/source/access2base/Compatible.xba
@@ -45,4 +45,5 @@ Exit_Sub:
Utils._ResetCalledSub("DebugPrint")
Exit Sub
End Sub ' DebugPrint V0.9.5
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Control.xba b/wizards/source/access2base/Control.xba
index 0af21171fdcb..41a9fa43a26b 100644
--- a/wizards/source/access2base/Control.xba
+++ b/wizards/source/access2base/Control.xba
@@ -2488,4 +2488,5 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function ' _PropertySet V1.1.0
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/DataDef.xba b/wizards/source/access2base/DataDef.xba
index bba8e8517d0d..a4cb38a42ea1 100644
--- a/wizards/source/access2base/DataDef.xba
+++ b/wizards/source/access2base/DataDef.xba
@@ -577,4 +577,5 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function ' _PropertySet
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba
index e82b15d25b55..fad41abfbaa2 100644
--- a/wizards/source/access2base/Database.xba
+++ b/wizards/source/access2base/Database.xba
@@ -1860,4 +1860,5 @@ Const cstSingleQuote = "'"
_ReplaceSquareBrackets = Trim(Join(vSubStrings, cstSingleQuote))
End Function ' ReplaceSquareBrackets V1.1.0
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Dialog.xba b/wizards/source/access2base/Dialog.xba
index 1d11e6ce8e1b..30cfe5317110 100644
--- a/wizards/source/access2base/Dialog.xba
+++ b/wizards/source/access2base/Dialog.xba
@@ -800,4 +800,5 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function ' _PropertySet
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/DoCmd.xba b/wizards/source/access2base/DoCmd.xba
index b51629be9c3f..ad564b72afd9 100644
--- a/wizards/source/access2base/DoCmd.xba
+++ b/wizards/source/access2base/DoCmd.xba
@@ -2650,4 +2650,5 @@ Dim oShell As Object
oShell.execute(sCommand, "" , com.sun.star.system.SystemShellExecuteFlags.DEFAULTS)
End Sub ' _ShellExecute V0.8.5
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Event.xba b/wizards/source/access2base/Event.xba
index 1e858d914284..f4b33117dc2b 100644
--- a/wizards/source/access2base/Event.xba
+++ b/wizards/source/access2base/Event.xba
@@ -493,4 +493,5 @@ Error_Function:
_PropertyGet = EMPTY
GoTo Exit_Function
End Function ' _PropertyGet V1.1.0
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Field.xba b/wizards/source/access2base/Field.xba
index b52938641710..ddb3b2f6a95e 100644
--- a/wizards/source/access2base/Field.xba
+++ b/wizards/source/access2base/Field.xba
@@ -914,4 +914,5 @@ Error_Function:
TraceError(TRACEABORT, Err, _CalledSub, Erl)
GoTo Exit_Function
End Function ' WriteAll
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Form.xba b/wizards/source/access2base/Form.xba
index c0a4bd8b793a..c7029965bfc7 100644
--- a/wizards/source/access2base/Form.xba
+++ b/wizards/source/access2base/Form.xba
@@ -1112,4 +1112,5 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function ' _PropertySet
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/L10N.xba b/wizards/source/access2base/L10N.xba
index 186424f61eb4..dd8db640c08c 100644
--- a/wizards/source/access2base/L10N.xba
+++ b/wizards/source/access2base/L10N.xba
@@ -536,5 +536,4 @@ Dim oLocale as Object
_GetLocale = oLocale.getByName("ooLocale")
End Function ' GetLocale V0.8.9
-
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Methods.xba b/wizards/source/access2base/Methods.xba
index de7f8d382337..518ba635e672 100644
--- a/wizards/source/access2base/Methods.xba
+++ b/wizards/source/access2base/Methods.xba
@@ -294,4 +294,5 @@ Error_Function:
TraceError(TRACEABORT, Err,"_OptionGroup", Erl)
GoTo Exit_Function
End Function ' _OptionGroup V1.1.0
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Module.xba b/wizards/source/access2base/Module.xba
index 21d69fe8de8b..bbada620466a 100644
--- a/wizards/source/access2base/Module.xba
+++ b/wizards/source/access2base/Module.xba
@@ -226,8 +226,6 @@ Public Function Properties(ByVal Optional pvIndex As Variant) As Variant
' Return
' a Collection object if pvIndex absent
' a Property object otherwise
-REM -----------------------------------------------------------------------------------------------------------------------
-
Const cstThisSub = "Module.Properties"
Utils._SetCalledSub(cstThisSub)
@@ -368,8 +366,6 @@ End Function ' Find
REM -----------------------------------------------------------------------------------------------------------------------
Public Function getProperty(Optional ByVal pvProperty As Variant) As Variant
' Return property value of psProperty property name
-REM -----------------------------------------------------------------------------------------------------------------------
-
Const cstThisSub = "Module.Properties"
@@ -718,5 +714,4 @@ Error_Function:
GoTo Exit_Function
End Function ' _PropertyGet
-
-</script:module>
+</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/OptionGroup.xba b/wizards/source/access2base/OptionGroup.xba
index 7690607b6f1a..16d07a9fc80f 100644
--- a/wizards/source/access2base/OptionGroup.xba
+++ b/wizards/source/access2base/OptionGroup.xba
@@ -303,4 +303,5 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function ' _PropertySet
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/PropertiesGet.xba b/wizards/source/access2base/PropertiesGet.xba
index 7522fe94439d..40506b7a93a7 100644
--- a/wizards/source/access2base/PropertiesGet.xba
+++ b/wizards/source/access2base/PropertiesGet.xba
@@ -1212,4 +1212,5 @@ Exit_Function:
Set _PropertiesList = vPropertiesList
Exit Function
End Function ' PropertiesList V0.9.0
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/PropertiesSet.xba b/wizards/source/access2base/PropertiesSet.xba
index db72b5f3d710..92ed568c886e 100644
--- a/wizards/source/access2base/PropertiesSet.xba
+++ b/wizards/source/access2base/PropertiesSet.xba
@@ -590,4 +590,5 @@ Error_Function:
TraceError(TRACEABORT, Err, "_setProperty", Erl)
GoTo Exit_Function
End Function ' _setProperty V0.9.1
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Property.xba b/wizards/source/access2base/Property.xba
index 659c4215c85a..aaec357c4a0c 100644
--- a/wizards/source/access2base/Property.xba
+++ b/wizards/source/access2base/Property.xba
@@ -144,5 +144,4 @@ Error_Function:
GoTo Exit_Function
End Function ' _PropertyGet
-
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Recordset.xba b/wizards/source/access2base/Recordset.xba
index f04a5262f47a..4a51a8be0556 100644
--- a/wizards/source/access2base/Recordset.xba
+++ b/wizards/source/access2base/Recordset.xba
@@ -1261,4 +1261,5 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function ' _PropertySet
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Root_.xba b/wizards/source/access2base/Root_.xba
index a95fe87ca1f3..776d1627520b 100644
--- a/wizards/source/access2base/Root_.xba
+++ b/wizards/source/access2base/Root_.xba
@@ -284,4 +284,5 @@ Trace_Error:
TraceError(TRACEABORT, ERRDBNOTCONNECTED, Utils._CalledSub(), 0, 1)
Goto Exit_Function
End Function ' _CurrentDb
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/SubForm.xba b/wizards/source/access2base/SubForm.xba
index f34d3de4035c..8045ed1559f7 100644
--- a/wizards/source/access2base/SubForm.xba
+++ b/wizards/source/access2base/SubForm.xba
@@ -745,4 +745,5 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function ' _PropertySet
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/TempVar.xba b/wizards/source/access2base/TempVar.xba
index 2d7ed2b60a51..11c8dea71a99 100644
--- a/wizards/source/access2base/TempVar.xba
+++ b/wizards/source/access2base/TempVar.xba
@@ -188,4 +188,5 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function ' _PropertySet
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/UtilProperty.xba b/wizards/source/access2base/UtilProperty.xba
index 55f3d9f2e5ef..482a399b0f22 100644
--- a/wizards/source/access2base/UtilProperty.xba
+++ b/wizards/source/access2base/UtilProperty.xba
@@ -326,4 +326,5 @@ Const cstEqualArray = " = (", cstEqual = " = "
_StrToPropValues = vResult
End Function
+
</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Utils.xba b/wizards/source/access2base/Utils.xba
index 3a0c90e76331..22bd15769e36 100644
--- a/wizards/source/access2base/Utils.xba
+++ b/wizards/source/access2base/Utils.xba
@@ -1295,5 +1295,4 @@ Private Function _UTF8Encode(ByVal psChar As String) As String
End Function ' _UTF8Encode V1.4.0
-
</script:module>
\ No newline at end of file
More information about the Libreoffice-commits
mailing list