equal
deleted
inserted
replaced
1453 previousVersionCode |
1453 previousVersionCode |
1454 "return the receivers previous versions source code" |
1454 "return the receivers previous versions source code" |
1455 |
1455 |
1456 "there is no previous version" |
1456 "there is no previous version" |
1457 ^ nil |
1457 ^ nil |
|
1458 ! |
|
1459 |
|
1460 sends:aSelectorSymbol |
|
1461 "return true, if this method contains a message-send |
|
1462 with aSelectorSymbol as selector." |
|
1463 |
|
1464 "/ (self referencesLiteral:aSelectorSymbol) ifTrue:[ |
|
1465 "/ ^ self messagesSent includesIdentical:aSelectorSymbol |
|
1466 "/ ]. |
|
1467 ^ false |
1458 ! ! |
1468 ! ! |
1459 |
1469 |
1460 !SnapShotImageMemory::ImageClassObject methodsFor:'accessing - slots'! |
1470 !SnapShotImageMemory::ImageClassObject methodsFor:'accessing - slots'! |
1461 |
1471 |
1462 category |
1472 category |
3433 nmSym isNil ifTrue:[ |
3443 nmSym isNil ifTrue:[ |
3434 "/ no such symbol - there cannot be a corresponding private class |
3444 "/ no such symbol - there cannot be a corresponding private class |
3435 ^ nil |
3445 ^ nil |
3436 ]. |
3446 ]. |
3437 |
3447 |
3438 ^ memory at:nmSym. |
3448 ^ memory image at:nmSym. |
3439 ! |
3449 ! |
3440 |
3450 |
3441 privateClassesOrAll:allOfThem |
3451 privateClassesOrAll:allOfThem |
3442 "{ Pragma: +optSpace }" |
3452 "{ Pragma: +optSpace }" |
3443 |
3453 |
3928 ! |
3938 ! |
3929 |
3939 |
3930 at:aKey |
3940 at:aKey |
3931 |fullName| |
3941 |fullName| |
3932 |
3942 |
3933 aKey isSymbol ifFalse:[ |
3943 aKey isString ifFalse:[ |
3934 ^ super at:aKey |
3944 ^ super at:aKey |
3935 ]. |
3945 ]. |
3936 |
3946 |
3937 self isNameSpace ifFalse:[ self error ]. |
3947 self isNameSpace ifFalse:[ self error:'namespace expected' ]. |
3938 fullName := self name , '::' , aKey. |
3948 fullName := self name , '::' , aKey. |
3939 ^ memory image at:fullName asSymbol |
3949 ^ memory image at:fullName asSymbol |
3940 ! ! |
3950 ! ! |
3941 |
3951 |
3942 !SnapShotImageMemory::ImageClassObject methodsFor:'printing'! |
3952 !SnapShotImageMemory::ImageClassObject methodsFor:'printing'! |
4040 isSignedWords |
4050 isSignedWords |
4041 ^ (self flags bitAnd:Behavior maskIndexType) == Behavior flagSignedWords. |
4051 ^ (self flags bitAnd:Behavior maskIndexType) == Behavior flagSignedWords. |
4042 ! |
4052 ! |
4043 |
4053 |
4044 isTopLevelNameSpace |
4054 isTopLevelNameSpace |
4045 "return true, if this is a nameSpace." |
4055 "return true, if this is a top level nameSpace." |
4046 |
4056 |
4047 <resource:#obsolete> |
4057 ^ self isNameSpace and:[(self name includes:$:) not] |
4048 |
|
4049 ^ self isNameSpace |
|
4050 ! |
|
4051 |
|
4052 isTopLevelNamespace |
|
4053 "return true, if this is a nameSpace." |
|
4054 |
|
4055 <resource:#obsolete> |
|
4056 |
|
4057 ^ self isNameSpace |
|
4058 ! |
4058 ! |
4059 |
4059 |
4060 isVariable |
4060 isVariable |
4061 ^ (self flags bitAnd:Behavior maskIndexType) ~= 0. |
4061 ^ (self flags bitAnd:Behavior maskIndexType) ~= 0. |
4062 ! |
4062 ! |
4101 |
4101 |
4102 supportsMethodCategories |
4102 supportsMethodCategories |
4103 ^ true |
4103 ^ true |
4104 ! |
4104 ! |
4105 |
4105 |
|
4106 topNameSpace |
|
4107 "return the nameSpace of my topOwningClass (if private) or my own nameSpace." |
|
4108 |
|
4109 self isPrivate ifTrue:[^ self topOwningClass topNameSpace]. |
|
4110 ^ self nameSpace |
|
4111 ! |
|
4112 |
4106 topOwningClass |
4113 topOwningClass |
4107 |owner| |
4114 |owner| |
4108 |
4115 |
4109 classRef isPrivateMeta ifTrue:[ |
4116 classRef isPrivateMeta ifTrue:[ |
4110 owner := self owningClass. |
4117 owner := self owningClass. |