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

spell check optional on input-dialog

Browse source
This commit is contained in:
David Botton 2024-07-29 17:37:34 -04:00
parent 897b3d0a66
commit 0055961425
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
source/clog-gui.lisp
View file

@ -1921,6 +1921,7 @@ alert-dialog blocks till time-out reached or OK clicked."
(placeholder-value "")
(default-value "")
is-password
(spell-check t)
(left nil) (top nil)
(width 300) (height 200)
(client-movement nil)
@ -1986,6 +1987,8 @@ result of on-input."
(setf (visiblep win) t)
(when modal
(window-make-modal win))
(unless spell-check
(setf (spellcheckp input) nil))
(focus input)
(set-on-click cancel (lambda (obj)
(declare (ignore obj))