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

1 files changed, 0 insertions, 173 deletions

diff --git a/wizards/source/template/Autotext.xba b/wizards/source/template/Autotext.xba
deleted file mode 100644
index 27a7bca12..000000000
--- a/wizards/source/template/Autotext.xba
+++ /dev/null
@@ -1,173 +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="Autotext" script:language="StarBasic">Option Explicit
-
-Public UserfieldDataType(14) as String
-Public oDocAuto as Object
-Public BulletList(7) as Integer
-Public sTextFieldNotDefined as String
-Public sGeneralError as String
-
-
-Sub Main()
-	Dim oCursor as Object
-	Dim oStyles as Object
-	Dim oSearchDesc as Object
-	Dim oFoundall as Object
-	Dim oFound as Object
-	Dim i as Integer
-	Dim sFoundString as String
-	Dim sFoundContent as String
-	Dim FieldStringThere as String
-	Dim ULStringThere as String
-	Dim PHStringThere as String
-	On Local Error Goto GENERALERROR
-	&apos; Initialization...
-    BasicLibraries.LoadLibrary(&quot;Tools&quot;)
-	If InitResources(&quot;&apos;Template&apos;&quot;, &quot;tpl&quot;) Then
-		sGeneralError = GetResText(1302)
-		sTextFieldNotDefined = GetResText(1400)
-	End If
-
-	UserfieldDatatype(0) = &quot;COMPANY&quot;
-	UserfieldDatatype(1) = &quot;FIRSTNAME&quot;
-	UserfieldDatatype(2) = &quot;NAME&quot;
-	UserfieldDatatype(3) = &quot;SHORTCUT&quot;
-	UserfieldDatatype(4) = &quot;STREET&quot;
-	UserfieldDatatype(5) = &quot;COUNTRY&quot;
-	UserfieldDatatype(6) = &quot;ZIP&quot;
-	UserfieldDatatype(7) = &quot;CITY&quot;
-	UserfieldDatatype(8) = &quot;TITLE&quot;
-	UserfieldDatatype(9) = &quot;POSITION&quot;
-	UserfieldDatatype(10) = &quot;PHONE_PRIVATE&quot;
-	UserfieldDatatype(11) = &quot;PHONE_COMPANY&quot;
-	UserfieldDatatype(12) = &quot;FAX&quot;
-	UserfieldDatatype(13) = &quot;EMAIL&quot;
-	UserfieldDatatype(14) = &quot;STATE&quot;
-	BulletList(0) = 149
-	BulletList(1) = 34
-	BulletList(2) = 65
-	BulletList(3) = 61
-	BulletList(4) = 49
-	BulletList(5) = 47
-	BulletList(6) = 79
-	BulletList(7) = 58
-
-	oDocAuto = ThisComponent
-	oStyles = oDocAuto.Stylefamilies.GetByName(&quot;NumberingStyles&quot;)
-
-	&apos; Prepare the Search-Descriptor
-	oSearchDesc = oDocAuto.createsearchDescriptor()
-	oSearchDesc.SearchRegularExpression = True
-	oSearchDesc.SearchWords = True
-	oSearchDesc.SearchString  = &quot;&lt;[^&gt;]+&gt;&quot;
-	oFoundall = oDocAuto.FindAll(oSearchDesc)
-
-	&apos;Loop over the foundings
-	For i = 0 To oFoundAll.Count - 1
-		oFound = oFoundAll.GetByIndex(i)
-		sFoundString = oFound.String
-		&apos;Extract the string inside the brackets
-		sFoundContent = FindPartString(sFoundString,&quot;&lt;&quot;,&quot;&gt;&quot;,1)
-		sFoundContent = LTrim(sFoundContent)
-
-		&apos; Define the Cursor and place it on the founding
-		oCursor = oFound.Text.CreateTextCursorbyRange(oFound)
-
-		&apos; Find out, which object is to be created...
-		FieldStringThere = Instr(1,sFoundContent,&quot;Field&quot;)
-		ULStringThere = Instr(1,sFoundContent,&quot;UL&quot;)
-		PHStringThere = Instr(1,sFoundContent,&quot;Placeholder&quot;)
-		If FieldStringThere = 1 Then
-			CreateUserDatafield(oCursor, sFoundContent)
-		ElseIf ULStringThere = 1 Then
-			CreateBullet(oCursor, oStyles)
-		ElseIf PHStringThere = 1 Then
-			CreatePlaceholder(oCursor, sFoundContent)
-		End If
-	Next i
-
-	GENERALERROR:
-	If Err &lt;&gt; 0 Then
-		Msgbox(sGeneralError,16, GetProductName())
-		Resume LETSGO
-	End If
-	LETSGO:
-End Sub
-
-
-&apos; creates a User - datafield out of a string with the following structure
-&apos; &quot;&lt;field:Company&gt;&quot;
-Sub	CreateUserDatafield(oCursor, sFoundContent as String)
-	Dim MaxIndex as Integer
-	Dim sFoundList(3)
-	Dim oUserfield as Object
-	Dim UserInfo as String
-	Dim UserIndex as Integer
-
-	oUserfield = oDocAuto.CreateInstance(&quot;com.sun.star.text.TextField.ExtendedUser&quot;)
-	sFoundList() = ArrayoutofString(sFoundContent,&quot;:&quot;,MaxIndex)
-	UserInfo = UCase(LTrim(sFoundList(1)))
-	UserIndex = IndexinArray(UserInfo, UserfieldDatatype())
-	If UserIndex &lt;&gt; -1 Then
-		oUserField.UserDatatype = UserIndex
-		oCursor.Text.InsertTextContent(oCursor,oUserField,True)
-		oUserField.IsFixed = True
-	Else
-		Msgbox(UserInfo &amp;&quot;: &quot; &amp; sTextFieldNotDefined,16, GetProductName())
-	End If
-End Sub
-
-
-&apos; Creates a Bullet by setting a soft Formatation on the first unsorted List-Templates with a defined
-&apos; Bullet Id
-Sub	CreateBullet(oCursor, oStyles as Object)
-	Dim n, m, s as Integer
-	Dim StyleSet as Boolean
-	Dim ostyle as Object
-	Dim StyleName as String
-	Dim alevel()
-	StyleSet = False
-	For s = 0 To Ubound(BulletList())
-		For n = 0 To oStyles.Count - 1
-			ostyle = oStyles.getbyindex(n)
-			StyleName = oStyle.Name
-			alevel() = ostyle.NumberingRules.getbyindex(0)
-			&apos; The properties of the style are stored in a Name-Value-Array()
-			For m = 0 to Ubound(alevel())
-				&apos; Set the first Numbering template without a bulletID
-				If (aLevel(m).Name = &quot;BulletId&quot;) Then
-					If alevel(m).Value = BulletList(s) Then
-						oCursor.NumberingStyle = StyleName
-						oCursor.SetString(&quot;&quot;)
-						exit Sub
-					End if
-				End If
-			Next m
-		Next n
-	Next s
-	If Not StyleSet Then
-		&apos; The Template with the demanded BulletID is not available, so take the first style in the sequence
-		&apos; that has a defined Bullet ID
-		oCursor.NumberingStyleName = oStyles.GetByIndex(5).Name
-		oCursor.SetString(&quot;&quot;)
-	End If
-End Sub
-
-
-&apos; Creates a placeholder out of a string with the following structure:
-&apos;&lt;placeholder:Showtext:Helptext&gt;
-Sub	CreatePlaceholder(oCursor as Object, sFoundContent as String)
-	Dim oPlaceholder as Object
-	Dim MaxIndex as Integer
-	Dim sFoundList(3)
-	oPlaceholder = oDocAuto.CreateInstance(&quot;com.sun.star.text.TextField.JumpEdit&quot;)
-	sFoundList() = ArrayoutofString(sFoundContent, &quot;:&quot; &amp; chr(34),MaxIndex)
-	&apos; Delete The Double-quotes
-	oPlaceholder.Hint = DeleteStr(sFoundList(2),chr(34))
-	oPlaceholder.placeholder = 	DeleteStr(sFoundList(1),chr(34))
-	oCursor.Text.InsertTextContent(oCursor,oPlaceholder,True)
-End Sub
-
-
-</script:module>
\ No newline at end of file