equal
deleted
inserted
replaced
55 "a list of known features; some of them might not be present in that smalltalk configuration" |
55 "a list of known features; some of them might not be present in that smalltalk configuration" |
56 |
56 |
57 ^ self class methodDictionary keys |
57 ^ self class methodDictionary keys |
58 collect:[:each | |
58 collect:[:each | |
59 (each startsWith:'has') ifTrue:[ |
59 (each startsWith:'has') ifTrue:[ |
60 each copyFrom:4 |
60 (each endsWith:':') ifFalse:[ |
|
61 each copyFrom:4 |
|
62 ] |
61 ] ifFalse:[ |
63 ] ifFalse:[ |
62 nil |
64 nil |
63 ]. |
65 ]. |
64 ] |
66 ] |
65 thenSelect:[:nm | nm notNil] |
67 thenSelect:[:nm | nm notNil] |
210 ! ! |
212 ! ! |
211 |
213 |
212 !ConfigurableFeatures class methodsFor:'documentation'! |
214 !ConfigurableFeatures class methodsFor:'documentation'! |
213 |
215 |
214 version |
216 version |
215 ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.5 2012-01-18 10:00:40 cg Exp $' |
217 ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.6 2012-01-19 12:09:48 cg Exp $' |
216 ! |
218 ! |
217 |
219 |
218 version_CVS |
220 version_CVS |
219 ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.5 2012-01-18 10:00:40 cg Exp $' |
221 ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.6 2012-01-19 12:09:48 cg Exp $' |
220 ! ! |
222 ! ! |