hg/stx-libtool2: changeset 2251:afc2987e67b1

author	Claus Gittinger <cg@exept.de>
	Mon, 21 Jan 2008 14:32:13 +0100
changeset 2251	afc2987e67b1
parent 2250	e65b8bf6224b
child 2252	e2804df19f8c

care for non-symbolic aspects (false)

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