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

Update docs

Browse source 
dedupe cancel-event keys
This commit is contained in:
David Botton 2024-09-10 18:02:44 -04:00
parent 8f7ae3b507
commit 049cae60b0
3 changed files with 64 additions and 22 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."))
(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"
(when handler
(lambda (data)
(funcall handler obj (parse-mouse-event data))))
:one-time one-time
:call-back-script mouse-event-script
:cancel-event cancel-event
:cancel-event t))
:cancel-event cancel-event))
;;;;;;;;;;;;;;;;;;;;;;;;
;; set-on-mouse-enter ;;