From 2810f2c2467d4864a9a8ef891587e9733b3dae88 Mon Sep 17 00:00:00 2001 From: David Botton Date: Sun, 23 Jan 2022 13:41:18 -0500 Subject: [PATCH] Correct textarea issues --- tools/clog-builder-settings.lisp | 6 +++--- tools/clog-builder.lisp | 4 ++++ 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/tools/clog-builder-settings.lisp b/tools/clog-builder-settings.lisp index 98767ce..d85cf86 100644 --- a/tools/clog-builder-settings.lisp +++ b/tools/clog-builder-settings.lisp @@ -432,15 +432,15 @@ :description "Text Area" :clog-type clog:clog-text-area :create clog:create-text-area - :create-type :element - :create-content "" + :create-type :textarea + :create-value "" :properties ((:name "rows" :prop "rows") (:name "columns" :prop "columns") (:name "word wrap" :prop "wrap") - ,@*props-element*)) + ,@*props-form-element*)) `(:name "dropdown" :description "Drop down select" :clog-type clog:clog-select diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index de5669d..eb6e909 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -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)