From ed5640d8b587fbcfed7dd7967f3de04b37a76f26 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Sun, 7 Apr 2024 11:06:44 +0200
Subject: Adding upstream version 4:7.4.7.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 .../python/toolpanel/toolPanelPocBasic/Module1.xba | 29 ++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 odk/examples/python/toolpanel/toolPanelPocBasic/Module1.xba

(limited to 'odk/examples/python/toolpanel/toolPanelPocBasic/Module1.xba')

diff --git a/odk/examples/python/toolpanel/toolPanelPocBasic/Module1.xba b/odk/examples/python/toolpanel/toolPanelPocBasic/Module1.xba
new file mode 100644
index 000000000..9d44f7f01
--- /dev/null
+++ b/odk/examples/python/toolpanel/toolPanelPocBasic/Module1.xba
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Module1" script:language="StarBasic">
+global theDialog
+
+
+Sub dialogOnLoad(event)
+
+	theDialog = event.source
+		
+End Sub
+
+sub buttonClick(event)
+
+
+	theButton = theDialog.getControl(&quot;CommandButton1&quot;)
+	theTextField = theDialog.getControl(&quot;TextInfo&quot;)
+
+	colors = Array(rgb(255,0,0),rgb(0,255,0),rgb(0,0,255)) 
+	rank = getSystemTicks() mod 3
+
+	theDialog.Model.BackgroundColor = colors(rank)
+	theTextField.text =  cstr(Now) + chr(10)+&quot;Color &quot; + cstr(rank) + &quot; randomly applied&quot;
+	
+	theButton.label = &quot;Click Me to change color&quot;
+	
+
+end sub
+</script:module>
\ No newline at end of file
-- 
cgit v1.2.3