win32 bootstrap fixes

2006-03-25 09:58:34 +00:00 · 2006-03-25 09:58:34 +00:00 · d9379f9af7
parent ab97dccc66
commit d9379f9af7
3 changed files with 6 additions and 1 deletions
--- a/contrib/win32/load.factor
+++ b/contrib/win32/load.factor
@ -18,3 +18,4 @@ USING: alien compiler kernel parser sequences words ;
    "clipboard"
    "ui"
 } [ "/contrib/win32/" swap ".factor" append3 run-resource ] each
+compile-all
--- a/contrib/win32/user32.factor
+++ b/contrib/win32/user32.factor
@ -635,7 +635,7 @@ FUNCTION: LRESULT DefWindowProcW ( HWND hWnd, UINT Msg, WPARAM wParam, LPARAM lP
 ! FUNCTION: DestroyIcon
 ! FUNCTION: DestroyMenu
 ! FUNCTION: DestroyReasons
-! FUNCTION: DestroyWindow
+FUNCTION: BOOL DestroyWindow ( HWND hWnd ) ;
 ! FUNCTION: DeviceEventWorker
 ! FUNCTION: DialogBoxIndirectParamA
 ! FUNCTION: DialogBoxIndirectParamAorW
--- a/library/bootstrap/boot-stage2.factor
+++ b/library/bootstrap/boot-stage2.factor
@ -48,6 +48,10 @@ recrossref
    "x11" get [
        "/library/x11/load.factor" run-resource
    ] when
+
+    windows? [
+        "/contrib/win32/load.factor" run-resource
+    ] when
 ] when

 [