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

Merge pull request #384 from owen-radcliffe/prevent-default-context-menu

Browse source 
cancel event issue
This commit is contained in:
David Botton 2024-09-18 17:23:30 -04:00 • committed by GitHub
commit 7d885dcf48
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
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."))
(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 ;;