-- --
-- --
-- --
-- --
-- --
-- --
with Glib.G_Icon;
with Glib.Properties;
with Gdk.Bitmap;
with Gdk.Pixbuf;
with Gdk.Pixmap;
with Gdk.Image;
with Gtk.Enums;
with Gtk.Icon_Factory;
with Gtk.Misc;
with GNAT.Strings;
with Glib.Generic_Properties;
package Gtk.Image is
type Gtk_Image_Record is new Gtk.Misc.Gtk_Misc_Record with private;
type Gtk_Image is access all Gtk_Image_Record'Class;
type Gtk_Image_Type is
(Image_Empty,
Image_Pixmap,
Image_Image,
Image_Pixbuf,
Image_Stock,
Image_Icon_Set,
Image_Animation,
Image_Icon_Name,
Image_Gicon);
pragma Convention (C, Gtk_Image_Type);
procedure Gtk_New (Image : out Gtk_Image);
procedure Initialize (Image : access Gtk_Image_Record'Class);
procedure Gtk_New
(Image : out Gtk_Image;
Val : Gdk.Image.Gdk_Image;
Mask : Gdk.Bitmap.Gdk_Bitmap);
procedure Initialize
(Image : access Gtk_Image_Record'Class;
Val : Gdk.Image.Gdk_Image;
Mask : Gdk.Bitmap.Gdk_Bitmap);
procedure Gtk_New
(Image : out Gtk_Image;
Pixmap : Gdk.Pixmap.Gdk_Pixmap;
Mask : Gdk.Bitmap.Gdk_Bitmap);
procedure Initialize
(Image : access Gtk_Image_Record'Class;
Pixmap : Gdk.Pixmap.Gdk_Pixmap;
Mask : Gdk.Bitmap.Gdk_Bitmap);
procedure Gtk_New
(Image : out Gtk_Image;
Filename : String);
procedure Initialize
(Image : access Gtk_Image_Record'Class;
Filename : String);
procedure Gtk_New
(Image : out Gtk_Image;
Pixbuf : Gdk.Pixbuf.Gdk_Pixbuf);
procedure Initialize
(Image : access Gtk_Image_Record'Class;
Pixbuf : Gdk.Pixbuf.Gdk_Pixbuf);
procedure Gtk_New
(Image : out Gtk_Image;
Stock_Id : String;
Size : Gtk.Enums.Gtk_Icon_Size);
procedure Initialize
(Image : access Gtk_Image_Record'Class;
Stock_Id : String;
Size : Gtk.Enums.Gtk_Icon_Size);
procedure Gtk_New
(Image : out Gtk_Image;
Icon_Set : Gtk.Icon_Factory.Gtk_Icon_Set;
Size : Gtk.Enums.Gtk_Icon_Size);
procedure Initialize
(Image : access Gtk_Image_Record'Class;
Icon_Set : Gtk.Icon_Factory.Gtk_Icon_Set;
Size : Gtk.Enums.Gtk_Icon_Size);
procedure Gtk_New
(Image : out Gtk_Image;
Animation : Gdk.Pixbuf.Gdk_Pixbuf_Animation);
procedure Initialize
(Image : access Gtk_Image_Record'Class;
Animation : Gdk.Pixbuf.Gdk_Pixbuf_Animation);
procedure Gtk_New_From_Icon_Name
(Image : out Gtk_Image;
Icon_Name : String;
Size : Gtk.Enums.Gtk_Icon_Size);
procedure Initialize_From_Icon_Name
(Image : access Gtk_Image_Record'Class;
Icon_Name : String;
Size : Gtk.Enums.Gtk_Icon_Size);
procedure Gtk_New_From_Gicon
(Image : out Gtk_Image;
Icon : Glib.G_Icon.G_Icon;
Size : Gtk.Enums.Gtk_Icon_Size);
procedure Initialize_From_Gicon
(Image : access Gtk_Image_Record'Class;
Icon : Glib.G_Icon.G_Icon;
Size : Gtk.Enums.Gtk_Icon_Size);
function Get_Type return Glib.GType;
procedure Set
(Image : access Gtk_Image_Record;
Pixmap : Gdk.Pixmap.Gdk_Pixmap;
Mask : Gdk.Bitmap.Gdk_Bitmap);
procedure Get
(Image : access Gtk_Image_Record;
Pixmap : out Gdk.Pixmap.Gdk_Pixmap;
Mask : out Gdk.Bitmap.Gdk_Bitmap);
procedure Set
(Image : access Gtk_Image_Record;
Val : Gdk.Image.Gdk_Image;
Mask : Gdk.Bitmap.Gdk_Bitmap);
procedure Get
(Image : access Gtk_Image_Record;
Val : out Gdk.Image.Gdk_Image;
Mask : out Gdk.Bitmap.Gdk_Bitmap);
procedure Set (Image : access Gtk_Image_Record; File : String);
procedure Set
(Image : access Gtk_Image_Record; Pixbuf : Gdk.Pixbuf.Gdk_Pixbuf);
function Get (Image : access Gtk_Image_Record) return Gdk.Pixbuf.Gdk_Pixbuf;
procedure Set
(Image : access Gtk_Image_Record;
Stock_Id : String;
Size : Gtk.Enums.Gtk_Icon_Size);
function Get
(Image : access Gtk_Image_Record;
Size : access Gtk.Enums.Gtk_Icon_Size) return String;
procedure Set
(Image : access Gtk_Image_Record;
Icon_Set : Gtk.Icon_Factory.Gtk_Icon_Set;
Size : Gtk.Enums.Gtk_Icon_Size);
procedure Get
(Image : access Gtk_Image_Record;
Icon_Set : out Gtk.Icon_Factory.Gtk_Icon_Set;
Size : out Gtk.Enums.Gtk_Icon_Size);
procedure Set
(Image : access Gtk_Image_Record;
Animation : Gdk.Pixbuf.Gdk_Pixbuf_Animation);
function Get
(Image : access Gtk_Image_Record) return Gdk.Pixbuf.Gdk_Pixbuf_Animation;
procedure Set
(Image : access Gtk_Image_Record;
Icon : Glib.G_Icon.G_Icon;
Size : Gtk.Enums.Gtk_Icon_Size);
procedure Get
(Image : access Gtk_Image_Record;
Icon : out Glib.G_Icon.G_Icon;
Size : out Gtk.Enums.Gtk_Icon_Size);
function Get_Storage_Type
(Image : access Gtk_Image_Record) return Gtk_Image_Type;
procedure Clear (Image : access Gtk_Image_Record);
procedure Set_From_Icon_Name
(Image : access Gtk_Image_Record;
Icon_Name : String;
Size : Gtk.Enums.Gtk_Icon_Size);
procedure Get_Icon_Name
(Image : access Gtk_Image_Record;
Name : out GNAT.Strings.String_Access;
Size : out Gtk.Enums.Gtk_Icon_Size);
procedure Set_Pixel_Size
(Image : access Gtk_Image_Record; Pixel_Size : Gint);
function Get_Pixel_Size (Image : access Gtk_Image_Record) return Gint;
package Image_Type_Properties is new
Glib.Generic_Properties.Generic_Internal_Discrete_Property
(Gtk_Image_Type);
type Property_Image_Type is new Image_Type_Properties.Property;
File_Property : constant Glib.Properties.Property_String;
Gicon_Property : constant Glib.Properties.Property_Object;
Icon_Name_Property : constant Glib.Properties.Property_String;
Icon_Size_Property : constant Glib.Properties.Property_Int;
Image_Property : constant Glib.Properties.Property_Object;
Mask_Property : constant Glib.Properties.Property_Object;
Pixbuf_Property : constant Glib.Properties.Property_Object;
Pixbuf_Animation_Property : constant Glib.Properties.Property_Object;
Pixel_Size_Property : constant Glib.Properties.Property_Int;
Pixmap_Property : constant Glib.Properties.Property_Object;
Stock_Property : constant Glib.Properties.Property_String;
Storage_Type_Property : constant Property_Image_Type;
private
type Gtk_Image_Record is new Gtk.Misc.Gtk_Misc_Record with null record;
File_Property : constant Glib.Properties.Property_String :=
Glib.Properties.Build ("file");
Gicon_Property : constant Glib.Properties.Property_Object :=
Glib.Properties.Build ("gicon");
Icon_Name_Property : constant Glib.Properties.Property_String :=
Glib.Properties.Build ("icon-name");
Icon_Size_Property : constant Glib.Properties.Property_Int :=
Glib.Properties.Build ("icon-size");
Image_Property : constant Glib.Properties.Property_Object :=
Glib.Properties.Build ("image");
Mask_Property : constant Glib.Properties.Property_Object :=
Glib.Properties.Build ("mask");
Pixbuf_Property : constant Glib.Properties.Property_Object :=
Glib.Properties.Build ("pixbuf");
Pixbuf_Animation_Property : constant Glib.Properties.Property_Object :=
Glib.Properties.Build ("pixbuf-animation");
Pixel_Size_Property : constant Glib.Properties.Property_Int :=
Glib.Properties.Build ("pixel-size");
Pixmap_Property : constant Glib.Properties.Property_Object :=
Glib.Properties.Build ("pixmap");
Stock_Property : constant Glib.Properties.Property_String :=
Glib.Properties.Build ("stock");
Storage_Type_Property : constant Property_Image_Type :=
Build ("storage-type");
pragma Import (C, Get_Type, "gtk_image_get_type");
end Gtk.Image;