Behavior.st
branchjv
changeset 18442 bd42fa983e3f
parent 18426 618b38afd88b
parent 18435 b58b1b222873
child 18571 8c6ab490b982
--- 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 $'
 ! !
+