From 55a9e112e74c94cd5e1bd7eede716307b089bc15 Mon Sep 17 00:00:00 2001 From: David Botton Date: Wed, 14 Sep 2022 17:39:05 -0400 Subject: [PATCH] improve form element type drop down --- tools/clog-builder-settings.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/tools/clog-builder-settings.lisp b/tools/clog-builder-settings.lisp index c204dda..b7a455b 100644 --- a/tools/clog-builder-settings.lisp +++ b/tools/clog-builder-settings.lisp @@ -481,13 +481,14 @@ (declare (ignore td1)) (let ((dd (create-select td2)) (v (string-downcase (attribute control "type")))) - (add-select-options dd `(,v - "button" "checkbox" "color" "date" + (add-select-options dd '("button" "checkbox" "color" "date" "datetime" "datetime-local" "email" "image" "file" "hidden" "month" "number" "password" "radio" "range" "reset" "search" "submit" "tel" "text" "time" "url" "week")) + (set-geometry dd :width "100%") + (setf (value dd) v) (set-on-change dd (lambda (obj) (declare (ignore obj)) (setf (attribute control "type") (value dd))