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

winapi window resize

db4
Jon Harper 2012-11-26 23:11:48 +01:00 committed by John Benediktsson
parent 26beb27680
commit f5f767e0dc
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -858,6 +858,10 @@ M: windows-ui-backend (fullscreen?) ( world -- ? )
[ hwnd>RECT ] [ fullscreen-RECT ] bi [ hwnd>RECT ] [ fullscreen-RECT ] bi
[ get-RECT-dimensions 2array 2nip ] same? ; [ get-RECT-dimensions 2array 2nip ] same? ;
M: windows-ui-backend resize-window ( world dim -- )
[ handle>> hWnd>> dup hwnd>RECT get-RECT-top-left ]
[ first2 FALSE ] bi* MoveWindow win32-error=0/f ;
M: windows-ui-backend ui-backend-available? M: windows-ui-backend ui-backend-available?
t ; t ;