some windows dwm api calls to play with

db4
Joe Groff 2009-09-24 00:10:53 -05:00
parent 08b29b0b84
commit 4b201f171a
4 changed files with 32 additions and 0 deletions

View File

@ -0,0 +1 @@
Joe Groff

View File

@ -0,0 +1,28 @@
! (c)2009 Joe Groff bsd license
USING: alien.c-types alien.libraries alien.syntax classes.struct windows.types ;
IN: windows.dwmapi
STRUCT: MARGINS
{ cxLeftWidth int }
{ cxRightWidth int }
{ cyTopHeight int }
{ cyBottomHeight int } ;
STRUCT: DWM_BLURBEHIND
{ dwFlags DWORD }
{ fEnable BOOL }
{ hRgnBlur HANDLE }
{ fTransitionOnMaximized BOOL } ;
: <MARGINS> ( l r t b -- MARGINS )
MARGINS <struct-boa> ; inline
: full-window-margins ( -- MARGINS )
-1 -1 -1 -1 <MARGINS> ; inline
<< "dwmapi" "dwmapi.dll" "stdcall" add-library >>
LIBRARY: dwmapi
FUNCTION: HRESULT DwmExtendFrameIntoClientArea ( HWND hWnd, MARGINS* pMarInset ) ;
FUNCTION: HRESULT DwmEnableBlurBehindWindow ( HWND hWnd, DWM_BLURBEHIND* pBlurBehind ) ;

View File

@ -0,0 +1 @@
Windows Vista Desktop Window Manager API functions

2
basis/windows/dwmapi/tags.txt Executable file
View File

@ -0,0 +1,2 @@
windows
unportable