Source position: glib.pp line 478
type TGDataForeachFunc = procedure(
key_id: TGQuark;
data: gpointer;
user_data: gpointer
);