equal
deleted
inserted
replaced
255 "Modified: / 22.1.1998 / 21:23:40 / av" |
255 "Modified: / 22.1.1998 / 21:23:40 / av" |
256 "Modified: / 3.2.1998 / 18:55:09 / cg" |
256 "Modified: / 3.2.1998 / 18:55:09 / cg" |
257 "Modified: / 4.8.1999 / 08:54:06 / stefan" |
257 "Modified: / 4.8.1999 / 08:54:06 / stefan" |
258 ! ! |
258 ! ! |
259 |
259 |
260 |
|
261 !Object class methodsFor:'Compatibility-ST80'! |
260 !Object class methodsFor:'Compatibility-ST80'! |
262 |
261 |
263 rootError |
262 rootError |
264 "return the signal used for error/error: - handling. |
263 "return the signal used for error/error: - handling. |
265 Same as errorSignal for ST80 compatibility." |
264 Same as errorSignal for ST80 compatibility." |
494 messages. The default is true." |
493 messages. The default is true." |
495 |
494 |
496 InfoPrinting := aBoolean |
495 InfoPrinting := aBoolean |
497 ! ! |
496 ! ! |
498 |
497 |
499 |
|
500 !Object class methodsFor:'queries'! |
498 !Object class methodsFor:'queries'! |
501 |
499 |
502 isAbstract |
500 isAbstract |
503 "Return if this class is an abstract class. |
501 "Return if this class is an abstract class. |
504 True is returned for Object here; false for subclasses. |
502 True is returned for Object here; false for subclasses. |
517 |
515 |
518 "Modified: 23.4.1996 / 16:00:07 / cg" |
516 "Modified: 23.4.1996 / 16:00:07 / cg" |
519 ! ! |
517 ! ! |
520 |
518 |
521 |
519 |
522 |
|
523 |
|
524 |
|
525 |
|
526 !Object methodsFor:'Compatibility-Dolphin'! |
520 !Object methodsFor:'Compatibility-Dolphin'! |
527 |
521 |
528 stbFixup: anSTBInFiler at: newObjectIndex |
522 stbFixup: anSTBInFiler at: newObjectIndex |
529 "Answer the true object that must be used to represent the receiver when read from anSTBInFiler. |
523 "Answer the true object that must be used to represent the receiver when read from anSTBInFiler. |
530 Typically this is overridden by subclasses of STBProxy to answer the proxied object. Other classes |
524 Typically this is overridden by subclasses of STBProxy to answer the proxied object. Other classes |
683 arr at:2 put:(o2 := Point new). |
677 arr at:2 put:(o2 := Point new). |
684 o1 becomeSameAs:o2. |
678 o1 becomeSameAs:o2. |
685 (arr at:1) ~~ o2 ifTrue:[self halt]. |
679 (arr at:1) ~~ o2 ifTrue:[self halt]. |
686 " |
680 " |
687 ! ! |
681 ! ! |
688 |
|
689 |
|
690 |
682 |
691 !Object methodsFor:'accessing'! |
683 !Object methodsFor:'accessing'! |
692 |
684 |
693 _at:index |
685 _at:index |
694 "experimental: |
686 "experimental: |
1782 'abcdef' copy nilAllInstvars |
1774 'abcdef' copy nilAllInstvars |
1783 100 factorial nilAllInstvars |
1775 100 factorial nilAllInstvars |
1784 " |
1776 " |
1785 ! ! |
1777 ! ! |
1786 |
1778 |
1787 |
|
1788 |
|
1789 !Object methodsFor:'attributes access'! |
1779 !Object methodsFor:'attributes access'! |
1790 |
1780 |
1791 objectAttributeAt:attributeKey |
1781 objectAttributeAt:attributeKey |
1792 "return the attribute for a given key or nil if not found" |
1782 "return the attribute for a given key or nil if not found" |
1793 |
1783 |
1911 "Created: / 22.1.1998 / 21:29:39 / av" |
1901 "Created: / 22.1.1998 / 21:29:39 / av" |
1912 "Modified: / 18.2.2000 / 11:32:19 / cg" |
1902 "Modified: / 18.2.2000 / 11:32:19 / cg" |
1913 ! ! |
1903 ! ! |
1914 |
1904 |
1915 |
1905 |
1916 |
|
1917 |
|
1918 !Object methodsFor:'change & update'! |
1906 !Object methodsFor:'change & update'! |
1919 |
1907 |
1920 broadcast:aSelectorSymbol |
1908 broadcast:aSelectorSymbol |
1921 "send a message with selector aSelectorSymbol to all my dependents" |
1909 "send a message with selector aSelectorSymbol to all my dependents" |
1922 |
1910 |
2092 ^ aBlock value. |
2080 ^ aBlock value. |
2093 ]. |
2081 ]. |
2094 self removeDependent:someone. |
2082 self removeDependent:someone. |
2095 ^ aBlock ensure:[ self addDependent:someone ] |
2083 ^ aBlock ensure:[ self addDependent:someone ] |
2096 ! ! |
2084 ! ! |
2097 |
|
2098 |
2085 |
2099 !Object methodsFor:'comparing'! |
2086 !Object methodsFor:'comparing'! |
2100 |
2087 |
2101 = anObject |
2088 = anObject |
2102 "return true if the receiver and the arg have the same structure. |
2089 "return true if the receiver and the arg have the same structure. |
8189 yourself |
8176 yourself |
8190 "return the receiver - used for cascades to return self at the end" |
8177 "return the receiver - used for cascades to return self at the end" |
8191 |
8178 |
8192 ^ self |
8179 ^ self |
8193 ! ! |
8180 ! ! |
8194 |
|
8195 |
8181 |
8196 !Object methodsFor:'secure message sending'! |
8182 !Object methodsFor:'secure message sending'! |
8197 |
8183 |
8198 ?:selector |
8184 ?:selector |
8199 "try to send a message to the receiver; |
8185 "try to send a message to the receiver; |
8796 v := View new initialize. |
8782 v := View new initialize. |
8797 v references:Display. |
8783 v references:Display. |
8798 " |
8784 " |
8799 ! ! |
8785 ! ! |
8800 |
8786 |
8801 |
|
8802 !Object methodsFor:'synchronized evaluation'! |
8787 !Object methodsFor:'synchronized evaluation'! |
8803 |
8788 |
8804 freeSynchronizationSemaphore |
8789 freeSynchronizationSemaphore |
8805 "free synchronizationSemaphore. May be used, to save memory when |
8790 "free synchronizationSemaphore. May be used, to save memory when |
8806 an object is no longer used synchronized." |
8791 an object is no longer used synchronized." |
10018 Must replace foo isMemberOf:String and foo class == String" |
10003 Must replace foo isMemberOf:String and foo class == String" |
10019 |
10004 |
10020 ^ false |
10005 ^ false |
10021 ! |
10006 ! |
10022 |
10007 |
|
10008 isSocket |
|
10009 "return true, if the receiver is some kind of socket; |
|
10010 false returned here - the method is only redefined in Socket." |
|
10011 |
|
10012 ^ false |
|
10013 ! |
|
10014 |
10023 isSocketAddress |
10015 isSocketAddress |
10024 ^ false |
10016 ^ false |
10025 ! |
10017 ! |
10026 |
10018 |
10027 isSpecialInstrumentationInfoLiteral |
10019 isSpecialInstrumentationInfoLiteral |
10591 Subclasses redefine this to pass their type in the message name (i.e. visitXXX:)" |
10583 Subclasses redefine this to pass their type in the message name (i.e. visitXXX:)" |
10592 |
10584 |
10593 ^ aVisitor visitObject:self with:aParameter |
10585 ^ aVisitor visitObject:self with:aParameter |
10594 ! ! |
10586 ! ! |
10595 |
10587 |
10596 |
|
10597 |
|
10598 |
|
10599 !Object class methodsFor:'documentation'! |
10588 !Object class methodsFor:'documentation'! |
10600 |
10589 |
10601 version |
10590 version |
10602 ^ '$Header$' |
10591 ^ '$Header$' |
10603 ! |
10592 ! |