Attachment "cal.patch" to
ticket [3556779fff]
added by
andreas_kupries
2012-08-14 01:30:50.
Index: calendar.tcl
===================================================================
RCS file: /cvsroot/tcllib/tklib/modules/widget/calendar.tcl,v
retrieving revision 1.14
diff -w -u -r1.14 calendar.tcl
--- calendar.tcl 5 Dec 2011 20:34:24 -0000 1.14
+++ calendar.tcl 13 Aug 2012 18:29:10 -0000
@@ -521,6 +521,7 @@
method formatMY {month year} {
set lang $options(-language)
if {[info exists LANGS(mn,$lang)]} {
+ scan $month %d month;# fix for the not-quite octal month numbers (08,09).
set month [lindex $LANGS(mn,$lang) $month]
} else {
set _date [clock scan $month/1/$year]
