From 9e91caeec5d7c29d0b7f227fd505e4c4fe83af8b Mon Sep 17 00:00:00 2001 From: David Botton Date: Mon, 31 Jan 2022 17:02:25 -0500 Subject: [PATCH] documentation --- FUTURE.md | 6 +++--- tools/clog-builder.lisp | 5 +++-- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/FUTURE.md b/FUTURE.md index b6cb455..1d596c5 100644 --- a/FUTURE.md +++ b/FUTURE.md @@ -18,9 +18,9 @@ Future additions (if interested in doing any let me know): - Release tool to handle creating platfom executables, templates for Apache and other webservers -- Train and documnetation tool +- Training and documentation tool -- Event queuing when desired to avoid event race conditions +- Event queuing option to avoid event race conditions - Implement using long polling to optimize CLOG sites for use with search engines. If not long polling at least initial output sent by @@ -28,7 +28,7 @@ Future additions (if interested in doing any let me know): - Optimize communication with browser -- Optionaly for local apps allow direct transport of CLOG data to webpage to +- Optionaly, for local apps, allow direct transport of CLOG data to webpage via apis remove need for websocket transport. Some notes diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index 4c841dd..d3dd664 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -479,7 +479,7 @@ not a temporary attached one when using select-control." (defun on-populate-control-properties-win (obj &key win) "Populate the control properties for the current control" ;; obj if current-control is nil must be content - (let ((app (connection-data-item obj "builder-app-data"))) + (let ((app (connection-data-item obj "builder-app-data"))) (bordeaux-threads:with-lock-held ((properties-lock app)) (on-populate-control-events-win obj) (let* ((prop-win (control-properties-win app)) @@ -578,7 +578,7 @@ not a temporary attached one when using select-control." (defun on-populate-control-list-win (content) "Populate the control-list-window to allow drag and drop adjust of order of controls and double click to select control." - (let ((app (connection-data-item content "builder-app-data"))) + (let ((app (connection-data-item content "builder-app-data"))) (bordeaux-threads:with-lock-held ((control-list-win-lock app)) (let ((panel-id (html-id content)) (last-ctl nil)) @@ -823,6 +823,7 @@ of controls and double click to select control." result))) (defun save-panel (fname content panel-id hide-loc) + "Save panel to FNAME" (let ((app (connection-data-item content "builder-app-data"))) (maphash (lambda (html-id control)