diff options
Diffstat (limited to 'smoketestoo_native/data/Events.xml')
-rw-r--r-- | smoketestoo_native/data/Events.xml | 65 |
1 files changed, 65 insertions, 0 deletions
diff --git a/smoketestoo_native/data/Events.xml b/smoketestoo_native/data/Events.xml new file mode 100644 index 000000000000..6536c1c5eafc --- /dev/null +++ b/smoketestoo_native/data/Events.xml @@ -0,0 +1,65 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!--********************************************************************** +* +* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +* +* Copyright 2000, 2010 Oracle and/or its affiliates. +* +* OpenOffice.org - a multi-platform office productivity suite +* +* This file is part of OpenOffice.org. +* +* OpenOffice.org is free software: you can redistribute it and/or modify +* it under the terms of the GNU Lesser General Public License version 3 +* only, as published by the Free Software Foundation. +* +* OpenOffice.org is distributed in the hope that it will be useful, +* but WITHOUT ANY WARRANTY; without even the implied warranty of +* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +* GNU Lesser General Public License version 3 for more details +* (a copy is included in the LICENSE file that accompanied this code). +* +* You should have received a copy of the GNU Lesser General Public License +* version 3 along with OpenOffice.org. If not, see +* <http://www.openoffice.org/license.html> +* for a copy of the LGPLv3 License. +* +**********************************************************************--> +<!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 ***** + +Sub InitEvents + call ClickCutTest +End Sub + +Sub ClickSaveTest + if not OptionsDlg.cbSaveTest.Value then + OptionsDlg.cbOpenTest.Value = false + OptionsDlg.cbOpenTest.Enabled = false + else + OptionsDlg.cbOpenTest.Enabled = true + end If +End Sub + +Sub ClickCutTest + if not OptionsDlg.cbCutTest.Value then + OptionsDlg.cbPasteTest.Value = false + OptionsDlg.cbPasteTest.Enabled = false + else + OptionsDlg.cbPasteTest.Enabled = true + end If +End Sub + +Sub PressCancel + gDlgState = cDlgCancel +end Sub + +Sub PressOk + gDlgState = cDlgOk +end Sub + +Sub PressTest + gOptionsDialog.EndExecute() + gDlgState = cDlgStartTest +end Sub +</script:module> |