1<?xml version="1.0" encoding="UTF-8"?> 2<!--*********************************************************** 3 * 4 * Licensed to the Apache Software Foundation (ASF) under one 5 * or more contributor license agreements. See the NOTICE file 6 * distributed with this work for additional information 7 * regarding copyright ownership. The ASF licenses this file 8 * to you under the Apache License, Version 2.0 (the 9 * "License"); you may not use this file except in compliance 10 * with the License. You may obtain a copy of the License at 11 * 12 * http://www.apache.org/licenses/LICENSE-2.0 13 * 14 * Unless required by applicable law or agreed to in writing, 15 * software distributed under the License is distributed on an 16 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 17 * KIND, either express or implied. See the License for the 18 * specific language governing permissions and limitations 19 * under the License. 20 * 21 ***********************************************************--> 22 23 24<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 25<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Events" script:language="StarBasic">REM ***** BASIC ***** 26 27Global s_CloseListenerCalled As Boolean 28 29Sub PressCancel 30 gDlgState = cDlgCancel 31end Sub 32 33Sub PressOk 34 gDlgState = cDlgOk 35end Sub 36 37Sub PressTest 38 gOptionsDialog.EndExecute() 39 gDlgState = cDlgStartTest 40end Sub 41 42Sub closeListener_queryClosing 43 ' not interested in 44 closeListener_queryClosing = TRUE 45End Sub 46 47Sub closeListener_notifyClosing 48 s_CloseListenerCalled = TRUE 49End Sub 50 51Sub closeListener_disposing 52 ' not interested in 53End Sub 54 55Sub ResetCloseListenerFlag 56 s_CloseListenerCalled = FALSE 57End Sub 58 59Function HasCloseListenerBeenCalled As Boolean 60 HasCloseListenerBeenCalled = s_CloseListenerCalled 61End Function 62</script:module> 63