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

tweak tab behavior

Browse source
This commit is contained in:
David Botton 2022-09-12 23:59:45 -04:00
parent d585e7db2a
commit 7e9dfb9038
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tools/clog-builder.lisp
View file

@ -976,6 +976,7 @@ not a temporary attached one when using select-control."
(panel-id (attribute placer "data-panel-id")) (panel-id (attribute placer "data-panel-id"))
(panel (attach-as-child obj panel-id))) (panel (attach-as-child obj panel-id)))
(maphash (lambda (k v) (maphash (lambda (k v)
(declare (ignore k))
(let ((n (attribute v "data-clog-name")) (let ((n (attribute v "data-clog-name"))
(p (attribute (parent-element v) "data-clog-name"))) (p (attribute (parent-element v) "data-clog-name")))
(unless (or (equal cname n) (unless (or (equal cname n)
@ -986,8 +987,10 @@ not a temporary attached one when using select-control."
(push (push
`("parent" nil `("parent" nil
,(lambda (control td1 td2) ,(lambda (control td1 td2)
(declare (ignore td1))
(let ((dd (create-select td2)) (let ((dd (create-select td2))
(v (attribute (parent-element control) "data-clog-name"))) (v (attribute (parent-element control) "data-clog-name")))
(setf (width dd) "100%")
(add-select-options dd panel-controls) (add-select-options dd panel-controls)
(setf (value dd) v) (setf (value dd) v)
(set-on-change dd (set-on-change dd
@ -1000,7 +1003,8 @@ not a temporary attached one when using select-control."
(value obj)))) (value obj))))
control) control)
(place-after control placer) (place-after control placer)
(on-populate-control-list-win panel :win win))))) (on-populate-control-list-win panel :win win))))
nil)
nil) nil)
props) props)
(push (push