Source position: tcl80.pp line 698
type TTclChannelProc = procedure(
clientData: Tcl_ClientData;
mask: Integer
);