mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

on-input added, on-create/setup before other events

Browse source
This commit is contained in:
David Botton 2022-07-17 16:11:24 -04:00
parent 6bf8860b94
commit f9143f9111
6 changed files with 54 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

11
source/clog-base.lisp
View file

@ -614,6 +614,17 @@ is nil unbind the event."))
(defmethod set-on-change ((obj clog-obj) handler)
(set-on-event obj "change" handler))
;;;;;;;;;;;;;;;;;;
;; set-on-input ;;
;;;;;;;;;;;;;;;;;;
(defgeneric set-on-input (clog-obj on-input-handler)
(:documentation "Set the ON-INPUT-HANDLER for CLOG-OBJ. If ON-INPUT-HANDLER
is nil unbind the event."))
(defmethod set-on-input ((obj clog-obj) handler)
(set-on-event obj "input" handler))
;;;;;;;;;;;;;;;;;;;;;;;
;; set-on-drag-start ;;
;;;;;;;;;;;;;;;;;;;;;;;