Quelle  Events.xml   Sprache: XML

<?xml version="1.0" encoding="UTF-8"?>
<!--
 * This file is part of the LibreOffice project.
 *
 * This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this
 * file, You can obtain one at http://mozilla.org/MPL/2.0/.
 *
 * This file incorporates work covered by the following license notice:
 *
 *   Licensed to the Apache Software Foundation (ASF) under one or more
 *   contributor license agreements. See the NOTICE file distributed
 *   with this work for additional information regarding copyright
 *   ownership. The ASF licenses this file to you under the Apache
 *   License, Version 2.0 (the "License"); you may not use this file
 *   except in compliance with the License. You may obtain a copy of
 *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
 -->
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Events" script:language="StarBasic">REM  *****  BASIC  *****

Global s_CloseListenerCalled As Boolean

Sub PressCancel
    gDlgState = cDlgCancel
end Sub

Sub PressOk
    gDlgState = cDlgOk
end Sub

Sub PressTest
    gOptionsDialog.EndExecute()
    gDlgState = cDlgStartTest
end Sub

Sub closeListener_queryClosing
  ' not interested in
  closeListener_queryClosing = TRUE
End Sub

Sub closeListener_notifyClosing
  s_CloseListenerCalled = TRUE
End Sub

Sub closeListener_disposing
  ' not interested in
End Sub

Sub ResetCloseListenerFlag
  s_CloseListenerCalled = FALSE
End Sub

Function HasCloseListenerBeenCalled As Boolean
  HasCloseListenerBeenCalled = s_CloseListenerCalled
End Function
</script:module>