anchor.diff:    begin
       Name := 'mnuView';
       SetPosition(476, 119, 172, 20);
  -    AddMenuItem('Todo List...', '', nil).Enabled := False;
  +    AddMenuItem('Todo List...', 'Ctrl+F2', nil).Enabled := False;
       AddMenuItem('Debug Windows', '', @miViewDebug);
     end;
   
  
positive.code:   begin
      Name := 'mnuProject';
      SetPosition(476, 140, 172, 20);
      AddMenuItem('Options...', '', @miProjectOptions);
      AddMenuItem('-', '', nil);
      AddMenuItem('New (empty)...', '', @miProjectNew);
      AddMenuItem('New from Template...', '', @miProjectNewFromTemplate);
      AddMenuItem('Open...', '', @miProjectOpen);
      miRecentProjects := AddMenuItem('Open Recent', '', nil);
      AddMenuItem('Save', '', @miProjectSave);
      AddMenuItem('Save As...', '', @miProjectSaveAs);
      AddMenuItem('-', '', nil);
      AddMenuItem('View Source', '', nil);
      AddMenuItem('Add editor file to Project', '', @miProjectAddUnitToProject);
    end;
  
    mnuRun := TfpgPopupMenu.Create(self);
  
negative.code:     AddMenuItem('Make 4', 'Ctrl+Alt+4', @miRunMake4);
      AddMenuItem('-', '', nil);
      AddMenuItem('Run', 'F9', nil);
      AddMenuItem('Run Parameters...', 'Shift+F9', nil);
    end;
  
    mnuTools := TfpgPopupMenu.Create(self);
  