mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-24 02:50:41 -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 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." probe is run again in auto-probe seconds."
`(let ((body (or ,clog-body `(let ((body (or ,clog-body
*clog-debug-instance*))) *clog-debug-instance*))
(title (if (equal ,title "")
(format nil "~s" ',symbol)
,title)))
(when (validp body) (when (validp body)
(if (and ,time-out (not ,auto-probe)) (if (and ,time-out (not ,auto-probe))
(input-dialog body (input-dialog body
@ -313,7 +316,7 @@ probe is run again in auto-probe seconds."
:width ,width :width ,width
:height ,height :height ,height
:modal ,modal :modal ,modal
:title (format nil "clog-probe ~A" ,title)) :title (format nil "clog-probe ~A" title))
(bordeaux-threads:make-thread (bordeaux-threads:make-thread
(lambda () (lambda ()
(loop (loop
@ -330,10 +333,10 @@ probe is run again in auto-probe seconds."
:width ,width :width ,width
:height ,height :height ,height
:modal nil :modal nil
:title (format nil "clog-probe ~A" ,title)) :title (format nil "clog-probe ~A" title))
:q) :q)
(return)))) (return))))
:name (format nil "clog-probe ~A" ,title)))))) :name (format nil "clog-probe ~A" title))))))
;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;
;; clog-gui-initialize ;; ;; clog-gui-initialize ;;