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