Source position: tcl80.pp line 669
type TTclDriverBlockModeProc = function(
instanceData: Tcl_ClientData;
mode: Integer
):Integer;