mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-30 12:23:00 -08:00
Code Issues Projects Releases Wiki Activity

Comments on movement and some generic event support.

Browse source
This commit is contained in:
David Botton 2021-02-12 17:17:24 -05:00
parent 7e8a2439bf
commit b2bd398c17
2 changed files with 17 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

15
clog-base.lisp
View file

@ -442,6 +442,21 @@ for internal use of clog."))
(bordeaux-threads:with-lock-held ((connection-data-mutex obj))
(remhash item-name (connection-data obj))))
;;;;;;;;;;;;;;;;;;
;; set-on-event ;;
;;;;;;;;;;;;;;;;;;
(defgeneric set-on-event (clog-obj event-name on-resize-handler)
(:documentation "Set a generic event for CLOG-OBJ. (Private)"))
(defmethod set-on-event ((obj clog-obj) event-name handler)
(set-event obj event-name
(when handler
(lambda (data)
(declare (ignore data))
(funcall handler obj)))))
;;;;;;;;;;;;;;;;;;;
;; set-on-resize ;;
;;;;;;;;;;;;;;;;;;;

3
clog-gui.lisp
View file

@ -369,7 +369,8 @@ The on-window-change clog-obj received is the new window"))
client-movement
html-id)
(:documentation "Create a clog-gui-window. If client-movement is t then
use jquery-ui to move/resize."))
use jquery-ui to move/resize. When client-movement is t no events will
be fired for size or movement of window that window."))
(defmethod create-gui-window ((obj clog-obj) &key (title "New Window")
(content "")