diff options
Diffstat (limited to 'src/wheelwork.lisp')
| -rw-r--r-- | src/wheelwork.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/wheelwork.lisp b/src/wheelwork.lisp index 983ecbe..8b1e534 100644 --- a/src/wheelwork.lisp +++ b/src/wheelwork.lisp @@ -66,7 +66,7 @@ TARGET is FOCUSABLEP" (sdl2:mod-keywords (sdl2:mod-value sdl-keysym))))))) (defun unit-contains-point-p (unit pt) - (path-contains-point (get-rect unit) pt)) + (path-encloses-point-p (get-rect unit) pt)) (defun unit-under (app x y) "Finds the visible unit that contains the point x y." |