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

can-maximize and normalize

Browse source
This commit is contained in:
David Botton 2021-02-19 00:50:42 -05:00
parent 2fbd4c3cf6
commit d7dec03f6c
2 changed files with 81 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

7
tutorial/22-tutorial.lisp
View file

@ -48,9 +48,10 @@
:left 0
:width 100
:height 100)))
(flet ((can-do (obj)(declare (ignore obj))()))
(set-on-window-can-close win #'can-do)
(set-on-window-can-size win #'can-do))
(flet ((can-not-do (obj)(declare (ignore obj))()))
(set-on-window-can-maximize win #'can-not-do)
(set-on-window-can-close win #'can-not-do)
(set-on-window-can-size win #'can-not-do))
(window-keep-on-top win)
(create-div win :content "I am pinned")))