Skip to content
Snippets Groups Projects
Commit 0ec96edb authored by dan's avatar dan
Browse files

cursor hotspots should not be negative

darcs-hash:20030221164832-2591e-d59f12e828813a312fe9868a8b2bb8d4d6459748.gz
parent e0d7c15f
No related branches found
No related tags found
No related merge requests found
......@@ -41,9 +41,7 @@ better yet, the USE option to DEFPACKAGE
= Known problems:
1) tests/image.lisp seems not to work. "On the other hand, it also
seems broken under CMUCL, so it might be something like the current
colour depth."
(none reported)
= Bug reports, new features, patches
......
......@@ -92,8 +92,10 @@
(image-z :z-pixmap)))
(image (get-image window :x x :y y :width width :height height
:format format :result-type result-type)))
(setf (image-x-hot image) (- x))
(setf (image-y-hot image) (- y))
;; XCreatePixmapCursor(3X11) says that x,y for hotspot are
;; unsigned, so what we're doing here I don't know
;;(setf (image-x-hot image) (- x))
;;(setf (image-y-hot image) (- y))
image))
(defun image-test-subimage-parameters (image random-subimage-p)
......@@ -125,8 +127,8 @@
(multiple-value-bind (src-x src-y width height)
(image-test-subimage-parameters image random-subimage-p)
(let* ((border-width 1)
(x (- src-x (image-x-hot image) border-width))
(y (- src-y (image-y-hot image) border-width)))
(x (- src-x #+nil (image-x-hot image) border-width))
(y (- src-y #+nil (image-y-hot image) border-width)))
(unless (or (zerop width) (zerop height))
(let ((window
(create-window
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment