From 370c65e709eb074c9982c56a2400cf945641ffaf Mon Sep 17 00:00:00 2001 From: Andrea Gelmini Date: Fri, 24 Mar 2017 15:37:27 +0100 Subject: Fix typos Change-Id: I80b6d080aa31ff8b9d043b983993f4d26d8dc87c Reviewed-on: https://gerrit.libreoffice.org/35662 Tested-by: Jenkins Reviewed-by: Julien Nabet --- wizards/source/access2base/Application.xba | 4 ++-- wizards/source/access2base/Recordset.xba | 4 ++-- wizards/source/access2base/Utils.xba | 4 ++-- wizards/source/depot/Lang_fr.xba | 4 ++-- wizards/source/euro/Protect.xba | 2 +- wizards/source/importwizard/FilesModul.xba | 2 +- 6 files changed, 10 insertions(+), 10 deletions(-) (limited to 'wizards/source') diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba index a972b3ca6bab..9fc7308955cb 100644 --- a/wizards/source/access2base/Application.xba +++ b/wizards/source/access2base/Application.xba @@ -427,7 +427,7 @@ Const cstDot = "." If Not Utils._CheckArgument(pvIndex, 1, Utils._AddNumeric(vbString)) Then Goto Exit_Function If VarType(pvIndex) = vbString Then iMode = cstByName - ' Dtermine full name STORAGE.LIBRARY.MODULE + ' Determine full name STORAGE.LIBRARY.MODULE vNames = Split(pvIndex, cstDot) If UBound(vNames) = 2 Then ElseIf UBound(vNames) = 1 Then @@ -1624,4 +1624,4 @@ Public Sub _RootInit(Optional ByVal pbForce As Boolean) If IsEmpty(_A2B_) Or pbForce Then _A2B_ = New Root_ End Sub ' _RootInit V1.1.0 - \ No newline at end of file + diff --git a/wizards/source/access2base/Recordset.xba b/wizards/source/access2base/Recordset.xba index b3b611359618..aeb7c1aaa416 100644 --- a/wizards/source/access2base/Recordset.xba +++ b/wizards/source/access2base/Recordset.xba @@ -686,7 +686,7 @@ Public Function OpenRecordset(ByVal Optional pvType As Variant _ , ByVal Optional pvOptions As Variant _ , ByVal Optional pvLockEdit As Variant _ , ByVal Optional pbClone As Boolean) As Object -'Return a Recordset object based on currentrecordset object with filter addition +'Return a Recordset object based on current recordset object with filter addition If _ErrorHandler() Then On Local Error Goto Error_Function Dim cstThisSub As String @@ -1267,4 +1267,4 @@ Error_Function: _PropertySet = False GoTo Exit_Function End Function ' _PropertySet - \ No newline at end of file + diff --git a/wizards/source/access2base/Utils.xba b/wizards/source/access2base/Utils.xba index 1d7cd1dcc970..c4ec1cae71f0 100644 --- a/wizards/source/access2base/Utils.xba +++ b/wizards/source/access2base/Utils.xba @@ -849,7 +849,7 @@ Dim lChar As Long, sByte1 As String, sByte2 As String, sByte3 As String _PercentEncode = psChar Case Asc("-"), Asc("."), Asc("_"), Asc("~") _PercentEncode = psChar - Case Asc("!"), Asc("$"), Asc("&"), Asc("'"), Asc("("), Asc(")"), Asc("*"), Asc("+"), Asc(","), Asc(";"), Asc("=") ' Reserved characters used as delimitors in query strings + Case Asc("!"), Asc("$"), Asc("&"), Asc("'"), Asc("("), Asc(")"), Asc("*"), Asc("+"), Asc(","), Asc(";"), Asc("=") ' Reserved characters used as delimiters in query strings _PercentEncode = psChar Case Asc(" "), Asc("%") _PercentEncode = "%" & Right("00" & Hex(lChar), 2) @@ -1264,4 +1264,4 @@ Private Function _UTF8Encode(ByVal psChar As String) As String End Function ' _UTF8Encode V1.4.0 - \ No newline at end of file + diff --git a/wizards/source/depot/Lang_fr.xba b/wizards/source/depot/Lang_fr.xba index 4af880e63c69..27f9a685cc29 100644 --- a/wizards/source/depot/Lang_fr.xba +++ b/wizards/source/depot/Lang_fr.xba @@ -36,7 +36,7 @@ Sub LoadFrenchLanguage() sMsgNoValidExchangeDate = "Saisissez une date correcte pour le split d'action." sMsgWrongExchangeDate = "Split impossible car il y a déjà eu des transactions après la date du split !" sMsgSellTooMuch = "Impossible de vendre autant d'actions ! Maximum : " - sMsgConfirm = "Confirmation requise" + sMsgConfirm = "Confirmation required" sMsgFreeStock = "S'agit-il d'actions gratuites ?" sMsgTotalLoss = "Prévoyez-vous une perte totale ?" sMsgAuthorization = "Requête de sécurité" @@ -172,4 +172,4 @@ Sub LoadFrenchLanguage() .cmdCancel.Label = sCancel End With End Sub - \ No newline at end of file + diff --git a/wizards/source/euro/Protect.xba b/wizards/source/euro/Protect.xba index 68ffc72f18ce..4a9cac577078 100644 --- a/wizards/source/euro/Protect.xba +++ b/wizards/source/euro/Protect.xba @@ -132,7 +132,7 @@ Sub RejectPassword() End Sub -' Reprotects the previousliy protected sheets +' Reprotects the previously protected sheets ' The password information is stored in the List 'UnProtectList()' Sub ReprotectSheets() Dim i as Integer diff --git a/wizards/source/importwizard/FilesModul.xba b/wizards/source/importwizard/FilesModul.xba index 1e6363f43099..31a4cbc03b3c 100644 --- a/wizards/source/importwizard/FilesModul.xba +++ b/wizards/source/importwizard/FilesModul.xba @@ -295,7 +295,7 @@ Dim sPrevMimeTypeorExtension as String Exit Sub End If TotFound = Ubound(FilesList()) + 1 - If FilesList(0,0) = "" Then ' Querying the number of fields in a multidimensionl Array is unsecure + If FilesList(0,0) = "" Then ' Querying the number of fields in a multidimensional Array is unsecure TotFound = 0 ' because it will return the value 0 (and not -1) even when the Array is empty SetProgressDisplay(0) End If -- cgit