summaryrefslogtreecommitdiff
path: root/wizards
diff options
context:
space:
mode:
Diffstat (limited to 'wizards')
-rw-r--r--wizards/source/webwizard/HtmlAutoPilotBasic.xba12
-rw-r--r--wizards/source/webwizard/WebWzrd.xdl27
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