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("Tutorials","TutorialCloseDialog") 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>