anchor.diff:    Ed.DoCommand(cCommand_SelectAll);
   end;
   
  +procedure TfmMain.PopupBottomWrapClick(Sender: TObject);
  +var
  +  Ed: TATSynEdit;
  +begin
  +  Ed:= (Sender as TMenuItem).Owner as TATSynEdit;
  +  Ed.DoCommand(cCommand_ToggleWordWrap);
  +end;
  +
   
   procedure TfmMain.InitBottomEditor(var Ed: TATSynEdit);
   begin
  
positive.code:     procedure PopupBottomClearClick(Sender: TObject);
      procedure PopupBottomCopyClick(Sender: TObject);
      procedure PopupBottomSelectAllClick(Sender: TObject);
      procedure UpdateGlobalProgressbar(AValue: integer; AVisible: boolean; AMaxValue: integer=100);
      procedure UpdateLexerProgressbar(AValue: integer; AVisible: boolean; AMaxValue: integer=100);
      procedure ConfirmButtonOkClick(Sender: TObject);
  
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);
  