A-M baby

Task/Hello-world-Graphical/HicEst/hello-world-graphical-1.hicest

@@ -0,0 +1 @@
+WRITE(Messagebox='!') 'Goodbye, World!'

Task/Hello-world-Graphical/HicEst/hello-world-graphical-2.hicest

@@ -0,0 +1,6 @@
+link graphics
+procedure main()
+   WOpen("size=100,20") | stop("No window")
+   WWrites("Goodbye, World!")
+   WDone()
+end

Task/Hello-world-Graphical/HicEst/hello-world-graphical-3.hicest

@@ -0,0 +1,21 @@
+import gui
+$include "guih.icn"
+
+class WindowApp : Dialog ()
+
+  # -- automatically called when the dialog is created
+  method component_setup ()
+    # add 'hello world' label
+    label := Label("label=Hello world","pos=0,0")
+    add (label)
+
+    # make sure we respond to close event
+    connect(self, "dispose", CLOSE_BUTTON_EVENT)
+  end
+end
+
+# create and show the window
+procedure main ()
+  w := WindowApp ()
+  w.show_modal ()
+end