equal
deleted
inserted
replaced
523 |
523 |
524 ^ self == Object |
524 ^ self == Object |
525 |
525 |
526 "Modified: 23.4.1996 / 16:00:07 / cg" |
526 "Modified: 23.4.1996 / 16:00:07 / cg" |
527 ! ! |
527 ! ! |
|
528 |
528 |
529 |
529 |
530 |
530 |
531 |
531 |
532 |
532 |
533 |
2318 RETURN ( (self == anObject) ? false : true ); |
2319 RETURN ( (self == anObject) ? false : true ); |
2319 #endif |
2320 #endif |
2320 %} |
2321 %} |
2321 ! ! |
2322 ! ! |
2322 |
2323 |
|
2324 |
2323 !Object methodsFor:'converting'! |
2325 !Object methodsFor:'converting'! |
2324 |
2326 |
2325 -> anObject |
2327 -> anObject |
2326 "return an association with the receiver as key and |
2328 "return an association with the receiver as key and |
2327 the argument as value" |
2329 the argument as value" |
2746 |
2748 |
2747 "Modified: / 21-07-2011 / 13:30:52 / cg" |
2749 "Modified: / 21-07-2011 / 13:30:52 / cg" |
2748 "Modified: / 30-01-2019 / 16:27:21 / Claus Gittinger" |
2750 "Modified: / 30-01-2019 / 16:27:21 / Claus Gittinger" |
2749 ! |
2751 ! |
2750 |
2752 |
2751 postCopy |
|
2752 "this is for compatibility with ST-80 code, which uses postCopy for |
|
2753 cleanup after copying, while ST/X passes the original in postCopyFrom: |
|
2754 (see there)" |
|
2755 |
|
2756 ^ self |
|
2757 ! |
|
2758 |
|
2759 postDeepCopy |
|
2760 "allows for cleanup after deep copying. |
|
2761 To be redefined in subclasses." |
|
2762 ! |
|
2763 |
|
2764 postDeepCopyFrom:aSource |
|
2765 "allows for cleanup after deep copying" |
|
2766 |
|
2767 ^ self postDeepCopy |
|
2768 ! |
|
2769 |
|
2770 setHashFrom:anObject |
2753 setHashFrom:anObject |
2771 "set my identity-hash key to be the same as anObjects hash key. |
2754 "set my identity-hash key to be the same as anObjects hash key. |
2772 This is an ST/X speciality, which is NOT available in other (especially OT based) |
2755 This is an ST/X speciality, which is NOT available in other (especially OT based) |
2773 Smalltalks, and may not be available in future ST/X versions. |
2756 Smalltalks, and may not be available in future ST/X versions. |
2774 DO NEVER use this for normal application code." |
2757 DO NEVER use this for normal application code." |
2913 ]. |
2896 ]. |
2914 |
2897 |
2915 "copy the instance variables" |
2898 "copy the instance variables" |
2916 aCopy cloneFrom:self performing:#yourself. |
2899 aCopy cloneFrom:self performing:#yourself. |
2917 ^ aCopy |
2900 ^ aCopy |
|
2901 ! ! |
|
2902 |
|
2903 !Object methodsFor:'copying-private'! |
|
2904 |
|
2905 postCopy |
|
2906 "this is for compatibility with ST-80 code, which uses postCopy for |
|
2907 cleanup after copying, while ST/X passes the original in postCopyFrom: |
|
2908 (see there)" |
|
2909 |
|
2910 ^ self |
|
2911 ! |
|
2912 |
|
2913 postDeepCopy |
|
2914 "allows for cleanup after deep copying. |
|
2915 To be redefined in subclasses." |
|
2916 ! |
|
2917 |
|
2918 postDeepCopyFrom:aSource |
|
2919 "allows for cleanup after deep copying" |
|
2920 |
|
2921 ^ self postDeepCopy |
2918 ! ! |
2922 ! ! |
2919 |
2923 |
2920 !Object methodsFor:'debugging'! |
2924 !Object methodsFor:'debugging'! |
2921 |
2925 |
2922 assert:aBooleanOrBlock |
2926 assert:aBooleanOrBlock |