X-Git-Url: https://deadsoftware.ru/gitweb?p=d2df-editor.git;a=blobdiff_plain;f=src%2Feditor%2Ff_main.pas;h=be9dee3915e746363fd9c91ff7fd9b22abb05ab5;hp=8d11a3b7cb75b8d8b3c70f8be2d690b912c97fcc;hb=2bd2bcbe8a077670806a4f97c0ad1213d12162ec;hpb=c8c226903e99aea13032c2a321809dd360dddac1

diff --git a/src/editor/f_main.pas b/src/editor/f_main.pas
index 8d11a3b..be9dee3 100644
--- a/src/editor/f_main.pas
+++ b/src/editor/f_main.pas
@@ -4311,6 +4311,8 @@ begin
   begin
     if MapTestProcess.Running = false then
     begin
+      if MapTestProcess.ExitCode <> 0 then
+        Application.MessageBox(PChar(_lc[I_MSG_EXEC_ERROR]), 'FIXME', MB_OK or MB_ICONERROR);
       SysUtils.DeleteFile(MapTestFile);
       MapTestFile := '';
       FreeAndNil(MapTestProcess);
@@ -6834,7 +6836,7 @@ begin
   end
   else
   begin
-    MessageBox(0, 'FIXME', PChar(_lc[I_MSG_EXEC_ERROR]), MB_OK or MB_ICONERROR);
+    Application.MessageBox(PChar(_lc[I_MSG_EXEC_ERROR]), 'FIXME', MB_OK or MB_ICONERROR);
     SysUtils.DeleteFile(newWAD);
     proc.Free();
   end;