diff --git a/tools/panel-clog-builder-repl.clog b/tools/panel-clog-builder-repl.clog index 5373ec5..5411a59 100644 --- a/tools/panel-clog-builder-repl.clog +++ b/tools/panel-clog-builder-repl.clog @@ -1 +1 @@ -
\ No newline at end of file +
\ No newline at end of file diff --git a/tools/panel-clog-builder-repl.lisp b/tools/panel-clog-builder-repl.lisp index 7a85b3a..a7e8f49 100644 --- a/tools/panel-clog-builder-repl.lisp +++ b/tools/panel-clog-builder-repl.lisp @@ -7,20 +7,20 @@ (let ((panel (change-class (clog:create-div clog-obj :content - "
" + "
" :hidden hidden :class class :html-id html-id :auto-place auto-place) 'clog-builder-repl))) (setf (slot-value panel 'terminal) - (attach-as-child clog-obj "CLOGB3921450522" :clog-type + (attach-as-child clog-obj "CLOGB3921490710" :clog-type 'clog-terminal:clog-terminal-element :new-id t)) (setf (slot-value panel 'package-div) - (attach-as-child clog-obj "CLOGB3921450521" :clog-type + (attach-as-child clog-obj "CLOGB3921490709" :clog-type 'clog:clog-form-element :new-id t)) (let ((target (terminal panel))) (declare (ignorable target)) (clog-terminal:attach-clog-terminal target :greetings - "CLOG Builder REPL") + "CLOG Builder REPL - (clog-repl) or (clog-builder-repl) for GUI using *body*") (clog-terminal:prompt target "> ") (repl-on-create panel target)) (clog-terminal:set-on-command (terminal panel)