diff --git a/tools/panel-systems.clog b/tools/panel-systems.clog index 9876527..5e567ef 100644 --- a/tools/panel-systems.clog +++ b/tools/panel-systems.clog @@ -1,14 +1,51 @@ - + + +
+ +
+ " id="CLOG97044">Reload + + + + + diff --git a/tools/panel-systems.lisp b/tools/panel-systems.lisp index ae13a12..a93113b 100644 --- a/tools/panel-systems.lisp +++ b/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) - (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) + ((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) - (files-label :reader files-label) (deps :reader deps) - (deps-label :reader deps-label) + (source-file :reader source-file) + (pop-open-clog-label :reader pop-open-clog-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 " +
+ + + + + + + +
+ + + + +
+ +
+ + + + + +
+
+" :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 - 'clog:clog-label :new-id t)) + (attach-as-child clog-obj "CLOG97049" :clog-type 'clog:clog-label + :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 - 'clog:clog-label :new-id t)) + (attach-as-child clog-obj "CLOG97051" :clog-type 'clog:clog-label + :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 - 'clog:clog-label :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)) + (attach-as-child clog-obj "CLOG97054" :clog-type 'clog:clog-label + :new-id t)) (setf (slot-value panel 'files) - (attach-as-child clog-obj "CLOGB3920365580" :clog-type - 'clog:clog-select :new-id t)) + (attach-as-child clog-obj "CLOG97055" :clog-type 'clog:clog-select + :new-id t)) (setf (slot-value panel 'files-label) - (attach-as-child clog-obj "CLOGB3920365579" :clog-type - 'clog:clog-label :new-id t)) + (attach-as-child clog-obj "CLOG97056" :clog-type 'clog:clog-label + :new-id t)) (setf (slot-value panel 'deps) - (attach-as-child clog-obj "CLOGB3920365578" :clog-type - 'clog:clog-select :new-id t)) + (attach-as-child clog-obj "CLOG97057" :clog-type 'clog:clog-select + :new-id t)) (setf (slot-value panel 'deps-label) - (attach-as-child clog-obj "CLOGB3920365577" :clog-type - 'clog:clog-label :new-id t)) + (attach-as-child clog-obj "CLOG97058" :clog-type 'clog:clog-label + :new-id t)) (setf (slot-value panel 'loaded-systems) - (attach-as-child clog-obj "CLOGB3920365576" :clog-type - 'clog:clog-select :new-id t)) + (attach-as-child clog-obj "CLOG97059" :clog-type 'clog:clog-select + :new-id t)) (setf (slot-value panel 'sys-label) - (attach-as-child clog-obj "CLOGB3920365575" :clog-type - 'clog:clog-label :new-id t)) + (attach-as-child clog-obj "CLOG97060" :clog-type 'clog:clog-label + :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)) \ No newline at end of file