changeset 8285 | 53824703669c |
parent 8281 | 76b406c7cc2b |
child 8356 | 96c5195d52c7 |
8284:e73710353292 | 8285:53824703669c |
---|---|
2008 coll do:aBlock. |
2008 coll do:aBlock. |
2009 ]. |
2009 ]. |
2010 ^ self |
2010 ^ self |
2011 ]. |
2011 ]. |
2012 |
2012 |
2013 coll := OrderedCollection new. |
|
2013 Smalltalk allClassesDo:[:aClass | |
2014 Smalltalk allClassesDo:[:aClass | |
2014 (aClass superclass == self) ifTrue:[ |
2015 (aClass superclass == self) ifTrue:[ |
2015 aBlock value:aClass |
2016 coll add:aClass |
2016 ] |
2017 ] |
2017 ] |
2018 ]. |
2019 |
|
2020 SubclassInfo notNil ifTrue:[ |
|
2021 SubclassInfo at:self put:coll. |
|
2022 ]. |
|
2023 |
|
2024 coll do:aBlock. |
|
2018 |
2025 |
2019 " |
2026 " |
2020 Collection subclassesDo:[:c | Transcript showCR:(c name)] |
2027 Collection subclassesDo:[:c | Transcript showCR:(c name)] |
2021 " |
2028 " |
2022 |
2029 |
4696 ! ! |
4703 ! ! |
4697 |
4704 |
4698 !Class class methodsFor:'documentation'! |
4705 !Class class methodsFor:'documentation'! |
4699 |
4706 |
4700 version |
4707 version |
4701 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.470 2004-04-01 11:53:57 cg Exp $' |
4708 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.471 2004-04-02 11:30:22 werner Exp $' |
4702 ! ! |
4709 ! ! |