28 lines
544 B
Factor
28 lines
544 B
Factor
|
IN: scratchpad
|
||
|
|
USING: alien compiler kernel namespaces parser sequences words ;
|
||
|
|
|
||
|
|
{
|
||
|
|
{ "gdi32" "gdi32" }
|
||
|
|
{ "user32" "user32" }
|
||
|
|
{ "kernel32" "kernel32" }
|
||
|
|
{ "winsock" "ws2_32" }
|
||
|
|
{ "mswsock" "mswsock" }
|
||
|
|
} [ first2 add-simple-library ] each
|
||
|
|
"libc" "msvcrt.dll" "cdecl" add-library
|
||
|
|
|
||
|
|
{
|
||
|
|
"windows-messages"
|
||
|
|
"types"
|
||
|
|
"gdi32"
|
||
|
|
"kernel32"
|
||
|
|
"user32"
|
||
|
|
"opengl32"
|
||
|
|
"utils"
|
||
|
|
"ui"
|
||
|
|
"clipboard"
|
||
|
|
|
||
|
|
} [ "/library/ui/windows/" swap ".factor" append3 run-resource ] each
|
||
|
|
|
||
|
|
IN: kernel
|
||
|
|
: default-shell "ui" ;
|