Source position: gdkevents.inc line 6
type TGdkEventFunc = procedure(
event: PGdkEvent;
data: gpointer
);