diff options
author | Tom Verbeek <tv@openoffice.org> | 2001-04-25 09:10:51 +0000 |
---|---|---|
committer | Tom Verbeek <tv@openoffice.org> | 2001-04-25 09:10:51 +0000 |
commit | 374faa1fe260c75d507dc59553a6b4be53d94247 (patch) | |
tree | 280a3620cc7223cbdf0f992554a0231caf59b703 /wizards/source/webwizard | |
parent | a73f0bfad51f25f370e9e52c11b5074e8fcc35f5 (diff) |
changed 'LoadLibrary' to 'BasicLibraries.LoadLibrary'
Diffstat (limited to 'wizards/source/webwizard')
-rw-r--r-- | wizards/source/webwizard/HtmlAutoPilotBasic.xba | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/wizards/source/webwizard/HtmlAutoPilotBasic.xba b/wizards/source/webwizard/HtmlAutoPilotBasic.xba index 5009db1aba31..c7c3be6e9703 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> |