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

Fix range of years allowed by tkremind.

Browse Source
This commit is contained in:
dfs
2007-07-29 03:17:58 +00:00
parent 785cdc8726
commit a3f6c5fd9c
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
scripts/tkremind
View File

@@ -12,7 +12,7 @@
#
#--------------------------------------------------------------
# $Id: tkremind,v 1.43 2007-07-17 08:57:38 dfs Exp $
# $Id: tkremind,v 1.44 2007-07-29 03:17:58 dfs Exp $
# the next line restarts using wish \
exec wish "$0" "$@"
@@ -990,11 +990,11 @@ proc DoGoto {} {
global CurYear CurMonth MonthNames
set year [.g.y.e get]
if { ! [regexp {^[0-9]+$} $year] } {
tk_dialog .error Error {Illegal year specified (1990-2078)} error 0 Ok
tk_dialog .error Error {Illegal year specified (1990-5990)} error 0 Ok
return
}
if { $year < 1990 || $year > 2078 } {
tk_dialog .error Error {Illegal year specified (1990-2078)} error 0 Ok
if { $year < 1990 || $year > 5990 } {
tk_dialog .error Error {Illegal year specified (1990-5990)} error 0 Ok
return
}
set month [lsearch -exact $MonthNames [.g.mon cget -text]]