From c91cd877e12eaf1cdde8d680dcf43d95ab1b9c57 Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Wed, 12 Jan 2022 18:32:34 -0500
Subject: [PATCH] New panel ids per instance

---
 tools/clog-builder.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp
index 2d554e8..7501bca 100644
--- a/tools/clog-builder.lisp
+++ b/tools/clog-builder.lisp
@@ -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)