[GExperts-CVS] gexperts/unstable/Src/Utils GX_OtaUtils.pas, 1.190, 1.191

[Erik B. <eb...@us...>]

Update of /cvsroot/gexperts/gexperts/unstable/Src/Utils
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv29296/Src/Utils

Modified Files:
	GX_OtaUtils.pas 
Log Message:
Add Assert message

Index: GX_OtaUtils.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_OtaUtils.pas,v
retrieving revision 1.190
retrieving revision 1.191
diff -u -d -r1.190 -r1.191
--- GX_OtaUtils.pas	17 Apr 2006 06:06:38 -0000	1.190
+++ GX_OtaUtils.pas	30 Jun 2006 07:01:57 -0000	1.191
@@ -3851,7 +3851,7 @@
   List := TStringList.Create;
   try
     Project := GxOtaGetCurrentProject;
-    Assert(Assigned(Project));
+    Assert(Assigned(Project), 'No project open');
     List.Add(Format('Project: %s (Personality: %s):', [Project.FileName, GxOtaGetCurrentProjectPersonality]));
     AddEditorDetails(Project);
     List.Add('');