Fix enter-fullscreen on windows

unknown 2010-04-30 08:06:06 -05:00
parent 1d602976c3
commit be69c02803
1 changed files with 1 additions and 1 deletions

View File

@ -812,7 +812,7 @@ M: windows-ui-backend (ungrab-input) ( handle -- )
f ClipCursor drop f ClipCursor drop
1 ShowCursor drop ; 1 ShowCursor drop ;
CONSTANT: fullscreen-flags { WS_CAPTION WS_BORDER WS_THICKFRAME } CONSTANT: fullscreen-flags flags{ WS_CAPTION WS_BORDER WS_THICKFRAME }
: enter-fullscreen ( world -- ) : enter-fullscreen ( world -- )
handle>> hWnd>> handle>> hWnd>>