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

Added has-pin option on title bar

Browse source
This commit is contained in:
David Botton 2021-02-19 14:29:54 -05:00
parent 90aa969fd1
commit 19adb38982
2 changed files with 33 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

14
tutorial/22-tutorial.lisp
View file

@ -43,17 +43,13 @@
(setf (box-height movie) "100%")))
(defun on-file-pinned (obj)
(let ((win (create-gui-window obj :title "Pinned"
(let ((win (create-gui-window obj :title "Pin me!"
:has-pinner t
:top 200
:left 0
:width 100
:height 100)))
(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")))
:width 200
:height 200)))
(create-div win :content "I can be pinned. Just click the pin on window bar.")))
(defun on-dlg-alert (obj)
(alert-dialog obj "This is a modal alert box"))