1 ! Copyright (C) 2009 Joe Groff.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien alien.c-types alien.data alien.libraries
4 alien.syntax classes.struct kernel math system-info.windows
12 { cyBottomHeight int } ;
14 STRUCT: DWM_BLURBEHIND
18 { fTransitionOnMaximized BOOL } ;
20 : <MARGINS> ( l r t b -- MARGINS )
21 MARGINS <struct-boa> ; inline
23 : full-window-margins ( -- MARGINS )
24 -1 -1 -1 -1 <MARGINS> ; inline
26 << "dwmapi" "dwmapi.dll" stdcall add-library >>
30 FUNCTION: HRESULT DwmExtendFrameIntoClientArea ( HWND hWnd, MARGINS* pMarInset )
31 FUNCTION: HRESULT DwmEnableBlurBehindWindow ( HWND hWnd, DWM_BLURBEHIND* pBlurBehind )
32 FUNCTION: HRESULT DwmIsCompositionEnabled ( BOOL* pfEnabled )
34 CONSTANT: WM_DWMCOMPOSITIONCHANGED 0x31E
36 : composition-enabled? ( -- ? )
38 [ { bool } [ DwmIsCompositionEnabled drop ] with-out-parameters ]