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

Show errors in weekly view too; use fixd-width font for error window.

Browse Source
This commit is contained in:
Dianne Skoll
2025-11-01 20:10:22 -04:00
parent ce6061a29b
commit 4a9b4ff6e4
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
scripts/tkremind.in
View File

@@ -1330,7 +1330,7 @@ proc get_num_weeks {} {
#---------------------------------------------------------------------------
proc FillCalWindowWeekly { nweeks } {
global DayNames CurYear CurMonth CurDay MonthNames CommandLine Option TagToObj SynToObj RemindErrors MondayFirst Hostname
global TodayYear TodayMonth TodayDay Option
global TodayYear TodayMonth TodayDay Option RemindErrors
array unset TagToObj
array unset SynToObj
@@ -1411,6 +1411,10 @@ proc FillCalWindowWeekly { nweeks } {
} else {
wm title . "$title - TkRemind @VERSION@"
}
if {$problem} {
set RemindErrors [unique_lines $errmsg]
set_button_to_errors
}
DisplayTime
}
@@ -5411,7 +5415,7 @@ proc ShowErrors {} {
set w ".errors"
catch { destroy $w }
toplevel $w -background $Option(WinBackground)
text $w.t -width 80 -height 30 -wrap word -yscrollcommand "$w.sb set" -foreground $Option(TextColor) -background $Option(BackgroundColor) -font CalBoxFont
text $w.t -width 80 -height 30 -wrap word -yscrollcommand "$w.sb set" -foreground $Option(TextColor) -background $Option(BackgroundColor) -font [font actual TkFixedFont]
scrollbar $w.sb -orient vertical -command "$w.t yview"
button $w.ok -text OK -command DoneShowingErrors -foreground $Option(TextColor) -background $Option(BackgroundColor) -highlightthickness 1 -highlightcolor $Option(LineColor) -highlightbackground $Option(WinBackground)
grid $w.t -row 0 -column 0 -sticky nsew