mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-03 07:42:32 -08:00
Code Issues Projects Releases Wiki Activity

correct style errors

Browse source
This commit is contained in:
David Botton 2024-02-08 23:42:33 -05:00
parent c913fce724
commit 81d2f059ab
3 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

15
source/clog-base.lisp
View file

@ -1200,13 +1200,14 @@ ON-TOUCH-MOVE-HANDLER is nil unbind the event."))
ON-TOUCH-END-HANDLER is nil unbind the event."))
(defmethod set-on-touch-end ((obj clog-obj) handler
&key (one-time nil) (cancel-event nil))
&key (one-time nil) (cancel-event nil))
(set-event obj "touchend"
(when handler
(lambda (data)
(funcall handler obj '(:event-type :touch))))
:one-time one-time
:cancel-event cancel-event))
(when handler
(lambda (data)
(declare (ignore data))
(funcall handler obj '(:event-type :touch))))
:one-time one-time
:cancel-event cancel-event))
;;;;;;;;;;;;;;;;;;;;;;;;;
;; set-on-touch-cancel ;;
@ -1220,7 +1221,7 @@ ON-TOUCH-CANCEL-HANDLER is nil unbind the event."))
(set-event obj "touchcancel"
(when handler
(lambda (data)
(declare (ignore dara))
(declare (ignore data))
(funcall handler obj)))))
;;;;;;;;;;;;;;;;;;;;;;