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

fixed form image control

Browse source
This commit is contained in:
David Botton 2022-01-26 22:50:10 -05:00
parent 6e1fa03ab9
commit 3a2a09c1aa
2 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -816,6 +816,10 @@
:create-type :form
:create-param :image
:create-value ""
:setup ,(lambda (control content control-record)
(declare (ignore content) (ignore control-record))
(setf (url-src control) "/img/clogicon.png")
(setf (alt-text control) "Add image url"))
:events (,@*events-element*)
:properties (,@*props-form-element*))
`(:name "month"