equal
deleted
inserted
replaced
2865 |
2865 |
2866 !Object methodsFor:'debugging'! |
2866 !Object methodsFor:'debugging'! |
2867 |
2867 |
2868 assert:aBooleanOrBlock |
2868 assert:aBooleanOrBlock |
2869 "fail, if the argument is not true and report an error" |
2869 "fail, if the argument is not true and report an error" |
2870 |
|
2871 "{ Pragma: +optSpace }" |
|
2872 |
2870 |
2873 aBooleanOrBlock == true ifTrue:[^ self]. |
2871 aBooleanOrBlock == true ifTrue:[^ self]. |
2874 "/ could still be a block or false. |
2872 "/ could still be a block or false. |
2875 self |
2873 self |
2876 assert:aBooleanOrBlock |
2874 assert:aBooleanOrBlock |
8268 |
8266 |
8269 "Created: 14.5.1996 / 17:03:45 / cg" |
8267 "Created: 14.5.1996 / 17:03:45 / cg" |
8270 ! |
8268 ! |
8271 |
8269 |
8272 isBehavior |
8270 isBehavior |
8273 "return true, if the receiver is some kind of class (i.e. behavior); |
8271 "return true, if the receiver is describing another objects behavior. |
8274 false is returned here - the method is only redefined in Behavior." |
8272 False is returned here - the method is only redefined in Behavior." |
8275 |
8273 |
8276 ^ false |
8274 ^ false |
8277 ! |
8275 ! |
8278 |
8276 |
8279 isBlock |
8277 isBlock |
8668 |
8666 |
8669 ^ false |
8667 ^ false |
8670 ! |
8668 ! |
8671 |
8669 |
8672 isNameSpace |
8670 isNameSpace |
8673 "return true, if this is a nameSpace. |
8671 "return true, if the receiver is a nameSpace. |
8674 false is returned here - the method is only redefined in Namespace." |
8672 False is returned here - the method is only redefined in Namespace." |
8675 |
8673 |
8676 ^ false |
8674 ^ false |
8677 |
8675 |
8678 "Created: / 11.10.1996 / 18:08:56 / cg" |
8676 "Created: / 11.10.1996 / 18:08:56 / cg" |
8679 "Modified: / 8.5.1998 / 21:26:05 / cg" |
8677 "Modified: / 8.5.1998 / 21:26:05 / cg" |
8688 self obsoleteMethodWarning:'use #isNameSpace'. |
8686 self obsoleteMethodWarning:'use #isNameSpace'. |
8689 ^ self isNameSpace |
8687 ^ self isNameSpace |
8690 ! |
8688 ! |
8691 |
8689 |
8692 isNil |
8690 isNil |
8693 "return true, if the receiver is nil. |
8691 "Return true, if the receiver is nil. |
|
8692 Because isNil is redefined in UndefinedObject, |
|
8693 the receiver is definitely not nil here, so unconditionally return false. |
8694 Notice: |
8694 Notice: |
8695 This method is open coded (inlined) by the compiler(s) |
8695 This method is open coded (inlined) by the compiler(s) |
8696 - redefining it may not work as expected." |
8696 - redefining it may not work as expected." |
8697 |
8697 |
8698 ^ false |
8698 ^ false |
8856 |
8856 |
8857 ^ true |
8857 ^ true |
8858 ! |
8858 ! |
8859 |
8859 |
8860 notNil |
8860 notNil |
8861 "return true, if the receiver is not nil. |
8861 "Return true, if the receiver is not nil. |
|
8862 Because notNil is redefined in UndefinedObject, |
|
8863 the receiver is definitely not nil here, so unconditionally return true. |
8862 Notice: |
8864 Notice: |
8863 This method is open coded (inlined) by the compiler(s) |
8865 This method is open coded (inlined) by the compiler(s) |
8864 - redefining it may not work as expected." |
8866 - redefining it may not work as expected." |
8865 |
8867 |
8866 ^ true |
8868 ^ true |
9321 ! ! |
9323 ! ! |
9322 |
9324 |
9323 !Object class methodsFor:'documentation'! |
9325 !Object class methodsFor:'documentation'! |
9324 |
9326 |
9325 version |
9327 version |
9326 ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.548 2006-03-03 19:33:58 stefan Exp $' |
9328 ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.549 2006-03-06 08:57:09 cg Exp $' |
9327 ! ! |
9329 ! ! |
9328 |
9330 |
9329 Object initialize! |
9331 Object initialize! |