all tasks

Task/Window-creation/IDL/window-creation-1.idl

@@ -0,0 +1,7 @@
+link graphics
+
+procedure main(arglist)
+
+WOpen("size=300, 300", "fg=blue", "bg=light gray")
+WDone()
+end

Task/Window-creation/IDL/window-creation-2.idl

@@ -0,0 +1,17 @@
+import gui
+$include "guih.icn"
+
+class WindowApp : Dialog ()
+
+  # -- automatically called when the dialog is created
+  method component_setup ()
+    # 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