move native io word out of win32 ui

erg 2006-11-10 22:08:29 +00:00
parent a393e4efea
commit 31fdfea197
3 changed files with 9 additions and 4 deletions

View File

@ -365,7 +365,3 @@ IN: shells
] with-freetype ] with-freetype
] [ cleanup-win32-ui ] cleanup ; ] [ 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 ;

View File

@ -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 ;

View File

@ -1,3 +1,4 @@
USING: kernel namespaces ;
PROVIDE: library/windows PROVIDE: library/windows
{ +files+ { { +files+ {
"windows-messages.factor" "windows-messages.factor"
@ -15,6 +16,7 @@ PROVIDE: library/windows
"winsock.factor" "winsock.factor"
"opengl32.factor" "opengl32.factor"
"utils.factor" "utils.factor"
{ "io.factor" [ "native-io" get not ] }
} } ; } } ;
IN: command-line IN: command-line