From 718cd9e46e47cc384758f0517d4e5b3b70d2a73d Mon Sep 17 00:00:00 2001 From: Julien Nabet Date: Wed, 17 Apr 2013 20:29:45 +0200 Subject: Remove unused web wizard Change-Id: I76ed89c4a46e5a7b6a639e2c2717bc53d9b68bc9 Reviewed-on: https://gerrit.libreoffice.org/3438 Reviewed-by: David Tardon Tested-by: David Tardon --- wizards/Module_wizards.mk | 1 - wizards/Zip_web.mk | 41 --- wizards/source/webwizard/Bullets.xba | 134 ------- wizards/source/webwizard/Common.xba | 162 --------- wizards/source/webwizard/HtmlAutoPilotBasic.xba | 453 ------------------------ wizards/source/webwizard/Language.xba | 101 ------ wizards/source/webwizard/WebWzrd.xdl | 45 --- wizards/source/webwizard/dialog.xlb | 5 - wizards/source/webwizard/script.xlb | 8 - 9 files changed, 950 deletions(-) delete mode 100644 wizards/Zip_web.mk delete mode 100644 wizards/source/webwizard/Bullets.xba delete mode 100644 wizards/source/webwizard/Common.xba delete mode 100644 wizards/source/webwizard/HtmlAutoPilotBasic.xba delete mode 100644 wizards/source/webwizard/Language.xba delete mode 100644 wizards/source/webwizard/WebWzrd.xdl delete mode 100644 wizards/source/webwizard/dialog.xlb delete mode 100644 wizards/source/webwizard/script.xlb (limited to 'wizards') diff --git a/wizards/Module_wizards.mk b/wizards/Module_wizards.mk index d979ed0dd4b9..098433d3734d 100644 --- a/wizards/Module_wizards.mk +++ b/wizards/Module_wizards.mk @@ -49,7 +49,6 @@ $(eval $(call gb_Module_add_targets,wizards,\ 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 c552440b5414..000000000000 --- 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 -# -# 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 76d825ac19dd..000000000000 --- a/wizards/source/webwizard/Bullets.xba +++ /dev/null @@ -1,134 +0,0 @@ - - - -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 \ 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 ea3fe5581387..000000000000 --- a/wizards/source/webwizard/Common.xba +++ /dev/null @@ -1,162 +0,0 @@ - - - -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 - - \ 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 7409954029c8..000000000000 --- a/wizards/source/webwizard/HtmlAutoPilotBasic.xba +++ /dev/null @@ -1,453 +0,0 @@ - - - -' 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 - diff --git a/wizards/source/webwizard/Language.xba b/wizards/source/webwizard/Language.xba deleted file mode 100644 index 62701391cfbd..000000000000 --- a/wizards/source/webwizard/Language.xba +++ /dev/null @@ -1,101 +0,0 @@ - - - -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 \ 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 199119f4c649..000000000000 --- a/wizards/source/webwizard/WebWzrd.xdl +++ /dev/null @@ -1,45 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \ 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 d1b9cb066f0c..000000000000 --- a/wizards/source/webwizard/dialog.xlb +++ /dev/null @@ -1,5 +0,0 @@ - - - - - diff --git a/wizards/source/webwizard/script.xlb b/wizards/source/webwizard/script.xlb deleted file mode 100644 index 1045820b7002..000000000000 --- a/wizards/source/webwizard/script.xlb +++ /dev/null @@ -1,8 +0,0 @@ - - - - - - - - -- cgit