mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

auto-probe added to clog-probe

Browse source
This commit is contained in:
David Botton 2024-05-21 15:52:37 -04:00
parent a033cce0b6
commit 954f1d8062
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
source/clog-gui.lisp
View file

@ -281,18 +281,20 @@
;;;;;;;;;;;;;;;;
(defmacro clog-probe (symbol &key clog-body
(symbol-title "")
(title "")
(time-out 600)
auto-probe
(modal t))
"Pause thread of execution for time-out numnber of seconds or nil to not
block execution, display symbol's value, value is changed if OK pressed at
the moment pressed. When time-out is nil, :q quits the probe and cancel
repeats the probe with out changing value. When time-out is nil modal is
always nil."
always nil. If auto-probe is set, modal and time-out is set to nil and the
probe is run again in auto-probe seconds."
`(let ((body (or ,clog-body
*clog-debug-instance*)))
(when (validp body)
(if ,time-out
(if (and ,time-out (not ,auto-probe))
(input-dialog body
(format nil "Probe in thread ~A : ~A New Value?"
(bordeaux-threads:thread-name
@ -305,7 +307,7 @@ always nil."
:width 400
:height 300
:modal ,modal
:title (format nil "clog-probe ~A" ,symbol-title))
:title (format nil "clog-probe ~A" ,title))
(bordeaux-threads:make-thread
(lambda ()
(loop
@ -317,14 +319,14 @@ always nil."
(if (equalp result ":q")
:q
(setf ,symbol (eval (read-from-string result))))))
:time-out 999
:time-out (or ,auto-probe 999)
:width 400
:height 300
:modal nil
:title (format nil "clog-probe ~A" ,symbol-title))
:title (format nil "clog-probe ~A" ,title))
:q)
(return))))
:name (format nil "clog-probe ~A" ,symbol-title))))))
:name (format nil "clog-probe ~A" ,title))))))
;;;;;;;;;;;;;;;;;;;;;;;;;
;; clog-gui-initialize ;;