anchor.diff:      procedure InitPaintTest;
       procedure InitPopupTree;
       procedure InitPopupPicScale;
  -    procedure InitPopupBottomEditor(var AMenu: TPopupMenu; AEditor: TATSynEdit);
  +    procedure InitBottomPopup(var AMenu: TPopupMenu; AEditor: TATSynEdit);
       procedure InitPopupViewerMode;
       procedure InitPopupEnc;
       procedure InitPopupEnds;
  
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:   UpdateStatusbar;
  end;
  
  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:= 'copy';
      mi.OnClick:=@PopupBottomCopyClick;
      AMenu.Items.Add(mi);
  
      mi:= TMenuItem.Create(AEditor);
      mi.Caption:= 'select all';
      mi.OnClick:=@PopupBottomSelectAllClick;
      AMenu.Items.Add(mi);
  
      mi:= TMenuItem.Create(AEditor);
      mi.Caption:= 'clear';
      mi.OnClick:=@PopupBottomClearClick;
      AMenu.Items.Add(mi);
  
      mi:= TMenuItem.Create(AEditor);
      mi.Caption:= 'toggle word wrap';
      mi.OnClick:=@PopupBottomWrapClick;
      AMenu.Items.Add(mi);
    end;
  