Source position: tcl80.pp line 582
type TTcl_EventProc = function(
evPtr: PTcl_Event;
flags: Integer
):Integer;