equal
deleted
inserted
replaced
80 "a list of known features; some of them might not be present in that smalltalk configuration" |
80 "a list of known features; some of them might not be present in that smalltalk configuration" |
81 |
81 |
82 ^ self class methodDictionary keys |
82 ^ self class methodDictionary keys |
83 collect:[:each | |
83 collect:[:each | |
84 (each startsWith:'has') ifTrue:[ |
84 (each startsWith:'has') ifTrue:[ |
85 each copyFrom:4 |
85 (each endsWith:':') ifFalse:[ |
|
86 each copyFrom:4 |
|
87 ] |
86 ] ifFalse:[ |
88 ] ifFalse:[ |
87 nil |
89 nil |
88 ]. |
90 ]. |
89 ] |
91 ] |
90 thenSelect:[:nm | nm notNil] |
92 thenSelect:[:nm | nm notNil] |
235 ! ! |
237 ! ! |
236 |
238 |
237 !ConfigurableFeatures class methodsFor:'documentation'! |
239 !ConfigurableFeatures class methodsFor:'documentation'! |
238 |
240 |
239 version |
241 version |
240 ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.5 2012/01/18 10:00:40 cg Exp $' |
242 ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.6 2012/01/19 12:09:48 cg Exp $' |
241 ! |
243 ! |
242 |
244 |
243 version_CVS |
245 version_CVS |
244 ^ 'Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.5 2012/01/18 10:00:40 cg Exp ' |
246 ^ 'Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.6 2012/01/19 12:09:48 cg Exp ' |
245 ! |
247 ! |
246 |
248 |
247 version_SVN |
249 version_SVN |
248 ^ '$Id: ConfigurableFeatures.st 10761 2012-01-19 11:46:00Z vranyj1 $' |
250 ^ '$Id: ConfigurableFeatures.st 10763 2012-01-22 23:07:15Z vranyj1 $' |
249 ! ! |
251 ! ! |
250 |
252 |
251 |
253 |
252 |
254 |
253 |
255 |
254 |
256 |
|
257 |