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

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))