make systems dialog resizable

tools/panel-systems.clog

@@ -1,14 +1,51 @@
-<data id="I3920366784" data-in-package="clog-tools" data-custom-slots="" data-clog-next-id="21" data-clog-title="asdf-systems"></data><label for="CLOGB38680930412" data-clog-type="label" data-clog-for="loaded-systems" data-clog-name="sys-label" style="box-sizing: content-box; position: absolute; left: 10px; top: 8px;">Loaded Systems:</label><select data-clog-type="listbox" size="4" data-clog-name="loaded-systems" style="box-sizing: content-box; position: absolute; left: 10px; top: 38px; width: 239.716px; height: 261.341px;" data-on-change="(asdf-browser-populate panel)" data-on-create="(asdf-browser-reset panel)"></select><label for="CLOGB38680988074" data-clog-type="label" data-clog-for="deps" data-clog-name="deps-label" style="box-sizing: content-box; position: absolute; left: 265px; top: 8px; width: 281.814px; height: 22.5px;" class="">Depends On: (double click to switch)</label><select data-clog-type="listbox" size="4" data-clog-name="deps" style="box-sizing: content-box; position: absolute; left: 265px; top: 39.9858px; width: 310.361px; height: 76.3494px;" data-on-double-click="(setf (text-value (loaded-systems panel))
+<data id="I3928758297" data-in-package="clog-tools" data-custom-slots="" data-clog-next-id="23" data-clog-title="asdf-systems"></data>
+<div id="CLOG97061" data-clog-type="grid" data-clog-name="sysgrid" style="display: grid; box-sizing: content-box; position: absolute; grid-template-areas: &quot;l1 l2&quot; &quot;d1 d2&quot; &quot;d1 l3&quot; &quot;d1 d3&quot; &quot;l4 l5&quot; &quot;lo lo&quot; &quot;ba ba&quot;; gap: 5px; grid-area: ba; inset: 5px; grid-auto-columns: auto;">
+  <label for="CLOG97059" data-clog-type="label" data-clog-for="loaded-systems" data-clog-name="sys-label" style="box-sizing: content-box; position: static; grid-area: l1;" id="CLOG97060">Loaded Systems:
+  </label>
+  <select data-clog-type="listbox" size="4" data-clog-name="loaded-systems" style="box-sizing: content-box; position: static; grid-area: d1;" data-on-change="(asdf-browser-populate panel)" data-on-create="(asdf-browser-reset panel)" id="CLOG97059">
+  </select>
+  <label for="CLOG97057" data-clog-type="label" data-clog-for="deps" data-clog-name="deps-label" style="box-sizing: content-box; position: static; width: 281.814px; height: 22.5px; grid-area: l2;" class="" id="CLOG97058">Depends On: (double click to switch)
+  </label>
+  <select data-clog-type="listbox" size="4" data-clog-name="deps" style="box-sizing: content-box; position: static; height: 76.3494px; grid-area: d2;" data-on-double-click="(setf (text-value (loaded-systems panel))
       (text-value target))
-(asdf-browser-populate panel)"></select><label for="" data-clog-type="label" data-clog-for="" data-clog-name="files-label" style="box-sizing: content-box; position: absolute; left: 265px; top: 124px; width: 236.104px; height: 21.4986px;">Files: (double click to launch)</label><select data-clog-type="listbox" size="4" data-clog-name="files" style="box-sizing: content-box; position: absolute; left: 265px; top: 151px; width: 311.562px; height: 146.932px;" data-on-double-click="(asdf-files-double-click panel target)"></select><input type="TEXT" value="" data-clog-type="input" data-clog-name="source-file" style="box-sizing: content-box; position: absolute; left: 10px; top: 332px; width: 560.727px; height: 22.5px;" data-on-double-click="(on-open-file panel :open-file (text-value target))"><div data-clog-type="div" data-clog-name="button-panel" style="box-sizing: content-box; position: absolute; left: 1.0015px; top: 368.991px; width: 572.898px; height: 32.4844px;"><button data-clog-type="button" data-clog-name="reset-list-button" style="box-sizing: content-box; position: absolute; left: 10px; top: 0px; width: 85px; height: 22px;" data-on-click="(asdf-browser-reset panel)">Reset List</button><button data-clog-type="button" data-clog-name="load-new-button" style="box-sizing: content-box; position: absolute; left: 127px; top: 0px; width: 85px; height: 22px;" class="" data-on-click="(clog-gui:input-dialog panel &quot;Load New System:&quot;
+      (asdf-browser-populate panel)" id="CLOG97057">
+  </select>
+  <label for="" data-clog-type="label" data-clog-for="" data-clog-name="files-label" style="box-sizing: content-box; position: static; width: 236.104px; height: 21.4986px; grid-area: l3;" id="CLOG97056">Files: (double click to launch)
+  </label>
+  <select data-clog-type="listbox" size="4" data-clog-name="files" style="box-sizing: content-box; position: static; grid-area: d3;" data-on-double-click="(asdf-files-double-click panel target)" id="CLOG97055">
+  </select>
+  <label for="" data-clog-type="label" data-clog-for="" data-clog-name="asd-label" style="box-sizing: content-box; position: static;" id="CLOG97054">ASD Project: (double click to edit)
+  </label>
+  <div id="CLOG97053" data-clog-type="grid" data-clog-name="check-grid" style="width: 309.987px; height: 9.9905px; display: grid; box-sizing: content-box; position: static; left: 503.996px; top: 208px; grid-template-areas: &quot;c1 l1 c2 l2&quot;; grid-area: l5;">
+    <input type="CHECKBOX" value="" data-clog-type="checkbox" data-clog-name="ext-open-source" style="box-sizing: content-box; position: static;" id="CLOG97052">
+      <label for="CLOG97052" data-clog-type="label" data-clog-for="ext-open-source" data-clog-name="ext-open-source-label" style="box-sizing: content-box; position: static;" id="CLOG97051">open external
+      </label>
+      <input type="CHECKBOX" value="" data-clog-type="checkbox" data-clog-name="pop-open-clog" style="box-sizing: content-box; position: static;" id="CLOG97050">
+	<label for="CLOG97049" data-clog-type="label" data-clog-for="pop-open-clog-label" data-clog-name="pop-open-clog-label" style="box-sizing: content-box; position: static;" id="CLOG97049">popup panels
+	</label>
+  </div>
+  <input type="TEXT" value="" data-clog-type="input" data-clog-name="source-file" style="box-sizing: content-box; position: static; grid-area: lo; left: 0px; right: 0px;" data-on-double-click="(on-open-file panel :open-file (text-value target))" id="CLOG97048">
+    <div data-clog-type="div" data-clog-name="button-panel" style="box-sizing: content-box; position: static; width: 100%; height: 32.4844px; right: 90.0758px; grid-area: ba; display: grid; grid-auto-flow: column; justify-items: normal; column-gap: 5px;" id="CLOG97047">
+      <button data-clog-type="button" data-clog-name="reset-list-button" style="box-sizing: content-box; position: static;" data-on-click="(asdf-browser-reset panel)" id="CLOG97046">Reset List
+      </button>
+      <button data-clog-type="button" data-clog-name="load-new-button" style="box-sizing: content-box; position: static;" class="" data-on-click="(clog-gui:input-dialog panel &quot;Load New System:&quot;
                        (lambda (fname)
                          (projects-load fname)
                          (asdf-browser-reset panel)
                          (setf (text-value (loaded-systems panel)) fname)
                          (asdf-browser-populate panel))
                        :title &quot;Quickload&quot;)
-">Load New</button><button data-clog-type="button" data-clog-name="reload-button" style="box-sizing: content-box; position: absolute; left: 243px; top: 0px; width: 85px; height: 22px;" data-on-click="(let ((fname (text-value (loaded-systems panel))))
+		       " id="CLOG97045">Load New
+      </button>
+      <button data-clog-type="button" data-clog-name="reload-button" style="box-sizing: content-box; position: static;" data-on-click="(let ((fname (text-value (loaded-systems panel))))
   (projects-load fname)
   (setf (text-value (loaded-systems panel)) fname)
   (asdf-browser-populate panel))
-">Reload</button><button data-clog-type="button" data-clog-name="remove-button" style="box-sizing: content-box; position: absolute; left: 360px; top: 0px; width: 85px; height: 22px;" data-on-click="">Unload</button><button data-clog-type="button" data-clog-name="dir-button" style="box-sizing: content-box; position: absolute; left: 477px; top: 0px; width: 85px;" data-on-click="(on-dir-tree panel :dir (asdf:system-source-directory (text-value (loaded-systems panel))))">View Dir</button></div><label for="" data-clog-type="label" data-clog-for="" data-clog-name="asd-label" style="box-sizing: content-box; position: absolute; left: 10px; top: 304.996px;">ASD Project: (double click to edit)</label><input type="CHECKBOX" value="" data-clog-type="checkbox" data-clog-name="ext-open-source" style="box-sizing: content-box; position: absolute; left: 292px; top: 308px;"><label for="CLOGB392036561317" data-clog-type="label" data-clog-for="ext-open-source" data-clog-name="ext-open-source-label" style="box-sizing: content-box; position: absolute; left: 310px; top: 302px;">open external</label><input type="CHECKBOX" value="" data-clog-type="checkbox" data-clog-name="pop-open-clog" style="box-sizing: content-box; position: absolute; left: 426px; top: 308px;"><label for="undefined" data-clog-type="label" data-clog-for="pop-open-clog-label" data-clog-name="pop-open-clog-label" style="box-sizing: content-box; position: absolute; left: 445px; top: 302px;">popup panels</label>
+  " id="CLOG97044">Reload
+      </button>
+      <button data-clog-type="button" data-clog-name="remove-button" style="box-sizing: content-box; position: static;" data-on-click="" id="CLOG97043">Unload
+      </button>
+      <button data-clog-type="button" data-clog-name="dir-button" style="box-sizing: content-box; position: static;" data-on-click="(on-dir-tree panel :dir (asdf:system-source-directory (text-value (loaded-systems panel))))" id="CLOG97042">View Dir
+      </button>
+    </div>
+</div>

tools/panel-systems.lisp

@@ -1,84 +1,128 @@
 ;;;; CLOG Builder generated code - modify original .clog file and rerender
 (in-package :clog-tools)
 (defclass asdf-systems (clog:clog-panel)
-          ((pop-open-clog-label :reader pop-open-clog-label)
+          ((dir-button :reader dir-button)
-           (pop-open-clog :reader pop-open-clog)
-           (ext-open-source-label :reader ext-open-source-label)
-           (ext-open-source :reader ext-open-source)
-           (asd-label :reader asd-label) (dir-button :reader dir-button)
            (remove-button :reader remove-button)
            (reload-button :reader reload-button)
            (load-new-button :reader load-new-button)
            (reset-list-button :reader reset-list-button)
            (button-panel :reader button-panel)
-           (source-file :reader source-file) (files :reader files)
+           (source-file :reader source-file)
-           (files-label :reader files-label) (deps :reader deps)
+           (pop-open-clog-label :reader pop-open-clog-label)
-           (deps-label :reader deps-label)
+           (pop-open-clog :reader pop-open-clog)
+           (ext-open-source-label :reader ext-open-source-label)
+           (ext-open-source :reader ext-open-source)
+           (check-grid :reader check-grid) (asd-label :reader asd-label)
+           (files :reader files) (files-label :reader files-label)
+           (deps :reader deps) (deps-label :reader deps-label)
            (loaded-systems :reader loaded-systems)
-           (sys-label :reader sys-label)))
+           (sys-label :reader sys-label) (sysgrid :reader sysgrid)))
 (defun create-asdf-systems
        (clog-obj &key (hidden nil) (class nil) (html-id nil) (auto-place t))
   (let ((panel
          (change-class
-          (clog:create-div clog-obj :content
+          (clog:create-div clog-obj :content "
-                           "<label for=\"CLOGB38680930412\" style=\"box-sizing: content-box; position: absolute; left: 10px; top: 8px;\" id=\"CLOGB3920365575\" data-clog-name=\"sys-label\">Loaded Systems:</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 10px; top: 38px; width: 239.716px; height: 261.341px;\" id=\"CLOGB3920365576\" data-clog-name=\"loaded-systems\"></select><label for=\"CLOGB38680988074\" style=\"box-sizing: content-box; position: absolute; left: 265px; top: 8px; width: 281.814px; height: 22.5px;\" class=\"\" id=\"CLOGB3920365577\" data-clog-name=\"deps-label\">Depends On: (double click to switch)</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 265px; top: 39.9858px; width: 310.361px; height: 76.3494px;\" id=\"CLOGB3920365578\" data-clog-name=\"deps\"></select><label for=\"\" style=\"box-sizing: content-box; position: absolute; left: 265px; top: 124px; width: 236.104px; height: 21.4986px;\" id=\"CLOGB3920365579\" data-clog-name=\"files-label\">Files: (double click to launch)</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 265px; top: 151px; width: 311.562px; height: 146.932px;\" id=\"CLOGB3920365580\" data-clog-name=\"files\"></select><input type=\"TEXT\" value=\"\" style=\"box-sizing: content-box; position: absolute; left: 10px; top: 332px; width: 560.727px; height: 22.5px;\" id=\"CLOGB3920365581\" data-clog-name=\"source-file\"><div style=\"box-sizing: content-box; position: absolute; left: 1.0015px; top: 368.991px; width: 572.898px; height: 32.4844px;\" id=\"CLOGB3920365582\" data-clog-name=\"button-panel\"><button style=\"box-sizing: content-box; position: absolute; left: 10px; top: 0px; width: 85px; height: 22px;\" id=\"CLOGB3920365583\" data-clog-name=\"reset-list-button\">Reset List</button><button style=\"box-sizing: content-box; position: absolute; left: 127px; top: 0px; width: 85px; height: 22px;\" class=\"\" id=\"CLOGB3920365584\" data-clog-name=\"load-new-button\">Load New</button><button style=\"box-sizing: content-box; position: absolute; left: 243px; top: 0px; width: 85px; height: 22px;\" id=\"CLOGB3920365585\" data-clog-name=\"reload-button\">Reload</button><button style=\"box-sizing: content-box; position: absolute; left: 360px; top: 0px; width: 85px; height: 22px;\" id=\"CLOGB3920365586\" data-clog-name=\"remove-button\">Unload</button><button style=\"box-sizing: content-box; position: absolute; left: 477px; top: 0px; width: 85px;\" id=\"CLOGB3920365587\" data-clog-name=\"dir-button\">View Dir</button></div><label for=\"\" style=\"box-sizing: content-box; position: absolute; left: 10px; top: 304.996px;\" id=\"CLOGB3920365588\" data-clog-name=\"asd-label\">ASD Project: (double click to edit)</label><input type=\"CHECKBOX\" value=\"\" id=\"CLOGB392036561317\" style=\"box-sizing: content-box; position: absolute; left: 292px; top: 308px;\" data-clog-name=\"ext-open-source\"><label for=\"CLOGB392036561317\" id=\"CLOGB392036564519\" style=\"box-sizing: content-box; position: absolute; left: 310px; top: 302px;\" data-clog-name=\"ext-open-source-label\">open external</label><input type=\"CHECKBOX\" value=\"\" id=\"CLOGB392036562618\" style=\"box-sizing: content-box; position: absolute; left: 426px; top: 308px;\" data-clog-name=\"pop-open-clog\"><label for=\"undefined\" id=\"CLOGB392036565720\" style=\"box-sizing: content-box; position: absolute; left: 445px; top: 302px;\" data-clog-name=\"pop-open-clog-label\">popup panels</label>"
+<div id=\"CLOG97061\" style=\"display: grid; box-sizing: content-box; position: absolute; grid-template-areas: &quot;l1 l2&quot; &quot;d1 d2&quot; &quot;d1 l3&quot; &quot;d1 d3&quot; &quot;l4 l5&quot; &quot;lo lo&quot; &quot;ba ba&quot;; gap: 5px; grid-area: ba; inset: 5px; grid-auto-columns: auto;\" data-clog-name=\"sysgrid\">
+  <label for=\"CLOG97059\" style=\"box-sizing: content-box; position: static; grid-area: l1;\" id=\"CLOG97060\" data-clog-name=\"sys-label\">Loaded Systems:
+  </label>
+  <select size=\"4\" style=\"box-sizing: content-box; position: static; grid-area: d1;\" id=\"CLOG97059\" data-clog-name=\"loaded-systems\">
+  </select>
+  <label for=\"CLOG97057\" style=\"box-sizing: content-box; position: static; width: 281.814px; height: 22.5px; grid-area: l2;\" class=\"\" id=\"CLOG97058\" data-clog-name=\"deps-label\">Depends On: (double click to switch)
+  </label>
+  <select size=\"4\" style=\"box-sizing: content-box; position: static; height: 76.3494px; grid-area: d2;\" id=\"CLOG97057\" data-clog-name=\"deps\">
+  </select>
+  <label for=\"\" style=\"box-sizing: content-box; position: static; width: 236.104px; height: 21.4986px; grid-area: l3;\" id=\"CLOG97056\" data-clog-name=\"files-label\">Files: (double click to launch)
+  </label>
+  <select size=\"4\" style=\"box-sizing: content-box; position: static; grid-area: d3;\" id=\"CLOG97055\" data-clog-name=\"files\">
+  </select>
+  <label for=\"\" style=\"box-sizing: content-box; position: static;\" id=\"CLOG97054\" data-clog-name=\"asd-label\">ASD Project: (double click to edit)
+  </label>
+  <div id=\"CLOG97053\" style=\"width: 309.987px; height: 9.9905px; display: grid; box-sizing: content-box; position: static; left: 503.996px; top: 208px; grid-template-areas: &quot;c1 l1 c2 l2&quot;; grid-area: l5;\" data-clog-name=\"check-grid\">
+    <input type=\"CHECKBOX\" value=\"\" style=\"box-sizing: content-box; position: static;\" id=\"CLOG97052\" data-clog-name=\"ext-open-source\">
+      <label for=\"CLOG97052\" style=\"box-sizing: content-box; position: static;\" id=\"CLOG97051\" data-clog-name=\"ext-open-source-label\">open external
+      </label>
+      <input type=\"CHECKBOX\" value=\"\" style=\"box-sizing: content-box; position: static;\" id=\"CLOG97050\" data-clog-name=\"pop-open-clog\">
+	<label for=\"CLOG97049\" style=\"box-sizing: content-box; position: static;\" id=\"CLOG97049\" data-clog-name=\"pop-open-clog-label\">popup panels
+	</label>
+  </div>
+  <input type=\"TEXT\" value=\"\" style=\"box-sizing: content-box; position: static; grid-area: lo; left: 0px; right: 0px;\" id=\"CLOG97048\" data-clog-name=\"source-file\">
+    <div style=\"box-sizing: content-box; position: static; width: 100%; height: 32.4844px; right: 90.0758px; grid-area: ba; display: grid; grid-auto-flow: column; justify-items: normal; column-gap: 5px;\" id=\"CLOG97047\" data-clog-name=\"button-panel\">
+      <button style=\"box-sizing: content-box; position: static;\" id=\"CLOG97046\" data-clog-name=\"reset-list-button\">Reset List
+      </button>
+      <button style=\"box-sizing: content-box; position: static;\" class=\"\" id=\"CLOG97045\" data-clog-name=\"load-new-button\">Load New
+      </button>
+      <button style=\"box-sizing: content-box; position: static;\" id=\"CLOG97044\" data-clog-name=\"reload-button\">Reload
+      </button>
+      <button style=\"box-sizing: content-box; position: static;\" id=\"CLOG97043\" data-clog-name=\"remove-button\">Unload
+      </button>
+      <button style=\"box-sizing: content-box; position: static;\" id=\"CLOG97042\" data-clog-name=\"dir-button\">View Dir
+      </button>
+    </div>
+</div>
+"
                            :hidden hidden :class class :html-id html-id
                            :auto-place auto-place)
           'asdf-systems)))
+    (setf (slot-value panel 'dir-button)
+            (attach-as-child clog-obj "CLOG97042" :clog-type 'clog:clog-button
+             :new-id t))
+    (setf (slot-value panel 'remove-button)
+            (attach-as-child clog-obj "CLOG97043" :clog-type 'clog:clog-button
+             :new-id t))
+    (setf (slot-value panel 'reload-button)
+            (attach-as-child clog-obj "CLOG97044" :clog-type 'clog:clog-button
+             :new-id t))
+    (setf (slot-value panel 'load-new-button)
+            (attach-as-child clog-obj "CLOG97045" :clog-type 'clog:clog-button
+             :new-id t))
+    (setf (slot-value panel 'reset-list-button)
+            (attach-as-child clog-obj "CLOG97046" :clog-type 'clog:clog-button
+             :new-id t))
+    (setf (slot-value panel 'button-panel)
+            (attach-as-child clog-obj "CLOG97047" :clog-type 'clog:clog-div
+             :new-id t))
+    (setf (slot-value panel 'source-file)
+            (attach-as-child clog-obj "CLOG97048" :clog-type
+             'clog:clog-form-element :new-id t))
     (setf (slot-value panel 'pop-open-clog-label)
-            (attach-as-child clog-obj "CLOGB392036565720" :clog-type
+            (attach-as-child clog-obj "CLOG97049" :clog-type 'clog:clog-label
-             'clog:clog-label :new-id t))
+             :new-id t))
     (setf (slot-value panel 'pop-open-clog)
-            (attach-as-child clog-obj "CLOGB392036562618" :clog-type
+            (attach-as-child clog-obj "CLOG97050" :clog-type
              'clog:clog-form-element :new-id t))
     (setf (slot-value panel 'ext-open-source-label)
-            (attach-as-child clog-obj "CLOGB392036564519" :clog-type
+            (attach-as-child clog-obj "CLOG97051" :clog-type 'clog:clog-label
-             'clog:clog-label :new-id t))
+             :new-id t))
     (setf (slot-value panel 'ext-open-source)
-            (attach-as-child clog-obj "CLOGB392036561317" :clog-type
+            (attach-as-child clog-obj "CLOG97052" :clog-type
              'clog:clog-form-element :new-id t))
+    (setf (slot-value panel 'check-grid)
+            (attach-as-child clog-obj "CLOG97053" :clog-type 'clog:clog-div
+             :new-id t))
     (setf (slot-value panel 'asd-label)
-            (attach-as-child clog-obj "CLOGB3920365588" :clog-type
+            (attach-as-child clog-obj "CLOG97054" :clog-type 'clog:clog-label
-             'clog:clog-label :new-id t))
+             :new-id t))
-    (setf (slot-value panel 'dir-button)
-            (attach-as-child clog-obj "CLOGB3920365587" :clog-type
-             'clog:clog-button :new-id t))
-    (setf (slot-value panel 'remove-button)
-            (attach-as-child clog-obj "CLOGB3920365586" :clog-type
-             'clog:clog-button :new-id t))
-    (setf (slot-value panel 'reload-button)
-            (attach-as-child clog-obj "CLOGB3920365585" :clog-type
-             'clog:clog-button :new-id t))
-    (setf (slot-value panel 'load-new-button)
-            (attach-as-child clog-obj "CLOGB3920365584" :clog-type
-             'clog:clog-button :new-id t))
-    (setf (slot-value panel 'reset-list-button)
-            (attach-as-child clog-obj "CLOGB3920365583" :clog-type
-             'clog:clog-button :new-id t))
-    (setf (slot-value panel 'button-panel)
-            (attach-as-child clog-obj "CLOGB3920365582" :clog-type
-             'clog:clog-div :new-id t))
-    (setf (slot-value panel 'source-file)
-            (attach-as-child clog-obj "CLOGB3920365581" :clog-type
-             'clog:clog-form-element :new-id t))
     (setf (slot-value panel 'files)
-            (attach-as-child clog-obj "CLOGB3920365580" :clog-type
+            (attach-as-child clog-obj "CLOG97055" :clog-type 'clog:clog-select
-             'clog:clog-select :new-id t))
+             :new-id t))
     (setf (slot-value panel 'files-label)
-            (attach-as-child clog-obj "CLOGB3920365579" :clog-type
+            (attach-as-child clog-obj "CLOG97056" :clog-type 'clog:clog-label
-             'clog:clog-label :new-id t))
+             :new-id t))
     (setf (slot-value panel 'deps)
-            (attach-as-child clog-obj "CLOGB3920365578" :clog-type
+            (attach-as-child clog-obj "CLOG97057" :clog-type 'clog:clog-select
-             'clog:clog-select :new-id t))
+             :new-id t))
     (setf (slot-value panel 'deps-label)
-            (attach-as-child clog-obj "CLOGB3920365577" :clog-type
+            (attach-as-child clog-obj "CLOG97058" :clog-type 'clog:clog-label
-             'clog:clog-label :new-id t))
+             :new-id t))
     (setf (slot-value panel 'loaded-systems)
-            (attach-as-child clog-obj "CLOGB3920365576" :clog-type
+            (attach-as-child clog-obj "CLOG97059" :clog-type 'clog:clog-select
-             'clog:clog-select :new-id t))
+             :new-id t))
     (setf (slot-value panel 'sys-label)
-            (attach-as-child clog-obj "CLOGB3920365575" :clog-type
+            (attach-as-child clog-obj "CLOG97060" :clog-type 'clog:clog-label
-             'clog:clog-label :new-id t))
+             :new-id t))
+    (setf (slot-value panel 'sysgrid)
+            (attach-as-child clog-obj "CLOG97061" :clog-type 'clog:clog-div
+             :new-id t))
     (let ((target (sys-label panel)))
       (declare (ignorable target))
       (setf (attribute target "for")
@@ -156,6 +200,6 @@
                        (lambda (target)
                          (declare (ignorable target))
                          (on-dir-tree panel :dir
-                          (asdf:system-source-directory
+                          (asdf/system:system-source-directory
                            (text-value (loaded-systems panel))))))
-    panel))
+    panel))