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

added on-pointer-cancel event to cover touch cancels

Browse source
This commit is contained in:
David Botton 2024-01-29 10:49:37 -05:00
parent 845a8b7066
commit dc5693a6d4
3 changed files with 26 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

21
source/clog-base.lisp
View file

@ -1113,6 +1113,27 @@ ON-POINTER-UP-HANDLER is nil unbind the event."))
:cancel-event cancel-event
:call-back-script pointer-event-script))
;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; set-on-pointer-cancel ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defgeneric set-on-pointer-cancel (clog-obj on-pointer-cancel-handler
&key one-time cancel-event)
(:documentation "Set the ON-POINTER-CANCEL-HANDLER for CLOG-OBJ. If
ON-POINTER-CANCEL-HANDLER is nil unbind the event."))
(defmethod set-on-pointer-cancel ((obj clog-obj) handler
&key (one-time nil) (cancel-event nil))
(set-event obj "pointercancel"
(when handler
(lambda (data)
(funcall handler obj (parse-pointer-event data))))
:post-eval (format nil "; ~A.releasePointerCapture(e.pointerId)"
(script-id obj))
:one-time one-time
:cancel-event cancel-event
:call-back-script pointer-event-script))
;;;;;;;;;;;;;;;;;;;;;;;;;
;; set-on-pointer-move ;;
;;;;;;;;;;;;;;;;;;;;;;;;;