mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-03 15:53:13 -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-properties.lisp
View file

@ -6,7 +6,10 @@
(unless (control-properties-win app)
(let* ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*)
(win (create-gui-window obj :title "Properties" :has-pinner t :width 400))
(win (create-gui-window obj :title "Properties"
:has-pinner t
:keep-on-top t
:width 400))
(content (window-content win))
(control-list (create-table content)))
(add-class content *builder-pallete-class*)