with Gdk.Event;
with Gdk.Visual;
with Gdk.Window;
with Glib;
package Gdk.Window_Attr is
subtype Gdk_Window_Attr is Gdk.Gdk_Window_Attr;
Null_Window_Attr : constant Gdk_Window_Attr;
procedure Gdk_New
(Window_Attr : out Gdk_Window_Attr;
Title : Glib.UTF8_String := "";
Event_Mask : Gdk.Event.Gdk_Event_Mask := 0;
X, Y : Glib.Gint := 0;
Width : Glib.Gint := 0;
Height : Glib.Gint := 0;
Wclass : Gdk.Window.Gdk_Window_Class :=
Gdk.Window.Input_Output;
Visual : Gdk.Visual.Gdk_Visual := null;
Window_Type : Gdk.Window.Gdk_Window_Type :=
Gdk.Window.Window_Root;
Cursor : Gdk.Gdk_Cursor := null;
Wmclass_Name : String := "";
Wmclass_Class : String := "";
Override_Redirect : Boolean := True);
procedure Destroy (Window_Attr : in out Gdk_Window_Attr);
procedure Set_Title
(Window_Attr : Gdk_Window_Attr;
Title : Glib.UTF8_String);
function Get_Title (Window_Attr : Gdk_Window_Attr) return Glib.UTF8_String;
procedure Set_Event_Mask
(Window_Attr : Gdk_Window_Attr;
Event_Mask : Gdk.Event.Gdk_Event_Mask);
function Get_Event_Mask
(Window_Attr : Gdk_Window_Attr) return Gdk.Event.Gdk_Event_Mask;
procedure Set_X
(Window_Attr : Gdk_Window_Attr;
X : Glib.Gint);
function Get_X (Window_Attr : Gdk_Window_Attr) return Glib.Gint;
procedure Set_Y
(Window_Attr : Gdk_Window_Attr;
Y : Glib.Gint);
function Get_Y (Window_Attr : Gdk_Window_Attr) return Glib.Gint;
procedure Set_Width
(Window_Attr : Gdk_Window_Attr;
Width : Glib.Gint);
function Get_Width (Window_Attr : Gdk_Window_Attr) return Glib.Gint;
procedure Set_Height
(Window_Attr : Gdk_Window_Attr;
Height : Glib.Gint);
function Get_Height (Window_Attr : Gdk_Window_Attr) return Glib.Gint;
procedure Set_Window_Class
(Window_Attr : Gdk_Window_Attr;
Wclass : Gdk.Window.Gdk_Window_Class);
function Get_Window_Class
(Window_Attr : Gdk_Window_Attr) return Gdk.Window.Gdk_Window_Class;
procedure Set_Visual
(Window_Attr : Gdk_Window_Attr;
Visual : Gdk.Visual.Gdk_Visual);
function Get_Visual
(Window_Attr : Gdk_Window_Attr) return Gdk.Visual.Gdk_Visual;
procedure Set_Window_Type
(Window_Attr : Gdk_Window_Attr;
Window_Type : Gdk.Window.Gdk_Window_Type);
function Get_Window_Type
(Window_Attr : Gdk_Window_Attr) return Gdk.Window.Gdk_Window_Type;
procedure Set_Cursor
(Window_Attr : Gdk_Window_Attr;
Cursor : Gdk.Gdk_Cursor);
function Get_Cursor
(Window_Attr : Gdk_Window_Attr)
return Gdk.Gdk_Cursor;
procedure Set_Wmclass_Name
(Window_Attr : Gdk_Window_Attr;
Wmclass_Name : String);
function Get_Wmclass_Name (Window_Attr : Gdk_Window_Attr) return String;
procedure Set_Wmclass_Class
(Window_Attr : Gdk_Window_Attr;
Wmclass_Class : String);
function Get_Wmclass_Class (Window_Attr : Gdk_Window_Attr) return String;
procedure Set_Override_Redirect
(Window_Attr : Gdk_Window_Attr;
Override_Redirect : Boolean);
function Get_Override_Redirect
(Window_Attr : Gdk_Window_Attr) return Boolean;
private
Null_Window_Attr : constant Gdk_Window_Attr := null;
pragma Import (C, Get_Cursor, "ada_gdk_window_attr_get_cursor");
pragma Import (C, Get_Event_Mask, "ada_gdk_window_attr_get_event_mask");
pragma Import (C, Get_Height, "ada_gdk_window_attr_get_height");
pragma Import (C, Get_Visual, "ada_gdk_window_attr_get_visual");
pragma Import (C, Get_Width, "ada_gdk_window_attr_get_width");
pragma Import (C, Get_Window_Class, "ada_gdk_window_attr_get_wclass");
pragma Import (C, Get_Window_Type, "ada_gdk_window_attr_get_window_type");
pragma Import (C, Get_X, "ada_gdk_window_attr_get_x");
pragma Import (C, Get_Y, "ada_gdk_window_attr_get_y");
pragma Import (C, Set_Cursor, "ada_gdk_window_attr_set_cursor");
pragma Import (C, Set_Event_Mask, "ada_gdk_window_attr_set_event_mask");
pragma Import (C, Set_Height, "ada_gdk_window_attr_set_height");
pragma Import (C, Set_Visual, "ada_gdk_window_attr_set_visual");
pragma Import (C, Set_Width, "ada_gdk_window_attr_set_width");
pragma Import (C, Set_Window_Class, "ada_gdk_window_attr_set_wclass");
pragma Import (C, Set_Window_Type, "ada_gdk_window_attr_set_window_type");
pragma Import (C, Set_X, "ada_gdk_window_attr_set_x");
pragma Import (C, Set_Y, "ada_gdk_window_attr_set_y");
end Gdk.Window_Attr;