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 ; } cleave ;
: exit-fullscreen ( world -- ) : 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 f
over hwnd>RECT get-RECT-dimensions over hwnd>RECT get-RECT-dimensions
flags{ SWP_NOMOVE SWP_NOSIZE SWP_NOZORDER SWP_FRAMECHANGED } flags{ SWP_NOMOVE SWP_NOSIZE SWP_NOZORDER SWP_FRAMECHANGED }
SetWindowPos win32-error=0/f SetWindowPos win32-error=0/f
] ]
[ SW_RESTORE ShowWindow win32-error=0/f ] [ drop SW_RESTORE ShowWindow win32-error=0/f ]
} cleave ; } 2cleave ;
M: windows-ui-backend (set-fullscreen) ( ? world -- ) M: windows-ui-backend (set-fullscreen) ( ? world -- )
[ enter-fullscreen ] [ exit-fullscreen ] if ; [ enter-fullscreen ] [ exit-fullscreen ] if ;
M: windows-ui-backend (fullscreen?) ( world -- ? ) M: windows-ui-backend (fullscreen?) ( world -- ? )
[ handle>> hWnd>> hwnd>RECT ] handle>> hWnd>>
[ handle>> hWnd>> fullscreen-RECT ] bi [ hwnd>RECT ] [ fullscreen-RECT ] bi
[ get-RECT-dimensions 2array 2nip ] bi@ = ; [ get-RECT-dimensions 2array 2nip ] bi@ = ;
windows-ui-backend ui-backend set-global windows-ui-backend ui-backend set-global