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

ok button disable on click

Browse source
This commit is contained in:
David Botton 2021-02-18 19:24:54 -05:00
parent 5235bdf307
commit 983426ce62
2 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,5 +1,5 @@
(defpackage #:clog-tools
(:use #:cl #:clog)
(:use #:cl #:clog #:clog-gui)
(:export clog-db-admin))
(in-package :clog-tools)
@ -56,7 +56,8 @@
:database-name (name-value obj "db-name")))
(setf (title (html-document (body app)))
(format nil "CLOG DB Admin - ~A" (name-value obj "db-name")))
(window-close win)))
(window-close win))
:one-time t)
(set-on-click (attach-as-child obj "odb-cancel") (lambda (obj)
(window-close win)))))