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

clog-panels are now base class of builder panels

Browse source
This commit is contained in:
David Botton 2022-02-17 19:59:52 -05:00
parent 9b4ed6f74e
commit f916f268fb
3 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tools/clog-builder.lisp
View file

@ -573,7 +573,7 @@ not a temporary attached one when using select-control."
(get-control-list app panel-id))
(let ((result (format nil
"\(in-package \"~A\"\)
\(defclass ~A \(clog:clog-div\)
\(defclass ~A \(clog:clog-panel\)
\(~{~A~}\)\)
\(defun create-~A \(clog-obj &key \(hidden nil\) \(class nil\) \(html-id nil\) \(auto-place t\)\)
\(let \(\(panel \(change-class \(clog:create-div clog-obj :content \"~A\"