equal
deleted
inserted
replaced
20 |
20 |
21 Date comment:' |
21 Date comment:' |
22 COPYRIGHT (c) 1989 by Claus Gittinger |
22 COPYRIGHT (c) 1989 by Claus Gittinger |
23 All Rights Reserved |
23 All Rights Reserved |
24 |
24 |
25 $Header: /cvs/stx/stx/libbasic/Date.st,v 1.17 1995-02-21 01:06:15 claus Exp $ |
25 $Header: /cvs/stx/stx/libbasic/Date.st,v 1.18 1995-04-11 14:49:00 claus Exp $ |
26 '! |
26 '! |
27 |
27 |
28 !Date class methodsFor:'documentation'! |
28 !Date class methodsFor:'documentation'! |
29 |
29 |
30 copyright |
30 copyright |
41 " |
41 " |
42 ! |
42 ! |
43 |
43 |
44 version |
44 version |
45 " |
45 " |
46 $Header: /cvs/stx/stx/libbasic/Date.st,v 1.17 1995-02-21 01:06:15 claus Exp $ |
46 $Header: /cvs/stx/stx/libbasic/Date.st,v 1.18 1995-04-11 14:49:00 claus Exp $ |
47 " |
47 " |
48 ! |
48 ! |
49 |
49 |
50 documentation |
50 documentation |
51 " |
51 " |
175 ! ! |
175 ! ! |
176 |
176 |
177 !Date class methodsFor:'handling language changes'! |
177 !Date class methodsFor:'handling language changes'! |
178 |
178 |
179 initialize |
179 initialize |
180 super initialize. |
180 "/ super initialize. |
181 |
181 |
182 "check for case where Resource-classes are absent" |
182 "check for case where Resource-classes are absent" |
183 ResourcePack isNil ifTrue:[ |
183 ResourcePack isNil ifTrue:[ |
184 self initNames |
184 self initNames |
185 ] ifFalse:[ |
185 ] ifFalse:[ |