anchor.diff:    UpdateStatusbar;
   end;
   
  -procedure TfmMain.InitPopupBottomEditor(var AMenu: TPopupMenu; AEditor: TATSynEdit);
  +procedure TfmMain.InitBottomPopup(var AMenu: TPopupMenu; AEditor: TATSynEdit);
   var
     mi: TMenuItem;
   begin
     if AMenu=nil then
     begin
       AMenu:= TPopupMenu.Create(Self);
  +    AMenu.OnPopup:=@PopupBottomOnPopup;
   
       mi:= TMenuItem.Create(AEditor);
  -    mi.Caption:= cStrMenuitemCopy;
  +    mi.Caption:= 'copy';
       mi.OnClick:=@PopupBottomCopyClick;
       AMenu.Items.Add(mi);
   
       mi:= TMenuItem.Create(AEditor);
  -    mi.Caption:= cStrMenuitemSelectAll;
  +    mi.Caption:= 'select all';
       mi.OnClick:=@PopupBottomSelectAllClick;
       AMenu.Items.Add(mi);
   
       mi:= TMenuItem.Create(AEditor);
  -    mi.Caption:= msgConsoleClear;
  +    mi.Caption:= 'clear';
       mi.OnClick:=@PopupBottomClearClick;
       AMenu.Items.Add(mi);
   
       mi:= TMenuItem.Create(AEditor);
  -    mi.Caption:= msgConsoleToggleWrap;
  +    mi.Caption:= 'toggle word wrap';
       mi.OnClick:=@PopupBottomWrapClick;
       AMenu.Items.Add(mi);
     end;
  
positive.code:       var PaintImages, DefaultDraw: Boolean);
      function IsTooManyTabsOpened: boolean;
      function GetUntitledNumberedCaption: string;
      procedure PopupBottomClearClick(Sender: TObject);
      procedure PopupBottomCopyClick(Sender: TObject);
      procedure PopupBottomSelectAllClick(Sender: TObject);
  
negative.code:   end;
  end;
  
  procedure TfmMain.PopupBottomOnPopup(Sender: TObject);
  var
    Popup: TPopupMenu;
  begin
    Popup:= Sender as TPopupMenu;
    Popup.Items[0].Caption:= cStrMenuitemCopy;
    Popup.Items[1].Caption:= cStrMenuitemSelectAll;
    Popup.Items[2].Caption:= msgConsoleClear;
    Popup.Items[3].Caption:= msgConsoleToggleWrap;
  end;
  
  procedure TfmMain.PopupToolbarCaseOnPopup(Sender: TObject);
  begin
    if mnuToolbarCaseLow=nil then
  