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

New panel ids per instance

Browse source
This commit is contained in:
David Botton 2022-01-12 18:32:34 -05:00
parent b403951f7e
commit c91cd877e1
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

@ -47,6 +47,10 @@
:accessor copy-buf
:initform ""
:documentation "Copy buffer")
(next-panel-id
:accessor next-pannel-id
:initform 0
:documentation "Next new pannel id")
(current-placer
:accessor current-placer
:initform nil
@ -368,7 +372,7 @@
(content (center-panel box))
(next-id 0)
(in-simulation nil)
(panel-name (format nil "panel-~A" (clog-connection:generate-id)))
(panel-name (format nil "panel-~A" (incf (next-pannel-id app))))
(file-name ".")
control-list
placer-list)