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

2010-05-29 01:49:40 -04:00 · 2010-05-29 01:49:40 -04:00 · 8fd6a24edb
parent b8c6799527
commit 8fd6a24edb
2 changed files with 4 additions and 1 deletions
--- a/basis/io/thread/thread.factor
+++ b/basis/io/thread/thread.factor
@ -14,6 +14,9 @@ SYMBOL: io-thread-running?
    [ [ io-thread-running? get-global ] [ io-thread ] while ]
    "I/O wait" spawn drop ;

+: stop-io-thread ( -- )
+    f io-thread-running? set-global ;
+
 [
    t io-thread-running? set-global
    start-io-thread
--- a/basis/ui/backend/cocoa/cocoa.factor
+++ b/basis/ui/backend/cocoa/cocoa.factor
@ -252,7 +252,7 @@ M: cocoa-ui-backend (with-ui)
            init-clipboard
            cocoa-startup-hook get call( -- )
            start-ui
-            f io-thread-running? set-global
+            stop-io-thread
            init-thread-timer
            reset-run-loop
            NSApp -> run