mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-02-06 07:42:01 -08:00
Code Issues Projects Releases Wiki Activity

add standard clog creation options

Browse source
This commit is contained in:
David Botton 2022-02-03 23:53:19 -05:00
parent 7cefbc9282
commit f36befd943
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.lisp
View file

@ -813,8 +813,9 @@ of controls and double click to select control."
"\(in-package \"~A\"\)
\(defclass ~A \(clog:clog-div\)
\(~{~A~}\)\)
\(defun create-~A \(clog-obj\)
\(let \(\(panel \(change-class \(clog:create-div clog-obj :content \"~A\"\) \'~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\"
:hidden hidden :class class :html-id html-id :auto-place auto-place\) \'~A\)\)\)
~{~A~}~{~A~} panel\)\)"
(string-upcase package)
cname ;;defclass