changed: #knownFeatures
authorClaus Gittinger <cg@exept.de>
Thu, 19 Jan 2012 13:09:48 +0100
changeset 13948 5c482fe46e20
parent 13947 efccef803a92
child 13949 b82c0fc2b875
changed: #knownFeatures
ConfigurableFeatures.st
--- a/ConfigurableFeatures.st	Thu Jan 19 10:18:11 2012 +0100
+++ b/ConfigurableFeatures.st	Thu Jan 19 13:09:48 2012 +0100
@@ -57,7 +57,9 @@
     ^ self class methodDictionary keys
         collect:[:each | 
             (each startsWith:'has') ifTrue:[
-                each copyFrom:4
+                (each endsWith:':') ifFalse:[
+                    each copyFrom:4
+                ]
             ] ifFalse:[
                 nil
             ].
@@ -212,9 +214,9 @@
 !ConfigurableFeatures class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.5 2012-01-18 10:00:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.6 2012-01-19 12:09:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.5 2012-01-18 10:00:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.6 2012-01-19 12:09:48 cg Exp $'
 ! !