From 4b201f171ab1042edad6339d7cc60befecec8f6d Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Thu, 24 Sep 2009 00:10:53 -0500
Subject: [PATCH] some windows dwm api calls to play with

---
 basis/windows/dwmapi/authors.txt   |  1 +
 basis/windows/dwmapi/dwmapi.factor | 28 ++++++++++++++++++++++++++++
 basis/windows/dwmapi/summary.txt   |  1 +
 basis/windows/dwmapi/tags.txt      |  2 ++
 4 files changed, 32 insertions(+)
 create mode 100755 basis/windows/dwmapi/authors.txt
 create mode 100755 basis/windows/dwmapi/dwmapi.factor
 create mode 100755 basis/windows/dwmapi/summary.txt
 create mode 100755 basis/windows/dwmapi/tags.txt

diff --git a/basis/windows/dwmapi/authors.txt b/basis/windows/dwmapi/authors.txt
new file mode 100755
index 0000000000..f13c9c1e77
--- /dev/null
+++ b/basis/windows/dwmapi/authors.txt
@@ -0,0 +1 @@
+Joe Groff
diff --git a/basis/windows/dwmapi/dwmapi.factor b/basis/windows/dwmapi/dwmapi.factor
new file mode 100755
index 0000000000..e7e0b4b8ef
--- /dev/null
+++ b/basis/windows/dwmapi/dwmapi.factor
@@ -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 ) ;
diff --git a/basis/windows/dwmapi/summary.txt b/basis/windows/dwmapi/summary.txt
new file mode 100755
index 0000000000..9aa451d350
--- /dev/null
+++ b/basis/windows/dwmapi/summary.txt
@@ -0,0 +1 @@
+Windows Vista Desktop Window Manager API functions
diff --git a/basis/windows/dwmapi/tags.txt b/basis/windows/dwmapi/tags.txt
new file mode 100755
index 0000000000..43bc035447
--- /dev/null
+++ b/basis/windows/dwmapi/tags.txt
@@ -0,0 +1,2 @@
+windows
+unportable
-- 
2.34.1