[PATCH] Remove unused web wizard
Julien Nabet (via Code Review)
gerrit at gerrit.libreoffice.org
Wed Apr 17 11:29:55 PDT 2013
Hi,
I have submitted a patch for review:
https://gerrit.libreoffice.org/3438
To pull it, you can do:
git pull ssh://gerrit.libreoffice.org:29418/core refs/changes/38/3438/1
Remove unused web wizard
Change-Id: I76ed89c4a46e5a7b6a639e2c2717bc53d9b68bc9
---
M wizards/Module_wizards.mk
D wizards/Zip_web.mk
D wizards/source/webwizard/Bullets.xba
D wizards/source/webwizard/Common.xba
D wizards/source/webwizard/HtmlAutoPilotBasic.xba
D wizards/source/webwizard/Language.xba
D wizards/source/webwizard/WebWzrd.xdl
D wizards/source/webwizard/dialog.xlb
D wizards/source/webwizard/script.xlb
9 files changed, 0 insertions(+), 950 deletions(-)
diff --git a/wizards/Module_wizards.mk b/wizards/Module_wizards.mk
index d979ed0..098433d 100644
--- a/wizards/Module_wizards.mk
+++ b/wizards/Module_wizards.mk
@@ -49,7 +49,6 @@
Zip_tools \
Zip_tutorials \
Zip_usr \
- Zip_web \
))
ifeq ($(SOLAR_JAVA),TRUE)
diff --git a/wizards/Zip_web.mk b/wizards/Zip_web.mk
deleted file mode 100644
index c552440..0000000
--- a/wizards/Zip_web.mk
+++ /dev/null
@@ -1,41 +0,0 @@
-# -*- Mode: makefile-gmake; tab-width: 4; indent-tabs-mode: t -*-
-#*************************************************************************
-#
-# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-#
-# Copyright 2000, 2011 Oracle and/or its affiliates.
-#
-# OpenOffice.org - a multi-platform office productivity suite
-#
-# This file is part of OpenOffice.org.
-#
-# OpenOffice.org is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Lesser General Public License version 3
-# only, as published by the Free Software Foundation.
-#
-# OpenOffice.org is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU Lesser General Public License version 3 for more details
-# (a copy is included in the LICENSE file that accompanied this code).
-#
-# You should have received a copy of the GNU Lesser General Public License
-# version 3 along with OpenOffice.org. If not, see
-# <http://www.openoffice.org/license.html>
-# for a copy of the LGPLv3 License.
-#
-#*************************************************************************
-
-$(eval $(call gb_Zip_Zip,basicsrvweb,$(SRCDIR)/wizards/source/webwizard))
-
-$(eval $(call gb_Zip_add_files,basicsrvweb,\
- Bullets.xba \
- Common.xba \
- dialog.xlb \
- HtmlAutoPilotBasic.xba \
- Language.xba \
- script.xlb \
- WebWzrd.xdl \
-))
-
-# vim: set noet sw=4 ts=4:
diff --git a/wizards/source/webwizard/Bullets.xba b/wizards/source/webwizard/Bullets.xba
deleted file mode 100644
index 76d825a..0000000
--- a/wizards/source/webwizard/Bullets.xba
+++ /dev/null
@@ -1,134 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<!--
- * This file is part of the LibreOffice project.
- *
- * This Source Code Form is subject to the terms of the Mozilla Public
- * License, v. 2.0. If a copy of the MPL was not distributed with this
- * file, You can obtain one at http://mozilla.org/MPL/2.0/.
- *
- * This file incorporates work covered by the following license notice:
- *
- * Licensed to the Apache Software Foundation (ASF) under one or more
- * contributor license agreements. See the NOTICE file distributed
- * with this work for additional information regarding copyright
- * ownership. The ASF licenses this file to you under the Apache
- * License, Version 2.0 (the "License"); you may not use this file
- * except in compliance with the License. You may obtain a copy of
- * the License at http://www.apache.org/licenses/LICENSE-2.0 .
--->
-<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Bullets" script:language="StarBasic">REM ***** BASIC *****
-Option Explicit
-
-
-Sub SetBulletGraphics(sBulletUrl as String)
-Dim i as Integer
-Dim oBookMarkCursor as Object
- oBookmarks = oBaseDocument.BookMarks
- For i = 0 To oBookmarks.Count - 1
- oBookMark = oBookmarks.GetbyIndex(i)
- oBookMarkCursor = oBookMark.Anchor.Text.CreateTextCursorByRange(oBookMark.Anchor)
- If oBookMarkCursor.PropertySetInfo.HasPropertybyName("NumberingRules") Then
- ChangeBulletURL(sBulletUrl, oBookMarkCursor)
- End If
- Next i
-End Sub
-
-
-Sub ChangeBulletURL(sBulletUrl as String, oBookMarkCursor as Object)
-Dim n, m as Integer
-Dim oLevel()
-Dim oRules
-Dim bDoReplace as Boolean
-Dim oSize as New com.sun.star.awt.Size
-Dim oNumberingBuffer(0) as New com.sun.star.beans.PropertyValue
-Dim oNewBuffer(0) as New com.sun.star.beans.PropertyValue
- oRules = oBookMarkCursor.NumberingRules
- If Vartype(oRules()) = 9 Then
- oNumberingBuffer(0).Name = "NumberingType"
- oNumberingBuffer(0).Value = com.sun.star.style.NumberingType.BITMAP
- For n = 0 To oRules.Count - 1
- oLevel() = oRules.GetByIndex(n)
- bDoReplace = ModifyPropertyValue(oLevel(), oNumberingBuffer())
- If bDoReplace Then
- oRules.ReplaceByIndex(n, oNumberingBuffer())
- End If
- Next n
- oBookmarkCursor.NumberingRules = oRules
- oNewBuffer(0).Name = "GraphicURL"
- oNewBuffer(0).Value = sBulletUrl
- For n = 0 To oRules.Count - 1
- oLevel() = oRules.GetByIndex(0)
- bDoReplace = ModifyPropertyValue(oLevel(), oNewBuffer())
- If bDoReplace Then
- oRules.ReplaceByIndex(n, oNewBuffer())
- End If
- Next n
- oBookmarkCursor.NumberingRules = oRules
- End If
-End Sub
-
-
-Sub BulletUrlsToSavePath(SavePath as String)
-Dim n as Integer
-Dim m as Integer
-Dim i as Integer
-Dim sNewBulletUrl as String
-Dim oLevel()
-Dim oRules
-Dim bIsFirstRun as Boolean
-Dim oNewBuffer()' as New com.sun.star.beans.PropertyValue
-Dim bDoReplace as Boolean
-Dim oBookmarkCursor as Object
- bIsFirstRun = True
- oBookmarks = oBaseDocument.BookMarks
- For i = 0 To oBookmarks.Count - 1
- oBookMark = oBookmarks.GetbyIndex(i)
- oBookMarkCursor = oBookMark.Anchor.Text.CreateTextCursorByRange(oBookMark.Anchor)
- If oBookMarkCursor.PropertySetInfo.HasPropertybyName("NumberingRules") Then
- oRules = oBookMarkCursor.NumberingRules
- If Vartype(oRules()) = 9 Then
- For n = 0 To oRules.Count - 1
- oLevel() = oRules.GetByIndex(n)
- oNewBuffer() = ChangeBulletUrlToSavePath(SavePath, oLevel(), bIsFirstRun, bDoReplace)
- If bDoReplace Then
- bIsFirstRun = False
- oRules.ReplaceByIndex(n, oNewBuffer())
- End If
- Next n
- oBookmarkCursor.NumberingRules = oRules
- End If
- End If
- Next i
-End Sub
-
-
-Function ChangeBulletUrlToSavePath(SavePath as String, oLevel(), bIsFirstRun as Boolean, bDoReplace as Boolean)
-Dim MaxIndex as Integer
-Dim i as Integer
-Dim BulletName as String
-Dim oSize as New com.sun.star.awt.Size
- MaxIndex = Ubound(oLevel())
- Dim oNewBuffer(MaxIndex) as New com.sun.star.beans.PropertyValue
- For i = 0 To MaxIndex
- oNewBuffer(i).Name = oLevel(i).Name
- If oLevel(i).Name = "GraphicURL" Then
- bDoReplace = True
- BulletName = FileNameoutofPath(oLevel(i).Value)
- If bIsFirstRun Then
- If oUcb.exists(SavePath & Bulletname) Then
- FileCopy(oLevel(i).Value, SavePath & BulletName)
- End If
- End If
- oNewBuffer(i).Value = BulletName
-' ElseIf oLevel(i).Name = "GraphicSize" Then
-'' Todo: Get the original Size of the Bullet (see Bug #86196)
-' oSize.Height = 300
-' oSize.Width = 300
-' oNewBuffer(i).Value = oSize
- Else
- oNewBuffer(i).Value = oLevel(i).Value
- End If
- Next i
- ChangeBulletUrlToSavePath() = oNewBuffer()
-End Function</script:module>
\ No newline at end of file
diff --git a/wizards/source/webwizard/Common.xba b/wizards/source/webwizard/Common.xba
deleted file mode 100644
index ea3fe55..0000000
--- a/wizards/source/webwizard/Common.xba
+++ /dev/null
@@ -1,162 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<!--
- * This file is part of the LibreOffice project.
- *
- * This Source Code Form is subject to the terms of the Mozilla Public
- * License, v. 2.0. If a copy of the MPL was not distributed with this
- * file, You can obtain one at http://mozilla.org/MPL/2.0/.
- *
- * This file incorporates work covered by the following license notice:
- *
- * Licensed to the Apache Software Foundation (ASF) under one or more
- * contributor license agreements. See the NOTICE file distributed
- * with this work for additional information regarding copyright
- * ownership. The ASF licenses this file to you under the Apache
- * License, Version 2.0 (the "License"); you may not use this file
- * except in compliance with the License. You may obtain a copy of
- * the License at http://www.apache.org/licenses/LICENSE-2.0 .
--->
-<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Common" script:language="StarBasic">REM ***** BASIC *****
-Option Explicit
-
-
-Function LoadNewStyles(oDocument as Object, oDialogModel as Object, CurIndex as Integer, SourceFile as String, Styles() as String, TextureDir as String) as Boolean
-Dim BackGroundURL as String
-Dim oBackGraph as Object
-Dim i, BackColor as Long
-Dim bLocWithBackGraphic as Boolean
-Dim oFamilies as Object, oFamily as Object', oStyle as Object
-Dim StylesOptions(0) as New com.sun.star.beans.PropertyValue
-
- If SourceFile <> "" Then
- StylesOptions(0).Name = "OverwriteStyles"
- StylesOptions(0).Value = True
- oDocument.StyleFamilies.LoadStylesFromURL(SourceFile, StylesOptions())
- End If
-
- ' Read array fields for background, bullet & graphics
- BackgroundURL = Styles(CurIndex, 7)
- If Left(BackgroundURL, 1) <> "#" Then
- BackgroundURL = TextureDir + BackgroundURL
- bLocWithBackGraphic = True
- Else
- BackColor = clng("&H" & Right(BackgroundURL, Len(BackgroundURL)-1))
- bLocWithBackGraphic = False
- End If
- oFamilies = oDocument.StyleFamilies
- oFamily = oFamilies.GetbyName("PageStyles")
- For i = 0 To oFamily.Count - 1
- If oFamily.GetByIndex(i).IsInUse Then
- oStyle = oFamily.GetbyIndex(i)
- If oStyle.PropertySetInfo.HasPropertybyName("BackGraphicURL") Then
- If Left(BackgroundURL, 1) = "#" Then
- oStyle.BackGraphicURL = ""
- oStyle.BackColor = BackColor
- oStyle.BackTransparent = False
- Else
- oStyle.BackGraphicUrl = BackGroundURL
- SetTileBackgroundorNot(oDialogModel, oStyle)
- End If
- Exit For
- End If
- End If
- Next i
- LoadNewStyles() = bLocWithBackGraphic
-ErrorOcurred:
- If Err <> 0 Then
- MsgBox (WebWiz_gErrWhileLoadStyles$, 16, WebWiz_gWizardName$)
- RESUME EXITSUB
-EXITSUB:
- End If
-End Function
-
-
-
-Sub ChangeBackGraphicUrl(SavePath as String)
-Dim oPageFamily as Object
-Dim i as Integer
- oPageFamily = oBaseDocument.StyleFamilies.GetbyName("PageStyles")
- For i = 0 To oPageFamily.Count - 1
- If oPageFamily.GetByIndex(i).IsInUse Then
- oStyle = oPageFamily.GetbyIndex(i)
- If oStyle.PropertySetInfo.HasPropertybyName("BackGraphicURL") Then
- If oStyle.BackGraphicUrl <> "" Then
- oStyle.BackGraphicUrl = CopyFile(oStyle.BackGraphicUrl, SavePath)
- Exit Sub
- End If
- End If
- End If
- Next i
-End Sub
-
-
-Sub SetBackGraphicStyle(oEvent as Object)
-Dim oFamilies as Object
-Dim oFamily as Object
-Dim i as Integer
-Dim oOptModel as Object
-Dim iBackgroundValue as Integer
-Dim oLocDocument as Object
- ooptModel = oEvent.Source.Model
- iBackgroundValue = Val(ooptModel.Tag)
- oLocDocument = StarDesktop.ActiveFrame.Controller.Model
- oLocDocument.LockControllers
- oFamilies = oLocDocument.StyleFamilies
- oFamily = oFamilies.GetbyName("PageStyles")
- For i = 0 To oFamily.Count - 1
- If oFamily.GetByIndex(i).IsInUse Then
- oStyle = oFamily.GetbyIndex(i)
- If oStyle.PropertySetInfo.HasPropertybyName("BackGraphicURL") Then
- oStyle.BackGraphicLocation = iBackgroundValue
- End If
- End If
- Next i
- oLocDocument.UnlockControllers
-End Sub
-
-
-Sub SetTileBackgroundorNot(DialogModel as Object, oStyle as Object)
- If Not IsNull(DialogModel) Then
- If DialogModel.optTiled.State = 1 Then
- oStyle.BackGraphicLocation = com.sun.star.style.GraphicLocation.TILED
- Else
- oStyle.BackGraphicLocation = com.sun.star.style.GraphicLocation.AREA
- End If
- End If
-End Sub
-
-
-Sub ToggleOptionButtons(DialogModel as Object, bDoEnable as Integer)
- If Not IsNull(DialogModel) Then
- DialogModel.optTiled.Enabled = bDoEnable
- DialogModel.optArea.Enabled = bDoEnable
- DialogModel.hlnBackground.Enabled = bDoEnable
- End If
-End Sub
-
-
-Function GetCurIndex(oListbox as Object, sList() as String, FileIndex as Integer)
-Dim i as Integer
-Dim n as Integer
-Dim SelValue as String
-Dim MaxIndex as Integer
- If IsNull(oListBox) Then
- ' Startup for WebWizard
- SelValue = sList(0,1)
- Else
- n = oListbox.SelectedItems(0)
- SelValue = oListbox.StringItemList(n)
- End If
- ' Find field index for chosen list entry
- MaxIndex = Ubound(sList)
- For i = 0 To MaxIndex
- If sList(i,1) = SelValue Then
- FileStr = sList(i, FileIndex)
- Exit For
- End If
- Next
- GetCurIndex = i
-End Function
-
-</script:module>
\ No newline at end of file
diff --git a/wizards/source/webwizard/HtmlAutoPilotBasic.xba b/wizards/source/webwizard/HtmlAutoPilotBasic.xba
deleted file mode 100644
index 7409954..0000000
--- a/wizards/source/webwizard/HtmlAutoPilotBasic.xba
+++ /dev/null
@@ -1,453 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<!--
- * This file is part of the LibreOffice project.
- *
- * This Source Code Form is subject to the terms of the Mozilla Public
- * License, v. 2.0. If a copy of the MPL was not distributed with this
- * file, You can obtain one at http://mozilla.org/MPL/2.0/.
- *
- * This file incorporates work covered by the following license notice:
- *
- * Licensed to the Apache Software Foundation (ASF) under one or more
- * contributor license agreements. See the NOTICE file distributed
- * with this work for additional information regarding copyright
- * ownership. The ASF licenses this file to you under the Apache
- * License, Version 2.0 (the "License"); you may not use this file
- * except in compliance with the License. You may obtain a copy of
- * the License at http://www.apache.org/licenses/LICENSE-2.0 .
--->
-<script:module xmlns:script="http://openoffice.org/2000/script" script:name="HtmlAutoPilotBasic" script:language="StarBasic">' Variables must be declared
-Option Explicit
-
-Public CurDocIndex as Integer
-Public CurWebPageIndex as Integer
-
-
-Public bWithBackGraphic as Boolean
-Public oStyle as Object
-' Maximum number of content templates, style templates and bullets
-Const MaxLayouts = 50
-Const MaxStyles = 100
-Const MaxBullets = 10
-
-'Public NumberOfLayouts%, NumberOfStyles%
-
-' Filled with title, previous, next, home, top, bullet, background, file name
-Public Style(MaxStyles, 8) as String
-
-Public Layout$(MaxLayouts, 2)
-
-Public TextureDir$, BulletDir$, GraphicsDir$, GalleryDir$, PhotosDir$
-Public SOBitmapPath as String
-Public CurrentBullet$, CurrentPrev$, CurrentNext$, CurrentHome$, CurrentTop$
-Public FileStr as String
-
-Public WebWiz_gWizardName$, WebWiz_gErrContentNotFound$, WebWiz_gErrStyleNotFound$
-Public WebWiz_gErrMainTemplateError$, WebWiz_gErrWhileReloading$
-Public WebWiz_gErrWhileLoadStyles$, WebWiz_gErrMsg$, WebWiz_gErrMainDocumentError$
-
-Public ProgressBar as Object
-Public ProgressValue As Long
-Public oBaseDocument as Object
-Public oViewCursor as Object
-Public oViewSettings as Object
-Public NoArgs() as New com.sun.star.beans.PropertyValue
-
-Public oCursor as Object
-Public oBookmarks as Object
-Public oBookMark as Object
-
-Public oUcb as Object
-Public MainDialog as Object
-Public DialogModel as Object
-
-
-Sub Main
-Dim RetValue
-On Local Error Goto GlobalErrorHandler
- BasicLibraries.LoadLibrary("Tools")
- oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
- oBaseDocument = StarDesktop.LoadComponentFromURL("private:factory/swriter/web", "_default", 0, NoArgs())
- oViewSettings = oBaseDocument.CurrentController.ViewSettings
- oViewCursor = oBaseDocument.GetCurrentController.ViewCursor
- CurWebPageIndex = -1
- ProgressBar = oBaseDocument.GetCurrentController.GetFrame.CreateStatusIndicator
- ProgressBar.Start("", 100)
- SetProgressValue(2)
- oBaseDocument.LockControllers
- oViewSettings.ShowTableBoundaries = False
- If Not GetWebWizardPaths() Then
- Exit Sub
- End If
- LoadLanguage
- SetProgressValue(10)
- Layout() = getListBoxArrays(oUcb, "/cnt")
- GetCurIndex(DialogModel, Layout(),2)
- SetProgressValue(30)
- oCursor = oBasedocument.Text.CreateTextCursor
- oCursor.InsertDocumentfromURL(FileStr, NoArgs())
- SetProgressValue(50)
- Style() = getListBoxArrays(oUcb, "/stl")
- SetProgressValue(70)
- LoadWebPageStyles(oBaseDocument)
- SetProgressValue(90)
- oBaseDocument.UnlockControllers
- OpenWebDialog()
- SetProgressValue(98)
- SetProgressValue(0)
- MainDialog.Model.ImagePreview.BackGroundColor = RGB(0, 60,126)
- RetValue = MainDialog.Execute
- Select Case RetValue
- Case 0
- MainDialog.Dispose()
- DisposeDocument(oBaseDocument)
- Case 1
- EndDialog()
- MainDialog.Dispose()
- End Select
-GLOBALERRORHANDLER:
- If Err <> 0 Then
- MsgBox (WebWiz_gErrMsg$, 16, WebWiz_gWizardName$)
- DisposeDocument(oBaseDocument)
- RESUME EXITWIZARD
-EXITWIZARD:
- End If
-End Sub
-
-
-Function SetProgressValue(iValue as Integer)
- If iValue = 0 Then
- ProgressBar.End
- End If
- ProgressValue = iValue
- ProgressBar.Value = iValue
-End Function
-
-
-Sub ReloadCurrentDocument()
-Dim OldDocIndex as Integer
-On Local Error Goto ErrorOcurred
- OldDocIndex = CurDocIndex
- CurDocIndex = GetCurIndex(DialogModel.lbTemplate, Layout(), 2)
- If OldDocIndex <> CurDocIndex Then
- oBaseDocument.LockControllers
- ToggleDialogControls(False)
- oCursor = oBaseDocument.Text.CreateTextCursor()
- oCursor.GotoStart(False)
- oCursor.GotoEnd(True)
- oCursor.SetAllPropertiesToDefault()
- oCursor.InsertDocumentfromURL(FileStr, NoArgs())
- SetBulletAndGraphics
- CheckControls(oBaseDocument.DrawPage)
- ErrorOcurred:
- If Err <> 0 Then
- MsgBox(WebWiz_gErrWhileReloading$, 16, WebWiz_gWizardName$)
- End If
- oBaseDocument.UnlockControllers
- oViewCursor.GotoStart(False)
- ToggleDialogControls(True, "lbTemplate")
- End If
-End Sub
-
-
-
-
-Sub LoadWebPageStyles(aEvent as Object, Optional bStartUp as Boolean)
-Dim OldWebPageIndex as Integer
- OldWebPageIndex = CurWebPageIndex
- If IsNull(DialogModel) Then
- CurWebPageIndex = GetCurIndex(DialogModel, Style(), 8)
- Else
- CurWebPageIndex = GetCurIndex(DialogModel.lbStyles, Style(), 8)
- End If
- If OldWebPageIndex <> CurWebPageIndex Then
- ToggleDialogControls(False)
- oBaseDocument.LockControllers
- bWithBackGraphic = LoadNewStyles(oBaseDocument, DialogModel, CurWebPageIndex, FileStr, Style(), TextureDir)
- CurrentBullet$ = BulletDir + Style(CurWebPageIndex, 6)
- CurrentPrev$ = GraphicsDir + Style(CurWebPageIndex, 2)
- CurrentNext$ = GraphicsDir + Style(CurWebPageIndex, 3)
- CurrentHome$ = GraphicsDir + Style(CurWebPageIndex, 4)
- CurrentTop$ = GraphicsDir + Style(CurWebPageIndex, 5)
- With oBaseDocument.DocumentProperties.UserDefinedProperties
- .AutoPilotName1 = ExtractGraphicNames(CurWebPageIndex,2)
- .AutoPilotName2 = ExtractGraphicNames(CurWebPageIndex, 4)
- .AutoPilotBullet = Style(CurWebPageIndex, 6)
- .AutoPilotBackground = Style(CurWebPageIndex, 7)
- End With
- SetBulletAndGraphics()
- CheckControls(oBaseDocument.DrawPage)
- oViewCursor.GotoStart(False)
- oBaseDocument.UnlockControllers
- ToggleDialogControls(True, "lbStyles")
- End If
-End Sub
-
-
-Function ExtractGraphicNames(CurIndex as Integer, i as Integer) as String
-Dim FieldValue as String
- FieldValue = GetFileNameWithoutExtension(Style(CurIndex, i))
- FieldValue = FieldValue & " " & GetFileNameWithoutExtension(Style(CurIndex, i+1))
- ExtractGraphicNames = FieldValue
-End Function
-
-
-Sub SetBulletAndGraphics
- SetGraphic("Prev", CurrentPrev)
- SetGraphic("Next", CurrentNext)
- SetGraphic("Home", CurrentHome)
- SetGraphic("Top", CurrentTop)
- SetBulletGraphics(CurrentBullet)
- SetGraphicsToOriginalSize()
-End Sub
-
-
-Sub SetGraphicsToOriginalSize()
-Dim oGraphics as Object
-Dim oGraphic as Object
-Dim i as Integer
-Dim aActSize as New com.sun.star.awt.Size
- oGraphics = oBaseDocument.GraphicObjects
- For i = 0 To oGraphics.Count-1
- oGraphic = oGraphics.GetByIndex(i)
- aActSize = oGraphic.ActualSize
- If aActSize.Height > 0 And aActSize.Width > 0 Then
- oGraphic.SetSize(aActSize)
- End If
- Next i
-End Sub
-
-
-Sub EndDialog()
- If DialogModel.chkSaveasTemplate.State = 1 Then
- ' Generating template? Set events later!
- AttachBasicMacroToEvent(oBaseDocument,"OnNew", "WebWizard.HtmlAutoPilotBasic.SetEvent()")
- ' Call the Store template dialog
- DispatchSlot(5538)
- AttachBasicMacroToEvent(oBaseDocument,"OnNew", "")
- End If
- SetEvent()
-End Sub
-
-
-Sub SetEvent()
-Dim oDocument as Object
-' This sub links the events OnSaveDone and OnSaveAsDone to the procedure
-' CopyGraphics. It is invoked when a document is created, either directly
-' 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.
- BasicLibraries.LoadLibrary("Tools")
- oDocument = ThisComponent
- AttachBasicMacroToEvent(oDocument,"OnSaveDone", "WebWizard.HtmlAutoPilotBasic.CopyGraphics()")
- AttachBasicMacroToEvent(oDocument,"OnSaveAsDone", "WebWizard.HtmlAutoPilotBasic.CopyGraphics()")
-End Sub
-
-
-
-Sub CopyGraphics
-' This sub copies all the graphics used in the document to the same directory the
-' document has been copied into and changes the graphics links in the document.
-Dim oGraphicObjects as Object
-Dim oGraphic as Object
-Dim i as Integer
-Dim udProps as Object
-Dim SavePath as String
- BasicLibraries.LoadLibrary("Tools")
- oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
- GetWebWizardPaths()
- oBaseDocument = ThisComponent
-' oBaseDocument.LockControllers()
-
- ' Note: The sub DirectoryNameoutofPath should be change, so that the last character is a slash
- SavePath = DirectoryNameoutofPath(oBaseDocument.Url, "/") & "/"
-
- oGraphicObjects = oBaseDocument.GraphicObjects
- For i = 0 to oGraphicObjects.Count-1
- oGraphic = oGraphicObjects.GetbyIndex(i)
- oGraphic.GraphicUrl = CopyFile(oGraphic.GraphicURL, SavePath)
- Next i
-
- ChangeBackGraphicUrl(SavePath)
-
- BulletUrlsToSavePath(SavePath)
-
- udProps = oBaseDocument.DocumentProperties.UserDefinedProperties
- udProps.addProperty("AutoPilotName1", 0, "")
- udProps.addProperty("AutoPilotName2", 0, "")
- udProps.addProperty("AutoPilotBullet", 0, "")
- udProps.addProperty("AutoPilotBackground", 0, "")
-
- AttachBasicMacroToEvent(oBaseDocument,"OnSaveDone", "")
- AttachBasicMacroToEvent(oBaseDocument,"OnSaveAsDone", "")
- AttachBasicMacroToEvent(oBaseDocument,"OnNew", "")
- oBaseDocument.Store
-' oBaseDocument.UnlockControllers()
-End Sub
-
-
-Function CopyFile(ByVal SourceUrl as String, TargetDir as String)
-Dim sFileName as String
-Dim sNewFileUrl as String
- If oUcb.Exists(TargetDir) Then
- If Len(TargetDir) > 2 Then
- sFileName = FileNameoutofPath(SourceUrl)
- sNewFileUrl = TargetDir & sFileName
- oUcb.Copy(SourceUrl, sNewFileUrl)
- CopyFile() = sNewFileUrl
- End If
- End If
-End Function
-
-
-Function getListBoxArrays(oUcb as Object, sFileFilter as String)
-Dim oDocProps as Object
-Dim oListboxControl as Object
-Dim Description as String
-Dim sField as String
-Dim sFieldList() as String
-Dim bItemFound as Boolean
-Dim MaxIndex as Integer
-Dim DirContent() as String
-Dim FileName as String
-Dim TemplatePath as String
-Dim FilterLen as Integer
-Dim i as Integer
-Dim m as Integer
-Dim n as Integer
-Dim s as Integer
-Dim a as Integer
-Dim LocMaxIndex as Integer
-Dim Properties()
-Dim DimCount as Integer
-Dim sExtension as String
- oDocProps = CreateUnoService("com.sun.star.document.DocumentProperties")
- FilterLen = Len(sFileFilter)
- bItemFound = False
- ' It has to be made sure that the TemplatePath <> ""
- TemplatePath = GetOfficeSubPath("Template", "wizard/web/")
- If TemplatePath = "" Then
- Dim NullList()
- getListBoxArrays() = NullList()
- Exit Function
- End If
- DirContent() = oUcb.GetFolderContents(TemplatePath,True)
- If sFileFilter = "/cnt" Then
- DimCount = 2
- Else
- DimCount = 8
- End If
- LocMaxIndex = Ubound(DirContent())
- Dim List(LocMaxIndex, DimCount) as String
- Dim SortList(LocMaxIndex,1)
- For i = 0 to LocMaxIndex
- SortList(i,0) = DirContent(i)
- SortList(i,1) = RetrieveDocTitle(oDocProps, DirContent(i))
- Next i
- SortList() = BubbleSortList(SortList(),True)
- For i = 0 to LocMaxIndex
- DirContent(i) = SortList(i,0)
- Next i
- a = 0
- For i = 0 To LocMaxIndex
- FileName = DirContent(i)
- sExtension = Ucase(GetFileNameExtension(FileName))
- If Instr(1,Filename, sFileFilter) And sExtension = "STW" Then
- bItemFound = True
- Description = RetrieveDocTitle(oDocProps, FileName)
- Properties = oDocProps.UserDefinedProperties.PropertyValues
- List(a,1) = Description
- If sFileFilter = "/cnt" Then
- List(a,2) = Filename
- Else
- m = 2
- For n = 0 To 3
- sField = Properties(n).Value
- sFieldList() = ArrayoutofString(sField, " ", MaxIndex)
- For s = 0 To MaxIndex
- If m < 6 Then
- List(a,m) = sFieldList(s) & ".gif"
- Else
- List(a,m) = sFieldList(s)
- End If
- m = m + 1
- Next s
- Next n
- List(a,8) = FileName
- End If
- a = a + 1
- End If
- Next i
- If sFileFilter = "/cnt" Then
- ReDim Preserve List(a-1,2) as String
- Else
- ReDim Preserve List(a-1,8) as String
- End If
- If Not bItemfound Then
- MsgBox(WebWiz_gErrContentNotFound$, 16, WebWiz_gWizardName$)
- DisposeDocument(oBaseDocument)
- Stop
- End If
- getListBoxArrays = List()
-End Function
-
-
-Sub SetGraphic(sWhich, sGraphicText as String)
-Dim oLocCursor as Object
-Dim oGraphic as Object
-Dim bGetGraphic as Boolean
- oBookmarks = oBaseDocument.BookMarks
- If oBookmarks.HasbyName(sWhich)Then
- oBookMark = oBookmarks.GetbyName(sWhich)
- oLocCursor = oBookMark.Anchor.Text.CreateTextCursorByRange(oBookMark.Anchor)
- oGraphic = oBaseDocument.CreateInstance("com.sun.star.text.GraphicObject")
- oLocCursor.GoRight(3,True)
- oGraphic.AnchorType = 1
- oGraphic.GraphicURL = ConverttoURL(sGraphicText)
- oLocCursor.Text.InsertTextContent(oLocCursor, oGraphic, True)
- oGraphic.Name = sWhich
- ElseIf oBaseDocument.GraphicObjects.HasbyName(sWhich) Then
- oGraphic = oBaseDocument.GraphicObjects.GetByName(sWhich)
- oGraphic.GraphicUrl = sGraphicText
- End If
-End Sub
-
-
-Sub CheckControls(oDrawPage as Object)
-Dim aForm as Object
-Dim m,n as integer
-Dim lColor as Long
-Dim oControl as Object
- lColor = oBaseDocument.StyleFamilies.GetbyName("ParagraphStyles").GetByName("Standard").CharColor
- 'SearchFor all possible Controls
- For n = 0 to oDrawPage.Forms.Count - 1
- aForm = oDrawPage.Forms(n)
- For m = 0 to aForm.Count-1
- oControl = aForm.GetbyIndex(m)
- oControl.TextColor = lColor
- Next
- Next
-End Sub
-
-
-Sub RepaintHeaderPreview()
-Dim Bitmap As Object
-Dim sBitmapPath as String
- sBitmapPath = SOBitmapPath & "webwizard.bmp"
- WebWzrd.ImagePreview.ImageURL = sBitmapPath
-End Sub
-
-
-Sub ToggleDialogControls(ByVal bDoEnable as Boolean, Optional FocusControlName as String)
- If Not IsNull(DialogModel) Then
- DialogModel.Enabled = bDoEnable
- If bDoEnable Then
- ' Enable Controls referring to Background graphic only when this Property is set
- bDoEnable = bWithBackGraphic
- ToggleOptionButtons(DialogModel, bDoEnable)
- MainDialog.GetControl(FocusControlName).SetFocus()
- End If
- End If
-End Sub
-</script:module>
diff --git a/wizards/source/webwizard/Language.xba b/wizards/source/webwizard/Language.xba
deleted file mode 100644
index 6270139..0000000
--- a/wizards/source/webwizard/Language.xba
+++ /dev/null
@@ -1,101 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<!--
- * This file is part of the LibreOffice project.
- *
- * This Source Code Form is subject to the terms of the Mozilla Public
- * License, v. 2.0. If a copy of the MPL was not distributed with this
- * file, You can obtain one at http://mozilla.org/MPL/2.0/.
- *
- * This file incorporates work covered by the following license notice:
- *
- * Licensed to the Apache Software Foundation (ASF) under one or more
- * contributor license agreements. See the NOTICE file distributed
- * with this work for additional information regarding copyright
- * ownership. The ASF licenses this file to you under the Apache
- * License, Version 2.0 (the "License"); you may not use this file
- * except in compliance with the License. You may obtain a copy of
- * the License at http://www.apache.org/licenses/LICENSE-2.0 .
--->
-<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Language" script:language="StarBasic">Option Explicit
-
-
-
-
-Sub LoadLanguage()
- If InitResources("WebWizard","wwz") Then
- WebWiz_gErrContentNotFound = GetResText(1101)
- WebWiz_gErrStyleNotFound = GetResText(1102)
- WebWiz_gErrMainTemplateError = GetResText(1103)
- WebWiz_gErrWhileReloading = GetResText(1104)
- WebWiz_gErrWhileLoadStyles = GetResText(1105)
- WebWiz_gErrMainDocumentError = GetResText(1106)
- WebWiz_gErrMsg = GetResText(1107)
- End If
-End Sub
-
-
-Function GetWebWizardPaths() as Boolean
-Dim TemplatePath as String
- TextureDir = GetOfficeSubPath("Gallery","www-back")
- If TextureDir <> "" Then
- GraphicsDir = GetOfficeSubPath("Gallery","www-graf/")
- If GraphicsDir <> "" Then
- BulletDir = GetOfficeSubPath("Gallery", "bullets/")
- If BulletDir <> "" Then
- PhotosDir = GetPathSettings("Gallery", False, 1)
- If PhotosDir <> "" Then
- TemplatePath = GetOfficeSubPath("Template", "wizard/web/")
- If TemplatePath <> "" Then
- SOBitmapPath = GetOfficeSubPath("Template", "../wizard/bitmap")
- If SOBitmapPath <> "" Then
- GetWebwizardPaths() = True
- Exit Function
- End If
- End If
- End If
- End If
- End If
- End If
- DisposeDocument(oBaseDocument)
- GetWebWizardPaths() = False
-End Function
-
-
-
-Sub OpenWebDialog()
- Dim sBitmapPath as String
- Dim BufferNames() as String
- Dim SelList(0) as Integer
- SelList(0) = 0
- MainDialog = LoadDialog("WebWizard","WebWzrd")
- DialogModel = MainDialog.Model
- With DialogModel
- .cbHelp.Label = GetResText(1000)
- .Title = GetResText(1001)
- .cbCancel.Label = GetResText(1002)
- .cbGoOn.Label = GetResText(1003)
- .lblTemplate.Label = GetResText(1004)
- .lblStyle.Label = GetResText(1005)
- .hlnBackground.Label = GetResText(1006)
- .optTiled.Label = GetRestext(1007)
- .optArea.Label = GetResText(1008)
- .chkSaveasTemplate.Label = GetResText(1010)
- End With
-
- BufferNames() = ArrayfromMultiArray(Layout, 1)
- DialogModel.lbTemplate.StringItemList() = BufferNames()
- DialogModel.lbTemplate.SelectedItems() = SelList()
-
-
- BufferNames() = ArrayfromMultiArray(Style, 1)
- DialogModel.lbStyles.StringItemList() = BufferNames()
- DialogModel.lbStyles.SelectedItems() = SelList()
- sBitmapPath = SOBitmapPath & "webwizard.bmp"
-
- DialogModel.ImagePreview.ImageURL = sBitmapPath
- ToggleOptionButtons(DialogModel, bWithBackGraphic)
- MainDialog.GetControl("lbTemplate").SetFocus()
- DialogModel.cbGoOn.DefaultButton = True
- DialogModel.ImagePreview.BackGroundColor = RGB(0,60,126)
-End Sub</script:module>
\ No newline at end of file
diff --git a/wizards/source/webwizard/WebWzrd.xdl b/wizards/source/webwizard/WebWzrd.xdl
deleted file mode 100644
index 199119f..0000000
--- a/wizards/source/webwizard/WebWzrd.xdl
+++ /dev/null
@@ -1,45 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
-<!--
- * This file is part of the LibreOffice project.
- *
- * This Source Code Form is subject to the terms of the Mozilla Public
- * License, v. 2.0. If a copy of the MPL was not distributed with this
- * file, You can obtain one at http://mozilla.org/MPL/2.0/.
- *
- * This file incorporates work covered by the following license notice:
- *
- * Licensed to the Apache Software Foundation (ASF) under one or more
- * contributor license agreements. See the NOTICE file distributed
- * with this work for additional information regarding copyright
- * ownership. The ASF licenses this file to you under the Apache
- * License, Version 2.0 (the "License"); you may not use this file
- * except in compliance with the License. You may obtain a copy of
- * the License at http://www.apache.org/licenses/LICENSE-2.0 .
--->
-<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="WebWzrd" dlg:left="96" dlg:top="28" dlg:width="270" dlg:height="210" dlg:help-url="HID:WIZARDS_HID0_WEBWIZARD" dlg:closeable="true" dlg:moveable="true">
- <dlg:bulletinboard>
- <dlg:button dlg:id="cbCancel" dlg:tab-index="0" dlg:left="6" dlg:top="190" dlg:width="50" dlg:height="14" dlg:help-url="HID:WIZARDS_HID0_STATUS_DIALOG" dlg:value="Cancel" dlg:button-type="cancel"/>
- <dlg:button dlg:id="cbHelp" dlg:tab-index="1" dlg:left="66" dlg:top="190" dlg:width="50" dlg:height="14" dlg:tag="HID:WIZARDS_HID0_WEBWIZARD" dlg:value="cbHelp" dlg:button-type="help"/>
- <dlg:button dlg:id="cbGoOn" dlg:tab-index="2" dlg:left="214" dlg:top="190" dlg:width="50" dlg:height="14" dlg:help-url="HID:WIZARDS_HID0_CANCEL" dlg:default="true" dlg:value="cbGoOn" dlg:button-type="ok"/>
- <dlg:img dlg:id="ImagePreview" dlg:tab-index="3" dlg:left="6" dlg:top="6" dlg:width="258" dlg:height="26" dlg:scale-image="false"/>
- <dlg:menulist dlg:id="lbTemplate" dlg:tab-index="4" dlg:left="6" dlg:top="53" dlg:width="110" dlg:height="94" dlg:help-url="HID:WIZARDS_HID0_HELP">
- <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:WebWizard.HtmlAutoPilotBasic.ReloadCurrentDocument?language=Basic&location=application" script:language="Script"/>
- </dlg:menulist>
- <dlg:menulist dlg:id="lbStyles" dlg:tab-index="5" dlg:left="154" dlg:top="53" dlg:width="110" dlg:height="94" dlg:help-url="HID:WIZARDS_HID0_NEXT">
- <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:WebWizard.HtmlAutoPilotBasic.LoadWebPageStyles?language=Basic&location=application" script:language="Script"/>
- </dlg:menulist>
- <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:help-url="HID:WIZARDS_HID1_LST_SESSIONS" dlg:value="chkSaveasTemplate" dlg:checked="false"/>
- <dlg:radiogroup>
- <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:help-url="HID:34208" dlg:value="optTiled" dlg:checked="true">
- <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:WebWizard.Common.SetBackGraphicStyle?language=Basic&location=application" script:language="Script"/>
- </dlg:radio>
- <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:help-url="HID:WIZARDS_HID1_BTN_DEL_SES" dlg:value="optArea">
- <script:event script:event-name="on-itemstatechange" script:location="application" script:macro-name="WebWizard.HtmlAutoPilotBasic.SetBackGraphicStyle" script:language="StarBasic"/>
- </dlg:radio>
- </dlg:radiogroup>
- <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
diff --git a/wizards/source/webwizard/dialog.xlb b/wizards/source/webwizard/dialog.xlb
deleted file mode 100644
index d1b9cb0..0000000
--- a/wizards/source/webwizard/dialog.xlb
+++ /dev/null
@@ -1,5 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd">
-<library:library xmlns:library="http://openoffice.org/2000/library" library:name="WebWizard" library:readonly="true" library:passwordprotected="false">
- <library:element library:name="WebWzrd"/>
-</library:library>
diff --git a/wizards/source/webwizard/script.xlb b/wizards/source/webwizard/script.xlb
deleted file mode 100644
index 1045820..0000000
--- a/wizards/source/webwizard/script.xlb
+++ /dev/null
@@ -1,8 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd">
-<library:library xmlns:library="http://openoffice.org/2000/library" library:name="WebWizard" library:readonly="true" library:passwordprotected="false">
- <library:element library:name="HtmlAutoPilotBasic"/>
- <library:element library:name="Language"/>
- <library:element library:name="Bullets"/>
- <library:element library:name="Common"/>
-</library:library>
--
To view, visit https://gerrit.libreoffice.org/3438
To unsubscribe, visit https://gerrit.libreoffice.org/settings
Gerrit-MessageType: newchange
Gerrit-Change-Id: I76ed89c4a46e5a7b6a639e2c2717bc53d9b68bc9
Gerrit-PatchSet: 1
Gerrit-Project: core
Gerrit-Branch: master
Gerrit-Owner: Julien Nabet <serval2412 at yahoo.fr>
More information about the LibreOffice
mailing list