Only go into eventloop/interrupt check 10 times per second

jackjansen · jackjansen · commit 7e9440408127 · 1997-02-20T15:23:18.000Z
diff --git a/Mac/Python/macglue.c b/Mac/Python/macglue.c
@@ -351,11 +351,20 @@ scan_event_queue(flush)
 	}
 }
 
+#define TICKCOUNT 6
+
 int
 PyOS_InterruptOccurred()
 {
+	static unsigned long nextticktime;
+	unsigned long curticktime;
+
 	if (PyMac_DoYieldEnabled < 0)
 		return 0;
+	curticktime = (unsigned long)LMGetTicks();
+	if ( curticktime < nextticktime )
+		return 0;
+	nextticktime = curticktime + TICKCOUNT;
 #ifdef THINK_C
 	scan_event_queue(1);
 #endif
