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 Boxed_Type is private;

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;