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

Pass cancel-event in set-on-click

Browse source
This commit is contained in:
Mariano Montone 2023-02-07 15:03:21 -03:00
parent cf40a5149e
commit 0bff2c750b
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
source/clog-base.lisp
View file

@ -833,13 +833,14 @@ event on right click."))
is nil unbind the event. Setting this event will replace an on-mouse click if is nil unbind the event. Setting this event will replace an on-mouse click if
set. If :ONE-TIME unbind event on click.")) set. If :ONE-TIME unbind event on click."))
(defmethod set-on-click ((obj clog-obj) handler &key (one-time nil)) (defmethod set-on-click ((obj clog-obj) handler &key one-time cancel-event)
(set-event obj "click" (set-event obj "click"
(when handler (when handler
(lambda (data) (lambda (data)
(declare (ignore data)) (declare (ignore data))
(funcall handler obj))) (funcall handler obj)))
:one-time one-time)) :one-time one-time
:cancel-event cancel-event))
;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;
;; set-on-double-click ;; ;; set-on-double-click ;;