equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
|
12 |
|
13 "{ Package: 'stx:libbasic' }" |
12 |
14 |
13 Magnitude subclass:#Date |
15 Magnitude subclass:#Date |
14 instanceVariableNames:'dateEncoding' |
16 instanceVariableNames:'dateEncoding' |
15 classVariableNames:'DayNames MonthNames DayAbbrevs MonthAbbrevs EnvironmentChange' |
17 classVariableNames:'DayNames MonthNames DayAbbrevs MonthAbbrevs EnvironmentChange' |
16 poolDictionaries:'' |
18 poolDictionaries:'' |
788 |
790 |
789 Date fromOSTime:#(86400 0) -> on UNIX: the day after |
791 Date fromOSTime:#(86400 0) -> on UNIX: the day after |
790 " |
792 " |
791 ! ! |
793 ! ! |
792 |
794 |
|
795 !Date methodsFor:'Compatibility - ST80'! |
|
796 |
|
797 shortPrintString |
|
798 "dummy - for now" |
|
799 |
|
800 ^ self printString |
|
801 |
|
802 "Created: 20.6.1997 / 17:16:48 / cg" |
|
803 ! ! |
|
804 |
793 !Date methodsFor:'Compatibility - Squeak'! |
805 !Date methodsFor:'Compatibility - Squeak'! |
794 |
806 |
795 mmddyyyy |
807 mmddyyyy |
796 "return a printed representation of the receiver in the |
808 "return a printed representation of the receiver in the |
797 form mmddyyyy. |
809 form mmddyyyy. |
803 , (self year printStringLeftPaddedTo:4 with:$0) |
815 , (self year printStringLeftPaddedTo:4 with:$0) |
804 |
816 |
805 " |
817 " |
806 Date today mmddyyyy |
818 Date today mmddyyyy |
807 " |
819 " |
808 ! ! |
|
809 |
|
810 !Date methodsFor:'Compatibility ST80'! |
|
811 |
|
812 shortPrintString |
|
813 "dummy - for now" |
|
814 |
|
815 ^ self printString |
|
816 |
|
817 "Created: 20.6.1997 / 17:16:48 / cg" |
|
818 ! ! |
820 ! ! |
819 |
821 |
820 !Date methodsFor:'accessing'! |
822 !Date methodsFor:'accessing'! |
821 |
823 |
822 abbreviatedDayName |
824 abbreviatedDayName |
1405 ! ! |
1407 ! ! |
1406 |
1408 |
1407 !Date class methodsFor:'documentation'! |
1409 !Date class methodsFor:'documentation'! |
1408 |
1410 |
1409 version |
1411 version |
1410 ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.51 2000-02-25 10:42:34 cg Exp $' |
1412 ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.52 2000-08-11 17:39:34 cg Exp $' |
1411 ! ! |
1413 ! ! |
1412 Date initialize! |
1414 Date initialize! |