felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-04-17 23:08:40 +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 } { proc FillCalWindowWeekly { nweeks } {
global DayNames CurYear CurMonth CurDay MonthNames CommandLine Option TagToObj SynToObj RemindErrors MondayFirst Hostname 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 TagToObj
array unset SynToObj array unset SynToObj
@@ -1411,6 +1411,10 @@ proc FillCalWindowWeekly { nweeks } {
} else { } else {
wm title . "$title - TkRemind @VERSION@" wm title . "$title - TkRemind @VERSION@"
} }
if {$problem} {
set RemindErrors [unique_lines $errmsg]
set_button_to_errors
}
DisplayTime DisplayTime
} }
@@ -5411,7 +5415,7 @@ proc ShowErrors {} {
set w ".errors" set w ".errors"
catch { destroy $w } catch { destroy $w }
toplevel $w -background $Option(WinBackground) 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" 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) 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 grid $w.t -row 0 -column 0 -sticky nsew