From 8296d2b9627ffc541d27a0757b88fd3cbfc1e95e Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Sat, 9 Dec 2023 10:30:18 -0500
Subject: [PATCH] Display "(Queue is empty)" if queue is empty.

---
 scripts/tkremind | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/scripts/tkremind b/scripts/tkremind
index b96883f9..e0786d11 100755
--- a/scripts/tkremind
+++ b/scripts/tkremind
@@ -2703,9 +2703,14 @@ proc ShowQueue { file } {
 	    continue;
 	}
         set obj [lsort -command sort_q $obj]
+        set did 0
 	foreach q $obj {
 	    $w.t insert end "$q\n"
+            set did 1
 	}
+        if { $did == 0 } {
+            $w.t insert end "(Queue is empty)\n"
+        }
     }
     $w.t configure -state disabled
 }