! (c)2009 Joe Groff bsd license
-USING: alien.c-types alien.data alien.libraries alien.syntax
-classes.struct kernel math system-info.windows windows.types ;
+USING: alien alien.c-types alien.data alien.libraries
+alien.syntax classes.struct kernel math system-info.windows
+windows.types ;
IN: windows.dwmapi
STRUCT: MARGINS
FUNCTION: HRESULT DwmEnableBlurBehindWindow ( HWND hWnd, DWM_BLURBEHIND* pBlurBehind ) ;
FUNCTION: HRESULT DwmIsCompositionEnabled ( BOOL* pfEnabled ) ;
-CONSTANT: WM_DWMCOMPOSITIONCHANGED HEX: 31E
+CONSTANT: WM_DWMCOMPOSITIONCHANGED 0x31E
: composition-enabled? ( -- ? )
windows-major 6 >=
- [ 0 <int> [ DwmIsCompositionEnabled drop ] keep *int c-bool> ]
+ [ { bool } [ DwmIsCompositionEnabled drop ] with-out-parameters ]
[ f ] if ;