generic type Boxed_Type is private; with function Get_Type return Glib.GType; with function To_Address (B : Boxed_Type; Default : System.Address) return System.Address; -- Convert B into an address that can be passed to gtk+. -- Default is the address of the parameters passed by the user (since -- this function cannot return B'Address, where B might be passed by -- copy). package Generic_Internal_Boxed_Property is
type Property_RO is new Glib.Property;
type Property is new Glib.Property;
function Get_Type return Glib.GType;
function To_Address
( | B | : Boxed_Type; |
Default | : System.Address) return System.Address; |
procedure Set_Property
( | Object | : access Glib.Object.GObject_Record'Class; |
Name | : Property; | |
Value | : Boxed_Type); |
function Get_Property
( | Object | : access Glib.Object.GObject_Record'Class; |
Name | : Property) return Boxed_Type; |
function Get_Property
( | Object | : access Glib.Object.GObject_Record'Class; |
Name | : Property_RO) return Boxed_Type; |
procedure Set_Value
( | Value | : out Glib.Values.GValue; |
Val | : Boxed_Type); |
function Get_Value
( | Value | : Glib.Values.GValue) return Boxed_Type; |