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

Prevent a keep-on-top from maximizing from window-select

Browse source
This commit is contained in:
David Botton 2021-02-16 22:51:35 -05:00
parent c9ceaee673
commit a8c0b8fc4f
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
clog-gui.lisp
View file

@ -299,7 +299,8 @@ with open windows and maximizes them. Only one instance allowed."))
(set-on-change window-select (lambda (obj) (set-on-change window-select (lambda (obj)
(let ((win (gethash (value obj) (windows app)))) (let ((win (gethash (value obj) (windows app))))
(when win (when win
(window-maximize win))))) (unless (keep-on-top win)
(window-maximize win))))))
(create-option window-select :content "Select Window") (create-option window-select :content "Select Window")
window-select)) window-select))

2
tutorial/22-tutorial.lisp
View file

@ -49,7 +49,7 @@
(set-on-window-can-close win #'can-do) (set-on-window-can-close win #'can-do)
(set-on-window-can-move win #'can-do) (set-on-window-can-move win #'can-do)
(set-on-window-can-size win #'can-do)) (set-on-window-can-size win #'can-do))
(window-keep-on-top win)
(create-div win :content "I am pinned"))) (create-div win :content "I am pinned")))
(defun on-help-about (body) (defun on-help-about (body)