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

handle mix and norm if no windows present

Browse source
This commit is contained in:
David Botton 2024-01-31 18:36:34 -05:00
parent ceca69e584
commit 7ad4305a03
2 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tutorial/22-tutorial.lisp
View file

@ -119,10 +119,12 @@
(declare (ignore obj))()))))
(defun on-maximize-window (obj)
(window-maximize (current-window obj)))
(when (current-window obj)
(window-maximize (current-window obj))))
(defun on-normalize-window (obj)
(window-normalize (current-window obj)))
(when (current-window obj)
(window-normalize (current-window obj))))
(defun on-new-window (body)
(setf (title (html-document body)) "Tutorial 22")