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

diff -r e65b8bf6224b -r afc2987e67b1 UIPainter.st
--- a/UIPainter.st	Mon Jan 21 14:32:07 2008 +0100
+++ b/UIPainter.st	Mon Jan 21 14:32:13 2008 +0100
@@ -4967,8 +4967,12 @@
 
         spec exportedAspectsAddKey:(aProp model) type:nil.
         propsSpec := aProp spec.
-        propsSpec aspectSelectors do:[:aKey|spec exportedAspectsAddKey:aKey type:nil].
-        propsSpec actionSelectors do:[:aKey|spec exportedAspectsAddKey:aKey type:#action].
+        propsSpec aspectSelectors 
+                select:[:a | a isString or:[a isSymbol]] 
+                thenDo:[:aKey|spec exportedAspectsAddKey:aKey type:nil].
+        propsSpec actionSelectors 
+                select:[:a | a isString or:[a isSymbol]] 
+                thenDo:[:aKey|spec exportedAspectsAddKey:aKey type:#action].
     ].
   ^ spec
 !