mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-24 21:40:56 -08:00
Code Issues Projects Releases Wiki Activity

pinning keep-on-top optional

Browse source
This commit is contained in:
David Botton 2021-02-21 12:05:32 -05:00
parent 9bf04093e1
commit 9bea142c58
2 changed files with 28 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

11
tutorial/22-tutorial.lisp
View file

@ -44,11 +44,12 @@
(defun on-file-pinned (obj)
(let ((win (create-gui-window obj :title "Pin me!"
:has-pinner t
:top 200
:left 0
:width 200
:height 200)))
:has-pinner t
:keep-on-top t
:top 200
:left 0
:width 200
:height 200)))
(create-div win :content "I can be pinned. Just click the pin on window bar.")))
(defun on-dlg-alert (obj)