From 40d48067429300bedfc93f6d7f6357927d6d90cb Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 7 Jul 2022 08:26:55 -0500 Subject: [refactor] paths points and enclosure [add] path encloses path test --- src/wheelwork.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/wheelwork.lisp') 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." -- cgit v1.2.3