anchor.diff:    DisplayedIndex := TStringList.Create;
     CurrentHistoryIndex := -1;
     FHistorySelection := False;
  +  OpenAdditionalFile := False;
     { TODO -oGraeme : Make Debug a menu option }
     Debug := False;
   
  
positive.code:     procedure   MainFormDestroy(Sender: TObject);
      procedure   miFileQuitClicked(Sender: TObject);
      procedure   miFileOpenClicked(Sender: TObject);
      procedure   miFileOpenSpecialClicked(Sender: TObject);
      procedure   miFileCloseClicked(Sender: TObject);
      procedure   miConfigureClicked(Sender: TObject);
  
negative.code:     Name := 'miFile';
      SetPosition(292, 96, 132, 20);
      AddMenuItem('Open...', '', @miFileOpenClicked);
      AddMenuItem('Open additional file...', '', @miFileOpenAdditionalFileClicked);
      AddMenuItem('Open Special...', '', @miFileOpenSpecialClicked);
      AddMenuItem('Save current Topic to IPF...', '', @miFileSaveTopicAsIPF);
      AddMenuItem('Close', '', @miFileCloseClicked);
  