gnoga_2.1.2_5f127c56/docs/user_guide/gnogacmd/gnogacmd-main.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
with Ada.Exceptions;

with Gnoga.Application.Singleton;
with Gnoga.Gui.Window;

with GnogaCMD.Controller;

procedure GnogaCMD.Main is
   Main_Window : Gnoga.Gui.Window.Window_Type;
begin
   Gnoga.Application.Title ("GnogaCMD");
   Gnoga.Application.HTML_On_Close
     ("<b>Connection to Application has been terminated</b>");

   Gnoga.Application.Open_URL("http://127.0.0.1:8080");   
   Gnoga.Application.Singleton.Initialize (Main_Window, Port => 8080);   
   
   GnogaCMD.Controller.Default (Main_Window);
   
   Gnoga.Application.Singleton.Message_Loop;
exception
   when E : others =>
      Gnoga.Log (Ada.Exceptions.Exception_Name (E) & " - " &
                   Ada.Exceptions.Exception_Message (E));
end GnogaCMD.Main;