paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 18:00:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented saving package

Browse Source 
git-svn-id: trunk@2921 -
This commit is contained in:
mattias 2002-08-18 08:56:07 +00:00
parent 1ee7f79d2c
commit e8a14c417f
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/main.pp
View File

@ -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