mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-09 04:10:26 -08:00
Code Issues Projects Releases Wiki Activity

unique id per instance with generated code

Browse source
This commit is contained in:
David Botton 2022-01-26 18:43:52 -05:00
parent e78864a6af
commit 83fa7e7f00
2 changed files with 18 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

3
tools/clog-builder.lisp
View file

@ -778,7 +778,8 @@ of controls and double click to select control."
vname)
cmembers)
(push (format nil
"\(setf (slot-value panel '~A\) \(attach-as-child clog-obj \"~A\" :clog-type \'~A\)\)~%"
"\(setf (slot-value panel '~A\) ~
\(attach-as-child clog-obj \"~A\" :clog-type \'~A\ :new-id t)\)~%"
vname
html-id
(format nil "CLOG:~A" (type-of control)))