changed 'LoadLibrary' to 'BasicLibraries.LoadLibrary'

1 files changed, 21 insertions, 21 deletions

diff --git a/wizards/source/webwizard/HtmlAutoPilotBasic.xba b/wizards/source/webwizard/HtmlAutoPilotBasic.xba
index 5009db1ab..c7c3be6e9 100644
--- a/wizards/source/webwizard/HtmlAutoPilotBasic.xba
+++ b/wizards/source/webwizard/HtmlAutoPilotBasic.xba
@@ -42,7 +42,7 @@ Public DialogModel as Object
 
 Sub Main
 'On Local Error Goto GlobalErrorHandler
-	LoadLibrary("tools")
+        BasicLibraries.LoadLibrary("Tools")
 	oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
 	oBaseDocument = StarDesktop.LoadComponentFromURL("private:factory/swriter/web", "_blank", 0, NoArgs())
 	oViewSettings = oBaseDocument.CurrentController.ViewSettings
@@ -65,7 +65,7 @@ Sub Main
 	oCursor = oBasedocument.Text.CreateTextCursor
 	oCursor.InsertDocumentfromURL(FileStr, NoArgs())
 	SetProgressValue(40)
-	DialogModel.optTiled.State = 1	
+	DialogModel.optTiled.State = 1
 	NumberofStyles = FillupWebListbox(oUcb, "/stl", MainDialog, "lbStyles", Style())
 	SetProgressValue(50)
 	LoadWebPageStyles(oBaseDocument)
@@ -82,7 +82,7 @@ GLOBALERRORHANDLER:
 End Sub
 
 
-Function SetProgressValue(iValue as Integer)	
+Function SetProgressValue(iValue as Integer)
 	If iValue = 0 Then
 		ProgressBar.End
 	End If
@@ -104,7 +104,7 @@ Dim CurInd as Integer
 	oCursor.GotoEnd(True)
 	oCursor.InsertDocumentfromURL(FileStr, NoArgs())
 	SetBulletAndGraphics
-	CheckControls(oBaseDocument.DrawPage)	
+	CheckControls(oBaseDocument.DrawPage)
 ErrorOcurred:
 	If Err <> 0 Then
 		MsgBox(WebWiz_gErrWhileReloading$, 16, WebWiz_gWizardName$)
@@ -135,7 +135,7 @@ Dim CurIndex as Integer
 	End With
 	SetBulletAndGraphics()
 	CheckControls(oBaseDocument.DrawPage)
-	oViewCursor.GotoStart(False)	
+	oViewCursor.GotoStart(False)
 	oBaseDocument.UnlockControllers
 	ToggleWindow(True)
 End Sub
@@ -195,7 +195,7 @@ End Sub
 Sub EndDialog()
 	If DialogModel.chkSaveasTemplate.State = 1 Then
 		' Generating template? Set events later!
-		AttachBasicMacroToEvent(oBaseDocument,"OnNew", "WebWizard.HtmlAutoPilotBasic.SetEvent()")	
+		AttachBasicMacroToEvent(oBaseDocument,"OnNew", "WebWizard.HtmlAutoPilotBasic.SetEvent()")
 		' Call the Store template dialog
 		DispatchSlot(5538)
 	Else
@@ -220,10 +220,10 @@ Dim oDocument as Object
 ' from the AutoPilot or from a template. It is not possible to set these
 ' links for the template created by the AutoPilot because then it is not
 ' possible to modify the template.
-	LoadLibrary("tools")
+        BasicLibraries.LoadLibrary("tools")
 	oDocument = StarDesktop.ActiveFrame.Controller.Model
-	AttachBasicMacroToEvent(oDocument,"OnSaveDone", "WebWizard.HtmlAutoPilotBasic.CopyGraphics()")	
-	AttachBasicMacroToEvent(oDocument,"OnSaveAsDone", "WebWizard.HtmlAutoPilotBasic.CopyGraphics()")	
+	AttachBasicMacroToEvent(oDocument,"OnSaveDone", "WebWizard.HtmlAutoPilotBasic.CopyGraphics()")
+	AttachBasicMacroToEvent(oDocument,"OnSaveAsDone", "WebWizard.HtmlAutoPilotBasic.CopyGraphics()")
 End Sub
 
 
@@ -236,13 +236,13 @@ Dim i as Integer
 Dim GraphicFilePath as String
 Dim SavePath$
 Dim GraphicFileName as String
-	LoadLibrary("tools")
-	GetPaths()	
+        BasicLibraries.LoadLibrary("tools")
+	GetPaths()
 	oBaseDocument = StarDesktop.ActiveFrame.Controller.Model
 	Msgbox oBaseDocument.Url
 	SavePath = oBaseDocument.Url
 	oGraphicObjects = oBaseDocument.GraphicObjects
-	
+
 	For i = 0 to oGraphicObjects.Count-1
 		oGraphic = oGraphicObjects.GetbyIndex(i)
 		GraphicFilePath = oGraphic.GraphicURL
@@ -255,7 +255,7 @@ Dim GraphicFileName as String
 	FileCopy BulletDir & GraphicFileName, SavePath & GraphicFileName
 
 	SetBulletGraphics(GraphicFileName)
-	
+
 '	' Copy background graphic
 '	If ActiveWindow.Page.GrfFilename<>"" Then
 '		' Set new background graphic
@@ -298,11 +298,11 @@ Dim a as Integer
 Dim SelList(0) as Integer
 Dim LocMaxIndex as Integer
 	oListboxControl = oDialog.GetControl(ListboxName)
-	
+
 	oDocInfo = createUnoService("com.sun.star.document.StandaloneDocumentInfo")
 	FilterLen = Len(sFileFilter)
 	bItemFound = False
-	TemplatePath = GetOfficeSubPath("Template", "wizard/web/")	
+	TemplatePath = GetOfficeSubPath("Template", "wizard/web/")
 	DirContent() = oUcb.GetFolderContents(TemplatePath,True)
 	LocMaxIndex = Ubound(DirContent())
 	a = 0
@@ -385,7 +385,7 @@ Dim oNewBuffer(1) as New com.sun.star.beans.PropertyValue
 			oLevel() = oRules.GetByIndex(n)
 			bDoReplace = ModifyPropertyValue(oLevel(), oNumberingBuffer())
 			If bDoReplace Then
-				oRules.ReplaceByIndex(n, oNumberingBuffer())		
+				oRules.ReplaceByIndex(n, oNumberingBuffer())
 			End If
 		Next n
 		oBookmarkCursor.NumberingRules = oRules
@@ -394,7 +394,7 @@ Dim oNewBuffer(1) as New com.sun.star.beans.PropertyValue
 		oNewBuffer(1).Name = "GraphicSize"
 		oSize.Height = 300
 		oSize.Width = 300
-		oNewBuffer(1).Value = oSize		
+		oNewBuffer(1).Value = oSize
 		For n = 0 To oRules.Count - 1
 			oLevel() = oRules.GetByIndex(0)
 			bDoReplace = ModifyPropertyValue(oLevel(), oNewBuffer())
@@ -444,7 +444,7 @@ Dim BackGroundURL as String
 Dim oBackGraph as Object
 Dim i, BackColor as Long
 Dim oFamilies as Object, oFamily as Object, oStyle as Object
-Dim StylesOptions(0) as New com.sun.star.beans.PropertyValue	
+Dim StylesOptions(0) as New com.sun.star.beans.PropertyValue
 
 	If SourceFile <> "" Then
 		StylesOptions(0).Name = "OverwriteStyles"
@@ -463,7 +463,7 @@ Dim StylesOptions(0) as New com.sun.star.beans.PropertyValue
 	End If
 	oFamilies = oDocument.StyleFamilies
 	oFamily = oFamilies.GetbyName("PageStyles")
-'	oStyle = oDocument.StyleFamilies.GetByName("PageStyles").GetByName("Standard")	
+'	oStyle = oDocument.StyleFamilies.GetByName("PageStyles").GetByName("Standard")
 	For i = 0 To oFamily.Count - 1
 		If oFamily.GetByIndex(i).IsInUse Then
 			oStyle = oFamily.GetbyIndex(i)
@@ -510,7 +510,7 @@ Dim oLocDocument as Object
 	oFamilies = oLocDocument.StyleFamilies
 	oFamily = oFamilies.GetbyName("PageStyles")
 	For i = 0 To oFamily.Count - 1
-		If oFamily.GetByIndex(i).IsInUse Then	
+		If oFamily.GetByIndex(i).IsInUse Then
 			oStyle = oFamily.GetbyIndex(i)
 			If oStyle.PropertySetInfo.HasPropertybyName("BackGraphicURL") Then
 				oStyle.BackGraphicLocation = iBackgroundValue
@@ -529,4 +529,4 @@ Sub SetTileBackgroundorNot(DialogModel as Object, oStyle as Object)
   	End If
 End Sub
 
-</script:module>
\ No newline at end of file
+</script:module>