equal
deleted
inserted
replaced
3157 " |
3157 " |
3158 |
3158 |
3159 "Modified: 23.6.1997 / 10:45:57 / cg" |
3159 "Modified: 23.6.1997 / 10:45:57 / cg" |
3160 ! |
3160 ! |
3161 |
3161 |
|
3162 environment |
|
3163 "return the namespace I am contained in; ST-80 compatible name. |
|
3164 Not normally needed here, but added to allow for instances of anonymous behaviours |
|
3165 to be inspected or browsed." |
|
3166 |
|
3167 ^ nil |
|
3168 ! |
|
3169 |
3162 firstDefinitionSelectorPart |
3170 firstDefinitionSelectorPart |
3163 "return the first part of the selector with which I was (can be) defined in my superclass" |
3171 "return the first part of the selector with which I was (can be) defined in my superclass" |
3164 |
3172 |
3165 self isVariable ifFalse:[ |
3173 self isVariable ifFalse:[ |
3166 ^ #'subclass:' |
3174 ^ #'subclass:' |
3238 |
3246 |
3239 ^ false |
3247 ^ false |
3240 |
3248 |
3241 "Modified: 23.4.1996 / 15:55:52 / cg" |
3249 "Modified: 23.4.1996 / 15:55:52 / cg" |
3242 "Created: 28.10.1996 / 15:10:02 / cg" |
3250 "Created: 28.10.1996 / 15:10:02 / cg" |
|
3251 ! |
|
3252 |
|
3253 isObsolete |
|
3254 "return true, if the receiver is obsolete |
|
3255 (i.e. has been replaced by a different class or was removed, |
|
3256 but is still referenced by instanced). |
|
3257 Not normally needed here, but added to allow for instances of anonymous behaviours |
|
3258 to be inspected or browsed." |
|
3259 |
|
3260 ^ false |
3243 ! |
3261 ! |
3244 |
3262 |
3245 isPrivate |
3263 isPrivate |
3246 "return true, if the receiver is some private class" |
3264 "return true, if the receiver is some private class" |
3247 |
3265 |
3318 |
3336 |
3319 self owningClass notNil ifTrue:[^ self topOwningClass]. |
3337 self owningClass notNil ifTrue:[^ self topOwningClass]. |
3320 ^ self |
3338 ^ self |
3321 ! |
3339 ! |
3322 |
3340 |
|
3341 privateClassesAt:aClassNameStringOrSymbol |
|
3342 "return a private class if present; nil otherwise. |
|
3343 Not normally needed here, but added to allow for instances of anonymous behaviours |
|
3344 to be inspected or browsed." |
|
3345 |
|
3346 ^ nil |
|
3347 ! |
|
3348 |
|
3349 realSharedPoolNames |
|
3350 "this returns the namespace aware pool names. |
|
3351 Not normally needed here, but added to allow for instances of anonymous behaviours |
|
3352 to be inspected or browsed." |
|
3353 |
|
3354 ^ #() |
|
3355 ! |
|
3356 |
3323 revision |
3357 revision |
3324 ^ nil |
3358 ^ nil |
3325 |
3359 |
3326 "Created: / 03-08-2006 / 01:53:44 / cg" |
3360 "Created: / 03-08-2006 / 01:53:44 / cg" |
3327 ! |
3361 ! |
3390 |
3424 |
3391 ^ self |
3425 ^ self |
3392 |
3426 |
3393 "Created: / 30.1.2000 / 23:07:59 / cg" |
3427 "Created: / 30.1.2000 / 23:07:59 / cg" |
3394 "Modified: / 31.1.2000 / 16:17:46 / cg" |
3428 "Modified: / 31.1.2000 / 16:17:46 / cg" |
|
3429 ! |
|
3430 |
|
3431 topNameSpace |
|
3432 "return the nameSpace of my topOwningClass (if private) or my own nameSpace. |
|
3433 Not normally needed here, but added to allow for instances of anonymous behaviours |
|
3434 to be inspected or browsed." |
|
3435 |
|
3436 ^ nil |
3395 ! |
3437 ! |
3396 |
3438 |
3397 topOwningClass |
3439 topOwningClass |
3398 "return my outermost owning class - nil if I am a public class" |
3440 "return my outermost owning class - nil if I am a public class" |
3399 |
3441 |
4849 ! ! |
4891 ! ! |
4850 |
4892 |
4851 !Behavior class methodsFor:'documentation'! |
4893 !Behavior class methodsFor:'documentation'! |
4852 |
4894 |
4853 version |
4895 version |
4854 ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.337 2013-04-17 19:20:02 cg Exp $' |
4896 ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.338 2013-04-17 19:37:45 cg Exp $' |
4855 ! |
4897 ! |
4856 |
4898 |
4857 version_CVS |
4899 version_CVS |
4858 ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.337 2013-04-17 19:20:02 cg Exp $' |
4900 ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.338 2013-04-17 19:37:45 cg Exp $' |
4859 ! ! |
4901 ! ! |
4860 |
4902 |