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

clog-probe control location

Browse source
This commit is contained in:
David Botton 2024-05-22 15:19:54 -04:00
parent 5d3945daed
commit 39aa65b91d
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
source/clog-gui.lisp
View file

@ -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