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