lace_gel_0.1.0_2c333035/applet/demo/hello_gel/launch_hello_gel.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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;