Merge branch 'master' of git://factorcode.org/git/factor
						commit
						dee151432c
					
				| 
						 | 
				
			
			@ -0,0 +1 @@
 | 
			
		|||
Joe Groff
 | 
			
		||||
| 
						 | 
				
			
			@ -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 ) ;
 | 
			
		||||
| 
						 | 
				
			
			@ -0,0 +1 @@
 | 
			
		|||
Windows Vista Desktop Window Manager API functions
 | 
			
		||||
| 
						 | 
				
			
			@ -0,0 +1,2 @@
 | 
			
		|||
windows
 | 
			
		||||
unportable
 | 
			
		||||
		Loading…
	
		Reference in New Issue