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

1 files changed, 0 insertions, 96 deletions

diff --git a/wizards/source/tutorials/TutorialOpen.xba b/wizards/source/tutorials/TutorialOpen.xba
deleted file mode 100644
index a64a72507..000000000
--- a/wizards/source/tutorials/TutorialOpen.xba
+++ /dev/null
@@ -1,96 +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="TutorialOpen" script:language="StarBasic">REM  *****  BASIC  *****
-Dim myOpenDialog As Object
-Dim oListBox As Object
-Dim files As Object
-Dim oUcb As Object
-Dim oListener As Object
-
-Sub TutorialOpenMain
-	GlobalScope.BasicLibraries.LoadLibrary(&quot;Tools&quot;)
-	myOpenDialog = LoadDialog(&quot;Tutorials&quot;,&quot;TutorialOpenDialog&quot;)	
-	init()
-	myOpenDialog.Execute()	
-End Sub
-
-Sub Init
-	On Local Error Goto NOFILE		
-		myOpenDialog.Title = &quot;Tutorials&quot;
-		oListBox = myOpenDialog.GetControl(&quot;ListBox&quot;)	
-		templatePath = GetPathSettings(&quot;Template&quot;,false, 0)
-		Dim tutorialPath As String
-		iPos = InStr(templatePath,&quot;/&quot;)
-		if(iPos &gt; 0) Then
-			tutorialPath = templatePath &amp; &quot;/tutorials&quot;
-		Else
-			tutorialPath = templatePath &amp; &quot;\tutorials&quot;
-		End If
-		oUcb = createUnoService(&quot;com.sun.star.ucb.SimpleFileAccess&quot;)	
-		files = oUcb.getFolderContents(tutorialPath,true)	
-		size  = Ubound( files() )	
-		Dim tempFiles(size) As String
-		tempCount = 0
-		For iCount = 0 To size 
-			completPath = files(iCount)
-			oDocInfo = CreateUnoService(&quot;com.sun.star.document.DocumentProperties&quot;)			
-			oDocInfo.Read(completPath)
-			sDocTitle = oDocInfo.Title
-			if(not isNull(sDocTitle) And len(sDocTitle) &gt; 0) Then
-				oListbox.additem(sDocTitle,0)
-				tempFiles(tempCount) = completPath
-				tempCount = tempCount + 1
-			End If
-		Next iCount
-		&apos;printdbgInfo oListbox
-		size = oListbox.ItemCount - 1
-		Dim tempFiles2(size) As String
-		For iCount = 0 To size
-			tempFiles2(iCount)  = tempFiles(iCount) 			
-		Next iCount
-		files() = tempFiles2()
-	Exit Sub	
-	NOFILE:
-	If Err &lt;&gt; 0 Then
-		Msgbox &quot;No file found error!&quot; &amp; CHR(13) &amp; &quot;Path: ...\share\template\...\tutorials\&quot;
-		myOpenDialog.model.Open.enabled = False
-	End If
-End Sub
-
-Sub ItemSelected(oEvent)
-	On Local Error Goto NOFILE		
-		completPath = files(Ubound(files()) - oEvent.Selected)	
-		oTextField = myOpenDialog.GetControl(&quot;Label&quot;) &apos;TextField	
-		oTextField.setText(&quot;&quot;)
-		Dim NoArgs() as new com.sun.star.beans.PropertyValue	
-		oDocInfo = CreateUnoService(&quot;com.sun.star.document.DocumentProperties&quot;)
-		oDocInfo.Read(completPath)
-		sDocDescription = oDocInfo.Description
-		if(not isNull(sDocTitle) And len(sDocDescription) &gt; 0) Then	
-			oTextField.setText(sDocDescription)	
-		Else
-			oTextField.setText(&quot;Not Description!!!.&quot;)		
-		End If
-	Exit Sub
-	NOFILE:
-	If Err &lt;&gt; 0 Then
-		Msgbox &quot;Open file error!&quot;
-	End If	
-End Sub
-
-Sub OpenTutorial(aEvent)
-	completPath = files(Ubound(files()) - oListBox.getSelectedItemPos())	
-	Dim Args(2) as new com.sun.star.beans.PropertyValue
-	Args(1).Name = &quot;MacroExecutionMode&quot;
-	Args(1).Value = com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE
-	Args(2).Name = &quot;AsTemplate&quot;
-	Args(2).Value = true
-
-	StarDesktop.LoadComponentFromURL(completPath,&quot;_default&quot;,0, Args())
-	myOpenDialog.endExecute()
-End Sub
-
-Sub Cancel(aEvent)
-	myOpenDialog.endExecute()
-End Sub
-</script:module>
\ No newline at end of file