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

[junrue at common-lisp.net]

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)