anchor.diff:      AddMenuItem('Show', '', nil);
     end;
   
  +  miView := TfpgPopupMenu.Create(self);
  +  with miView do
  +  begin
  +    Name := 'miView';
  +    SetPosition(292, 216, 132, 20);
  +    AddMenuItem('Expand All', '', @miViewExpandAllClicked);
  +    AddMenuItem('Collapse All', '', @miViewCollapseAllClicked);
  +  end;
  +
     miHelp := TfpgPopupMenu.Create(self);
     with miHelp do
     begin
  
positive.code:     miFile: TfpgPopupMenu;
      miSettings: TfpgPopupMenu;
      miBookmarks: TfpgPopupMenu;
      miHelp: TfpgPopupMenu;
      miDebug: TfpgPopupMenu;
      ToolBar: TfpgBevel;
  
negative.code:   MainMenu.AddMenuItem('&Help', nil).SubMenu := miHelp;
    MainMenu.AddMenuItem('&Debug', nil).SubMenu := miDebug;
    FFileOpenRecent.SubMenu := miOpenRecentMenu;
  
    tvContents.PopupMenu := miView;
  
    // correct default visible tabsheet
    PageControl1.ActivePageIndex := 0;
  