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

handle custom properties

Browse source
This commit is contained in:
David Botton 2022-01-20 12:11:57 -05:00
parent de508237b2
commit e936f6116c
2 changed files with 46 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -24,10 +24,21 @@
"n/a"
(left control)))
:set ,(lambda (control obj)
(setf (top control) (text obj))))
(setf (left control) (text obj))))
(:name "positioning"
:style "position")))
:setup ,(lambda (control td1 td2)
(declare (ignore td1))
(let ((dd (create-form-element td2 :text :value (positioning control))))
(make-data-list dd '("absolute"
"static"))
(set-on-blur dd (lambda (obj)
(declare (ignore obj))
(setf (positioning control) (value dd))
(set-geometry (get-placer control)
:top (position-top control)
:left (position-left control)
:width (client-width control)
:height (client-height control)))))))))
(defparameter *props-wh*
'((:name "width"
:setf clog:width)