diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-06 09:51:13 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-06 09:51:13 -0500 |
| commit | 76fa9bbd852fdb2d47c8cf3d539da805bd2f9b53 (patch) | |
| tree | 0d4913bfd6a10bb175cdf497e152b80f958ce8fd /examples/07-renderarea.lisp | |
| parent | 827dadbc91abdb8e2143c2a15b996e0e5ad87fc6 (diff) | |
[bugfix] get-rect (container); [modify] contains-point-p
modification to contains-point-p in order to handle events on objects
in containers correctly; i.e. event doesn't fire if object is not
being drawn.
Diffstat (limited to 'examples/07-renderarea.lisp')
| -rw-r--r-- | examples/07-renderarea.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/examples/07-renderarea.lisp b/examples/07-renderarea.lisp index ead322f..78d116b 100644 --- a/examples/07-renderarea.lisp +++ b/examples/07-renderarea.lisp @@ -53,8 +53,7 @@ (ww::add-unit cube-container cube) (ww::add-unit app cube-container) - (describe cube-container) - )) + (describe cube-container))) (defun start () @@ -63,6 +62,7 @@ :fps 30 :width 800 :height 600 + :refocus-on-mousedown-p nil :title "A scrollable area." :asset-root (merge-pathnames "examples/" |