kc3-lang/SDL

diff --git a/src/video/uikit/SDL_uikitevents.m b/src/video/uikit/SDL_uikitevents.m
index 85d6dca..7083e20 100644
--- a/src/video/uikit/SDL_uikitevents.m
+++ b/src/video/uikit/SDL_uikitevents.m
@@ -56,9 +56,14 @@ UIKit_PumpEvents(_THIS)
     /* Pump most event types. */
     SInt32 result;
     do {
-        result = CFRunLoopRunInMode(kCFRunLoopCommonModes, seconds, TRUE);
+        result = CFRunLoopRunInMode(kCFRunLoopDefaultMode, seconds, TRUE);
     } while (result == kCFRunLoopRunHandledSource);
 
+    /* Make sure UIScrollView objects scroll properly. */
+    do {
+        result = CFRunLoopRunInMode((CFStringRef)UITrackingRunLoopMode, seconds, TRUE);
+    } while(result == kCFRunLoopRunHandledSource);
+
     /* See the comment in the function definition. */
     UIKit_GL_RestoreCurrentContext();
 }