mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

readme update

Browse source
This commit is contained in:
David Botton 2021-02-24 20:36:53 -05:00
parent 186b5931d4
commit 35008c3116
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tools/clog-db-admin.lisp
View file

@ -49,7 +49,7 @@
(remove-class (body app) "w3-teal")
(add-class (body app) "w3-blue-grey")
(destroy (indicator app))
(setf (indicatory app) nil)
(setf (indicator app) nil)
(sqlite:disconnect (db-connection app))
(setf (db-connection app) nil))
(setf (title (html-document (body app))) "CLOG DB Admin")))
@ -100,7 +100,7 @@
(let ((app (connection-data-item obj "app-data")))
(when (db-connection app)
(results-window app "select tbl_name as 'Table', sql as SQL from sqlite_master where type='table'"
:title "Double Click Row for Table"))))
:title "Double Click for Table"))))
(defun on-help-about (obj)
(let ((about (create-gui-window obj