Use MessageNotUnderstood>>#selector
authorStefan Vogel <sv@exept.de>
Mon, 30 Aug 2004 20:16:18 +0200
changeset 2011 9e7fd350205f
parent 2010 056f10fc00cd
child 2012 b5a9deb1651b
Use MessageNotUnderstood>>#selector
WindowBuilder.st
--- a/WindowBuilder.st	Thu Aug 19 20:16:18 2004 +0200
+++ b/WindowBuilder.st	Mon Aug 30 20:16:18 2004 +0200
@@ -759,7 +759,7 @@
 
     aSelector notNil ifTrue:[
         handlerBlock := [:ex|
-                            (ex parameter selector ~~ aSelector) ifTrue:[
+                            (ex selector ~~ aSelector) ifTrue:[
                                 ex reject
                             ]
                         ].
@@ -836,7 +836,7 @@
         handlerBlock := [:ex|
                             |badSel|
 
-                            badSel := ex parameter selector.
+                            badSel := ex selector.
                             (badSel ~~ aSelector and:[badSel ~~ arg1]) ifTrue:[
                                 ex reject
                             ]
@@ -1369,5 +1369,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.118 2004-08-18 09:21:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.119 2004-08-30 18:16:18 stefan Exp $'
 ! !