mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

expand width to fill size of control pallete

Browse source
This commit is contained in:
David Botton 2022-01-23 19:01:40 -05:00
parent 9c70997da7
commit bd85479bd8
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tools/clog-builder.lisp
View file

@ -610,7 +610,7 @@ of controls and double click to select control."
(set-on-window-close win (lambda (obj) (setf (control-pallete-win app) nil)))
(setf (positioning control-list) :absolute)
(setf (size control-list) 2)
(set-geometry control-list :left 0 :top 0 :bottom 0 :width 190)
(set-geometry control-list :units "" :left 0 :top 0 :bottom 0 :width "100%")
(setf (advisory-title control-list) (format nil "<ctrl> place static~%<shift> child to selected"))
(setf (select-tool app) control-list)
(dolist (control *supported-controls*)