GtkAda et Gtkada_Application

Bonjour à toutes et tous,
J'ai le petit bout de code suivant qui compile très bien mais qui se
vautre directement.

with Ada.Text_IO;use Ada.Text_IO;
With Ada.Exceptions; use Ada.Exceptions;

procedure simple_gtk is

   my_Application : Gtkada_Application;
   main_window : Gtk_Application_Window;

begin
   Gtk.Main.Init;
   my_Application :=
        Gtk_Application_New
          ("org.example.HelloWorld", G_Application_Flags_None,
           Gtkada_Application_Flags_None);

   main_window := Gtk_Application_Window_New (my_application);
   main_window.Set_Default_Size (320, 200);
   main_window.Set_Title ("Hello, World! ");

   main_window.show_all;
   Gtk.Main.Main;
exception
   when Error : others => Put_Line("Ouuupppsss");
      Put_Line (Exception_Information(Error));
end simple_gtk;


Je n'arrive pas à savoir pourquoi.
Bien sûr, j'ai moultes contournements que j'ai déjà mis en place par le
passé mais jamais je n'ai réussi à faire fonctionner correctement
l'objet Gtkada_Application.
Quelqu'un aurait une idée ?

Pour info, j'utilise la version Adacore 2021 de GNAT et de GtkAda.

Bon week-end

Fred
_______________________________________________
Ada-france mailing list
[email protected]
https://mail.ada-france.org/cgi-bin/mailman/listinfo/ada-france