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

tweaks to element

Browse source
This commit is contained in:
David Botton 2022-01-31 19:56:02 -05:00
parent 9e91caeec5
commit 03213a1154
2 changed files with 18 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

18
tools/clog-builder-settings.lisp
View file

@ -106,6 +106,20 @@
(left control)))
:set ,(lambda (control obj)
(setf (left control) (text obj))))
(:name "bottom"
:get ,(lambda (control)
(if (equal (positioning control) "static")
"n/a"
(bottom control)))
:set ,(lambda (control obj)
(setf (bottom control) (text obj))))
(:name "right"
:get ,(lambda (control)
(if (equal (positioning control) "static")
"n/a"
(right control)))
:set ,(lambda (control obj)
(setf (right control) (text obj))))
(:name "positioning"
:setup ,(lambda (control td1 td2)
(declare (ignore td1))
@ -365,8 +379,8 @@
,@*props-text*
,@*props-css*
,@*props-colors*
,@*props-base*
,@*props-nav*))
,@*props-nav*
,@*props-contents*))
(defparameter *props-form-element*
`(,@*props-location*