paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 14:40:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: added DoSaveAll before CloseAll

Browse Source 
git-svn-id: trunk@2789 -
This commit is contained in:
lazarus 2002-08-18 08:54:09 +00:00
parent 2e7c15c288
commit 7678466970
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/main.pp
View File

@ -1600,6 +1600,7 @@ end;
procedure TMainIDE.mnuCloseAllClicked(Sender : TObject);
begin
DoSaveAll([]);
while (SourceNoteBook.NoteBook<>nil)
and (DoCloseEditorFile(SourceNoteBook.NoteBook.PageIndex,
[cfSaveFirst])=mrOk) do ;
@ -7197,6 +7198,9 @@ end.
{ =============================================================================
$Log$
Revision 1.394 2002/09/30 09:26:40 lazarus
MG: added DoSaveAll before CloseAll
Revision 1.393 2002/09/20 14:41:34 lazarus
MG: cleanup