Mercurial Mercurial > hg > stx-libcomp / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
implements -> includesSelector
authorClaus Gittinger <cg@exept.de>
Mon, 25 Feb 2002 21:05:05 +0100
changeset 1251 e5d27409e4f2
parent 1250 a7872b606f04
child 1252 666db3206028
implements -> includesSelector
BlockNode.st file | annotate | diff | comparison | revisions 
--- a/BlockNode.st	Mon Feb 25 20:58:58 2002 +0100
+++ b/BlockNode.st	Mon Feb 25 21:05:05 2002 +0100
@@ -195,34 +195,34 @@
 doesNotUnderstand:aMessage
     |numArgs kludgeBlock|
 
-    (Block implements:(aMessage selector)) ifTrue:[
+    (Block includesSelector:(aMessage selector)) ifTrue:[
 
-	"/ mhmh - a message which I dont understand, but Block implements
-	"/  send it to a kludgeblock, which will evaluate me again ..."
+        "/ mhmh - a message which I dont understand, but Block implements
+        "/  send it to a kludgeblock, which will evaluate me again ..."
 
-	numArgs := blockArgs size.
-	numArgs == 0 ifTrue:[
-	    kludgeBlock := [self value]
-	] ifFalse:[
-	    numArgs == 1 ifTrue:[
-		kludgeBlock := [:a1 | self value:a1].
-	    ] ifFalse:[
-		numArgs == 2 ifTrue:[
-		    kludgeBlock := [:a1 :a2 | self value:a1 value:a2].
-		] ifFalse:[
-		    numArgs == 3 ifTrue:[
-			kludgeBlock := [:a1 :a2 :a3| self value:a1 value:a2 value:a3].
-		    ] ifFalse:[
-			numArgs == 4 ifTrue:[
-			    kludgeBlock := [:a1 :a2 :a3 :a4| self value:a1 value:a2 value:a3 value:a4].
-			] ifFalse:[
-			    ^ self error:'only support blocks with up-to 4 args'
-			]
-		    ]
-		]
-	    ]
-	].
-	^ kludgeBlock perform:aMessage selector withArguments:aMessage arguments
+        numArgs := blockArgs size.
+        numArgs == 0 ifTrue:[
+            kludgeBlock := [self value]
+        ] ifFalse:[
+            numArgs == 1 ifTrue:[
+                kludgeBlock := [:a1 | self value:a1].
+            ] ifFalse:[
+                numArgs == 2 ifTrue:[
+                    kludgeBlock := [:a1 :a2 | self value:a1 value:a2].
+                ] ifFalse:[
+                    numArgs == 3 ifTrue:[
+                        kludgeBlock := [:a1 :a2 :a3| self value:a1 value:a2 value:a3].
+                    ] ifFalse:[
+                        numArgs == 4 ifTrue:[
+                            kludgeBlock := [:a1 :a2 :a3 :a4| self value:a1 value:a2 value:a3 value:a4].
+                        ] ifFalse:[
+                            ^ self error:'only support blocks with up-to 4 args'
+                        ]
+                    ]
+                ]
+            ]
+        ].
+        ^ kludgeBlock perform:aMessage selector withArguments:aMessage arguments
     ].
     ^ super doesNotUnderstand:aMessage
 ! !
@@ -945,5 +945,5 @@
 !BlockNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.59 2000-12-19 23:24:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.60 2002-02-25 20:05:05 cg Exp $'
 ! !
hg/stx-libcomp