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
tools/clog-builder-api.lisp
View file

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