Add initial prototype.

4-high/gel/applet/demo/hello_gel/launch_hello_gel.adb

@@ -0,0 +1,35 @@
+with
+     gel.Applet.gui_world,
+     gel.Forge,
+     gel.Window.setup,
+
+     ada.Text_IO,
+     ada.Exceptions;
+
+pragma unreferenced (gel.Window.setup);
+
+
+procedure launch_hello_GEL
+--
+--  Opens a GEL window.
+--
+is
+   use gel.Applet.gui_world,
+       ada.Text_IO;
+
+   the_Applet : gel.Applet.gui_World.view := gel.Forge.new_gui_Applet ("Hello GEL");
+
+begin
+   while the_Applet.is_open
+   loop
+      the_Applet.gui_World.evolve;     -- Evolve the world.
+      the_Applet.freshen;              -- Handle any new events and update the screen.
+   end loop;
+
+   free (the_Applet);
+
+exception
+   when E : others =>
+      put_Line ("Exception in Environment task");
+      put_Line (ada.Exceptions.Exception_Information (E));
+end launch_hello_GEL;