--- a/Behavior.st Sat Feb 13 02:18:55 2016 +0100
+++ b/Behavior.st Sat Feb 13 11:12:39 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
@@ -25,7 +23,7 @@
!Behavior class methodsFor:'documentation'!
VS
- ^ '§Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.315 2011/11/29 10:20:21 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.315 2011/11/29 10:20:21 cg Exp §'
!
copyright
@@ -76,25 +74,25 @@
[Instance variables:]
- superclass <Class> the receivers superclass
-
- methodDictionary <MethodDictionary> inst-selectors and methods
-
- instSize <SmallInteger> the number of instance variables
-
- flags <SmallInteger> special flag bits coded in a number
- not for application use
+ superclass <Class> the classes superclass
+
+ methodDictionary <MethodDictionary> inst-selectors and methods
+
+ instSize <SmallInteger> the number of instance variables
+
+ flags <SmallInteger> special flag bits coded in a number
+ not for application use
flag bits (see stc.h):
NOTICE: layout known by compiler and runtime system; be careful when changing
[author:]
- Claus Gittinger
+ Claus Gittinger
[see also:]
- Class ClassDescription Metaclass
- Method MethodDictionary
+ Class ClassDescription Metaclass
+ Method MethodDictionary
"
!
@@ -1404,7 +1402,7 @@
!
getMethodDictionary
- "ST 80 compatibility: return the receivers method dictionary."
+ "ST 80 compatibility: return the receiver's method dictionary."
^ self methodDictionary
@@ -1426,7 +1424,6 @@
^ self nameWithoutPrefix
! !
-
!Behavior methodsFor:'RefactoringBrowser'!
realClass
@@ -1642,7 +1639,7 @@
!
methodDictionary
- "return the receivers method dictionary."
+ "return the receiver's method dictionary."
^ methodDictionary
@@ -1651,11 +1648,11 @@
!
methodDictionary:dict
- "set the receivers method dictionary and flush inline caches."
+ "set the receiver's method dictionary and flush inline caches."
dict isNil ifTrue:[
- self error:'attempt to set methodDictionary to nil.' mayProceed:true.
- ^ self
+ self error:'attempt to set methodDictionary to nil.' mayProceed:true.
+ ^ self
].
self setMethodDictionary:dict.
ObjectMemory flushCaches.
@@ -1678,15 +1675,15 @@
!
selectors
- "return the receivers selector array as an orderedCollection.
+ "return the receiver's selector array as an OrderedCollection.
Notice: this may not be compatible with ST-80.
(should we return a Set ?)"
|md|
(md := self methodDictionary) isNil ifTrue:[
- 'oops - nil methodDictionary' errorPrintCR.
- ^ #()
+ 'oops - nil methodDictionary' errorPrintCR.
+ ^ #()
].
^ md keys
@@ -1695,7 +1692,7 @@
!
superclass
- "return the receivers superclass"
+ "return the receiver's superclass"
^ superclass
! !
@@ -3300,7 +3297,7 @@
!
setMethodDictionary:dict
- "set the receivers method dictionary.
+ "set the receiver's method dictionary.
Convert dict to a MethodDictionary if necessary.
Do not flush inline caches, therefore old cached methods may be executed
after this call"
@@ -3317,19 +3314,19 @@
"/ No other classes instances are allowed.
dict class ~~ MethodDictionary ifTrue:[
- methodDictionary := MethodDictionary withAll:dict.
- methodDictionary isNil ifTrue:[
-
- "/ refuse to do this
- "/ (can only happen in case of memory allocation trouble,
- "/ where the allocation failed and some exception handler returned
- "/ nil ...)
-
- self error:'cannot set methodDictionary to nil' mayProceed:true.
- ^ self.
- ]
+ methodDictionary := MethodDictionary withAll:dict.
+ methodDictionary isNil ifTrue:[
+
+ "/ refuse to do this
+ "/ (can only happen in case of memory allocation trouble,
+ "/ where the allocation failed and some exception handler returned
+ "/ nil ...)
+
+ self error:'cannot set methodDictionary to nil' mayProceed:true.
+ ^ self.
+ ]
] ifFalse:[
- methodDictionary := dict.
+ methodDictionary := dict.
].
^ self.
@@ -3868,18 +3865,18 @@
!
allSuperclasses
- "return a collection of the receivers accumulated superclasses"
+ "return a collection of the receiver's accumulated superclasses"
|aCollection theSuperClass|
theSuperClass := self superclass.
theSuperClass isNil ifTrue:[
- ^ #()
+ ^ #()
].
aCollection := OrderedCollection new.
[theSuperClass notNil] whileTrue:[
- aCollection add:theSuperClass.
- theSuperClass := theSuperClass superclass
+ aCollection add:theSuperClass.
+ theSuperClass := theSuperClass superclass
].
^ aCollection
@@ -3948,7 +3945,7 @@
inheritsFrom:aClass
"return true, if the receiver inherits methods from aClass;
- i.e. if aClass is on the receivers superclass chain."
+ i.e. if aClass is on the receiver's superclass chain."
^ self isSubclassOf:aClass
@@ -4033,7 +4030,7 @@
!
superclasses
- "return a collection of the receivers immediate superclasses.
+ "return a collection of the receiver's immediate superclasses.
This method is a preparation for a future multiple inheritance extension
- currently it is not supported by the VM"
@@ -4066,13 +4063,13 @@
withAllSuperclasses
"return a collection containing the receiver and all
- of the receivers accumulated superclasses"
+ of the receiver's accumulated superclasses"
|coll|
coll := OrderedCollection new.
self withAllSuperclassesDo:[:cls |
- coll add:cls
+ coll add:cls
].
^ coll
@@ -4652,13 +4649,13 @@
allSelectors
"return a collection of all selectors understood by the receiver;
this includes my selectors and all superclass selectors
- (i.e. the receivers full protocol)"
+ (i.e. the receiver's full protocol)"
|superclass|
superclass := self superclass.
superclass notNil ifTrue:[
- ^ superclass allSelectors addAll:(self selectors); yourself.
+ ^ superclass allSelectors addAll:(self selectors); yourself.
].
^ self selectors asNewIdentitySet