[Ada][GtkAda] Utilisation de Gtk.Application : inhibiter le comportement ?

Source ada : 

procedure Initialize(Gm_Interface : in out Gm_Interface_Pointer;
         State : out Glib.Gint;
         Works : access Work_Array;
         Verbose, Auto_Play, In_Loop, Help, Ignore : in Boolean) is
            
      Argc : constant Gint := 0;
      Argv : GNAT.Strings.String_List(1..0);-- := (others => new String ' (""));
   begin      
      
      Put("Freeing Gm_Interface...");
      Free(Gm_Interface);      
      Put_Line(" Done.");            
      Gm_Interface := new Gm_Interface_Record;      
      Gm_Interface.Works := Works.all'Unrestricted_Access;      
      Put_Line("Gm_Interface created.");            
      Gm_Interface.App := 
   Gtkada.Application.Gtk_Application_New
   (
    Locale_To_Utf8(GApplication_Id),         
    G_Application_Handles_Command_Line,
    Gtkada_Application_Handles_Open
   );      
      App_User_Callback.Connect
        (Gm_Interface.App, "activate",
    App_User_Callback.To_Marshaller(Not_Activate'Access),
    Gm_Interface);      
      App_User_Callback.Connect
        (Gm_Interface.App, "open",
    App_User_Callback.To_Marshaller(not_open'Access),
    Gm_Interface);      
      App_User_Return_Callback.Connect
        (Gm_Interface.App, "command-line",
    App_User_Return_Callback.To_Marshaller(Cmd_line'Access),
    Gm_Interface);                
      State := 0;
      State := Run(Gm_Interface.App, Argc, Argv);   
   exception
      when others =>
         State := 1;
         raise;
   end Initialize;