hg/stx-libbasic: comparison Behavior.st

equal deleted inserted replaced

-:5a09e2a164af
+:8734987eb5c7
 SmallInteger selectorsWithArgs:4
 "
 !
 theNonMetaClass
+<resource: #obsolete>
 "alias for theNonMetaclass (Squeak) - return the class.
 sigh; in ST/X, it is called theNonMetaclass; please use that."
 ^ self theNonMetaclass
 shortName
 ^ self nameWithoutPrefix
 ! !
 !Behavior methodsFor:'RefactoringBrowser'!
 realClass
 "for compatibility with RBAbstractClass"
 1st argument to the methodDictionary. Flushes all caches."
 |oldMethod ns nsName selector newLookupObject|
 (newSelector isMemberOf:Symbol) ifFalse:[
-self error:'invalid selector'.
+	self error:'invalid selector'.
 ].
 ns := newMethod nameSpace.
 (ns notNil and:[(nsName := ns name) ~= self programmingLanguage defaultSelectorNameSpacePrefix]) ifTrue:[
-selector := (':' , nsName , '::' , newSelector) asSymbol.
+	selector := (':' , nsName , '::' , newSelector) asSymbol.
-newLookupObject := Smalltalk at: #NamespaceAwareLookup. "/ so it can be nilled to disable that feature
+	newLookupObject := Smalltalk at: #NamespaceAwareLookup. "/ so it can be nilled to disable that feature
 ] ifFalse:[
-selector := newSelector
+	selector := newSelector
 ].
 "/ Q (cg): isn't that something that the caller should decide?
 oldMethod := self compiledMethodAt:selector.
 oldMethod notNil ifTrue:[
-newMethod restricted:(oldMethod isRestricted).
+	newMethod restricted:(oldMethod isRestricted).
-newMethod setPrivacy:(oldMethod privacy) flushCaches:false.
+	newMethod setPrivacy:(oldMethod privacy) flushCaches:false.
 ].
 (self primAddSelector:selector withMethod:newMethod) ifFalse:[^ false].
 newLookupObject notNil ifTrue:[
-lookupObject ~= newLookupObject ifTrue:[
+	lookupObject ~= newLookupObject ifTrue:[
-self lookupObject: newLookupObject
+	    self lookupObject: newLookupObject
-]
+	]
 ].
 "
 if I have no subclasses, all we have to flush is cached
 data for myself ... (actually, in any case all that needs
 to be flushed is info for myself and all of my subclasses)
 "
 "
 problem: this is slower; since looking for all subclasses is (currently)
-a bit slow :-(
+	     a bit slow :-(
-We need the hasSubclasses-info bit in Behavior; now
+	     We need the hasSubclasses-info bit in Behavior; now
 self withAllSubclassesDo:[:aClass |
-ObjectMemory flushInlineCachesFor:aClass withArgs:nargs.
+	ObjectMemory flushInlineCachesFor:aClass withArgs:nargs.
-ObjectMemory flushMethodCacheFor:aClass
+	ObjectMemory flushMethodCacheFor:aClass
 ].
 "
 "/
 "/ pass the selector AND the old method as changeArg
 !Behavior methodsFor:'cleanup'!
 flushSubclasses
-"I dont keep my subclasses - but if anyone inherits from me,
+"I don't keep my subclasses - but if anyone inherits from me,
 it better knows how to ignore this"
 !
 lowSpaceCleanup
 "ignored here - redefined in some classes to
 a garbage collect.
 This means, that the VM wanted to get some more memory from the
 Operatingsystem, which was not kind enough to give it.
 Bad luck - you should increase the swap space on your machine.
 "
-^ ObjectMemory allocationFailureSignal raise.
+^ AllocationFailure raise.
 !
 basicNew:anInteger
 "return an instance of myself with anInteger indexed variables.
 If the receiver-class has no indexed instvars, this is only allowed
 a garbage collect.
 This means, that the VM wanted to get some more memory from the
 Operatingsystem, which was not kind enough to give it.
 Bad luck - you should increase the swap space on your machine.
 "
-^ ObjectMemory allocationFailureSignal raise.
+^ AllocationFailure raise.
 !
 decodeFromLiteralArray:anArray
 "create & return a new instance from information encoded in anArray."
 ^ nil
 !
 nameWithArticle
 "return a string consisting of classname preceeded by an article.
-(dont expect me to write national variants for this ... :-)
+(don't expect me to write national variants for this ... :-)
 If you have special preferences, redefine it..."
 |classname|
 classname := self name.
 "return true, if the receiver implements aSelector.
 (i.e. implemented in THIS class - NOT in a superclass).
 This is semantically equivalent to includesSelector: (which is ST/80/Squeak compatibility).
 Caveat:
-	This simply checks for the selector being present in the classes
+This simply checks for the selector being present in the classes
-	selector table - therefore, it does not care for ignoredMethods.
+selector table - therefore, it does not care for ignoredMethods.
-	(but: you should not use this method for protocol-testing, anyway).
+(but: you should not use this method for protocol-testing, anyway).
 Hint:
-	Dont use this method to check if someone responds to a message -
+Don't use this method to check if someone responds to a message -
-	use #canUnderstand: on the class or #respondsTo: on the instance
+use #canUnderstand: on the class or #respondsTo: on the instance
-	to do this."
+to do this."
 ^ self includesSelector:aSelector
 "
 notice: this is class protocol

branch	jv
changeset 21024	8734987eb5c7
parent 20580	bb4e5c4f84ef
parent 20823	73e7da80f87c
child 21026	81e280fc1b93