.. _Starting_an_application_with_GtkAda: *********************************** Starting an application with GtkAda *********************************** You need to perform some initializations to start a GtkAda application:: -- predefined units of the library with Gtk.Main; with Gtk.Enums; with Gtk.Window; ... -- My units with Callbacks; ... procedure Application is procedure Create_Window is ... begin -- Set the locale specific datas (e.g time and date format) Gtk.Main.Set_Locale; -- Initializes GtkAda Gtk.Main.Init; -- Create the main window Create_Window; -- Signal handling loop Gtk.Main.Main; end Application; the `Create_Window` procedure looks like:: procedure Create_Window is Main_Window : Gtk.Window.Gtk_Window; ... begin Gtk.Window.Gtk_New (Window => Main_Window, The_Type => Gtk.Enums.Window_Toplevel); -- From Gtk.Widget: Gtk.Window.Set_Title (Window => Main_Window, Title => "Editor"); -- Construct the window and connect various callbacks ... Gtk.Window.Show_All (Main_Window); end Create_Window;
Generated by dwww version 1.15 on Wed Jun 26 00:42:24 CEST 2024.