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

Document :key

Browse source
This commit is contained in:
David Botton 2021-03-06 22:33:55 -05:00
parent 8659b31f71
commit 3f695ef471
2 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
source/clog-base.lisp
View file

@ -1053,8 +1053,8 @@ ON-TOUCH-CANCEL-HANDLER is nil unbind the event."))
(defgeneric set-on-character (clog-obj on-character-handler &key one-time)
(:documentation "Set the ON-CHARACTER-HANDLER for CLOG-OBJ. If
ON-CHARACTER-HANDLER is nil unbind the event. Setting this event
will replace a on-key-down"))
ON-CHARACTER-HANDLER is nil unbind the event. Setting this event to
nil will unbind on-key-press also."))
(defmethod set-on-character ((obj clog-obj) handler &key (one-time nil))
(set-event obj "keypress"