class: ProtoObject
authorStefan Vogel <sv@exept.de>
Fri, 05 Jun 2015 18:10:58 +0200
changeset 18439 b9ef8e4966e4
parent 18438 0655839a70f8
child 18440 dc5cde224664
class: ProtoObject changed: #ifNotNil: (send #argumentCount instead of #numArgs)
ProtoObject.st
--- a/ProtoObject.st	Fri Jun 05 18:10:36 2015 +0200
+++ b/ProtoObject.st	Fri Jun 05 18:10:58 2015 +0200
@@ -146,7 +146,7 @@
 !
 
 ifNotNil:aBlockOrValue
-    (aBlockOrValue isBlock and:[aBlockOrValue numArgs == 1]) ifTrue:[
+    (aBlockOrValue isBlock and:[aBlockOrValue argumentCount == 1]) ifTrue:[
         ^ aBlockOrValue value:self.
     ].
     ^ aBlockOrValue value
@@ -190,10 +190,10 @@
 !ProtoObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProtoObject.st,v 1.15 2015-05-16 09:50:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProtoObject.st,v 1.16 2015-06-05 16:10:58 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProtoObject.st,v 1.15 2015-05-16 09:50:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProtoObject.st,v 1.16 2015-06-05 16:10:58 stefan Exp $'
 ! !