--- a/Behavior.st Wed Jun 03 06:50:11 2015 +0200
+++ b/Behavior.st Sat Jun 06 06:39:31 2015 +0200
@@ -1326,7 +1326,7 @@
"Return all selectors defined in this class that take this number of arguments."
^ self selectors
- select:[:sel | sel numArgs == numberOfArgs]
+ select:[:sel | sel argumentCount == numberOfArgs]
"
SmallInteger selectorsWithArgs:0
@@ -1426,6 +1426,7 @@
^ self nameWithoutPrefix
! !
+
!Behavior methodsFor:'RefactoringBrowser'!
realClass
@@ -1513,7 +1514,7 @@
self primAddSelector:newSelector withMethod:newMethod.
- nargs := newMethod numArgs.
+ nargs := newMethod argumentCount.
ObjectMemory flushMethodCacheForSelector:newSelector.
"/ ObjectMemory flushMethodCache.
@@ -3284,22 +3285,22 @@
|dict oldMethod|
newMethod isNil ifTrue:[
- self error:'invalid method'.
+ self error:'invalid method'.
].
dict := self methodDictionary.
oldMethod := dict at:aSelector ifAbsent:nil.
(Smalltalk
- changeRequest:#methodInClass
- with:(Array with:self with:aSelector with:oldMethod)) ifFalse:[
- ^ false
+ changeRequest:#methodInClass
+ with:(Array with:self with:aSelector with:oldMethod)) ifFalse:[
+ ^ false
].
self setMethodDictionary:(dict at:aSelector putOrAppend:newMethod).
newMethod mclass:self.
- ObjectMemory flushCachesForSelector:aSelector numArgs:newMethod numArgs.
+ ObjectMemory flushCachesForSelector:aSelector numArgs:newMethod argumentCount.
^ true
"Modified: / 07-06-1996 / 14:48:45 / stefan"
@@ -5334,9 +5335,10 @@
!Behavior class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.380 2015-05-31 09:24:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.381 2015-06-05 16:09:05 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.380 2015-05-31 09:24:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.381 2015-06-05 16:09:05 stefan Exp $'
! !
+