Преглед на файлове

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