mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-02 23:33:44 -08:00
Code Issues Projects Releases Wiki Activity

project tree controls

Browse source
This commit is contained in:
David Botton 2024-05-05 20:55:54 -04:00
parent 358b4b1309
commit 7a3f0ddace
9 changed files with 135 additions and 70 deletions
Download patch file Download diff file Expand all files Collapse all files

5
tools/clog-builder-control-list.lisp
View file

@ -46,7 +46,10 @@
(unless (controls-win app)
(let* ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*)
(win (create-gui-window obj :title "Controls" :has-pinner t :width 220))
(win (create-gui-window obj :title "Controls"
:has-pinner t
:keep-on-top t
:width 220))
(content (window-content win))
(sheight (floor (/ (height content) 2)))
(swidth (floor (width content)))