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

clog-break added to clog-gui

Browse source
This commit is contained in:
David Botton 2024-05-17 17:26:13 -04:00
parent f261667820
commit 646a318689
1 changed files with 24 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

24
source/clog-gui.lisp
View file

@ -95,6 +95,7 @@
(one-of-dialog function)
(dialog-in-stream class)
(dialog-out-stream class)
(clog-break function)
(*clog-debug-instance* variable)
"CLOG-GUI - Look and Feel"
@ -245,6 +246,29 @@
#'my-debugger)))
,@body)))))
;;;;;;;;;;;;;;;;
;; clog-break ;;
;;;;;;;;;;;;;;;;
(defun clog-break (&key clog-body run (modal t))
"Stop execution, funcall run with CLOG-BODY. If CLOG-BODY not set use
*clog-debug-instance*. Then confirm continue execution on current thread."
(unless clog-body
(setf clog-body *clog-debug-instance*))
(when run
(funcall run clog-body))
(when (validp clog-body)
(confirm-dialog clog-body
(format nil "Continue thread ~A ?"
(bordeaux-threads:thread-name
(bordeaux-threads:current-thread)))
(lambda (result)
(unless result
(break)))
:time-out 600
:modal modal
:title "clog-break in execution")))
;;;;;;;;;;;;;;;;;;;;;;;;;
;; clog-gui-initialize ;;
;;;;;;;;;;;;;;;;;;;;;;;;;