mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-04-27 15:40:51 -07: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

8
source/clog-gui.lisp
View file

@ -52,6 +52,8 @@
(window-make-modal generic-function)
(window-end-modal generic-function)
(window-center generic-function)
"CLOG-GUI - Individual Window Events"
(set-on-window-focused generic-function)
(set-on-window-blurred generic-function)
(set-on-window-can-close generic-function)
@ -1095,6 +1097,8 @@ interactions. Use window-end-modal to undo."))
;; Implementation - Dialog Boxes
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; to add - alert box, input box, form by list
(defun server-file-dialog (obj title initial-dir on-file-name
&key (left nil) (top nil) (width 400) (height 375)
(maximize nil)
@ -1179,7 +1183,9 @@ machine, upon close ON-FILE-NAME called with filename or nil if failure."
(window-close win)))
(set-on-click ok (lambda (obj)
(declare (ignore obj))
(setf (disabledp obj) t)
(set-on-window-close win nil)
(window-end-modal win)
(window-close win)
(funcall on-file-name (value input))))))
(funcall on-file-name (value input)))
:one-time t)))

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)))))