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)