Uneascape JSON properly.

2026-04-16 06:18:47 +02:00 · 2024-02-07 10:27:38 -05:00
parent 987983f8ae
commit 1bfc630a64
1 changed files with 7 additions and 4 deletions
--- a/scripts/tkremind
+++ b/scripts/tkremind
@@ -2714,11 +2714,14 @@ proc ShowQueue { file } {
            if { $did > 0 } {
                $w.t insert end "\n"
            }
-            if { $toggle != 0 } {
-                $w.t insert end "$q\n" grey
-            } else {
-                $w.t insert end "$q\n"
+            foreach r $q {
+                if { $toggle != 0 } {
+                    $w.t insert end "$r " grey
+                } else {
+                    $w.t insert end "$r "
+                }
            }
+            $w.t insert end "\n"
            set toggle [expr 1 - $toggle]
            set did 1
 	}