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