Source position: tcl80.pp line 860
function Tcl_ExposeCommand(
interp: PTcl_Interp;
hiddenCmdName: PAnsiChar;
cmdName: PAnsiChar
):Integer;