anchor.diff:      SetPosition(292, 216, 132, 20);
       AddMenuItem('Expand All', '', @miViewExpandAllClicked);
       AddMenuItem('Collapse All', '', @miViewCollapseAllClicked);
  -    AddMenuItem('-', '', nil);
  +    AddSeparator;
       AddMenuItem('Topic Properties', '', @miTopicPropertiesClicked);
     end;
   
  
positive.code: procedure TMainForm.miFileCloseClicked(Sender: TObject);
  begin
    CloseFile;
  end;
  
  procedure TMainForm.miConfigureClicked(Sender: TObject);
  
negative.code:   begin
      Name := 'miBookmarks';
      SetPosition(292, 144, 132, 20);
      AddMenuItem('Add', rsKeyCtrl+'B', @btnBookmarkClick);
      AddMenuItem('Edit...', rsKeyCtrl+'D', @miOpenBookmarksMenuClicked);
      AddSeparator;
      AddMenuItem('Add note at cursor position', rsKeyCtrl+'M', @btnNotesAddClick);
    end;
  
    miView := TfpgPopupMenu.Create(self);
  