FlexUI: sdlstandalone fix

[d2df-sdl.git] / src / flexui / sdlstandalone.pas

diff --git a/src/flexui/sdlstandalone.pas b/src/flexui/sdlstandalone.pas
index 11f52108333395c3dc19a2279b67b93add82dda3..6dd81c76203fdab15963a1b12c6dc77eb714ded5 100644 (file)
--- 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;