equal
deleted
inserted
replaced
1674 |
1674 |
1675 "Modified: 24.1.1997 / 19:11:08 / cg" |
1675 "Modified: 24.1.1997 / 19:11:08 / cg" |
1676 ! ! |
1676 ! ! |
1677 |
1677 |
1678 !Class methodsFor:'enumerating'! |
1678 !Class methodsFor:'enumerating'! |
|
1679 |
|
1680 allPrivateClassesDo:aBlock |
|
1681 "evaluate aBlock on all of my private classes (if any)" |
|
1682 |
|
1683 |classes| |
|
1684 |
|
1685 (classes := self privateClasses) size > 0 ifTrue:[ |
|
1686 classes do:[:cls | |
|
1687 aBlock value:cls. |
|
1688 cls allPrivateClassesDo:aBlock |
|
1689 ] |
|
1690 ]. |
|
1691 |
|
1692 "Created: 26.10.1996 / 12:28:57 / cg" |
|
1693 "Modified: 22.3.1997 / 16:17:36 / cg" |
|
1694 ! |
1679 |
1695 |
1680 privateClassesDo:aBlock |
1696 privateClassesDo:aBlock |
1681 "evaluate aBlock on all of my private classes (if any)" |
1697 "evaluate aBlock on all of my private classes (if any)" |
1682 |
1698 |
1683 |classes| |
1699 |classes| |
3884 ! ! |
3900 ! ! |
3885 |
3901 |
3886 !Class class methodsFor:'documentation'! |
3902 !Class class methodsFor:'documentation'! |
3887 |
3903 |
3888 version |
3904 version |
3889 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.327 1999-01-07 14:44:49 cg Exp $' |
3905 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.328 1999-02-24 10:06:20 cg Exp $' |
3890 ! ! |
3906 ! ! |