with Gtk.Main;
with Q_Bingada;

with Ada.Directories;
with Ada.Environment_Variables;

procedure Bingada is

begin

   -- Set current directory to the APPDIR value path. In this way we
   -- allow running from an AppImage and still find the resource files.
   --
   if Ada.Environment_Variables.Exists ("APPDIR") then
      Ada.Directories.Set_Directory
        (Ada.Environment_Variables.Value ("APPDIR"));
   end if;

   Gtk.Main.Init;

   Q_Bingada.P_Create_Widgets;

   -- All GTK applications must have a Gtk.Main.Main. Control ends here
   -- and waits for an event to occur (like a key press or a mouse event),
   -- until Gtk.Main.Main_Quit is called.
   Gtk.Main.Main;

end Bingada;