steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

core-foundation.run-loop: this is still needed, for now.

db4
John Benediktsson 2012-08-01 11:18:47 -07:00
parent d78f90d7c7
commit ebac6a5dbf
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/core-foundation/run-loop/run-loop.factor
View File

@ -126,6 +126,7 @@ PRIVATE>
60 timer-callback <CFTimer> add-timer-to-run-loop ; 60 timer-callback <CFTimer> add-timer-to-run-loop ;
: run-one-iteration ( nanos -- handled? ) : run-one-iteration ( nanos -- handled? )
reset-run-loop
CFRunLoopDefaultMode CFRunLoopDefaultMode
swap [ nanoseconds ] [ 5 minutes ] if* >CFTimeInterval swap [ nanoseconds ] [ 5 minutes ] if* >CFTimeInterval
t CFRunLoopRunInMode kCFRunLoopRunHandledSource = ; t CFRunLoopRunInMode kCFRunLoopRunHandledSource = ;