changed 'LoadLibrary' to 'BasicLibraries.LoadLibrary'

3 files changed, 11 insertions, 11 deletions

diff --git a/wizards/source/template/Autotext.xba b/wizards/source/template/Autotext.xba
index 96037115d417..14b74d3ef205 100644
--- a/wizards/source/template/Autotext.xba
+++ b/wizards/source/template/Autotext.xba
@@ -6,7 +6,7 @@ Public BulletList(7) as Integer
 
 Sub Main()
 	' Initialization...
-	LoadLibrary("Tools")
+        BasicLibraries.LoadLibrary("Tools")
 
 	UserfieldDatatype(0) = "COMPANY"
 	UserfieldDatatype(1) = "FIRSTNAME"
@@ -135,4 +135,4 @@ Dim MaxIndex as Integer
 End Sub
 
 
-</script:module>
\ No newline at end of file
+</script:module>
diff --git a/wizards/source/template/Correspondence.xba b/wizards/source/template/Correspondence.xba
index 9a8883efd03c..27299a7fc35c 100644
--- a/wizards/source/template/Correspondence.xba
+++ b/wizards/source/template/Correspondence.xba
@@ -10,7 +10,7 @@ Public DialogExited
 Public oDocument, oText, oBookMarks, oBookMark, oBookMarkCursor, oBookText as Object
 
 Sub Main
-	LoadLibrary(&quot;tools&quot;)
+        BasicLibraries.LoadLibrary(&quot;Tools&quot;)
 	TemplateDialog = LoadDialog(&quot;Template&quot;, &quot;TemplateDialog&quot;)
 	DialogModel = TemplateDialog.Model
 	DialogModel.Step = 2
@@ -54,13 +54,13 @@ Dim oFields as Object
 		msgError$ = GetResText(1302)
 		DialogModel.Title = GetResText(1303)
 		DialogModel.CmdCancel.Label = GetResText(1102)
-		DialogModel.CmdCorrGoOn.Label = GetResText(1103)		
+		DialogModel.CmdCorrGoOn.Label = GetResText(1103)
 		DialogModel.OptSingle.Label = GetResText(1303 + 1)
 		DialogModel.Optmerge.Label = GetResText(1303 + 2)
 		LoadLanguageCorrespondence() = True
 	Else
-&apos; Todo: Meldung, was Passiert wenn Datenbank nicht angelegt werden konnte	
-		LoadLanguageCorrespondence() = False	
+&apos; Todo: Meldung, was Passiert wenn Datenbank nicht angelegt werden konnte
+		LoadLanguageCorrespondence() = False
 	End If
 End Function
 
@@ -209,7 +209,7 @@ Dim oDisp as Object
 	oUrl.Complete = &quot;slot:6517&quot;
 	oTrans.parsestrict(oUrl)
 
-	oDisp = StarDesktop.currentFrame.queryDispatch(oUrl, &quot;_self&quot;, 0)	
+	oDisp = StarDesktop.currentFrame.queryDispatch(oUrl, &quot;_self&quot;, 0)
 	oDisp.dispatch(oUrl, oArg())
 End Sub
-</script:module>
\ No newline at end of file
+</script:module>
diff --git a/wizards/source/template/Samples.xba b/wizards/source/template/Samples.xba
index d02e2da42018..9c71f04d653a 100644
--- a/wizards/source/template/Samples.xba
+++ b/wizards/source/template/Samples.xba
@@ -50,7 +50,7 @@ Dim mFileProperties(0) as New com.sun.star.beans.PropertyValue
 				oNewDocument = StarDesktop.LoadComponentFromURL(DocPath,&quot;_blank&quot;,0, mFileProperties())
 				PrepareForEditing() = oNewDocument
 &apos;        		If IsFatOffice() Then
-          			&apos; If opened within a FatOffice Environment close doc. 
+          			&apos; If opened within a FatOffice Environment close doc.
           			&apos; Note: Due to a bug in Web office it is not possible to close the doc there
 					oDocument.Dispose()
  &apos;       		End If
@@ -75,7 +75,7 @@ Dim sFilterName(0) as String
 Dim StyleNames() as String
 Dim t as Integer
 Dim MaxIndex as Integer
-	LoadLibrary(&quot;Tools&quot;)
+        BasicLibraries.LoadLibrary(&quot;Tools&quot;)
 	If InitResources(&quot;&apos;Template&apos;&quot;, &quot;tpl&quot;) then
 		oDocument = StarDesktop.ActiveFrame.Controller.Model
 		If oDocument.SupportsService(&quot;com.sun.star.sheet.SpreadsheetDocument&quot;) Then
@@ -176,4 +176,4 @@ Sub KillTempFile()
 	End If
 End Sub
 
-</script:module>
\ No newline at end of file
+</script:module>