Source position: gdktypes.pp line 582
type TGdkInputfunction = procedure(
data: gpointer;
source: gint;
condition: TGdkInputCondition
);