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

Make Show Queue and Show Today's Reminders respect color scheme.

Browse Source
This commit is contained in:
Dianne Skoll
2025-08-11 21:22:32 -04:00
parent 89f60358c6
commit 6d86d88037
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
scripts/tkremind.in
View File

@@ -2842,14 +2842,15 @@ proc RestartBackgroundRemindDaemon {} {
# Dumps the debugging queue listing
#---------------------------------------------------------------------------
proc ShowQueue { queue } {
global Option
set w .queuedbg
catch { destroy $w }
toplevel $w
toplevel $w -background $Option(WinBackground)
wm title $w "Queue (Debugging Output)"
wm iconname $w "Queue Dbg"
text $w.t -fg black -bg white -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" -foreground $Option(TextColor) -background $Option(BackgroundColor) -font CalBoxFont
scrollbar $w.sb -orient vertical -command "$w.text yview"
button $w.ok -text "OK" -command "destroy $w"
button $w.ok -text "OK" -command "destroy $w" -foreground $Option(TextColor) -background $Option(BackgroundColor) -highlightthickness 1 -highlightcolor $Option(LineColor) -highlightbackground $Option(WinBackground)
grid $w.t -row 0 -column 0 -sticky nsew
grid $w.sb -row 0 -column 1 -sticky ns
grid $w.ok -row 1 -column 0 -sticky w
@@ -4257,12 +4258,12 @@ proc ShowTodaysReminders { force } {
set w .today
catch { destroy $w }
toplevel $w
toplevel $w -background $Option(WinBackground)
wm title $w "Today's Reminders"
wm iconname $w "Reminders"
text $w.text -width 80 -height 20 -wrap word -yscrollcommand "$w.sb set"
text $w.text -width 80 -height 20 -wrap word -yscrollcommand "$w.sb set" -foreground $Option(TextColor) -background $Option(BackgroundColor) -font CalboxFont
scrollbar $w.sb -orient vertical -command "$w.text yview"
button $w.ok -text "OK" -command "destroy $w"
button $w.ok -text "OK" -command "destroy $w" -foreground $Option(TextColor) -background $Option(BackgroundColor) -highlightthickness 1 -highlightcolor $Option(LineColor) -highlightbackground $Option(WinBackground)
grid $w.text -row 0 -column 0 -sticky nsew
grid $w.sb -row 0 -column 1 -sticky ns