felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-04-17 14:59:20 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Better queue display

Browse Source
This commit is contained in:
Dianne Skoll
2025-08-12 00:08:18 -04:00
parent e4c090374d
commit b48ce0b245
1 changed files with 3 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
scripts/tkremind.in
View File

@@ -2877,7 +2877,6 @@ proc ShowQueue { queue } {
set obj [lsort -command sort_q $queue]
set did 0
$w.t tag configure grey -background "#DDDDDD" -selectbackground "#999999"
set toggle 0
foreach q $obj {
if { $did > 0 } {
$w.t insert end "\n"
@@ -2900,20 +2899,12 @@ proc ShowQueue { queue } {
}
foreach key [list time nexttime body] {
set r [dict get $q $key]
if { $toggle != 0 } {
$w.t insert end "$key=$r" [list grey $fntag]
if {"$key" != "body"} {
$w.t insert end "; " [list grey $fntag]
}
} else {
$w.t insert end "$key=$r" [list $fntag]
if {"$key" != "body"} {
$w.t insert end "; " [list $fntag]
}
$w.t insert end "$key=$r" [list $fntag]
if {"$key" != "body"} {
$w.t insert end "; " [list $fntag]
}
}
$w.t insert end "\n"
set toggle [expr 1 - $toggle]
set did 1
}
if { $did == 0 } {