tdf#68547 Turkısh "ı" ıs specıal

Capital "i" is "İ"
Small "I" is "ı"
Therefore, any BASIC we ship had better be clean of case-insensitive function
name comparisons (or at least those involving "i"s), because they will not
work when the system locale is Turkish.

Change-Id: Ibf3a35a55b6b1ba384731dfa92caf24b51245530
Reviewed-on: https://gerrit.libreoffice.org/14995Reviewed-by: Noel Grandin <noelgrandin@gmail.com>
Tested-by: Noel Grandin <noelgrandin@gmail.com>

wizards/source/euro/Common.xba

@@ -159,7 +159,7 @@ Dim oFormatofObject() as Object
 		CheckFormatType = False
 		Exit Function
 	End If
-	If FieldinArray(CurrSymbolList(),2,oFormatofObject.CurrencySymbol) Then
+	If FieldInArray(CurrSymbolList(),2,oFormatofObject.CurrencySymbol) Then
 		' If the Currencysymbol of the object is the one needed, then check the Currency extension
 		sFormatCurrExt = oFormatofObject.CurrencyExtension
 

wizards/source/euro/ConvertRun.xba

@@ -286,7 +286,7 @@ End Sub
 
 ' Checks if a Field (LocField) is already defined in an Array
 ' Returns 'True' or 'False'
-Function FieldinList(LocList(), MaxIndex as integer, ByVal LocField ) As Boolean
+Function FieldInList(LocList(), MaxIndex as integer, ByVal LocField ) As Boolean
 Dim i as integer
 	LocField = Ucase(LocField)
 	For i = Lbound(LocList()) to MaxIndex

wizards/source/euro/Writer.xba

@@ -74,7 +74,7 @@ Dim MaxIndex as Integer
 					End If
 				ElseIf oTextField.TextFieldMaster.PropertySetInfo.HasPropertyByName("Value") Then
 					CurInstanceName = oTextField.TextFieldMaster.InstanceName
-					If Not FieldinArray(InstanceNames(), MaxIndex, CurInstanceName) Then
+					If Not FieldInArray(InstanceNames(), MaxIndex, CurInstanceName) Then
 						oTextField.TextFieldMaster.Content = CStr(Round(oTextField.TextFieldMaster.Value/CurrFactor,2))
 						InstanceNames(MaxIndex) = CurInstanceName
 						MaxIndex = MaxIndex + 1

wizards/source/template/Autotext.xba

@@ -125,7 +125,7 @@ Sub	CreateUserDatafield(oCursor, sFoundContent as String)
 	oUserfield = oDocAuto.CreateInstance("com.sun.star.text.TextField.ExtendedUser")
 	sFoundList() = ArrayoutofString(sFoundContent,":",MaxIndex)
 	UserInfo = UCase(LTrim(sFoundList(1)))
-	UserIndex = IndexinArray(UserInfo, UserfieldDatatype())
+	UserIndex = IndexInArray(UserInfo, UserfieldDatatype())
 	If UserIndex <> -1 Then
 		oUserField.UserDatatype = UserIndex
 		oCursor.Text.InsertTextContent(oCursor,oUserField,True)

wizards/source/tools/Listbox.xba

@@ -172,10 +172,10 @@ Dim iOldSourceSelect as Integer
 		m = 0
 		For n = 0 To MaxOriginalIndex
 			SearchString = OriginalList(n)
-			If IndexinArray(SearchString, SelList()) <> -1 Then
+			If IndexInArray(SearchString, SelList()) <> -1 Then
 				NewSourceList(m) =  SearchString
 				m = m + 1
-			ElseIf IndexinArray(SearchString, SourceList()) <> -1 Then
+			ElseIf IndexInArray(SearchString, SourceList()) <> -1 Then
 				NewSourceList(m) =  SearchString
 				m = m + 1
 			End If

wizards/source/tools/Strings.xba

@@ -158,7 +158,7 @@ End Sub
 
 ' Checks if a Field (LocField) is already defined in an Array
 ' Returns 'True' or 'False'
-Function FieldinArray(LocArray(), MaxIndex as integer, LocField as String) As Boolean
+Function FieldInArray(LocArray(), MaxIndex as integer, LocField as String) As Boolean
 Dim i as integer
 	For i = Lbound(LocArray()) to MaxIndex
 		If Ucase(LocArray(i)) = Ucase(LocField) Then
@@ -172,7 +172,7 @@ End Function
 
 ' Checks if a Field (LocField) is already defined in an Array
 ' Returns 'True' or 'False'
-Function FieldinList(LocField, BigList()) As Boolean
+Function FieldInList(LocField, BigList()) As Boolean
 Dim i as integer
 	For i = Lbound(BigList()) to Ubound(BigList())
 		If LocField = BigList(i) Then
@@ -186,15 +186,15 @@ End Function
 
 ' Retrieves the Index of the delivered String 'SearchString' in
 ' the Array LocList()'
-Function IndexinArray(SearchString as String, LocList()) as Integer
+Function IndexInArray(SearchString as String, LocList()) as Integer
 Dim i as integer
 	For i = Lbound(LocList(),1) to Ubound(LocList(),1)
 		If Ucase(LocList(i,0)) = Ucase(SearchString) Then
-			IndexinArray = i
+			IndexInArray = i
 			Exit Function
 		End if
 	Next
-	IndexinArray = -1
+	IndexInArray = -1
 End Function
 
 
@@ -356,7 +356,7 @@ Dim LocFileName as String
 End Function
 
 
-Function CountCharsinString(BigString, LocChar as String, ByVal StartPos as Integer) as Integer
+Function CountCharsInString(BigString, LocChar as String, ByVal StartPos as Integer) as Integer
 Dim LocCount%, LocPos%
 	LocCount = 0
 	Do

wizards/source/tools/UCB.xba

@@ -89,7 +89,7 @@ Dim sFileArray(StartUbound,1) as String
 						If RealFileContent <> "" Then
 							' Retrieve the Index in the Array, where a Filename is positioned
 							If Not IsMissing(sFileContent()) Then
-								If (FieldinArray(sFileContent(), Ubound(sFileContent), RealFileContent)) Then
+								If (FieldInArray(sFileContent(), Ubound(sFileContent), RealFileContent)) Then
 									' The extension of the current file passes the filter and is therefore admitted to the
 									' fileList
 									If Not IsMissing(sExtension) Then

wizards/source/tutorials/TutorialOpen.xba

@@ -54,7 +54,7 @@ Sub Init
 			oDocInfo.Read(completPath)
 			sDocTitle = oDocInfo.Title
 			if(not isNull(sDocTitle) And len(sDocTitle) > 0) Then
-				oListbox.additem(sDocTitle,0)
+				oListbox.addItem(sDocTitle,0)
 				tempFiles(tempCount) = completPath
 				tempCount = tempCount + 1
 			End If