mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -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-type :form
:create-param :image :create-param :image
:create-value "" :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*) :events (,@*events-element*)
:properties (,@*props-form-element*)) :properties (,@*props-form-element*))
`(:name "month" `(:name "month"

3
tools/clog-builder.lisp
View file

@ -477,6 +477,9 @@ not a temporary attached one when using select-control."
(td2 (if (second item) (td2 (if (second item)
(create-table-column tr :content (second item)) (create-table-column tr :content (second item))
(create-table-column tr)))) (create-table-column tr))))
(setf (width td1) "30%")
(setf (width td2) "70%")
(setf (spellcheckp td2) nil)
(set-border td1 "1px" :dotted :black) (set-border td1 "1px" :dotted :black)
(cond ((third item) (cond ((third item)
(unless (eq (third item) :read-only) (unless (eq (third item) :read-only)