From 31fdfea197c08e1131c977d029550c107282e96f Mon Sep 17 00:00:00 2001
From: erg <erg@trifocus.net>
Date: Fri, 10 Nov 2006 22:08:29 +0000
Subject: [PATCH] move native io word out of win32 ui

---
 library/ui/windows/ui.factor | 4 ----
 library/windows/io.factor    | 7 +++++++
 library/windows/load.factor  | 2 ++
 3 files changed, 9 insertions(+), 4 deletions(-)
 create mode 100644 library/windows/io.factor

diff --git a/library/ui/windows/ui.factor b/library/ui/windows/ui.factor
index 9dd5df87d7..07e341e07b 100644
--- a/library/ui/windows/ui.factor
+++ b/library/ui/windows/ui.factor
@@ -365,7 +365,3 @@ IN: shells
         ] with-freetype
     ] [ cleanup-win32-ui ] cleanup ;
 
-IN: io-internals
-! Allows use of the ui without native i/o.
-! Overwritten when native i/o is loaded.
-: io-multiplex ( ms -- ) 0 SleepEx drop ;
diff --git a/library/windows/io.factor b/library/windows/io.factor
new file mode 100644
index 0000000000..e36bcac0bd
--- /dev/null
+++ b/library/windows/io.factor
@@ -0,0 +1,7 @@
+USING: kernel win32-api ;
+IN: io-internals
+
+! Allows use of the ui without native i/o.
+! Overwritten when native i/o is loaded.
+: io-multiplex ( ms -- ) 0 SleepEx drop ;
+
diff --git a/library/windows/load.factor b/library/windows/load.factor
index d185ed9535..6dd57f6249 100644
--- a/library/windows/load.factor
+++ b/library/windows/load.factor
@@ -1,3 +1,4 @@
+USING: kernel namespaces ;
 PROVIDE: library/windows
 { +files+ { 
     "windows-messages.factor"
@@ -15,6 +16,7 @@ PROVIDE: library/windows
     "winsock.factor"
     "opengl32.factor"
     "utils.factor"
+    { "io.factor" [ "native-io" get not ] }
 } } ;
 
 IN: command-line