Data commit

Task/Simple-windowed-application/BaCon/simple-windowed-application.bacon

@@ -0,0 +1,18 @@
+OPTION GUI TRUE
+PRAGMA GUI gtk3
+
+gui = GUIDEFINE(" \
+    { type=WINDOW name=window callback=delete-event title=\"Rosetta Code\" width-request=300 } \
+    { type=BOX name=box parent=window orientation=GTK_ORIENTATION_VERTICAL } \
+    { type=LABEL name=label parent=box height-request=50 label=\"There have been no clicks yet\" } \
+    { type=BUTTON name=button parent=box callback=clicked label=\"Click Me\" }")
+
+WHILE TRUE
+    SELECT GUIEVENT$(gui)
+        CASE "window"
+            BREAK
+        CASE "button"
+            INCR clicked
+            CALL GUISET(gui, "label", "label", "Button clicks: " & STR$(clicked))
+    ENDSELECT
+WEND