gnoga_2.1.2_5f127c56/docs/user_guide/gnogaboard/gnogaboard-main.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
with Ada.Exceptions;

with Gnoga.Application.Multi_Connect;

with GnogaBoard.Controller;

procedure GnogaBoard.Main is
begin
   Gnoga.Application.Title ("GnogaBoard");
   Gnoga.Application.HTML_On_Close
     ("<b>Connection to Application has been terminated</b>");
   
   Gnoga.Application.Multi_Connect.Initialize;
   
   Gnoga.Application.Multi_Connect.Message_Loop;
exception
   when E : others =>
      Gnoga.Log (Ada.Exceptions.Exception_Name (E) & " - " &
                   Ada.Exceptions.Exception_Message (E));
end GnogaBoard.Main;