1<?xml version="1.0" encoding="UTF-8"?> 2<!--********************************************************************** 3* 4* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 5* 6* Copyright 2000, 2010 Oracle and/or its affiliates. 7* 8* OpenOffice.org - a multi-platform office productivity suite 9* 10* This file is part of OpenOffice.org. 11* 12* OpenOffice.org is free software: you can redistribute it and/or modify 13* it under the terms of the GNU Lesser General Public License version 3 14* only, as published by the Free Software Foundation. 15* 16* OpenOffice.org is distributed in the hope that it will be useful, 17* but WITHOUT ANY WARRANTY; without even the implied warranty of 18* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 19* GNU Lesser General Public License version 3 for more details 20* (a copy is included in the LICENSE file that accompanied this code). 21* 22* You should have received a copy of the GNU Lesser General Public License 23* version 3 along with OpenOffice.org. If not, see 24* <http://www.openoffice.org/license.html> 25* for a copy of the LGPLv3 License. 26* 27**********************************************************************--> 28<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 29<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Events" script:language="StarBasic">REM ***** BASIC ***** 30 31Global s_CloseListenerCalled As Boolean 32 33Sub PressCancel 34 gDlgState = cDlgCancel 35end Sub 36 37Sub PressOk 38 gDlgState = cDlgOk 39end Sub 40 41Sub PressTest 42 gOptionsDialog.EndExecute() 43 gDlgState = cDlgStartTest 44end Sub 45 46Sub closeListener_queryClosing 47 ' not interested in 48 closeListener_queryClosing = TRUE 49End Sub 50 51Sub closeListener_notifyClosing 52 s_CloseListenerCalled = TRUE 53End Sub 54 55Sub closeListener_disposing 56 ' not interested in 57End Sub 58 59Sub ResetCloseListenerFlag 60 s_CloseListenerCalled = FALSE 61End Sub 62 63Function HasCloseListenerBeenCalled As Boolean 64 HasCloseListenerBeenCalled = s_CloseListenerCalled 65End Function 66</script:module> 67