replace obsolete "master" branch with README that points at new repoHEADmaster-deletedmaster

1 files changed, 0 insertions, 145 deletions

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&apos;, oStyle as Object
-Dim StylesOptions(0) as New com.sun.star.beans.PropertyValue
-
-	If SourceFile &lt;&gt; &quot;&quot; Then
-		StylesOptions(0).Name = &quot;OverwriteStyles&quot;
-		StylesOptions(0).Value = True
-		oDocument.StyleFamilies.LoadStylesFromURL(SourceFile, StylesOptions())
-	End If
-
-	&apos; Read array fields for background, bullet &amp; graphics
-	BackgroundURL = Styles(CurIndex, 7)
-	If Left(BackgroundURL, 1) &lt;&gt; &quot;#&quot; Then
-		BackgroundURL = TextureDir + BackgroundURL
-		bLocWithBackGraphic = True
-	Else
-		BackColor = clng(&quot;&amp;H&quot; &amp; Right(BackgroundURL, Len(BackgroundURL)-1))
-		bLocWithBackGraphic = False
-	End If
-	oFamilies = oDocument.StyleFamilies
-	oFamily = oFamilies.GetbyName(&quot;PageStyles&quot;)
-	For i = 0 To oFamily.Count - 1
-		If oFamily.GetByIndex(i).IsInUse Then
-			oStyle = oFamily.GetbyIndex(i)
-			If oStyle.PropertySetInfo.HasPropertybyName(&quot;BackGraphicURL&quot;) Then
-				If Left(BackgroundURL, 1) = &quot;#&quot; Then
-					oStyle.BackGraphicURL = &quot;&quot;
-					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 &lt;&gt; 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(&quot;PageStyles&quot;)
-	For i = 0 To oPageFamily.Count - 1
-		If oPageFamily.GetByIndex(i).IsInUse Then
-			oStyle = oPageFamily.GetbyIndex(i)
-			If oStyle.PropertySetInfo.HasPropertybyName(&quot;BackGraphicURL&quot;) Then
-				If oStyle.BackGraphicUrl &lt;&gt; &quot;&quot; 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(&quot;PageStyles&quot;)
-	For i = 0 To oFamily.Count - 1
-		If oFamily.GetByIndex(i).IsInUse Then
-			oStyle = oFamily.GetbyIndex(i)
-			If oStyle.PropertySetInfo.HasPropertybyName(&quot;BackGraphicURL&quot;) 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
-		&apos; Startup for WebWizard
-		SelValue = sList(0,1)
-	Else
-		n = oListbox.SelectedItems(0)
-		SelValue = oListbox.StringItemList(n)
-	End If
-	&apos; 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