--- a/UIPainterView.st Fri Jan 18 11:27:31 2008 +0100
+++ b/UIPainterView.st Mon Jan 21 14:32:07 2008 +0100
@@ -750,17 +750,17 @@
].
(aProp spec aspectSelectors) do:[:aSel |
- (aSel isArray or:[aSel isBoolean]) ifFalse:[
+ (aSel isString or:[aSel isSymbol]) ifTrue:[
aTwoArgBlock value:(aSel asSymbol) value:#channelAspect
].
].
aProp spec actionSelectors do:[:aSel|
- (aSel isArray or:[aSel isBoolean]) ifFalse:[
+ (aSel isString or:[aSel isSymbol]) ifTrue:[
aTwoArgBlock value:(aSel asSymbol) value:#actionSelector
].
].
aProp spec valueSelectors do:[:aSel|
- (aSel isArray or:[aSel isBoolean]) ifFalse:[
+ (aSel isString or:[aSel isSymbol]) ifTrue:[
aTwoArgBlock value:(aSel asSymbol) value:#valueSelector
].
]
@@ -1175,7 +1175,7 @@
generateCodeFrom:aListOfSelectors in:aClass do:aBlock
|realSelectors redefCondition redefMessage|
- realSelectors := aListOfSelectors reject:[:sel | sel isArray or:[sel isBoolean]].
+ realSelectors := aListOfSelectors select:[:sel | sel isString or:[sel isSymbol]].
self class redefineAspectMethods ifTrue:[
redefCondition := [:cls :sel | (cls includesSelector:sel) not].
@@ -1566,8 +1566,9 @@
].
"/ aspects addAll:aProp spec actionSelectors.
- aspects addAll:aProp spec valueSelectors.
- aspects addAll:aProp spec aspectSelectors.
+
+ aspects addAll:(aProp spec valueSelectors select:[:a | a isString or:[a isSymbol]]).
+ aspects addAll:(aProp spec aspectSelectors select:[:a | a isString or:[a isSymbol]]).
].
^ aspects asOrderedCollection sort.