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

Author: junrue Date: Tue Mar 28 14:44:59 2006 New Revision: 81 Modified: trunk/src/uitoolkit/system/gdi32.lisp Log: added missing binding for SetPixel Modified: trunk/src/uitoolkit/system/gdi32.lisp ============================================================================== --- trunk/src/uitoolkit/system/gdi32.lisp (original) +++ trunk/src/uitoolkit/system/gdi32.lisp Tue Mar 28 14:44:59 2006 @@ -356,6 +356,14 @@ (oldlimit LPTR)) (defcfun + ("SetPixel" set-pixel) + COLORREF + (hdc HANDLE) + (x INT) + (y INT) + (color COLORREF)) + +(defcfun ("SetTextColor" set-text-color) COLORREF (hdc HANDLE)