with Gtk.Main;
with Main_Windows;
procedure main is
   Win : Main_Windows.Main_Window;
begin
   Gtk.Main.Set_Locale;
   Gtk.Main.Init;
   Main_Windows.Gtk_New (Win);
   Main_Windows.Show_All (Win);
   Gtk.Main.Main;
end main;

with Gtk.Notebook;
with Gtk.Window;
 
package Main_Windows is
 
   type Main_Window_Record is new Gtk.Window.Gtk_Window_Record with
      record
         Notebook       : Gtk.Notebook.Gtk_Notebook;
      end record;
   type Main_Window is access all Main_Window_Record'Class;
 
   procedure Gtk_New (Win : out Main_Window);
   procedure Initialize (Win : access Main_Window_Record'Class);
 
end Main_Windows;

----------------------------
-- with & use clause --
----------------------------
...
...
...
 
package body Main_Windows is
 
   package Notebook_Cb is new Gtk.Handlers.User_Callback
     (Gtk_Notebook_Record, Gtk_Notebook);
 
   package Window_Cb is new Handlers.Callback (Gtk_Widget_Record);
 
   package Return_Window_Cb is new Handlers.Return_Callback
     (Gtk_Widget_Record, Boolean);
 
   procedure Exit_Main (Object : access Gtk_Widget_Record'Class);
   --  Callbacks when the main window is killed
 
   function Delete_Event
     (Object : access Gtk_Widget_Record'Class) return Boolean;
   -----------------
   --  Exit_Main  --
   -----------------
 
   procedure Exit_Main (Object : access Gtk_Widget_Record'Class) is
      pragma Unreferenced (Object);
   begin
      Gtk.Main.Main_Quit;
   end Exit_Main;
 
      ------------------
   -- Delete_Event --
   ------------------
 
   function Delete_Event
     (Object : access Gtk_Widget_Record'Class) return Boolean
   is
      pragma Unreferenced (Object);
   begin
      --  Do not allow the user to kill the window by clicking on the icon,
      --  he has to press explicitly "Quit"
      return True;
   end Delete_Event;
 
 
 
 
   -------------
   -- Gtk_New --
   -------------
 
   procedure Gtk_New (Win : out Main_Window) is
   begin
      Win := new Main_Window_Record;
      Initialize (Win);
   end Gtk_New;
 
   ----------------
   -- Initialize --
   ----------------
 
   procedure Initialize (Win : access Main_Window_Record'Class) is
      Frame    : Gtk.Frame.Gtk_Frame;
      Label    : Gtk.Label.Gtk_Label;
      Vbox     : Gtk.Box.Gtk_Box;
      Style    : Gtk_Style;
      Button   : Gtk.Button.Gtk_Button;
      Bbox     : Gtk.Hbutton_Box.Gtk_Hbutton_Box;
 
   begin
      Gtk.Window.Initialize (Win, Gtk.Enums.Window_Toplevel);
      Window_Cb.Connect (Win, "destroy",
                         Window_Cb.To_Marshaller (Exit_Main'Access));
      Return_Window_Cb.Connect
        (Win, "delete_event",
         Return_Window_Cb.To_Marshaller (Delete_Event'Access));
 
      --  The global box
      Gtk_New_Vbox (Vbox, Homogeneous => False, Spacing => 0);
      Add (Win, Vbox);
 
      --  Label
      Style := Copy (Get_Style (Win));
      Set_Font_Description (Style, From_String ("Helvetica Bold 18" ));
 
      Gtk_New (Label, "xbusiness" );
      Set_Style (Label, Style);
      Pack_Start (Vbox, Label, Expand => False, Fill => False, Padding => 10);
 
      --  Notebook creation
      Gtk_New (Win.Notebook);
      Pack_Start (Vbox, Win.Notebook, Expand => True, Fill => True);
      Gtk_New (Bbox);
      Set_Layout (Bbox, Buttonbox_Spread);
      Set_Spacing (Bbox, 40);
 
      Gtk_New (Button, "Quit" );
      Pack_Start (Bbox, Button, Expand => True, Fill => False);
      Window_Cb.Connect (Button, "clicked",
                         Window_Cb.To_Marshaller (Exit_Main'Access));
 
      Pack_End (Vbox, Bbox, Expand => False, Padding => 5);
 
      --  Display everything
      Show_All (Vbox);
 
   end Initialize;
 
end Main_Windows;

with Gtk.Main;
with Main_win; use Main_win;
procedure main is
        ia : T_Win_ia;
begin
   Gtk.Main.main;
end main;

with Gtk.Main;  use Gtk.Main;
with Gtk.Window;        use Gtk.Window;
with Gtk.Box;   use Gtk.Box;
with Gtk.Label; use Gtk.Label;
with Gtk.Button;        use Gtk.Button;
--with Gtk.GEntry;        use Gtk.GEntry;
--with Gtk.Widget;        use Gtk.Widget;
--with Gtk.Handlers; use Gtk.Handlers;
 
with Ada.Finalization;
 
package Main_win is
 
        type T_Win_ia is new Ada.Finalization.Controlled with record
                window_1        : Gtk_Window;
                container_1     : Gtk_Box;
                label_1 : Gtk_Label;
                label_2 : Gtk_Label;
  --              entry_1 : Gtk_Entry;
  --              button_1        : Gtk_Button;
        end record;
 
        procedure Initialize(Une_Ia : in out T_Win_ia);
 
--        procedure réponse
--        (
--                élément_Emetteur : access Gtk_Widget_Record'Class;
--                L_Ia : T_Win_ia
--        );
 
--        package Traitement is new User_Callback(Gtk_Widget_Record, T_Win_Ia);
 
end Main_win;

package body Main_win is
 
--        procedure réponse(
--                élément_Emetteur : access Gtk_Widget_Record'Class;
--                L_ia : T_Win_ia) is
--        begin
--                set_Text(la_ia.label_2, "Bonjour a toi "&get_Text(L_ia.entry_1)&" !" );
--        end réponse;
 
        procedure Initialize(Une_ia : in out T_Win_ia) is
        begin
                init;
                gtk_New(une_ia.window_1);
                set_Title(une_ia.window_1, "IA" );
 
                gtk_New_Vbox(une_ia.container_1);
                gtk_New(une_ia.label_1, "Wait please" );
--                gtk_New(une_ia.entry_1);
--                gtk_New(une_ia.button_1, "Ok" );
--                gtk_New(une_ia.label_2, "Qui dois-je saluer ?" );
 
                add(une_ia.window_1, une_ia.container_1);
                pack_Start(une_ia.container_1, une_ia.label_1);
 --               pack_Start(une_ia.container_1, une_ia.entry_1);
                pack_Start(une_ia.container_1, une_ia.button_1);
 --               pack_Start(une_ia.container_1, une_ia.label_2);
 
--                Traitement.Connect
--                (
--                        une_ia.button_1,
--                        "clicked",
--                        Traitement.to_Marshaller(réponse'Access),
--                        une_ia
--                );
 
                show_All(une_ia.window_1);
        end Initialize;
end Main_win;