generic type Interface_Type is new GType_Interface; type Object_Type_Record is new Glib.Object.GObject_Record with private; type Object_Type is access all Object_Type_Record'Class; package Implements is
type Interface_Type is new GType_Interface;
type Object_Type_Record is new Glib.Object.GObject_Record with private;
type Object_Type is access all Object_Type_Record'Class;
function To_Object
( | Interf | : Interface_Type) return Object_Type; |
function To_Interface
( | Object | : access Object_Type_Record'Class) return Interface_Type; |