anchor.diff:  procedure TCanvasFontManager.RegisterFont( Font: TLogicalFont );
   var
   //  fa: FATTRS;
  -  rc: LongInt;
  +  rc: LONG;
   begin
     FLogicalFonts.Add( Font );
     Font.ID := FLogicalFonts.Count + 1; // add 1 to stay out of Sibyl's way
  
positive.code:   else
      result := FaceName; // no substitution
  end;
  
  
  // Ask OS/2 dummy font window to convert a font spec
  // into a FONTMETRICS.
  
negative.code: Const
    // This defines the fraction of a pixel that
    // font character widths will be given in
    FontWidthPrecisionFactor = 1; // 256 seems to be specific to OS/2 API
  
  Type
    {Standard Font types}
  