From b037d1c39c5ac8f59e18d637da49fb0755abd630 Mon Sep 17 00:00:00 2001 From: Behrend Cornelius Date: Mon, 29 Oct 2001 14:21:06 +0000 Subject: [PATCH] *** empty log message *** --- wizards/source/webwizard/Bullets.xba | 5 ----- wizards/source/webwizard/HtmlAutoPilotBasic.xba | 8 ++------ wizards/source/webwizard/WebWzrd.xdl | 4 ++-- 3 files changed, 4 insertions(+), 13 deletions(-) diff --git a/wizards/source/webwizard/Bullets.xba b/wizards/source/webwizard/Bullets.xba index d2b1bc1fb1bc..64953a4610a2 100644 --- a/wizards/source/webwizard/Bullets.xba +++ b/wizards/source/webwizard/Bullets.xba @@ -40,11 +40,6 @@ Dim oNewBuffer(0) as New com.sun.star.beans.PropertyValue oBookmarkCursor.NumberingRules = oRules oNewBuffer(0).Name = "GraphicURL" oNewBuffer(0).Value = sBulletUrl -' oNewBuffer(1).Name = "GraphicSize" -' Todo: Get the original Size of the Bullet (see Bug #86196) -' oSize.Height = 300 -' oSize.Width = 300 -' oNewBuffer(1).Value = oSize For n = 0 To oRules.Count - 1 oLevel() = oRules.GetByIndex(0) bDoReplace = ModifyPropertyValue(oLevel(), oNewBuffer()) diff --git a/wizards/source/webwizard/HtmlAutoPilotBasic.xba b/wizards/source/webwizard/HtmlAutoPilotBasic.xba index 82b1cb20836c..14b4c6c9b366 100644 --- a/wizards/source/webwizard/HtmlAutoPilotBasic.xba +++ b/wizards/source/webwizard/HtmlAutoPilotBasic.xba @@ -68,7 +68,6 @@ Sub Main oCursor = oBasedocument.Text.CreateTextCursor oCursor.InsertDocumentfromURL(FileStr, NoArgs()) SetProgressValue(40) - DialogModel.optTiled.State = 1 NumberofStyles = FillupWebListbox(oUcb, "/stl", MainDialog, "lbStyles", Style()) SetProgressValue(50) LoadWebPageStyles(oBaseDocument) @@ -82,7 +81,6 @@ Sub Main MainDialog.GetControl("lbTemplate").SetFocus = True DialogModel.cbGoOn.DefaultButton = True MainDialog.Execute - GLOBALERRORHANDLER: If Err <> 0 Then MsgBox (WebWiz_gErrMsg$, 16, WebWiz_gWizardName$) @@ -394,7 +392,7 @@ Dim Bitmap As Object Dim sBitmapPath as String sBitmapPath = SOBitmapPath & "webwizard.bmp" WebWzrd.ImagePreview.ImageURL = sBitmapPath -End Sub +End Sub Sub ToggleDialogControls(ByVal bDoEnable as Boolean, Optional FocusControlName as String) @@ -414,6 +412,4 @@ Sub ToggleDialogControls(ByVal bDoEnable as Boolean, Optional FocusControlName a End If ToggleOptionButtons(DialogModel, bDoEnable) End With -End Sub - - \ No newline at end of file +End Sub \ No newline at end of file diff --git a/wizards/source/webwizard/WebWzrd.xdl b/wizards/source/webwizard/WebWzrd.xdl index da3c59234da7..cf7fd436194a 100644 --- a/wizards/source/webwizard/WebWzrd.xdl +++ b/wizards/source/webwizard/WebWzrd.xdl @@ -20,9 +20,9 @@ - + - +