winapi window resize

2012-11-26 23:11:48 +01:00 · 2012-11-26 23:11:48 +01:00 · f5f767e0dc
parent 26beb27680
commit f5f767e0dc
1 changed files with 4 additions and 0 deletions
--- a/basis/ui/backend/windows/windows.factor
+++ b/basis/ui/backend/windows/windows.factor
@ -858,6 +858,10 @@ M: windows-ui-backend (fullscreen?) ( world -- ? )
    [ hwnd>RECT ] [ fullscreen-RECT ] bi
    [ 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?
    t ;