equal
deleted
inserted
replaced
258 |
258 |
259 "Created: 15.4.1996 / 17:17:13 / cg" |
259 "Created: 15.4.1996 / 17:17:13 / cg" |
260 "Modified: 23.4.1996 / 15:56:58 / cg" |
260 "Modified: 23.4.1996 / 15:56:58 / cg" |
261 ! ! |
261 ! ! |
262 |
262 |
|
263 |
263 !Class methodsFor:'Compatibility - ST80'! |
264 !Class methodsFor:'Compatibility - ST80'! |
264 |
265 |
265 fileOutSourceOn:aStream |
266 fileOutSourceOn:aStream |
266 self fileOutOn:aStream withTimeStamp:false |
267 self fileOutOn:aStream withTimeStamp:false |
267 |
268 |
732 primitiveDefinitions:aString |
733 primitiveDefinitions:aString |
733 "{ Pragma: +optSpace }" |
734 "{ Pragma: +optSpace }" |
734 |
735 |
735 "set the primitiveDefinition string" |
736 "set the primitiveDefinition string" |
736 |
737 |
737 self setPrimitiveSpecsAt:1 to:aString. |
738 self setPrimitiveDefinitions:aString. |
738 self addChangeRecordForPrimitiveDefinitions:self. |
739 self addChangeRecordForPrimitiveDefinitions:self. |
739 |
740 |
740 "Created: 29.10.1995 / 19:41:39 / cg" |
741 "Created: 29.10.1995 / 19:41:39 / cg" |
741 ! |
742 ! |
742 |
743 |
756 primitiveFunctions:aString |
757 primitiveFunctions:aString |
757 "{ Pragma: +optSpace }" |
758 "{ Pragma: +optSpace }" |
758 |
759 |
759 "set the primitiveFunction string" |
760 "set the primitiveFunction string" |
760 |
761 |
761 self setPrimitiveSpecsAt:3 to:aString. |
762 self setPrimitiveFunctions:aString. |
762 self addChangeRecordForPrimitiveFunctions:self. |
763 self addChangeRecordForPrimitiveFunctions:self. |
763 |
764 |
764 "Created: 29.10.1995 / 19:41:48 / cg" |
765 "Created: 29.10.1995 / 19:41:48 / cg" |
765 ! |
766 ! |
766 |
767 |
791 primitiveVariables:aString |
792 primitiveVariables:aString |
792 "{ Pragma: +optSpace }" |
793 "{ Pragma: +optSpace }" |
793 |
794 |
794 "set the primitiveVariable string" |
795 "set the primitiveVariable string" |
795 |
796 |
796 self setPrimitiveSpecsAt:2 to:aString. |
797 self setPrimitiveVariables:aString. |
797 self addChangeRecordForPrimitiveVariables:self. |
798 self addChangeRecordForPrimitiveVariables:self. |
798 |
799 |
799 "Created: 29.10.1995 / 19:41:58 / cg" |
800 "Created: 29.10.1995 / 19:41:58 / cg" |
800 ! |
801 ! |
801 |
802 |
1018 |
1019 |
1019 setPackage:aStringOrSymbol |
1020 setPackage:aStringOrSymbol |
1020 "set the package of the class." |
1021 "set the package of the class." |
1021 |
1022 |
1022 package := aStringOrSymbol |
1023 package := aStringOrSymbol |
|
1024 ! |
|
1025 |
|
1026 setPrimitiveDefinitions:aString |
|
1027 "{ Pragma: +optSpace }" |
|
1028 |
|
1029 "set the primitiveDefinition string (no change notifications)" |
|
1030 |
|
1031 self setPrimitiveSpecsAt:1 to:aString. |
|
1032 ! |
|
1033 |
|
1034 setPrimitiveFunctions:aString |
|
1035 "{ Pragma: +optSpace }" |
|
1036 |
|
1037 "set the primitiveFunction string (no change notifications)" |
|
1038 |
|
1039 self setPrimitiveSpecsAt:3 to:aString. |
|
1040 ! |
|
1041 |
|
1042 setPrimitiveVariables:aString |
|
1043 "{ Pragma: +optSpace }" |
|
1044 |
|
1045 "set the primitiveVariable string (no change notifications)" |
|
1046 |
|
1047 self setPrimitiveSpecsAt:2 to:aString. |
1023 ! |
1048 ! |
1024 |
1049 |
1025 source |
1050 source |
1026 "return the classes full source code" |
1051 "return the classes full source code" |
1027 |
1052 |
4558 ! ! |
4583 ! ! |
4559 |
4584 |
4560 !Class class methodsFor:'documentation'! |
4585 !Class class methodsFor:'documentation'! |
4561 |
4586 |
4562 version |
4587 version |
4563 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.392 2000-12-20 18:47:46 cg Exp $' |
4588 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.393 2001-02-06 14:54:13 cg Exp $' |
4564 ! ! |
4589 ! ! |