forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix double close warning since added split view

This commit is contained in:
Basile Burg 2015-12-17 02:49:34 +01:00
parent 95c5bb1166
commit ed11f2db5d
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ce_main.pas
View File

@ -1575,10 +1575,9 @@ end;
procedure TCEMainForm.actFileCloseExecute(Sender: TObject); procedure TCEMainForm.actFileCloseExecute(Sender: TObject);
begin begin
if fDoc = nil then exit; if fDoc = nil then
if (fDoc.modified or(fDoc.fileName = fDoc.tempFilename)) exit;
and (dlgFileChangeClose(fDoc.fileName) = mrCancel) then exit; getMultiDocHandler.closeDocument(fDoc);
getMultiDocHandler.closeDocument(fDoc);
end; end;
procedure TCEMainForm.actFileSaveAllExecute(Sender: TObject); procedure TCEMainForm.actFileSaveAllExecute(Sender: TObject);