1 ! (c)2009 Joe Groff bsd license
2 USING: alien.c-types alien.libraries alien.syntax classes.struct windows.types ;
9 { cyBottomHeight int } ;
11 STRUCT: DWM_BLURBEHIND
15 { fTransitionOnMaximized BOOL } ;
17 : <MARGINS> ( l r t b -- MARGINS )
18 MARGINS <struct-boa> ; inline
20 : full-window-margins ( -- MARGINS )
21 -1 -1 -1 -1 <MARGINS> ; inline
23 << "dwmapi" "dwmapi.dll" "stdcall" add-library >>
27 FUNCTION: HRESULT DwmExtendFrameIntoClientArea ( HWND hWnd, MARGINS* pMarInset ) ;
28 FUNCTION: HRESULT DwmEnableBlurBehindWindow ( HWND hWnd, DWM_BLURBEHIND* pBlurBehind ) ;