anchor.diff:      procedure PopupBottomClearClick(Sender: TObject);
       procedure PopupBottomCopyClick(Sender: TObject);
       procedure PopupBottomSelectAllClick(Sender: TObject);
  +    procedure PopupBottomWrapClick(Sender: TObject);
       procedure UpdateGlobalProgressbar(AValue: integer; AVisible: boolean; AMaxValue: integer=100);
       procedure UpdateLexerProgressbar(AValue: integer; AVisible: boolean; AMaxValue: integer=100);
       procedure ConfirmButtonOkClick(Sender: TObject);
  
positive.code:   Ed.DoCommand(cCommand_SelectAll);
  end;
  
  
  procedure TfmMain.InitBottomEditor(var Ed: TATSynEdit);
  begin
  
negative.code:     AMenu.Items.Add(mi);
  
      mi:= TMenuItem.Create(AEditor);
      mi.Caption:= 'Toggle word wrap';
      mi.OnClick:=@PopupBottomWrapClick;
      AMenu.Items.Add(mi);
  
      mi:= TMenuItem.Create(AEditor);
      mi.Caption:= '-';
      AMenu.Items.Add(mi);
  
      mi:= TMenuItem.Create(AEditor);
      mi.Caption:= 'Clear';
      mi.OnClick:=@PopupBottomClearClick;
      AMenu.Items.Add(mi);
  