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

Better handling of maximizing windows and reorientation of browser

Browse source
This commit is contained in:
David Botton 2024-01-29 22:12:43 -05:00
parent dc5693a6d4
commit 57c153f292
4 changed files with 56 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tutorial/22-tutorial.lisp
View file

@ -118,6 +118,12 @@
(set-on-window-can-size about (lambda (obj)
(declare (ignore obj))()))))
(defun on-maximize-window (obj)
(window-maximize (current-window obj)))
(defun on-normalize-window (obj)
(window-normalize (current-window obj)))
(defun on-new-window (body)
(setf (title (html-document body)) "Tutorial 22")
;; For web oriented apps consider using the :client-movement option.
@ -133,6 +139,8 @@
(tmp (create-gui-menu-item file :content "Movie" :on-click 'on-file-movies))
(tmp (create-gui-menu-item file :content "Pinned" :on-click 'on-file-pinned))
(win (create-gui-menu-drop-down menu :content "Window"))
(tmp (create-gui-menu-item win :content "Maximize" :on-click 'on-maximize-window))
(tmp (create-gui-menu-item win :content "Normalize" :on-click 'on-normalize-window))
(tmp (create-gui-menu-item win :content "Maximize All" :on-click 'maximize-all-windows))
(tmp (create-gui-menu-item win :content "Normalize All" :on-click 'normalize-all-windows))
(tmp (create-gui-menu-window-select win))