diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-06-27 15:23:35 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-06-27 15:23:35 -0500 |
| commit | e5104cf39570605859c3648ed83c37fe647b0e3f (patch) | |
| tree | cb59f1b5d0f0ae9f354982ecfab7e3cf09e9570f /wheelwork.lisp | |
| parent | 2340c1a09895502667c9ba75c3db73b555ef40aa (diff) | |
[example] 1 2 and 3 find the right asset root automatically
Diffstat (limited to 'wheelwork.lisp')
| -rw-r--r-- | wheelwork.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/wheelwork.lisp b/wheelwork.lisp index 5807f30..555366b 100644 --- a/wheelwork.lisp +++ b/wheelwork.lisp @@ -422,6 +422,8 @@ TARGET is FOCUSABLEP" "EVENT-TYPE must be one of the slot value names for WHEELWORK::LISTENER." (?> (unit) listener #$(slot-value $listener event-type))) + + (defun eventloop-keydown (app sdl-keysym) (let ((target (get-focus app))) (when-let (handler (get-handler-for target 'keydown)) |