From 39aa65b91de36f69d06f32ab18e61a1e4ad9db2e Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Wed, 22 May 2024 15:19:54 -0400
Subject: [PATCH] clog-probe control location

---
 source/clog-gui.lisp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp
index 63f548a..6eca242 100644
--- a/source/clog-gui.lisp
+++ b/source/clog-gui.lisp
@@ -285,6 +285,8 @@ confirm continue execution on current thread or (break)."
 (defmacro clog-probe (symbol &key clog-body
                                   (title "")
                                   (time-out 600)
+                                  top left
+                                  (width 400) (height 300)
                                   auto-probe
                                   (modal t))
   "Pause thread of execution for time-out numnber of seconds or nil to not
@@ -306,8 +308,9 @@ probe is run again in auto-probe seconds."
                            (when result
                              (setf ,symbol (eval (read-from-string result)))))
                          :time-out ,time-out
-                         :width 400
-                         :height 300
+                         :top ,top :left ,left
+                         :width ,width
+                         :height ,height
                          :modal ,modal
                          :title (format nil "clog-probe ~A" ,title))
            (bordeaux-threads:make-thread