--- a/Date.st Mon Mar 06 09:52:17 2006 +0100
+++ b/Date.st Mon Mar 06 09:56:20 2006 +0100
@@ -188,9 +188,9 @@
MonthNames at:lang put:(resources array:enMonthNames).
MonthAbbrevs at:lang put:(resources array:monthAbbrevKeys).
"/ may needs special care (same key for long and short name)
- may := resources at:'MAY_ABBREV' ifAbsent:nil.
+ may := resources string:'MAY_ABBREV' default:nil.
may isNil ifTrue:[
- may := resources at:'may'.
+ may := resources string:'may'.
].
(MonthAbbrevs at:lang) at:5 put:may.
].
@@ -2487,7 +2487,7 @@
!Date class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.98 2005-09-26 15:24:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.99 2006-03-06 08:56:20 cg Exp $'
! !
Date initialize!