diff options
Diffstat (limited to 'wizards')
-rw-r--r-- | wizards/source/webwizard/HtmlAutoPilotBasic.xba | 12 | ||||
-rw-r--r-- | wizards/source/webwizard/WebWzrd.xdl | 27 |
2 files changed, 19 insertions, 20 deletions
diff --git a/wizards/source/webwizard/HtmlAutoPilotBasic.xba b/wizards/source/webwizard/HtmlAutoPilotBasic.xba index 9cd908d815b3..3cd7949de7d6 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 diff --git a/wizards/source/webwizard/WebWzrd.xdl b/wizards/source/webwizard/WebWzrd.xdl index 99244cb59034..78dd65e2d353 100644 --- a/wizards/source/webwizard/WebWzrd.xdl +++ b/wizards/source/webwizard/WebWzrd.xdl @@ -1,35 +1,32 @@ <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd"> -<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" dlg:id="WebWzrd" dlg:style-id="0" dlg:left="96" dlg:top="28" dlg:width="270" dlg:height="210"> - <dlg:styles> - <dlg:style dlg:style-id="0"/> - </dlg:styles> +<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" dlg:id="WebWzrd" dlg:left="96" dlg:top="28" dlg:width="270" dlg:height="210"> <dlg:bulletinboard> - <dlg:button dlg:style-id="0" dlg:id="cbCancel" dlg:tab-index="0" dlg:left="6" dlg:top="190" dlg:width="50" dlg:height="14" dlg:value="Cancel"> + <dlg:button dlg:id="cbCancel" dlg:tab-index="0" dlg:left="6" dlg:top="190" dlg:width="50" dlg:height="14" dlg:value="Cancel"> <dlg:event dlg:listener-type="com.sun.star.awt.XActionListener" dlg:event-method="actionPerformed" dlg:script-type="StarBasic" dlg:script-code="WebWizard.HtmlAutoPilotBasic.CancelHTMLWizard"/> </dlg:button> - <dlg:button dlg:style-id="0" dlg:id="cbHelp" dlg:tab-index="1" dlg:left="66" dlg:top="190" dlg:width="50" dlg:height="14" dlg:value="cbHelp"/> - <dlg:button dlg:style-id="0" dlg:id="cbGoOn" dlg:tab-index="2" dlg:left="214" dlg:top="190" dlg:width="50" dlg:height="14" dlg:value="cbGoOn"> + <dlg:button dlg:id="cbHelp" dlg:tab-index="1" dlg:left="66" dlg:top="190" dlg:width="50" dlg:height="14" dlg:value="cbHelp"/> + <dlg:button dlg:id="cbGoOn" dlg:tab-index="2" dlg:left="214" dlg:top="190" dlg:width="50" dlg:height="14" dlg:value="cbGoOn"> <dlg:event dlg:listener-type="com.sun.star.awt.XActionListener" dlg:event-method="actionPerformed" dlg:script-type="StarBasic" dlg:script-code="WebWizard.HtmlAutoPilotBasic.EndDialog"/> </dlg:button> <dlg:img dlg:id="ImagePreview" dlg:tab-index="3" dlg:left="6" dlg:top="6" dlg:width="258" dlg:height="31"/> - <dlg:menulist dlg:style-id="0" dlg:id="lbTemplate" dlg:tab-index="4" dlg:left="6" dlg:top="53" dlg:width="110" dlg:height="94"> + <dlg:menulist dlg:id="lbTemplate" dlg:tab-index="4" dlg:left="6" dlg:top="53" dlg:width="110" dlg:height="94"> <dlg:event dlg:listener-type="com.sun.star.awt.XItemListener" dlg:event-method="itemStateChanged" dlg:script-type="StarBasic" dlg:script-code="WebWizard.HtmlAutoPilotBasic.ReloadCurrentDocument"/> </dlg:menulist> - <dlg:menulist dlg:style-id="0" dlg:id="lbStyles" dlg:tab-index="5" dlg:left="154" dlg:top="53" dlg:width="110" dlg:height="94"> + <dlg:menulist dlg:id="lbStyles" dlg:tab-index="5" dlg:left="154" dlg:top="53" dlg:width="110" dlg:height="94"> <dlg:event dlg:listener-type="com.sun.star.awt.XItemListener" dlg:event-method="itemStateChanged" dlg:script-type="StarBasic" dlg:script-code="WebWizard.HtmlAutoPilotBasic.LoadWebPageStyles"/> </dlg:menulist> - <dlg:text dlg:style-id="0" dlg:id="lblTemplate" dlg:tab-index="6" dlg:left="6" dlg:top="42" dlg:width="110" dlg:height="10"/> - <dlg:text dlg:style-id="0" dlg:id="lblStyle" dlg:tab-index="7" dlg:left="154" dlg:top="42" dlg:width="110" dlg:height="10" dlg:value="lblStyle"/> - <dlg:checkbox dlg:style-id="0" dlg:id="chkSaveasTemplate" dlg:tab-index="8" dlg:left="6" dlg:top="164" dlg:width="110" dlg:height="12" dlg:value="chkSaveasTemplate"/> + <dlg:text dlg:id="lblTemplate" dlg:tab-index="6" dlg:left="6" dlg:top="42" dlg:width="110" dlg:height="10"/> + <dlg:text dlg:id="lblStyle" dlg:tab-index="7" dlg:left="154" dlg:top="42" dlg:width="110" dlg:height="10" dlg:value="lblStyle"/> + <dlg:checkbox dlg:id="chkSaveasTemplate" dlg:tab-index="8" dlg:left="6" dlg:top="164" dlg:width="110" dlg:height="12" dlg:value="chkSaveasTemplate"/> <dlg:radiogroup> - <dlg:radio dlg:style-id="0" dlg:id="optTiled" dlg:tab-index="9" dlg:left="161" dlg:top="164" dlg:width="96" dlg:height="10" dlg:tag="11" dlg:value="optTiled"> + <dlg:radio dlg:id="optTiled" dlg:tab-index="9" dlg:left="161" dlg:top="164" dlg:width="96" dlg:height="10" dlg:tag="11" dlg:value="optTiled"> <dlg:event dlg:listener-type="com.sun.star.awt.XItemListener" dlg:event-method="itemStateChanged" dlg:script-type="StarBasic" dlg:script-code="WebWizard.HtmlAutoPilotBasic.SetBackGraphicStyle"/> </dlg:radio> - <dlg:radio dlg:style-id="0" dlg:id="optArea" dlg:tab-index="10" dlg:left="161" dlg:top="177" dlg:width="96" dlg:height="10" dlg:tag="10" dlg:value="optArea"> + <dlg:radio dlg:id="optArea" dlg:tab-index="10" dlg:left="161" dlg:top="177" dlg:width="96" dlg:height="10" dlg:tag="10" dlg:value="optArea"> <dlg:event dlg:listener-type="com.sun.star.awt.XItemListener" dlg:event-method="itemStateChanged" dlg:script-type="StarBasic" dlg:script-code="WebWizard.HtmlAutoPilotBasic.SetBackGraphicStyle"/> </dlg:radio> </dlg:radiogroup> - <dlg:fixedline dlg:style-id="0" dlg:id="hlnBackground" dlg:tab-index="11" dlg:left="154" dlg:top="152" dlg:width="110" dlg:height="9" dlg:value="hlnBackground"/> + <dlg:fixedline dlg:id="hlnBackground" dlg:tab-index="11" dlg:left="154" dlg:top="152" dlg:width="110" dlg:height="9" dlg:value="hlnBackground"/> </dlg:bulletinboard> </dlg:window>
\ No newline at end of file |