Source position: tcl80.pp line 578
type TTcl_EventSetupProc = procedure(
clientData: Tcl_ClientData;
flags: Integer
);