mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-03 15:53:13 -08:00
Code Issues Projects Releases Wiki Activity

Handle full screen changes and maximize and orientation changes on mobile

Browse source
This commit is contained in:
David Botton 2021-02-14 20:44:35 -05:00
parent 64d7723702
commit 38f533d51e
3 changed files with 32 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

16
clog-document.lisp
View file

@ -208,3 +208,19 @@ clog-document object. (Private)"))
(defmethod new-line ((obj clog-document))
(execute obj (format nil "writeln('<\br>')")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; set-on-full-screen-change ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defgeneric set-on-full-screen-change (clog-document
on-full-screen-change-handler)
(:documentation "Set the ON-FULL-SCREEN-CHANGE-HANDLER for CLOG-OBJ.
If ON-FULL-SCREEN-CHANGE-HANDLER is nil unbind the event."))
(defmethod set-on-full-screen-change ((obj clog-document) handler)
(set-event obj "fullscreenchange"
(when handler
(lambda (data)
(declare (ignore data))
(funcall handler obj)))))