Uneascape JSON properly.

This commit is contained in:
Dianne Skoll
2024-02-07 10:27:38 -05:00
parent 987983f8ae
commit 1bfc630a64

View File

@@ -2714,11 +2714,14 @@ proc ShowQueue { file } {
if { $did > 0 } { if { $did > 0 } {
$w.t insert end "\n" $w.t insert end "\n"
} }
if { $toggle != 0 } { foreach r $q {
$w.t insert end "$q\n" grey if { $toggle != 0 } {
} else { $w.t insert end "$r " grey
$w.t insert end "$q\n" } else {
$w.t insert end "$r "
}
} }
$w.t insert end "\n"
set toggle [expr 1 - $toggle] set toggle [expr 1 - $toggle]
set did 1 set did 1
} }