mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

CLOG-GUI support for touch

Browse source
This commit is contained in:
David Botton 2024-01-23 21:55:52 -05:00
parent 4c195beccc
commit 5efdae255f
4 changed files with 25 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

3
source/clog-base.lisp
View file

@ -1184,8 +1184,7 @@ ON-TOUCH-END-HANDLER is nil unbind the event."))
(set-event obj "touchend"
(when handler
(lambda (data)
(declare (ignore dara))
(funcall handler obj)))
(funcall handler obj '(:event-type :touch))))
:one-time one-time
:cancel-event cancel-event))