xref: /aoo42x/test/smoketestdoc/data/Events.xml (revision a622bb93)
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  &apos; not interested in
44  closeListener_queryClosing = TRUE
45End Sub
46
47Sub closeListener_notifyClosing
48  s_CloseListenerCalled = TRUE
49End Sub
50
51Sub closeListener_disposing
52  &apos; 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