From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Mon, 2 Oct 2017 17:03:50 +0000 (+0300)
Subject: FlexUI: sdlstandalone fix
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=8b3c740d2889bd89082916097344a5c7ac7bc46d;p=d2df-sdl.git

FlexUI: sdlstandalone fix
---

diff --git a/src/flexui/sdlstandalone.pas b/src/flexui/sdlstandalone.pas
index 11f5210..6dd81c7 100644
--- a/src/flexui/sdlstandalone.pas
+++ b/src/flexui/sdlstandalone.pas
@@ -108,9 +108,10 @@ begin
   FillChar(ev, sizeof(ev), 0);
   while (SDL_PollEvent(@ev) > 0) do
   begin
-    if fuiOnSDLEvent(ev) then result := true;
+    fuiOnSDLEvent(ev);
     //if (ev.type_ = SDL_QUITEV) then exit;
   end;
+  if fuiQuitReceived then result := true;
 end;