Преглед изворни кода

Update zgl_application.pas

Seenkao пре 4 година
родитељ
комит
bf1decc48b
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      Zengl_SRC/src/zgl_application.pas

+ 1 - 1
Zengl_SRC/src/zgl_application.pas

@@ -1005,7 +1005,7 @@ begin
 eventLoop:
   ev := wndHandle.nextEventMatchingMask_untilDate_inMode_dequeue(NSAnyEventMask, nil, NSDefaultRunLoopMode, true);
   if ev = nil then
-  begin
+    exit;
   case ev.type_ of
     NSMouseMoved, NSLeftMouseDragged, NSRightMouseDragged, NSOtherMouseDragged:
       begin