Source position: gobject.inc line 120
procedure g_object_set_data_full(
anObject: PGObject;
key: Pgchar;
data: gpointer;
destroy: TGDestroyNotify
);