Alternate queue item background colors.

scripts/tkremind

@@ -2686,7 +2686,7 @@ proc ShowQueue { file } {
     toplevel $w
     wm title $w "Queue (Debugging Output)"
     wm iconname $w "Queue Dbg"
-    text $w.t -width 80 -height 30 -wrap word -yscrollcommand "$w.sb set"
+    text $w.t -fg black -bg white -width 80 -height 30 -wrap word -yscrollcommand "$w.sb set"
     scrollbar $w.sb -orient vertical -command "$w.text yview"
     button $w.ok -text "OK" -command "destroy $w"
     grid $w.t -row 0 -column 0 -sticky nsew
@@ -2708,8 +2708,15 @@ proc ShowQueue { file } {
 	}
         set obj [lsort -command sort_q $obj]
         set did 0
+        $w.t tag configure grey -background "#DDDDDD"
+        set toggle 0
 	foreach q $obj {
-	    $w.t insert end "$q\n"
+            if { $toggle != 0 } {
+                $w.t insert end "$q\n" grey
+            } else {
+                $w.t insert end "$q\n"
+            }
+            set toggle [expr 1 - $toggle]
             set did 1
 	}
         if { $did == 0 } {