--- 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 $'
! !