anchor.diff:  
   { TfmConsole }
   
  +procedure TfmConsole.DoGetLineColor(const AText: UnicodeString; var AColorFont, AColorBg: TColor);
  +begin
  +  if SBeginsWith(AText, '>>>') then
  +    AColorFont:= clPurple
  +  else
  +  if AText='Traceback (most recent call last):' then
  +  begin
  +    AColorFont:= clWhite;
  +    AColorBg:= clRed;
  +  end;
  +end;
  +
   procedure TfmConsole.DoAddLine(const Str: string);
   begin
     with memo do
  
positive.code:     procedure MemoClickDbl(Sender: TObject; var AHandled: boolean);
    private
      { private declarations }
      FOnNavigate: TAppConsoleEvent;
      procedure ComboCommand(Sender: TObject; ACmd: integer; const AText: string; var AHandled: boolean);
      function GetWrap: boolean;
      procedure MemoCommand(Sender: TObject; ACmd: integer; const AText: string; var AHandled: boolean);
      procedure DoClearMemo(Sender: TObject);
  
negative.code:   ATSynEdit,
    ATSynEdit_Edits,
    ATSynEdit_Commands,
    ATSynEdit_Adapter_Simple,
    ATStringProc,
    proc_globdata;
  
  