changed 'LoadLibrary' to 'BasicLibraries.LoadLibrary'

2 files changed, 35 insertions, 35 deletions

diff --git a/wizards/source/euro/AutoPilotRun.xba b/wizards/source/euro/AutoPilotRun.xba
index 37228129c2ca..2f450d6c56d4 100644
--- a/wizards/source/euro/AutoPilotRun.xba
+++ b/wizards/source/euro/AutoPilotRun.xba
@@ -19,7 +19,7 @@ Public UnprotectList(50,1) as String
 Public DoUnprotect as Integer
 Public Password as String
 Public DocIndex as Integer
-Public oPathSettings as Object	
+Public oPathSettings as Object
 Public oDocInfo as Object
 Public oUcb as Object
 Public TotDocCount as Integer
@@ -27,7 +27,7 @@ Public sTotDocCount as String
 
 Sub StartAutoPilot()
 Dim i As Integer
-	LoadLibrary("tools")
+        BasicLibraries.LoadLibrary("Tools")
 	If InitResources("Euro Converter", "eur") Then
 		oDocInfo = CreateUnoService("com.sun.star.document.StandaloneDocumentInfo")
 		oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
@@ -39,7 +39,7 @@ Dim i As Integer
 End Sub
 
 
-Sub ConvertDocuments()		
+Sub ConvertDocuments()
 Dim FilesList()
 Msgbox DialogModel.lblSource.Label
 	Source = AssignFileName(DialogModel.txtSource.Text, DialogModel.lblSource.Label, True)
@@ -115,7 +115,7 @@ Function StoreDocument()
 	If TargetFile <> "" Then
 		On Local Error Goto NOSAVING
 		If TargetFile <> SourceFile Then
-			oDocument.StoreToUrl(TargetFile,NoArgs) 
+			oDocument.StoreToUrl(TargetFile,NoArgs)
 		Else
 			oDocument.Store
 		End If
@@ -152,7 +152,7 @@ End Sub
 
 Sub SourceSearchDialog()
 	If DialogModel.optWholeDir.State = 1 Then
-		'Konvertierung eines gesamten Verzeichnisses	
+		'Konvertierung eines gesamten Verzeichnisses
 		Source = Application.FileDialog( "P", sMsgSELDIR, DialogModel.txtSource.Text )  ' "Wählen Sie ein Verzeichnis"
 	Else
 		Source = Application.FileDialog( "O", sMsgSELFILE, DialogModel.txtSource.Text ) ' "Wählen Sie eine Datei"
@@ -195,14 +195,14 @@ Dim sNoDirMessage as String
 			End If
 		End if
 	Else
-		Msgbox(HeaderString & " '" & sPath & "' " &  sMsgNOTTHERE,48, sMsgDLGTITLE)	
+		Msgbox(HeaderString & " '" & sPath & "' " &  sMsgNOTTHERE,48, sMsgDLGTITLE)
 	End If
 	If bIsValid Then
 		AssignFileName() = sPath
 	Else
 		AssignFilename() = ""
 	End If
-End Function	
+End Function
 
 
 
@@ -227,8 +227,8 @@ Dim sStatustext as String
 			If oListSheet.IsProtected Then
 				' Sheet is protected by a Password
 				oDocument.CurrentController.SetActiveSheet(oListSheet)
-		
-				QueryText = ReplaceString(sMsgPWPROTECT,"'" & ListSheetName & "'", "%1TableName%1") 
+
+				QueryText = ReplaceString(sMsgPWPROTECT,"'" & ListSheetName & "'", "%1TableName%1")
 				'"Geben Sie das Kennwort zum Entschützen der Tabelle '" & ListSheetName & " ein:'"
 				Do
 					InitializePasswordDialog()
@@ -256,7 +256,7 @@ Dim sStatustext as String
 			End If
 		Else
 			' The Answer is 'No' (Tables shall not be unprotected)
-			If OldDoUnprotect = 0 Then 
+			If OldDoUnprotect = 0 Then
 				Msgbox (sMsgSHEETSNOPROTECT, 64, sMsgDLGTITLE)
 			End If       '"Tabellen werden nicht entschützt!"
 			Unprotectsheet = False
@@ -315,11 +315,11 @@ End Sub
 ' unprotected
 Sub AddSheettoUnprotectionlist(ListSheetName,Password)
 	UnprotectList(Int(UnProtectList(0,0))+ 1,0) = ListSheetName
-	UnprotectList(Int(UnProtectList(0,0))+ 1,1) = Password		
+	UnprotectList(Int(UnProtectList(0,0))+ 1,1) = Password
 	' The first Field contains the highest Index of the list
 	' and therefor has to be incremented
 	UnprotectList(0,0) = Str(Val(UnProtectList(0,0)) + 1)
-End Sub	
+End Sub
 
 
 Sub HelperDialog()
@@ -331,7 +331,7 @@ End Sub
 Sub	InitializeThirdStep()
 Dim TextBoxText as String
 	DialogModel.lblCurrencies.Visible = False
-	DialogModel.lstCurrencies.Visible = False 
+	DialogModel.lstCurrencies.Visible = False
 	DialogModel.cmdBack.Label = sBACK
 	DialogModel.LabelRetrieval.FontBold = True
 	DialogModel.LabelRetrieval.Label = sPrgsRETRIEVAL
@@ -339,14 +339,14 @@ Dim TextBoxText as String
 	DialogModel.cmdGoOn.Visible = False
 	DialogModel.Step = 3
 	If DialogModel.optWholeDir.State = 1 Then
-		TextBoxText = sSOURCEDIR & " " & Source & chr(13) '& " " 
+		TextBoxText = sSOURCEDIR & " " & Source & chr(13) '& " "
 		If DialogModel.chkRecursive.State = 1 Then
-			TextBoxText = TextBoxText & DeleteStr(sSUBDIR,"&") & chr(13)' & " " 
+			TextBoxText = TextBoxText & DeleteStr(sSUBDIR,"&") & chr(13)' & " "
 		End If
 	Else
-		TextBoxText = sSOURCEFILE & " " & Source & chr(13) '& " " 
+		TextBoxText = sSOURCEFILE & " " & Source & chr(13) '& " "
 	End If
-	TextBoxText = TextBoxText & sTARGETDIR & " " & TargetDir & chr(13)' & " " 
+	TextBoxText = TextBoxText & sTARGETDIR & " " & TargetDir & chr(13)' & " "
 	If DialogModel.chkProtect.State = 1 Then
 		TextBoxText = TextboxText & sPrgsUNPROTECT
 	End If
@@ -358,9 +358,9 @@ End Sub
 Sub SwitchBack()
 	DialogModel.Step = 2
 	DialogModel.lblCurrencies.Visible = True
-	DialogModel.lstCurrencies.Visible = True 
+	DialogModel.lstCurrencies.Visible = True
 	DialogModel.cmdBack.Visible = False
-	DialogModel.cmdGoOn.Visible = True	
+	DialogModel.cmdGoOn.Visible = True
 End Sub
 
 
@@ -395,4 +395,4 @@ Sub InitializeProgressPage()
 	DialogModel.LabelCurProgress.FontBold = True
 	DialogModel.LabelRetrieval.Visible = True
 	DialogModel.LabelCurProgress.Visible = True
-End Sub</script:module>
\ No newline at end of file
+End Sub</script:module>
diff --git a/wizards/source/euro/ConvertRun.xba b/wizards/source/euro/ConvertRun.xba
index 0df2eed92417..1effb30bc575 100644
--- a/wizards/source/euro/ConvertRun.xba
+++ b/wizards/source/euro/ConvertRun.xba
@@ -2,13 +2,13 @@
 
 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="ConvertRun" script:language="StarBasic">Option Explicit
 &apos; Todo Den Bug mit der Statuszeilengeschichte überprüfen
-&apos; Todo Vorselektion der Listbox 
+&apos; Todo Vorselektion der Listbox
 &apos; Mauspointer umschalten:
 
 &apos; Todo: Sinnigkeit von &apos;DocDisposed&apos; noch einmal überprüfen
 
 Sub Main()
-	LoadLibrary(&quot;tools&quot;)
+        BasicLibraries.LoadLibrary(&quot;Tools&quot;)
 	If InitResources(&quot;Euro Converter&quot;, &quot;eur&quot;) Then
 		DoUnProtect = 0
 		bPreSelected = True
@@ -78,7 +78,7 @@ Dim AddStyle as Boolean
 					oSheetRanges = oCursheet.CellFormatRanges.createEnumeration
 					While oSheetRanges.hasMoreElements
 						oRange = oSheetRanges.NextElement
-						If oRange.getPropertyState(&quot;NumberFormat&quot;) = 1 Then	
+						If oRange.getPropertyState(&quot;NumberFormat&quot;) = 1 Then
 							If oRange.CellStyle = CurStyleName Then
 								oSelRanges.InsertbyName(&quot;&quot;,oRange)
 							End If
@@ -94,7 +94,7 @@ Dim AddStyle as Boolean
 			For n = 0 To Ubound(Listbox.SelectedItems())
 				m = Listbox.SelectedItems(n)
 				RangeName = Listbox.StringItemList(m)
-				oListSheet = RetrieveSheetoutofRangeName(RangeName)	
+				oListSheet = RetrieveSheetoutofRangeName(RangeName)
 				AddRange = UnprotectSheet(oListSheet)
 &apos; Todo: Klären wie das am besten geht!
 				If Not AddRange Then
@@ -103,9 +103,9 @@ Dim AddStyle as Boolean
 					SelRangeList(a) = RangeName
 					SelRangeList(0) = Str(a)
 					a = a + 1
-					If oListSheet.Name = sCurSheetName Then				
+					If oListSheet.Name = sCurSheetName Then
 						oRange = RetrieveRangeoutofRangeName(RangeName)
-						oSelRanges.InsertbyName(&quot;&quot;,oRange)		
+						oSelRanges.InsertbyName(&quot;&quot;,oRange)
 					End If
 				End If
 			Next n
@@ -158,7 +158,7 @@ Dim bNoLBSelection as Boolean
 End Sub
 
 
-Sub ConvertRangesOrStylesOfDocument()	
+Sub ConvertRangesOrStylesOfDocument()
 Dim i as Integer
 Dim Listbox as Object
 Dim ItemName as String
@@ -229,10 +229,10 @@ Dim OldCurrIndex as Integer
 	If DialogModel.Step = 1 Then
 		If OldCurrIndex = -1 Then
 			DialogModel.chkComplete.State = 1
-			EnableStep1DialogControls(True,False, True)		
+			EnableStep1DialogControls(True,False, True)
 			SetOptionValuestoNull()
 		Else
-			EnableStep1DialogControls(False,False, False)		
+			EnableStep1DialogControls(False,False, False)
 			If DialogModel.optCellTemplates.State = 1 Then
 				EnableStep1DialogControls(False, False, False)
 				CreateStyleEnumeration()
@@ -243,9 +243,9 @@ Dim OldCurrIndex as Integer
 				CreateRangeEnumeration(False)
 			ElseIf DialogModel.optSelRange.State= 1 Then
 				&apos;Preselected Range
-				CheckRangeSelection()				
+				CheckRangeSelection()
 			End If
-			EnableStep1DialogControls(True, True, True)	
+			EnableStep1DialogControls(True, True, True)
 		End If
 	ElseIf DialogModel.Step = 2 Then
 		EnableStep2DialogControls(True)
@@ -311,8 +311,8 @@ Dim OldCurExtension(1) as String
 	AddSelectedRangeToSelRangesEnum()
 	bPreSelected =  CheckIfRangeisCurrency(oRange)
  	If bPreSelected Then
-&apos; Todo: Array als ganzes übergeben! 
-		OldCurrSymbolList() = CurrSymbolList()		
+&apos; Todo: Array als ganzes übergeben!
+		OldCurrSymbolList() = CurrSymbolList()
 		OldCurExtension() = CurExtension()
 		OldCurrIndex = CurrIndex
 		For i = 0 To 10
@@ -389,7 +389,7 @@ Dim LocCountry as String
 Dim LocLanguage as String
 	LocCountry = oLocale.Country
 	LocLanguage = oLocale.Language
-	For i = 0 To 1 
+	For i = 0 To 1
 		If LocLanguage = LangIDValue(CurrIndex,i,0) AND LocCountry = LangIDValue(CurrIndex,i,1) Then
 			CheckLocale = True
 			Exit Function
@@ -405,4 +405,4 @@ Sub	SetOptionValuestoNull()
 	DialogModel.optDocRanges.State = 0
 	DialogModel.optSelRange.State = 0
 End Sub
-</script:module>
\ No newline at end of file
+</script:module>