diff options
Diffstat (limited to 'wizards/source/webwizard')
| -rw-r--r-- | wizards/source/webwizard/Bullets.xba | 117 | ||||
| -rw-r--r-- | wizards/source/webwizard/Common.xba | 145 | ||||
| -rw-r--r-- | wizards/source/webwizard/HtmlAutoPilotBasic.xba | 436 | ||||
| -rw-r--r-- | wizards/source/webwizard/Language.xba | 84 | ||||
| -rw-r--r-- | wizards/source/webwizard/WebWzrd.xdl | 28 | ||||
| -rw-r--r-- | wizards/source/webwizard/delzip | 0 | ||||
| -rw-r--r-- | wizards/source/webwizard/dialog.xlb | 5 | ||||
| -rw-r--r-- | wizards/source/webwizard/script.xlb | 8 | ||||
| -rw-r--r-- | wizards/source/webwizard/webwizar.src | 167 |
9 files changed, 0 insertions, 990 deletions
diff --git a/wizards/source/webwizard/Bullets.xba b/wizards/source/webwizard/Bullets.xba deleted file mode 100644 index 78b8fa0b0..000000000 --- a/wizards/source/webwizard/Bullets.xba +++ /dev/null @@ -1,117 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> -<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 806c49423..000000000 --- a/wizards/source/webwizard/Common.xba +++ /dev/null @@ -1,145 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> -<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 00675bbf0..000000000 --- a/wizards/source/webwizard/HtmlAutoPilotBasic.xba +++ /dev/null @@ -1,436 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> -<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 1c6b8c194..000000000 --- a/wizards/source/webwizard/Language.xba +++ /dev/null @@ -1,84 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> -<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 ac826e242..000000000 --- a/wizards/source/webwizard/WebWzrd.xdl +++ /dev/null @@ -1,28 +0,0 @@ -<?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" 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/delzip b/wizards/source/webwizard/delzip deleted file mode 100644 index e69de29bb..000000000 --- a/wizards/source/webwizard/delzip +++ /dev/null diff --git a/wizards/source/webwizard/dialog.xlb b/wizards/source/webwizard/dialog.xlb deleted file mode 100644 index d1b9cb066..000000000 --- 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 1045820b7..000000000 --- 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> diff --git a/wizards/source/webwizard/webwizar.src b/wizards/source/webwizard/webwizar.src deleted file mode 100644 index b7bb7dd3b..000000000 --- a/wizards/source/webwizard/webwizar.src +++ /dev/null @@ -1,167 +0,0 @@ -/************************************************************************* - * - * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. - * - * Copyright 2000, 2010 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. - * - ************************************************************************/#define WEBDIALOG 1000 -/* -#define WEBERROR 1100 -// -------------------------------------------------------------------- - -String WEBDIALOG -{ - Text [ en-US ] = "~Help"; -}; - - -String WEBDIALOG + 1 -{ - Text [ en-US ] = "AutoPilot Web Page"; -}; - - - - -String WEBDIALOG + 2 -{ - Text [ en-US ] = "~Cancel"; -}; - -String WEBDIALOG + 3 -{ - Text [ en-US ] = "C~reate"; -}; - - -String WEBDIALOG + 4 -{ - Text [ en-US ] = "Which template should be used?"; -}; - -String WEBDIALOG + 5 -{ - Text [ en-US ] = "Which layout should be used?"; -}; - - -String WEBDIALOG + 6 -{ - Text [ en-US ] = "Background Image"; -}; - - - -String WEBDIALOG + 7 -{ - Text [ en-US ] = "~Tiled"; -}; - - -String WEBDIALOG + 8 -{ - Text [ en-US ] = "~Scaled"; -}; - - -String WEBDIALOG + 9 -{ - Text [ en-US ] = "Edit document"; -}; - -String WEBDIALOG + 10 -{ - Text [ en-US ] = "Create template"; -}; - - -String WEBERROR + 1 -{ - Text [ en-US ] = "A template for the page setup could not be found."; -}; - -String WEBERROR + 2 -{ - Text [ en-US ] = "A Style for the Page Style could not be found."; -}; - -String WEBERROR + 3 -{ - Text [ en-US ] = "An error occurred as the templates were being interpreted."; -}; - -String WEBERROR + 4 -{ - Text [ en-US ] = "An error occurred as the template was being refreshed."; -}; - -String WEBERROR + 5 -{ - Text [ en-US ] = "An error occurred while applying the Styles."; -}; - -String WEBERROR + 6 -{ - Text [ en-US ] = "An error occurred while evaluating the documents."; -}; - -String WEBERROR + 7 -{ - Text [ en-US ] = "An error occurred while running the AutoPilot."; -}; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -*/ |