# HG changeset patch # User Stefan Vogel # Date 1093889778 -7200 # Node ID 9e7fd350205f98a966ff82c500ab491ffb3c35a2 # Parent 056f10fc00cd51f26e30d7a603ef7efc833ad1b6 Use MessageNotUnderstood>>#selector diff -r 056f10fc00cd -r 9e7fd350205f 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 $' ! !