equal
deleted
inserted
replaced
518 ! ! |
518 ! ! |
519 |
519 |
520 |
520 |
521 |
521 |
522 |
522 |
|
523 |
523 !Object methodsFor:'Compatibility-Dolphin'! |
524 !Object methodsFor:'Compatibility-Dolphin'! |
524 |
525 |
525 stbFixup: anSTBInFiler at: newObjectIndex |
526 stbFixup: anSTBInFiler at: newObjectIndex |
526 "Answer the true object that must be used to represent the receiver when read from anSTBInFiler. |
527 "Answer the true object that must be used to represent the receiver when read from anSTBInFiler. |
527 Typically this is overridden by subclasses of STBProxy to answer the proxied object. Other classes |
528 Typically this is overridden by subclasses of STBProxy to answer the proxied object. Other classes |
678 arr at:2 put:(o2 := Point new). |
679 arr at:2 put:(o2 := Point new). |
679 o1 becomeSameAs:o2. |
680 o1 becomeSameAs:o2. |
680 (arr at:1) ~~ o2 ifTrue:[self halt]. |
681 (arr at:1) ~~ o2 ifTrue:[self halt]. |
681 " |
682 " |
682 ! ! |
683 ! ! |
683 |
|
684 |
684 |
685 |
685 |
686 !Object methodsFor:'accessing'! |
686 !Object methodsFor:'accessing'! |
687 |
687 |
688 at:index |
688 at:index |
2096 |
2096 |
2097 %{ /* NOCONTEXT */ |
2097 %{ /* NOCONTEXT */ |
2098 RETURN ( (self == anObject) ? false : true ); |
2098 RETURN ( (self == anObject) ? false : true ); |
2099 %} |
2099 %} |
2100 ! ! |
2100 ! ! |
2101 |
|
2102 |
2101 |
2103 !Object methodsFor:'converting'! |
2102 !Object methodsFor:'converting'! |
2104 |
2103 |
2105 -> anObject |
2104 -> anObject |
2106 "return an association with the receiver as key and |
2105 "return an association with the receiver as key and |
7178 ^ self |
7177 ^ self |
7179 ! ! |
7178 ! ! |
7180 |
7179 |
7181 |
7180 |
7182 !Object methodsFor:'secure message sending'! |
7181 !Object methodsFor:'secure message sending'! |
|
7182 |
|
7183 ?: selector |
|
7184 "try to send a message to the receiver; |
|
7185 if understood, return the value; |
|
7186 if not, return nil." |
|
7187 |
|
7188 ^ self perform:selector ifNotUnderstood:nil |
|
7189 |
|
7190 " |
|
7191 ApplicationModel new masterApplication resources first - error |
|
7192 ApplicationModel new ?: #masterApplication ?: #resources ?: #first - nil |
|
7193 " |
|
7194 |
|
7195 "Modified: / 20-10-2010 / 10:45:21 / cg" |
|
7196 ! |
7183 |
7197 |
7184 askFor:aSelector |
7198 askFor:aSelector |
7185 "try to send the receiver the message, aSelector. |
7199 "try to send the receiver the message, aSelector. |
7186 If it does not understand it, return false. |
7200 If it does not understand it, return false. |
7187 Otherwise the real value returned. |
7201 Otherwise the real value returned. |
9304 ! ! |
9318 ! ! |
9305 |
9319 |
9306 !Object class methodsFor:'documentation'! |
9320 !Object class methodsFor:'documentation'! |
9307 |
9321 |
9308 version |
9322 version |
9309 ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.652 2010-08-20 15:51:57 cg Exp $' |
9323 ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.653 2010-10-20 08:47:34 cg Exp $' |
9310 ! |
9324 ! |
9311 |
9325 |
9312 version_CVS |
9326 version_CVS |
9313 ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.652 2010-08-20 15:51:57 cg Exp $' |
9327 ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.653 2010-10-20 08:47:34 cg Exp $' |
9314 ! ! |
9328 ! ! |
9315 |
9329 |
9316 Object initialize! |
9330 Object initialize! |