From 005596142535cde15d337f9a2007e6b5f20d4158 Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Mon, 29 Jul 2024 17:37:34 -0400
Subject: [PATCH] spell check optional on input-dialog

---
 source/clog-gui.lisp        | 3 +++
 tools/clog-builder-api.lisp | 3 ++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp
index cd8b498..0d0b317 100644
--- a/source/clog-gui.lisp
+++ b/source/clog-gui.lisp
@@ -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))
diff --git a/tools/clog-builder-api.lisp b/tools/clog-builder-api.lisp
index 7245220..bc60117 100644
--- a/tools/clog-builder-api.lisp
+++ b/tools/clog-builder-api.lisp
@@ -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