Data commit

Task/Simple-windowed-application/HicEst/simple-windowed-application-1.hicest

@@ -0,0 +1,8 @@
+ CHARACTER label="There have been no clicks yet"
+
+    DO count = 1, 1E100 ! "forever"
+      DLG(Button="Click me", Width=3, TItle=label) ! Width=3 to display full length label
+      label = "Clicked " // count // "time(s)"
+    ENDDO
+
+ END

Task/Simple-windowed-application/HicEst/simple-windowed-application-2.hicest

@@ -0,0 +1,31 @@
+import gui
+$include "guih.icn"
+
+procedure main()
+   SimpleWindow().show_modal()
+end
+
+class SimpleWindow : Dialog(label, button, count)
+   method component_setup()
+      self.set_attribs("size=222,139")
+      label := Label()
+      label.set_pos("24", "24")
+      label.set_internal_alignment("l")
+      label.set_label("There have been no clicks yet.")
+      self.add(label)
+      button := TextButton()
+      button.set_pos(24, 53)
+      button.set_label("click me")
+      button.set_internal_alignment("c")
+      button.connect(self, "incr", ACTION_EVENT)
+      self.add(button)
+   end
+
+   method incr()
+       /count := 0
+       label.set_label("There have been "||(count+:=1)||" clicks.")
+    end
+
+   initially
+      self.Dialog.initially()
+end