[graphic-forms-cvs] r142 - trunk/src/uitoolkit/system

[junrue at common-lisp.net]

Author: junrue
Date: Thu Jun  1 18:25:22 2006
New Revision: 142

Modified:
   trunk/src/uitoolkit/system/user32.lisp
Log:
added bindings for mouse capture/release

Modified: trunk/src/uitoolkit/system/user32.lisp
==============================================================================
--- trunk/src/uitoolkit/system/user32.lisp	(original)
+++ trunk/src/uitoolkit/system/user32.lisp	Thu Jun  1 18:25:22 2006
@@ -525,6 +525,10 @@
   (wndclass LPTR))
 
 (defcfun
+  ("ReleaseCapture" release-capture)
+  BOOL)
+
+(defcfun
   ("ReleaseDC" release-dc)
   INT
   (hwnd HANDLE)
@@ -557,6 +561,11 @@
   (hwnd HANDLE))
 
 (defcfun
+  ("SetCapture" set-capture)
+  HANDLE
+  (hwnd HANDLE))
+
+(defcfun
   ("SetFocus" set-focus)
   HANDLE
   (hwnd HANDLE))