equal
deleted
inserted
replaced
3014 ^ self name asString |
3014 ^ self name asString |
3015 |
3015 |
3016 ! |
3016 ! |
3017 |
3017 |
3018 isBehavior |
3018 isBehavior |
3019 "return true, if the receiver is describing another objects behavior, |
3019 "return true, if the receiver is describing another objects behavior. |
3020 i.e. is a class. Defined to avoid the need to use isKindOf:" |
3020 Defined to avoid the need to use isKindOf:" |
3021 |
3021 |
3022 ^ true |
3022 ^ true |
3023 |
3023 |
3024 " |
3024 " |
3025 True isBehavior |
3025 True isBehavior |
3173 "Created: 30.7.1997 / 14:59:08 / cg" |
3173 "Created: 30.7.1997 / 14:59:08 / cg" |
3174 "Modified: 30.7.1997 / 15:02:03 / cg" |
3174 "Modified: 30.7.1997 / 15:02:03 / cg" |
3175 ! |
3175 ! |
3176 |
3176 |
3177 theMetaclass |
3177 theMetaclass |
3178 "return my metaclass, also implemented in my metaclass, which also returns iteself." |
3178 "return my metaclass, also implemented in my metaclass, which returns itself." |
3179 |
3179 |
3180 ^ self class |
3180 ^ self class |
3181 |
3181 |
3182 "Created: / 30.1.2000 / 23:08:30 / cg" |
3182 "Created: / 30.1.2000 / 23:08:30 / cg" |
3183 "Modified: / 31.1.2000 / 16:16:52 / cg" |
3183 "Modified: / 31.1.2000 / 16:16:52 / cg" |
4047 |
4047 |
4048 "Modified: 19.6.1997 / 18:14:35 / cg" |
4048 "Modified: 19.6.1997 / 18:14:35 / cg" |
4049 ! |
4049 ! |
4050 |
4050 |
4051 includesSelector:aSelector |
4051 includesSelector:aSelector |
4052 "return true, if the methodDictionary of THIS class includes |
4052 "return true, if the methodDictionary of THIS class includes a method for aSelector. |
4053 a method for aSelector. |
|
4054 (i.e. if aSelector is implemented in THIS class - NOT in a superclass). |
4053 (i.e. if aSelector is implemented in THIS class - NOT in a superclass). |
4055 |
4054 |
4056 Hint: |
4055 Hint: |
4057 Dont use this method to check if someone responds to a message - |
4056 Dont use this method to check if someone responds to a message - |
4058 use #canUnderstand: on the class or #respondsTo: on the instance |
4057 use #canUnderstand: on the class or #respondsTo: on the instance |
4059 to do this." |
4058 to do this." |
4060 |
4059 |
4061 ^ self methodDictionary includesKey:aSelector |
4060 ^ self methodDictionary includesKey:aSelector |
4062 |
4061 |
4063 " |
4062 " |
4064 Object includesSelector:#== |
4063 Object includesSelector:#== |
4065 Object includesSelector:#murks |
4064 Object includesSelector:#murks |
4066 " |
4065 " |
4067 |
4066 |
4068 "Modified: / 7.6.1996 / 14:27:24 / stefan" |
4067 "Modified: / 7.6.1996 / 14:27:24 / stefan" |
4069 "Modified: / 16.10.1998 / 13:00:15 / cg" |
4068 "Modified: / 16.10.1998 / 13:00:15 / cg" |
4070 ! |
4069 ! |
4443 ! ! |
4442 ! ! |
4444 |
4443 |
4445 !Behavior class methodsFor:'documentation'! |
4444 !Behavior class methodsFor:'documentation'! |
4446 |
4445 |
4447 version |
4446 version |
4448 ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.253 2006-02-23 21:34:26 cg Exp $' |
4447 ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.254 2006-03-06 08:52:17 cg Exp $' |
4449 ! ! |
4448 ! ! |