Data commit

Task/Simple-windowed-application/RapidQ/simple-windowed-application.rapidq

@@ -0,0 +1,26 @@
+DECLARE SUB buttonClick
+
+CREATE form AS QForm
+    Center
+    Height = 120
+    Width = 300
+
+    CREATE text AS QLabel
+        Caption = "There have been no clicks yet."
+        Left = 30: Top = 20
+    END CREATE
+
+    CREATE button1 AS QButton
+        Caption = "Click me"
+        Left = 100: Top = 50: Height = 25: Width = 100
+        OnClick = buttonClick
+    END CREATE
+END CREATE
+
+SUB buttonClick
+    STATIC count AS Integer
+    count = count+1
+    text.Caption = "Clicked " + STR$(count) + " times."
+END SUB
+
+form.ShowModal