3387bf1b14
2003/12/09 14:33:08 mexx 1.1.2.1: Initial revision
15 lines
No EOL
541 B
XML
15 lines
No EOL
541 B
XML
<?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="TutorialClose" script:language="StarBasic">REM ***** BASIC *****
|
|
Dim myCloseDialog As Object
|
|
|
|
Sub TutorialCloseMain
|
|
myCloseDialog = LoadDialog("Tutorials","TutorialCloseDialog")
|
|
myCloseDialog.Execute()
|
|
End Sub
|
|
|
|
Sub CloseYes(aEvent)
|
|
myCloseDialog.EndExecute()
|
|
DialogVisible = False
|
|
End Sub
|
|
</script:module> |