[graphic-forms-cvs] r406 - trunk/src/uitoolkit/widgets

[junrue at common-lisp.net]

Author: junrue
Date: Wed Nov 29 13:51:06 2006
New Revision: 406

Modified:
   trunk/src/uitoolkit/widgets/widget.lisp
Log:
fixed a regression in (setf cursor-of)

Modified: trunk/src/uitoolkit/widgets/widget.lisp
==============================================================================
--- trunk/src/uitoolkit/widgets/widget.lisp	(original)
+++ trunk/src/uitoolkit/widgets/widget.lisp	Wed Nov 29 13:51:06 2006
@@ -81,7 +81,9 @@
   (let ((capture-hwnd (gfs::get-capture)))
     (if (or (gfs:null-handle-p capture-hwnd)
             (cffi:pointer-eq capture-hwnd (gfs:handle widget)))
-      (gfs::set-cursor (gfs:handle cursor)))))
+      (if cursor
+        (gfs::set-cursor (gfs:handle cursor))
+        (gfs::set-cursor (cffi:null-pointer))))))
 
 (defmacro with-cursor ((widget &key file hotspot image system) &body body)
   (lispworks:with-unique-names (old new retval)