type Quit_Handler_Id is new Guint;
type Quit_Function is access function return Boolean;
type Key_Snooper_Func is access function (Widget : System.Address; Event : Gdk.Event.Gdk_Event_Key; Data : System.Address) return Gboolean;
type Key_Snooper_Id is new Guint;
type Idle_Handler_Id is new Guint;
type Idle_Priority is new Guint;
type Idle_Callback is access function return Boolean;
type Timeout_Handler_Id is new Guint;
type Timeout_Callback is access function return Boolean;
Priority_High_Idle : constant Idle_Priority := 100;
Priority_Default_Idle : constant Idle_Priority := 200;
Priority_Low_Idle : constant Idle_Priority := 300;
procedure Init;
function Init_Check return Boolean;
procedure Disable_Setlocale;
function Check_Version
( | Required_Major | : Guint := Gtk.Major_Version; |
Required_Minor | : Guint := Gtk.Minor_Version; | |
Required_Micro | : Guint := Gtk.Micro_Version) return String; |
function Get_Default_Language return Pango.Font.Pango_Language;
function Events_Pending return Boolean;
procedure Main;
function Main_Level return Guint;
procedure Main_Quit;
procedure Do_Event
( | Event | : Gdk.Event.Gdk_Event); |
procedure Propagate_Event
( | Widget | : access Gtk.Widget.Gtk_Widget_Record'Class; |
Event | : Gdk.Event.Gdk_Event); |
function Get_Event_Widget
( | Event | : Gdk.Event.Gdk_Event) return Gtk.Widget.Gtk_Widget; |
function Get_Current_Event return Gdk.Event.Gdk_Event;
procedure Get_Current_Event_State
( | State | : out Gdk.Types.Gdk_Modifier_Type; |
Had_Current_Event | : out Boolean); |
function Get_Current_Event_Time return Guint32;
function Key_Snooper_Install
( | Snooper | : Key_Snooper_Func; |
Func_Data | : System.Address) return Key_Snooper_Id; |
procedure Key_Snooper_Remove
( | Snooper_Handler_Id | : Key_Snooper_Id); |
procedure Grab_Add
( | Widget | : access Gtk.Widget.Gtk_Widget_Record'Class); |
procedure Grab_Remove
( | Widget | : access Gtk.Widget.Gtk_Widget_Record'Class); |
function Grab_Get_Current return Gtk.Widget.Gtk_Widget;
procedure Gtk_Exit
( | Error_Code | : Gint); |
function Idle_Add
( | Cb | : Idle_Callback; |
Priority | : Idle_Priority := Priority_Default_Idle) return Idle_Handler_Id; |
procedure Idle_Remove
( | Id | : Idle_Handler_Id); |
function Timeout_Add
( | Interval | : Guint32; |
Func | : Timeout_Callback) return Timeout_Handler_Id; |
procedure Timeout_Remove
( | Id | : Timeout_Handler_Id); |
procedure Init_Add
( | Func | : Init_Function; |
Data | : System.Address); |
function Quit_Add
( | Main_Level | : Guint; |
Func | : Quit_Function) return Quit_Handler_Id; |
function Quit_Add_Destroy
( | Main_Level | : Guint; |
Object | : access Glib.Object.GObject_Record'Class) return Quit_Handler_Id; |
procedure Quit_Remove
( | Id | : Quit_Handler_Id); |
This package contains top-level subprograms that are used to initialize GtkAda and interact with the main event loop.
It also provides a set of packages to set up idle functions, timeout functions, and functions to be called before and after entering the main loop.
Binding from C File version 2.8.17