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

Correct textarea issues

Browse source
This commit is contained in:
David Botton 2022-01-23 13:41:18 -05:00
parent a27c1aae85
commit 2810f2c246
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tools/clog-builder.lisp
View file

@ -122,6 +122,10 @@
(getf control-record :create-param)
:html-id uid
:value (getf control-record :create-value)))
((eq create-type :textarea)
(funcall (getf control-record :create) parent
:html-id uid
:value (getf control-record :create-value)))
(t nil))))
(when control
(setf (attribute control "data-clog-type") control-type-name)