[Instantobjects-cvscommit] Source/Design InstantModelExpert.pas,1.13,1.14

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Source/Design
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22014/Source/Design

Modified Files:
	InstantModelExpert.pas 
Log Message:
Added list of units without IOMETADATA keywords into warning window.

Index: InstantModelExpert.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Design/InstantModelExpert.pas,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** InstantModelExpert.pas	5 Dec 2005 22:00:22 -0000	1.13
--- InstantModelExpert.pas	9 Dec 2005 15:12:00 -0000	1.14
***************
*** 87,90 ****
--- 87,91 ----
      FUpdateTimer: TTimer;
      MetaDataCheckState : TIOMetaDataCheckState;
+     MetaDataCheckUnits : string;
      procedure ExplorerApplyClass(Sender: TObject; AClass: TInstantCodeClass;
        ChangeInfo: TInstantCodeClassChangeInfo);
***************
*** 1016,1024 ****
          if MetaDataCheckState = mcNeverChecked then
          begin
            MetaDataCheckState := mcCheckCorrect;
            EnumSources(Modules, CheckIOMetadataKeyword);
            if MetaDataCheckState = mcCheckError then
!             MessageDlg(Format('WARNING: Project %s contains some class metadata without IOMETADATA keyword. Please refer to IOMETADATA_keyword.txt in instantobjects\doc folder.',
!               [FActiveProjectName]), mtWarning, [mbOK], 0);
          end;
          Result := (CheckTime = 0) or
--- 1017,1027 ----
          if MetaDataCheckState = mcNeverChecked then
          begin
+           MetadataCheckUnits := '';
            MetaDataCheckState := mcCheckCorrect;
            EnumSources(Modules, CheckIOMetadataKeyword);
            if MetaDataCheckState = mcCheckError then
!             MessageDlg(Format('WARNING: Project %s contains some class metadata without IOMETADATA keyword:'+
!               '%s'+sLineBreak+'Please refer to IOMETADATA_keyword.txt in instantobjects\doc folder.',
!               [FActiveProjectName, MetadataCheckUnits]), mtWarning, [mbOK], 0);
          end;
          Result := (CheckTime = 0) or
***************
*** 1181,1185 ****
--- 1184,1191 ----
  begin
    if pos('{ stored', Source) > 0 then
+   begin
+     MetaDataCheckUnits := MetaDataCheckUnits + sLineBreak+FileName+';';
      MetaDataCheckState := mcCheckError;
+   end;
  end;