From c8152f60ca341a9a205ccbc31112dbcf8ddadb30 Mon Sep 17 00:00:00 2001 From: David Botton Date: Fri, 28 Jan 2022 12:23:02 -0500 Subject: [PATCH] clean up custom html --- tools/clog-builder-settings.lisp | 2 +- tools/clog-builder.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/tools/clog-builder-settings.lisp b/tools/clog-builder-settings.lisp index e0416f5..2ad1cf9 100644 --- a/tools/clog-builder-settings.lisp +++ b/tools/clog-builder-settings.lisp @@ -517,7 +517,7 @@ :clog-type clog:clog-element :create clog:create-child :create-type :custom-query - :create-content "
" + :create-content "
" :events (,@*events-element*) :properties (,@*props-base*)) `(:name "label" diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index 94db4cf..906ab68 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -193,7 +193,7 @@ (let* ((control-record (control-info (value (select-tool app)))) (control-type-name (getf control-record :create-type))) (if (eq control-type-name :custom-query) - (input-dialog win "Enter custom html:" + (input-dialog win "Enter html (must have an outer element):" (lambda (custom-query) (when custom-query (do-drop-new-control