anchor.diff:    writeln('source string = ', s);
     r := GMacroList.ExpandMacro(s);
     writeln('expanded string = ', r);
  +end;
  +
  +procedure TMainForm.UpdateWindowTitle;
  +begin
  +  WindowTitle := Format(cTitle, [GProject.ProjectName]);
   end;
   
   procedure TMainForm.FormShow(Sender: TObject);
  
positive.code:     procedure   CloseAllTabs;
      procedure   OpenEditorPage(const AFilename: TfpgString);
      procedure   miTest(Sender: TObject);
    public
      constructor Create(AOwner: TComponent); override;
      procedure   AfterCreate; override;
  
negative.code:         TfpgMessageDialog.Critical('', E.Message);
        end;
      end;
      UpdateWindowTitle;
      AddMessage(Format('Project saved as <%s>.', [s]));
    end;
  end;
  