equal
deleted
inserted
replaced
3368 "return a collection of classes which have a nil superclass" |
3368 "return a collection of classes which have a nil superclass" |
3369 |
3369 |
3370 |set| |
3370 |set| |
3371 |
3371 |
3372 set := IdentitySet new. |
3372 set := IdentitySet new. |
3373 Smalltalk allBehaviorsDo:[:aClass | |
3373 Smalltalk allClassesDo:[:aClass | |
3374 aClass superclass isNil ifTrue:[set add:aClass] |
3374 aClass superclass isNil ifTrue:[set add:aClass] |
3375 ]. |
3375 ]. |
3376 ^ set asOrderedCollection |
3376 ^ set asOrderedCollection |
3377 |
3377 |
3378 " |
3378 " |
3379 Class rootsOfTheWorld |
3379 Class rootsOfTheWorld |
4475 ! ! |
4475 ! ! |
4476 |
4476 |
4477 !Class class methodsFor:'documentation'! |
4477 !Class class methodsFor:'documentation'! |
4478 |
4478 |
4479 version |
4479 version |
4480 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.377 2000-08-22 22:16:13 cg Exp $' |
4480 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.378 2000-09-03 14:45:10 cg Exp $' |
4481 ! ! |
4481 ! ! |