: get-style ( hwnd n -- style )
GetWindowLongPtr [ win32-error=0/f ] keep ;
-
+
: set-style ( hwnd n style -- )
SetWindowLongPtr win32-error=0/f ;
:: enable-fullscreen ( triple hwnd -- rect )
hwnd hwnd>RECT :> rect
-
+
desktop-monitor-info
triple GetDesktopWindow find-devmode
hwnd set-fullscreen-styles