anchor.diff:      Memo1.Lines.LoadFromFile(s);
       Memo1.Lines.EndUpdate;
       UpdateStatus(s);
  +    pcEditor.ActivePage.Text := fpgExtractFileName(s);
  +    n := tvProject.RootNode.FindSubNode('Units', True);
  +    if Assigned(n) then
  +      n.AppendText(s);
     end;
   end;
   
  
positive.code:     mnuTools: TfpgPopupMenu;
      mnuSettings: TfpgPopupMenu;
      mnuHelp: TfpgPopupMenu;
      {@VFD_HEAD_END: MainForm}
      procedure   FormShow(Sender: TObject);
      procedure   btnQuitClicked(Sender: TObject);
  
negative.code: 
  uses
    SysUtils, Classes, fpg_base, fpg_main, fpg_form, fpg_menu, fpg_panel,
    fpg_button, fpg_splitter, fpg_tab, fpg_memo, fpg_label, fpg_grid,
    fpg_tree;
  
  type
  
  