Source position: tcl80.pp line 670
type TTclDriverCloseProc = function(
instanceData: Tcl_ClientData;
interp: PTcl_Interp
):Integer;