36 lines
739 B
Ada
36 lines
739 B
Ada
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;
|