# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1200922327 -3600
# Node ID e65b8bf6224b8c2ff81a2c0b5ab8035618dd88dc
# Parent  6d130f22ea91c5d3ba24a731425a7d71e5ad77e6
care for non-symbolic aspects (false)

diff -r 6d130f22ea91 -r e65b8bf6224b UIPainterView.st
--- 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.