1*cdf0e10cSrcweir<?xml version="1.0" encoding="UTF-8"?>
2*cdf0e10cSrcweir<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3*cdf0e10cSrcweir<script:module xmlns:script="http://openoffice.org/2000/script" script:name="TutorialClose" script:language="StarBasic">REM  *****  BASIC  *****
4*cdf0e10cSrcweirDim myCloseDialog As Object
5*cdf0e10cSrcweir
6*cdf0e10cSrcweirSub TutorialCloseMain
7*cdf0e10cSrcweir	myCloseDialog = LoadDialog(&quot;Tutorials&quot;,&quot;TutorialCloseDialog&quot;)
8*cdf0e10cSrcweir	myCloseDialog.Execute()
9*cdf0e10cSrcweirEnd Sub
10*cdf0e10cSrcweir
11*cdf0e10cSrcweirSub CloseYes(aEvent)
12*cdf0e10cSrcweir	myCloseDialog.EndExecute()
13*cdf0e10cSrcweir	DialogVisible = False
14*cdf0e10cSrcweirEnd Sub
15*cdf0e10cSrcweir</script:module>