anchor.diff:  
   procedure TCESynMemo.UTF8KeyPress(var Key: TUTF8Char);
   var
  -  str: string;
     c: TUTF8Char;
   begin
     c := Key;
     inherited;
  -  if c = '(' then
  -  begin
  -    DcdWrapper.getCallTip(str);
  -    if str <> '' then
  -    begin
  -      fCallTipWin.FontSize := Font.Size;
  -  	  fCallTipWin.HintRect := fCallTipWin.CalcHintRect(0, str, nil);
  -      fCallTipWin.OffsetHintRect(ClientToScreen(point(CaretXPix, CaretYPix)),
  -        - 5 - fCallTipWin.HintRect.Bottom - fCallTipWin.HintRect.Top);
  -		  fCallTipWin.ActivateHint(str);
  -    end;
  -  end
  -  else if c = ')' then
  -    fCallTipWin.Hide;
  +  case c of
  +    '(': getCallTips;
  +    ')': fCallTipWin.Hide;
  +  end;
   end;
   
   function TCESynMemo.getMouseFileBytePos: Integer;
  
positive.code:     procedure saveCache;
      procedure loadCache;
      procedure setDefaultFontSize(aValue: Integer);
      procedure HintTimerEvent(sender: TObject);
      procedure InitHintWins;
    protected
  
negative.code:   end;
  end;
  
  procedure TCESynMemo.getCallTips();
  var
    str: string;
    pnt: TPoint;
  begin
    DcdWrapper.getCallTip(str);
    if str <> '' then
    begin
      pnt := ClientToScreen(point(CaretXPix, CaretYPix));
      fCallTipWin.FontSize := Font.Size;
  	  fCallTipWin.HintRect := fCallTipWin.CalcHintRect(0, str, nil);
      fCallTipWin.OffsetHintRect(pnt,- 5 - fCallTipWin.HintRect.Bottom - fCallTipWin.HintRect.Top);
  	  fCallTipWin.ActivateHint(str);
    end;
  end;
  
  procedure TCESynMemo.HintTimerEvent(sender: TObject);
  var
    str: string;
  