with Glib.Object;
with Glib.Values;
with Gdk.Color; use Gdk.Color;
with Gdk.Font; use Gdk.Font;
with Gdk.GC;
with Gdk.Pixmap;
with Gdk.Rectangle;
with Gdk.Types;
with Gdk.Window;
with Gtk.Enums; use Gtk.Enums;
with Pango.Font;
with Pango.Layout;
with Interfaces.C.Strings;
package Gtk.Style is
type Gtk_Style_Record is new Glib.Object.GObject_Record with null record;
type Gtk_Style is access all Gtk_Style_Record'Class;
Null_Style : constant Gtk_Style := null;
type Gtk_Rc_Property_Parser is access function
(Pspec : Glib.Param_Spec;
Rc_String : Interfaces.C.Strings.chars_ptr;
Value : access Glib.Values.GValue) return Gboolean;
pragma Convention (C, Gtk_Rc_Property_Parser);
procedure Gtk_New (Style : out Gtk_Style);
procedure Initialize (Style : access Gtk_Style_Record'Class);
function Get_Type return Gtk.Gtk_Type;
function Copy (Source : Gtk_Style) return Gtk_Style;
function Attach
(Style : Gtk_Style; Window : Gdk.Window.Gdk_Window) return Gtk_Style;
procedure Detach (Style : Gtk_Style);
procedure Set_Background
(Style : Gtk_Style;
Window : Gdk.Window.Gdk_Window;
State_Type : Gtk_State_Type);
procedure Apply_Default_Background
(Style : access Gtk_Style_Record;
Window : Gdk.Window.Gdk_Window;
Set_Bg : Boolean;
State_Type : Gtk_State_Type;
Area : Gdk.Rectangle.Gdk_Rectangle;
X : Gint;
Y : Gint;
Width : Gint;
Height : Gint);
procedure Set_Background
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
Color : Gdk.Color.Gdk_Color);
procedure Set_Bg
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
Color : Gdk.Color.Gdk_Color) renames Set_Background;
function Get_Background
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type) return Gdk.Color.Gdk_Color;
function Get_Bg
(Style : Gtk_Style;
State_Type : Gtk_State_Type) return Gdk_Color renames Get_Background;
procedure Set_Background_GC
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
GC : Gdk.GC.Gdk_GC);
procedure Set_Background
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
GC : Gdk_GC) renames Set_Background_GC;
procedure Set_Bg
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
GC : Gdk.GC.Gdk_GC) renames Set_Background_GC;
procedure Set_Bg_GC
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
GC : Gdk.GC.Gdk_GC) renames Set_Background_GC;
function Get_Background_GC
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type) return Gdk.GC.Gdk_GC;
function Get_Bg
(Style : Gtk_Style;
State_Type : Gtk_State_Type) return Gdk_GC renames Get_Background_GC;
function Get_Background
(Style : Gtk_Style;
State_Type : Gtk_State_Type) return Gdk_GC renames Get_Background_GC;
function Get_Bg_GC
(Style : Gtk_Style;
State_Type : Gtk_State_Type) return Gdk_GC renames Get_Background_GC;
procedure Set_Foreground
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
Color : Gdk.Color.Gdk_Color);
procedure Set_Fg
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
Color : Gdk.Color.Gdk_Color) renames Set_Foreground;
function Get_Foreground
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type) return Gdk.Color.Gdk_Color;
function Get_Fg
(Style : Gtk_Style;
State_Type : Gtk_State_Type) return Gdk_Color renames Get_Foreground;
procedure Set_Foreground_GC
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
GC : Gdk.GC.Gdk_GC);
procedure Set_Fg_GC
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
GC : Gdk.GC.Gdk_GC) renames Set_Foreground_GC;
procedure Set_Foreground
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
GC : Gdk.GC.Gdk_GC) renames Set_Foreground_GC;
procedure Set_Fg
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
GC : Gdk.GC.Gdk_GC) renames Set_Foreground_GC;
function Get_Foreground_GC
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type) return Gdk.GC.Gdk_GC;
function Get_Foreground
(Style : Gtk_Style;
State_Type : Gtk_State_Type) return Gdk_GC renames Get_Foreground_GC;
function Get_Fg
(Style : Gtk_Style;
State_Type : Gtk_State_Type) return Gdk_GC renames Get_Foreground_GC;
function Get_Fg_GC
(Style : Gtk_Style;
State_Type : Gtk_State_Type) return Gdk_GC renames Get_Foreground_GC;
procedure Set_Light
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
Color : Gdk.Color.Gdk_Color);
function Get_Light
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type) return Gdk.Color.Gdk_Color;
procedure Set_Light_GC
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
GC : Gdk.GC.Gdk_GC);
function Get_Light_GC
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type) return Gdk.GC.Gdk_GC;
procedure Set_Light
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
GC : Gdk.GC.Gdk_GC) renames Set_Light_GC;
function Get_Light
(Style : Gtk_Style;
State_Type : Gtk_State_Type) return Gdk_GC renames Get_Light_GC;
procedure Set_Dark
(Style : Gtk_Style;
State_Type : Gtk_State_Type;
Color : Gdk.Color.Gdk_Color);
procedure Set_Dark_GC
(Style : Gtk_Style;
State_Type : Gtk_State_Type;
GC : Gdk.GC.Gdk_GC);
procedure Set_Dark
(Style : Gtk_Style;
State_Type : Gtk_State_Type;
GC : Gdk.GC.Gdk_GC) renames Set_Dark_GC;
function Get_Dark
(Style : Gtk_Style;
State_Type : Gtk_State_Type) return Gdk.Color.Gdk_Color;
function Get_Dark_GC
(Style : Gtk_Style;
State_Type : Gtk_State_Type) return Gdk.GC.Gdk_GC;
function Get_Dark
(Style : Gtk_Style;
State_Type : Gtk_State_Type) return Gdk_GC renames Get_Dark_GC;
procedure Set_Middle
(Style : Gtk_Style;
State_Type : Gtk_State_Type;
Color : Gdk.Color.Gdk_Color);
procedure Set_Mid
(Style : Gtk_Style;
State_Type : Gtk_State_Type;
Color : Gdk.Color.Gdk_Color) renames Set_Middle;
function Get_Middle
(Style : Gtk_Style;
State_Type : Gtk_State_Type) return Gdk.Color.Gdk_Color;
function Get_Mid
(Style : Gtk_Style;
State_Type : Gtk_State_Type) return Gdk_Color renames Get_Middle;
procedure Set_Middle_GC
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
GC : Gdk.GC.Gdk_GC);
function Get_Middle_GC
(Style : Gtk_Style;
State_Type : Gtk_State_Type) return Gdk_GC;
procedure Set_Middle
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
GC : Gdk_GC) renames Set_Middle_GC;
function Get_Middle
(Style : Gtk_Style;
State_Type : Gtk_State_Type) return Gdk_GC renames Get_Middle_GC;
procedure Set_Mid_GC
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
GC : Gdk_GC) renames Set_Middle_GC;
function Get_Mid_GC
(Style : Gtk_Style;
State_Type : Gtk_State_Type) return Gdk_GC renames Get_Middle_GC;
procedure Set_Mid
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
GC : Gdk.GC.Gdk_GC) renames Set_Middle_GC;
function Get_Mid
(Style : Gtk_Style;
State_Type : Gtk_State_Type) return Gdk_GC renames Get_Middle_GC;
procedure Set_Text
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
Color : Gdk.Color.Gdk_Color);
function Get_Text
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type) return Gdk.Color.Gdk_Color;
procedure Set_Text_GC
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
GC : Gdk.GC.Gdk_GC);
function Get_Text_GC
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type) return Gdk.GC.Gdk_GC;
procedure Set_Text
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
GC : Gdk.GC.Gdk_GC) renames Set_Text_GC;
function Get_Text
(Style : Gtk_Style;
State_Type : Gtk_State_Type) return Gdk_GC renames Get_Text_GC;
procedure Set_Base
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
Color : Gdk.Color.Gdk_Color);
function Get_Base
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type) return Gdk.Color.Gdk_Color;
procedure Set_Base_GC
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
GC : Gdk.GC.Gdk_GC);
function Get_Base_GC
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type) return Gdk.GC.Gdk_GC;
procedure Set_Base
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
GC : Gdk.GC.Gdk_GC) renames Set_Base_GC;
function Get_Base
(Style : Gtk_Style;
State_Type : Gtk_State_Type) return Gdk_GC renames Get_Base_GC;
procedure Set_Black
(Style : Gtk_Style;
Color : Gdk.Color.Gdk_Color);
function Get_Black (Style : Gtk_Style) return Gdk.Color.Gdk_Color;
procedure Set_Black_GC (Style : Gtk_Style; GC : Gdk.GC.Gdk_GC);
function Get_Black_GC (Style : Gtk_Style) return Gdk.GC.Gdk_GC;
procedure Set_Black
(Style : Gtk_Style; GC : Gdk.GC.Gdk_GC) renames Set_Black_GC;
function Get_Black
(Style : Gtk_Style) return Gdk.GC.Gdk_GC renames Get_Black_GC;
procedure Set_White (Style : Gtk_Style; Color : Gdk.Color.Gdk_Color);
function Get_White (Style : Gtk_Style) return Gdk.Color.Gdk_Color;
procedure Set_White_GC (Style : Gtk_Style; GC : Gdk.GC.Gdk_GC);
function Get_White_GC (Style : Gtk_Style) return Gdk.GC.Gdk_GC;
procedure Set_White
(Style : Gtk_Style; GC : Gdk.GC.Gdk_GC) renames Set_White_GC;
function Get_White
(Style : Gtk_Style) return Gdk.GC.Gdk_GC renames Get_White_GC;
procedure Set_Font_Description
(Style : Gtk_Style; Desc : Pango.Font.Pango_Font_Description);
function Get_Font_Description
(Style : Gtk_Style) return Pango.Font.Pango_Font_Description;
function Get_Font (Style : Gtk_Style) return Gdk.Font.Gdk_Font;
pragma Obsolescent ("Use Get_Font_Description");
procedure Set_Bg_Pixmap
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type;
Pixmap : Gdk.Pixmap.Gdk_Pixmap);
function Get_Bg_Pixmap
(Style : Gtk_Style;
State_Type : Enums.Gtk_State_Type) return Gdk.Pixmap.Gdk_Pixmap;
function X_Thickness (Style : Gtk_Style) return Gint;
function Y_Thickness (Style : Gtk_Style) return Gint;
procedure Draw_Insertion_Cursor
(Widget : access Glib.Object.GObject_Record'Class;
Drawable : Gdk_Drawable;
Area : Gdk.Rectangle.Gdk_Rectangle;
Location : Gdk.Rectangle.Gdk_Rectangle;
Is_Primary : Boolean;
Direction : Gtk_Text_Direction;
Draw_Arrow : Boolean);
procedure Paint_Handle
(Style : Gtk_Style;
Window : Gdk.Gdk_Window;
State_Type : Gtk.Enums.Gtk_State_Type;
Shadow_Type : Gtk.Enums.Gtk_Shadow_Type;
Area : Gdk.Rectangle.Gdk_Rectangle;
Widget : access Glib.Object.GObject_Record'Class;
Detail : String := "paned";
X, Y, Width, Height : Gint;
Orientation : Gtk.Enums.Gtk_Orientation);
procedure Paint_Arrow
(Style : access Gtk_Style_Record;
Window : Gdk_Window;
State_Type : Gtk_State_Type;
Shadow_Type : Gtk_Shadow_Type;
Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area;
Widget : access Glib.Object.GObject_Record'Class;
Detail : String := "";
Arrow_Type : Gtk_Arrow_Type;
Fill : Boolean;
X : Gint;
Y : Gint;
Width : Gint;
Height : Gint);
procedure Paint_Box
(Style : access Gtk_Style_Record;
Window : Gdk_Window;
State_Type : Gtk_State_Type;
Shadow_Type : Gtk_Shadow_Type;
Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area;
Widget : access Glib.Object.GObject_Record'Class;
Detail : String := "";
X : Gint;
Y : Gint;
Width : Gint;
Height : Gint);
procedure Paint_Box_Gap
(Style : access Gtk_Style_Record;
Window : Gdk_Window;
State_Type : Gtk_State_Type;
Shadow_Type : Gtk_Shadow_Type;
Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area;
Widget : access Glib.Object.GObject_Record'Class;
Detail : String := "";
X : Gint;
Y : Gint;
Width : Gint;
Height : Gint;
Gap_Side : Gtk_Position_Type;
Gap_X : Gint;
Gap_Width : Gint);
procedure Paint_Check
(Style : access Gtk_Style_Record;
Window : Gdk_Window;
State_Type : Gtk_State_Type;
Shadow_Type : Gtk_Shadow_Type;
Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area;
Widget : access Glib.Object.GObject_Record'Class;
Detail : String := "";
X : Gint;
Y : Gint;
Width : Gint;
Height : Gint);
procedure Paint_Diamond
(Style : access Gtk_Style_Record;
Window : Gdk_Window;
State_Type : Gtk_State_Type;
Shadow_Type : Gtk_Shadow_Type;
Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area;
Widget : access Glib.Object.GObject_Record'Class;
Detail : String := "";
X : Gint;
Y : Gint;
Width : Gint;
Height : Gint);
procedure Paint_Expander
(Style : access Gtk_Style_Record;
Window : Gdk_Window;
State_Type : Gtk_State_Type;
Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area;
Widget : access Glib.Object.GObject_Record'Class;
Detail : String := "";
X : Gint;
Y : Gint;
Expander_Style : Gtk_Expander_Style);
procedure Paint_Extension
(Style : access Gtk_Style_Record;
Window : Gdk_Window;
State_Type : Gtk_State_Type;
Shadow_Type : Gtk_Shadow_Type;
Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area;
Widget : access Glib.Object.GObject_Record'Class;
Detail : String := "";
X : Gint;
Y : Gint;
Width : Gint;
Height : Gint;
Gap_Side : Gtk_Position_Type);
procedure Paint_Flat_Box
(Style : access Gtk_Style_Record;
Window : Gdk_Window;
State_Type : Gtk_State_Type;
Shadow_Type : Gtk_Shadow_Type;
Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area;
Widget : access Glib.Object.GObject_Record'Class;
Detail : String := "";
X : Gint;
Y : Gint;
Width : Gint;
Height : Gint);
procedure Paint_Focus
(Style : access Gtk_Style_Record;
Window : Gdk_Window;
State_Type : Gtk_State_Type;
Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area;
Widget : access Glib.Object.GObject_Record'Class;
Detail : String := "";
X : Gint;
Y : Gint;
Width : Gint;
Height : Gint);
procedure Paint_Hline
(Style : access Gtk_Style_Record;
Window : Gdk_Window;
State_Type : Gtk_State_Type;
Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area;
Widget : access Glib.Object.GObject_Record'Class;
Detail : String := "";
X1 : Gint;
X2 : Gint;
Y : Gint);
procedure Paint_Layout
(Style : access Gtk_Style_Record;
Window : Gdk_Window;
State_Type : Gtk_State_Type;
Use_Text : Boolean;
Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area;
Widget : access Glib.Object.GObject_Record'Class;
Detail : String := "";
X : Gint;
Y : Gint;
Layout : Pango.Layout.Pango_Layout);
procedure Paint_Option
(Style : access Gtk_Style_Record;
Window : Gdk_Window;
State_Type : Gtk_State_Type;
Shadow_Type : Gtk_Shadow_Type;
Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area;
Widget : access Glib.Object.GObject_Record'Class;
Detail : String := "";
X : Gint;
Y : Gint;
Width : Gint;
Height : Gint);
procedure Paint_Polygon
(Style : access Gtk_Style_Record;
Window : Gdk_Window;
State_Type : Gtk_State_Type;
Shadow_Type : Gtk_Shadow_Type;
Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area;
Widget : access Glib.Object.GObject_Record'Class;
Detail : String := "";
Points : Gdk.Types.Gdk_Points_Array;
Fill : Boolean);
procedure Paint_Resize_Grip
(Style : access Gtk_Style_Record;
Window : Gdk_Window;
State_Type : Gtk_State_Type;
Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area;
Widget : access Glib.Object.GObject_Record'Class;
Detail : String := "";
Edge : Gdk.Window.Gdk_Window_Edge;
X : Gint;
Y : Gint;
Width : Gint;
Height : Gint);
procedure Paint_Shadow
(Style : access Gtk_Style_Record;
Window : Gdk_Window;
State_Type : Gtk_State_Type;
Shadow_Type : Gtk_Shadow_Type;
Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area;
Widget : access Glib.Object.GObject_Record'Class;
Detail : String := "";
X : Gint;
Y : Gint;
Width : Gint;
Height : Gint);
procedure Paint_Shadow_Gap
(Style : access Gtk_Style_Record;
Window : Gdk_Window;
State_Type : Gtk_State_Type;
Shadow_Type : Gtk_Shadow_Type;
Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area;
Widget : access Glib.Object.GObject_Record'Class;
Detail : String := "";
X : Gint;
Y : Gint;
Width : Gint;
Height : Gint;
Gap_Side : Gtk_Position_Type;
Gap_X : Gint;
Gap_Width : Gint);
procedure Paint_Slider
(Style : access Gtk_Style_Record;
Window : Gdk_Window;
State_Type : Gtk_State_Type;
Shadow_Type : Gtk_Shadow_Type;
Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area;
Widget : access Glib.Object.GObject_Record'Class;
Detail : String := "";
X : Gint;
Y : Gint;
Width : Gint;
Height : Gint;
Orientation : Gtk_Orientation);
procedure Paint_Tab
(Style : access Gtk_Style_Record;
Window : Gdk_Window;
State_Type : Gtk_State_Type;
Shadow_Type : Gtk_Shadow_Type;
Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area;
Widget : access Glib.Object.GObject_Record'Class;
Detail : String := "";
X : Gint;
Y : Gint;
Width : Gint;
Height : Gint);
procedure Paint_Vline
(Style : access Gtk_Style_Record;
Window : Gdk_Window;
State_Type : Gtk_State_Type;
Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area;
Widget : access Glib.Object.GObject_Record'Class;
Detail : String := "";
Y1 : Gint;
Y2 : Gint;
X : Gint);
procedure Draw_Polygon
(Style : Gtk_Style;
Window : Gdk.Window.Gdk_Window;
State_Type : Enums.Gtk_State_Type;
Shadow_Type : Enums.Gtk_Shadow_Type;
Points : Gdk.Types.Gdk_Points_Array;
Fill : Boolean);
pragma Obsolescent ("Use Paint_Polygon");
procedure Draw_Arrow
(Style : Gtk_Style;
Window : Gdk.Window.Gdk_Window;
State_Type : Enums.Gtk_State_Type;
Shadow_Type : Enums.Gtk_Shadow_Type;
Arrow_Type : Enums.Gtk_Arrow_Type;
Fill : Boolean;
X, Y : Gint;
Width : Gint;
Height : Gint);
pragma Obsolescent ("Use Pain_Arrow");
procedure Draw_Shadow
(Style : access Gtk_Style_Record;
Window : Gdk_Window;
State_Type : Gtk_State_Type;
Shadow_Type : Gtk_Shadow_Type;
X : Gint;
Y : Gint;
Width : Gint;
Height : Gint);
pragma Obsolescent;
procedure Draw_String
(Style : Gtk_Style;
Window : Gdk.Window.Gdk_Window;
State_Type : Enums.Gtk_State_Type;
X, Y : Gint;
Str : UTF8_String);
pragma Obsolescent ("Use Paint_String");
type Gtk_Border_Record is record
Left : Gint;
Right : Gint;
Top : Gint;
Bottom : Gint;
end record;
pragma Convention (C, Gtk_Border_Record);
type Gtk_Border is access all Gtk_Border_Record;
function Border_Copy (Border : access Gtk_Border_Record) return Gtk_Border;
procedure Border_Free (Border : access Gtk_Border_Record);
function Border_Get_Type return GType;
Signal_Realize : constant Glib.Signal_Name := "realize";
Signal_Unrealize : constant Glib.Signal_Name := "unrealize";
private
pragma Import (C, Get_Type, "gtk_style_get_type");
end Gtk.Style;