diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-06-27 05:43:34 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-06-27 05:43:34 +0000 |
| commit | c04baba1c5655743fb73b1663b63c301232800e5 (patch) | |
| tree | d8cdf09e4efae5547c9e8166b909319c0a65e852 /wizards/source/webwizard/HtmlAutoPilotBasic.xba | |
| parent | abc09e3ef34ab6dc11cea41264952fb7b1e23ee1 (diff) | |
#88794# StandaloneDocumentinfo object replaced
Diffstat (limited to 'wizards/source/webwizard/HtmlAutoPilotBasic.xba')
| -rw-r--r-- | wizards/source/webwizard/HtmlAutoPilotBasic.xba | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/wizards/source/webwizard/HtmlAutoPilotBasic.xba b/wizards/source/webwizard/HtmlAutoPilotBasic.xba index 9cd908d81..3cd7949de 100644 --- a/wizards/source/webwizard/HtmlAutoPilotBasic.xba +++ b/wizards/source/webwizard/HtmlAutoPilotBasic.xba @@ -127,7 +127,7 @@ End Sub Sub LoadWebPageStyles() Dim CurIndex as Integer ToggleDialogControls(False) - oBaseDocument.LockControllers +' oBaseDocument.LockControllers CurIndex = GetCurIndex(DialogModel.lbStyles, Style(), NumberofStyles%,8) LoadNewStyles(oBaseDocument, DialogModel, CurIndex, FileStr, Style(), TextureDir) CurrentBullet$ = BulletDir + Style(6, CurIndex) @@ -144,7 +144,7 @@ Dim CurIndex as Integer SetBulletAndGraphics() CheckControls(oBaseDocument.DrawPage) oViewCursor.GotoStart(False) - oBaseDocument.UnlockControllers +' oBaseDocument.UnlockControllers ToggleDialogControls(True) End Sub @@ -287,6 +287,7 @@ End Function Function FillupWebListbox(oUcb as Object, sFileFilter as String, oDialog as Object, ListboxName as String, List() as String) Dim oDocInfo as Object +Dim oAloneDocInfo as Object Dim oListboxControl as Object Dim Description as String Dim sField as String @@ -305,8 +306,8 @@ Dim a as Integer Dim SelList(0) as Integer Dim LocMaxIndex as Integer oListboxControl = oDialog.GetControl(ListboxName) - - oDocInfo = createUnoService("com.sun.star.document.StandaloneDocumentInfo") + oDocInfo = CreateUnoService("com.sun.star.document.DocumentProperties") + oAloneDocInfo = createUnoService( "com.sun.star.document.StandaloneDocumentInfo" ) FilterLen = Len(sFileFilter) bItemFound = False TemplatePath = GetOfficeSubPath("Template", "wizard/web/") @@ -330,6 +331,7 @@ Dim LocMaxIndex as Integer If Instr(1,Filename, sFileFilter) Then bItemFound = True Description = RetrieveDocTitle(oDocInfo, FileName) + oAloneDocInfo.LoadFromUrl(FileName) oListboxControl.AddItem(Description,a) a = a + 1 List(1,i) = Description @@ -338,7 +340,7 @@ Dim LocMaxIndex as Integer Else m = 2 For n = 0 To 3 - sField = oDocInfo.GetUserFieldValue(n) + sField = oAloneDocInfo.GetUserFieldValue(n) sFieldList() = ArrayoutofString(sField, " ", MaxIndex) For s = 0 To MaxIndex If m < 6 Then |