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

set symbol name as title by default

Browse source
This commit is contained in:
David Botton 2024-05-27 20:56:41 -04:00
parent e1e79bd2b9
commit 1601544dc8
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
source/clog-gui.lisp
View file

@ -297,7 +297,10 @@ repeats the probe with out changing value. When time-out is nil modal is
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*)))
*clog-debug-instance*))
(title (if (equal ,title "")
(format nil "~s" ',symbol)
,title)))
(when (validp body)
(if (and ,time-out (not ,auto-probe))
(input-dialog body
@ -313,7 +316,7 @@ probe is run again in auto-probe seconds."
:width ,width
:height ,height
:modal ,modal
:title (format nil "clog-probe ~A" ,title))
:title (format nil "clog-probe ~A" title))
(bordeaux-threads:make-thread
(lambda ()
(loop
@ -330,10 +333,10 @@ probe is run again in auto-probe seconds."
:width ,width
:height ,height
:modal nil
:title (format nil "clog-probe ~A" ,title))
:title (format nil "clog-probe ~A" title))
:q)
(return))))
:name (format nil "clog-probe ~A" ,title))))))
:name (format nil "clog-probe ~A" title))))))
;;;;;;;;;;;;;;;;;;;;;;;;;
;; clog-gui-initialize ;;