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

dedupe cancel-event keys

Browse source
This commit is contained in:
owen 2024-09-18 20:19:05 +00:00
parent 4a35cab1b0
commit 2cb7513d5d
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
source/clog-base.lisp
View file

@ -951,15 +951,14 @@ ON-MOUSE-RIGHT-CLICK-HANDLER is nil unbind the event. Setting this event will
replace on an on-context-menu event.")) replace on an on-context-menu event."))
(defmethod set-on-mouse-right-click ((obj clog-obj) handler (defmethod set-on-mouse-right-click ((obj clog-obj) handler
&key one-time cancel-event) &key one-time (cancel-event t))
(set-event obj "contextmenu" (set-event obj "contextmenu"
(when handler (when handler
(lambda (data) (lambda (data)
(funcall handler obj (parse-mouse-event data)))) (funcall handler obj (parse-mouse-event data))))
:one-time one-time :one-time one-time
:call-back-script mouse-event-script :call-back-script mouse-event-script
:cancel-event cancel-event :cancel-event cancel-event))
:cancel-event t))
;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;
;; set-on-mouse-enter ;; ;; set-on-mouse-enter ;;