suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cocoa: don't over-poll for events

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-17 22:50:56 -06:00
parent 0519ef991c
commit 97a52a58bc
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mred/private/wx/cocoa/queue.rkt
View File

@ -268,8 +268,15 @@
(define (cocoa-start-event-pump) (define (cocoa-start-event-pump)
(thread (lambda () (thread (lambda ()
(let loop () (let loop ()
;; Wait 50 msecs between event polling, unless nothing
;; else is going on:
(sync/timeout 0.05 (system-idle-evt))
;; Wait until event is ready --- but waiting is implemented
;; by polling:
(sync queue-evt) (sync queue-evt)
;; Something is ready, so dispatch:
(atomically (dispatch-all-ready)) (atomically (dispatch-all-ready))
;; Periodically free everything in the default allocation pool:
(queue-autorelease-flush) (queue-autorelease-flush)
(loop))))) (loop)))))