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 "") (placeholder-value "")
(default-value "") (default-value "")
is-password is-password
(spell-check t)
(left nil) (top nil) (left nil) (top nil)
(width 300) (height 200) (width 300) (height 200)
(client-movement nil) (client-movement nil)
@ -1986,6 +1987,8 @@ result of on-input."
(setf (visiblep win) t) (setf (visiblep win) t)
(when modal (when modal
(window-make-modal win)) (window-make-modal win))
(unless spell-check
(setf (spellcheckp input) nil))
(focus input) (focus input)
(set-on-click cancel (lambda (obj) (set-on-click cancel (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))

3
tools/clog-builder-api.lisp
View file

@ -17,12 +17,13 @@
(set-on-double-click td2 (lambda (obj) (set-on-double-click td2 (lambda (obj)
(let ((*default-title-class* *builder-title-class*) (let ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*)) (*default-border-class* *builder-border-class*))
(input-dialog obj "Enter slots:" (input-dialog obj "Enter slots - for example: (myvar :accessor myvar)"
(lambda (result) (lambda (result)
(when result (when result
(setf (attribute control "data-custom-slots") result) (setf (attribute control "data-custom-slots") result)
(setf (text td2) result))) (setf (text td2) result)))
:default-value (attribute control "data-custom-slots") :default-value (attribute control "data-custom-slots")
:spell-check nil
:width 800 :width 800
:height 420 :height 420
:size 80 :size 80