anchor.diff:  procedure TEditorFrame.EditorOnClickGutter(Sender: TObject; ABand, ALine: integer);
   var
     Ed: TATSynEdit;
  -  State: TShiftState;
  -  StateString: string;
   begin
     Ed:= Sender as TATSynEdit;
  -  State:= KeyboardStateToShiftState;
  -  StateString:= ConvertShiftStateToString(State);
   
     if DoPyEvent(Ed, cEventOnClickGutter, [
  -    '"'+StateString+'"',
  +    '"'+ConvertShiftStateToString(KeyboardStateToShiftState)+'"',
       IntToStr(ALine),
       IntToStr(ABand)
       ]) = cPyFalse then exit;
  
positive.code: procedure TEditorFrame.EditorOnClick(Sender: TObject);
  var
    NewAlt: boolean;
    State: TShiftState;
    StateString: string;
  begin
    NewAlt:= Sender=Ed2;
  
negative.code:     DoOnUpdateStatus;
    end;
  
    StateString:= ConvertShiftStateToString(KeyboardStateToShiftState);
  
    if UiOps.MouseGotoDefinition<>'' then
      if StateString=UiOps.MouseGotoDefinition then
  