anchor.diff:    Handled:= false;
   end;
   
  -procedure TfmConsole.InputFocused(Sender: TObject);
  +procedure TfmConsole.InputChanged(Sender: TObject);
   begin
     if Assigned(FOnNavigate) then
       FOnNavigate('console-input-focus');
  
positive.code:     procedure MemoClickDbl(Sender: TObject; var AHandled: boolean);
      procedure MemoCommand(Sender: TObject; ACmd: integer; const AText: string; var AHandled: boolean);
      procedure MemoContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
      procedure InputFocused(Sender: TObject);
      procedure DoNavigate(Sender: TObject);
      procedure DoToggleWrap(Sender: TObject);
      function ParseLine(const S: string): TAppConsoleLineKind;
  
negative.code:   EdInput.WantTabs:= false;
    EdInput.TabStop:= true;
    EdInput.OnCommand:= @ComboCommand;
    EdInput.OnChange:= @InputChanged;
  
    EdInput.OptTabSize:= 4;
    EdInput.OptBorderWidth:= 1;
  