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

ui.backend.cocoa: factor out stop-io-thread word for use by upcoming Gtk UI backend

db4
Slava Pestov 2010-05-29 01:49:40 -04:00
parent b8c6799527
commit 8fd6a24edb
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/io/thread/thread.factor
View File

@ -14,6 +14,9 @@ SYMBOL: io-thread-running?
[ [ io-thread-running? get-global ] [ io-thread ] while ] [ [ io-thread-running? get-global ] [ io-thread ] while ]
"I/O wait" spawn drop ; "I/O wait" spawn drop ;
: stop-io-thread ( -- )
f io-thread-running? set-global ;
[ [
t io-thread-running? set-global t io-thread-running? set-global
start-io-thread start-io-thread

2
basis/ui/backend/cocoa/cocoa.factor
View File

@ -252,7 +252,7 @@ M: cocoa-ui-backend (with-ui)
init-clipboard init-clipboard
cocoa-startup-hook get call( -- ) cocoa-startup-hook get call( -- )
start-ui start-ui
f io-thread-running? set-global stop-io-thread
init-thread-timer init-thread-timer
reset-run-loop reset-run-loop
NSApp -> run NSApp -> run