steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.backend.windows: remove a usage of rot

db4
Slava Pestov 2010-06-02 02:59:35 -04:00
parent 9f49bfc3b3
commit 83e78c353e
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/ui/backend/windows/windows.factor
View File

@ -832,24 +832,25 @@ CONSTANT: fullscreen-flags flags{ WS_CAPTION WS_BORDER WS_THICKFRAME }
} cleave ;
: exit-fullscreen ( world -- )
dup handle>> hWnd>>
[ handle>> hWnd>> ] [ world>style ] bi
{
[ GWL_STYLE rot world>style SetWindowLong win32-error=0/f ]
[ [ GWL_STYLE ] dip SetWindowLong win32-error=0/f ]
[
drop
f
over hwnd>RECT get-RECT-dimensions
flags{ SWP_NOMOVE SWP_NOSIZE SWP_NOZORDER SWP_FRAMECHANGED }
SetWindowPos win32-error=0/f
]
[ SW_RESTORE ShowWindow win32-error=0/f ]
} cleave ;
[ drop SW_RESTORE ShowWindow win32-error=0/f ]
} 2cleave ;
M: windows-ui-backend (set-fullscreen) ( ? world -- )
[ enter-fullscreen ] [ exit-fullscreen ] if ;
M: windows-ui-backend (fullscreen?) ( world -- ? )
[ handle>> hWnd>> hwnd>RECT ]
[ handle>> hWnd>> fullscreen-RECT ] bi
handle>> hWnd>>
[ hwnd>RECT ] [ fullscreen-RECT ] bi
[ get-RECT-dimensions 2array 2nip ] bi@ = ;
windows-ui-backend ui-backend set-global