equal
deleted
inserted
replaced
244 DayNames isNil ifTrue:[ |
244 DayNames isNil ifTrue:[ |
245 self initDefaultNames. |
245 self initDefaultNames. |
246 ]. |
246 ]. |
247 |
247 |
248 Smalltalk addDependent:self. |
248 Smalltalk addDependent:self. |
249 Language ~= 'en' ifTrue:[ |
249 Smalltalk language ~= 'en' ifTrue:[ |
250 EnvironmentChange := true |
250 EnvironmentChange := true |
251 ] |
251 ] |
252 ! ! |
252 ! ! |
253 |
253 |
254 !Date class methodsFor:'instance creation'! |
254 !Date class methodsFor:'instance creation'! |
1268 Do not use this to store/retrieve dates (use ISO8601 for that)" |
1268 Do not use this to store/retrieve dates (use ISO8601 for that)" |
1269 |
1269 |
1270 (DefaultFormats isNil or:[EnvironmentChange]) ifTrue:[ |
1270 (DefaultFormats isNil or:[EnvironmentChange]) ifTrue:[ |
1271 self initNames |
1271 self initNames |
1272 ]. |
1272 ]. |
1273 ^ DefaultFormats at:Language ifAbsent:(DefaultFormats at:#en). |
1273 ^ DefaultFormats at:Smalltalk language ifAbsent:(DefaultFormats at:#en). |
1274 |
1274 |
1275 " |
1275 " |
1276 Date today printStringFormat:(Date defaultFormatString). |
1276 Date today printStringFormat:(Date defaultFormatString). |
1277 Date today printStringFormat:(Date longFormatString). |
1277 Date today printStringFormat:(Date longFormatString). |
1278 Date today printStringFormat:(Date shortFormatString). |
1278 Date today printStringFormat:(Date shortFormatString). |
1419 " |
1419 " |
1420 ! |
1420 ! |
1421 |
1421 |
1422 longFormatString |
1422 longFormatString |
1423 (LongFormats isNil or:[EnvironmentChange]) ifTrue:[ |
1423 (LongFormats isNil or:[EnvironmentChange]) ifTrue:[ |
1424 self initNames |
1424 self initNames |
1425 ]. |
1425 ]. |
1426 ^ LongFormats at:Language ifAbsent:(LongFormats at:#en). |
1426 ^ LongFormats at:Smalltalk language ifAbsent:(LongFormats at:#en). |
1427 |
1427 |
1428 " |
1428 " |
1429 Date today printStringFormat:(Date defaultFormatString). |
1429 Date today printStringFormat:(Date defaultFormatString). |
1430 Date today printStringFormat:(Date longFormatString). |
1430 Date today printStringFormat:(Date longFormatString). |
1431 Date today printStringFormat:(Date shortFormatString). |
1431 Date today printStringFormat:(Date shortFormatString). |
1542 " |
1542 " |
1543 ! |
1543 ! |
1544 |
1544 |
1545 shortFormatString |
1545 shortFormatString |
1546 (ShortFormats isNil or:[EnvironmentChange]) ifTrue:[ |
1546 (ShortFormats isNil or:[EnvironmentChange]) ifTrue:[ |
1547 self initNames |
1547 self initNames |
1548 ]. |
1548 ]. |
1549 ^ ShortFormats at:Language ifAbsent:(ShortFormats at:#en). |
1549 ^ ShortFormats at:Smalltalk language ifAbsent:(ShortFormats at:#en). |
1550 |
1550 |
1551 " |
1551 " |
1552 Date today printStringFormat:(Date defaultFormatString). |
1552 Date today printStringFormat:(Date defaultFormatString). |
1553 Date today printStringFormat:(Date longFormatString). |
1553 Date today printStringFormat:(Date longFormatString). |
1554 Date today printStringFormat:(Date shortFormatString). |
1554 Date today printStringFormat:(Date shortFormatString). |
3598 |
3598 |
3599 printOn:aStream language:languageOrNil |
3599 printOn:aStream language:languageOrNil |
3600 "append a printed representation of the receiver to aStream. |
3600 "append a printed representation of the receiver to aStream. |
3601 The argument languageOrNil can only be #en or nil for the current language." |
3601 The argument languageOrNil can only be #en or nil for the current language." |
3602 |
3602 |
3603 |format| |
3603 |format langUsed| |
3604 |
3604 |
3605 (DefaultFormats isNil or:[EnvironmentChange]) ifTrue:[ |
3605 (DefaultFormats isNil or:[EnvironmentChange]) ifTrue:[ |
3606 self class initNames |
3606 self class initNames |
3607 ]. |
3607 ]. |
3608 format := DefaultFormats at:(languageOrNil ? Language) ifAbsent:[DefaultFormats at:#en]. |
3608 langUsed := languageOrNil notNil ifTrue:[languageOrNil] ifFalse:[Smalltalk language]. |
|
3609 format := DefaultFormats at:langUsed ifAbsent:[DefaultFormats at:#en]. |
3609 self printOn:aStream format:format language:languageOrNil. |
3610 self printOn:aStream format:format language:languageOrNil. |
3610 |
3611 |
3611 " |
3612 " |
3612 Date today printOn:Transcript language:#en |
3613 Date today printOn:Transcript language:#en |
3613 Date today printOn:Transcript language:#de |
3614 Date today printOn:Transcript language:#de |