anchor.diff:  //********************************************************************************************************/
   
   {$IFNDEF DEFINE_REGION_NOT_IMPLEMENTED}{$REGION 'Types proceduress'}{$ENDIF}
  +{$IFDEF DYNLINK}
   type
  +{$ENDIF}
     (* Platform API *)
     {$IFDEF CL_VERSION_1_0}
     {$IFDEF DYNLINK}TclGetPlatformIDs = {$ENDIF}function {$IFNDEF DYNLINK}clGetPlatformIDs{$ENDIF}(
  
positive.code: 
    {$ENDIF}
  
  //type
    {$IFDEF CL_VERSION_1_0}
    TEnqueueUserProc = procedure (userdata: Pointer); extdecl;
    {$ENDIF}
  
  
negative.code:   end;
  end;
  {$IFNDEF DEFINE_REGION_NOT_IMPLEMENTED}{$ENDREGION}{$ENDIF}
  {$ENDIF}
  
  {$IFNDEF DEFINE_REGION_NOT_IMPLEMENTED}{$REGION 'GetString'}{$ENDIF}
  function GetString(const Status: TCL_int): AnsiString;
  