Fix Windows UI backend

release
Slava Pestov 2007-10-25 18:09:43 -04:00
parent fc40cef6af
commit c1295a9737
1 changed files with 2 additions and 2 deletions

4
extra/ui/windows/windows.factor Normal file → Executable file
View File

@ -94,7 +94,7 @@ SYMBOL: mouse-captured
: handle-wm-paint ( hWnd uMsg wParam lParam -- )
#! wParam and lParam are unused
#! only paint if width/height both > 0
3drop window dup draw-world ;
3drop window draw-world ;
: handle-wm-size ( hWnd uMsg wParam lParam -- )
[ lo-word ] keep hi-word make-RECT get-RECT-dimensions 2array
@ -414,7 +414,7 @@ SYMBOL: hWnd
[ wglMakeCurrent win32-error=0/f ] keep ;
: setup-gl ( hwnd -- hDC hRC )
get-dc dup setup-pixel-format get-rc ;
get-dc dup setup-pixel-format dup get-rc ;
M: windows-ui-backend (open-world-window) ( world -- )
[ rect-dim first2 create-window dup setup-gl ] keep