window.adb

with Window_Package; use Window_Package;

with Text_IO; use Text_IO;

with Glib.Error; use Glib.Error;
with Glib.Object; use Glib.Object;

with Gtk.Main;
with Gtk.Widget;
with Gtk.Window; use Gtk.Window;
with Gtkada.Builder; use Gtkada.Builder;

procedure Window is
    Builder : Gtkada_Builder;
    Error   : GError;
    Default_Filename : constant String := "ChatWindow.glade";

begin
    Gtk.Main.Init;
    
    Gtk_New (Builder);
    Error := Add_From_File (Builder, Default_Filename);
    if Error /= null then
        Put_Line ("Error: " & Get_Message(Error));
        Error_Free (Error);
    end if;

    Register_Handler (
        Builder      => Builder,
        Handler_Name => "on_window_destroy",
        Handler      => Destroy'Access);

    Gtk.Widget.Show_All (
        Gtk.Widget.Convert (
            Glib.Object.Convert (
                Get_Object (Builder, "window"))));

    Gtk.Main.Main;
end;

window_package.adb

package body Window_Package is

    procedure Destroy (Widget : access Gtk_Widget_Record'Class) is
        pragma Unreferenced (Widget);
    begin
        Gtk.Main.Main_Quit;
    end Destroy;

end Window_Package;

window_package.ads

with Gtk.Widget; use Gtk.Widget;

package Window_Package is

    procedure Destroy (Widget : access Gtk_Widget_Record'Class);

end Window_Package;