home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2011 June / maximum-cd-2011-06.iso / DiscContents / LibO_3.3.1_Win_x86_install_multi.exe / libreoffice1.cab / TutorialClose.xba < prev    next >
Encoding:
Extensible Markup Language  |  2010-12-01  |  541 b   |  15 lines

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