Data commit

Task/Simple-windowed-application/Unicon/simple-windowed-application.unicon

@@ -0,0 +1,31 @@
+import gui
+$include "guih.icn"
+
+class SimpleApp : Dialog (label)
+
+  # -- automatically called when the dialog is created
+  method component_setup()
+    # create and add the label
+    label := Label("label=There have been no clicks yet","pos=50%,33%", "align=c,c")
+    add (label)
+
+    # create and add the button
+    button := TextButton("label=Click me", "pos=50%,66%", "align=c,c")
+    button.connect(self, "clicked", ACTION_EVENT)
+    add (button)
+
+    # some cosmetic settings for the window
+    attrib("size=180,70", "bg=light gray")
+  end
+
+  method clicked ()
+    static count := 0
+    count +:= 1
+    label.set_label ("Clicked " || count || " times")
+  end
+end
+
+procedure main()
+  local d := SimpleApp ()
+  d.show_modal()
+end