From e8a14c417ffd555028b6c45a0e2a4a0214fa8098 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 18 Aug 2002 08:56:07 +0000
Subject: [PATCH] implemented saving package

git-svn-id: trunk@2921 -
---
 ide/main.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ide/main.pp b/ide/main.pp
index 4b0e306ace..4d772cb851 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -3609,7 +3609,7 @@ begin
       NewFilename:=ExpandFilename(SaveDialog.Filename);
       NewProgramName:=ExtractFileNameOnly(NewFilename);
 
-      // check filename
+      // check programname
       if (NewProgramName='') or (not IsValidIdent(NewProgramName)) then begin
         Result:=MessageDlg('Invalid project filename',
           '"'+SaveDialog.Filename+'" is an invalid project name.'#13
@@ -8216,6 +8216,9 @@ end.
 
 { =============================================================================
   $Log$
+  Revision 1.512  2003/04/08 16:56:55  mattias
+  implemented saving package
+
   Revision 1.511  2003/04/07 23:49:03  mattias
   implemented adding units to packages