diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-07 08:26:55 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-07 08:26:55 -0500 |
| commit | 40d48067429300bedfc93f6d7f6357927d6d90cb (patch) | |
| tree | d7df16bad67b7a52af599df1722dcc1e816a36fa /src/wheelwork.lisp | |
| parent | 208eb74ed6af4e016f34704bf7c7de547e8b1612 (diff) | |
[refactor] paths points and enclosure [add] path encloses path test
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." |