mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-03-03 04:11:49 -08:00
Code Issues Projects Releases Wiki Activity

improve form element type drop down

Browse source
This commit is contained in:
David Botton 2022-09-14 17:39:05 -04:00
parent 09aa23bac8
commit 55a9e112e7
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -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))