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>