equal
deleted
inserted
replaced
1651 newClass := Autoload addClass:nm inCategory:category. |
1651 newClass := Autoload addClass:nm inCategory:category. |
1652 newClass notNil ifTrue:[ |
1652 newClass notNil ifTrue:[ |
1653 newClass package:package |
1653 newClass package:package |
1654 ]. |
1654 ]. |
1655 Smalltalk flushCachedClasses. |
1655 Smalltalk flushCachedClasses. |
|
1656 Class flushSubclassInfoFor:self. |
1656 ^ true |
1657 ^ true |
1657 |
1658 |
1658 " |
1659 " |
1659 Clock open. |
1660 Clock open. |
1660 Clock unload. |
1661 Clock unload. |
5021 ! ! |
5022 ! ! |
5022 |
5023 |
5023 !Class class methodsFor:'documentation'! |
5024 !Class class methodsFor:'documentation'! |
5024 |
5025 |
5025 version |
5026 version |
5026 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.566 2010-02-04 16:40:18 cg Exp $' |
5027 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.567 2010-02-05 12:59:41 cg Exp $' |
5027 ! |
5028 ! |
5028 |
5029 |
5029 version_CVS |
5030 version_CVS |
5030 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.566 2010-02-04 16:40:18 cg Exp $' |
5031 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.567 2010-02-05 12:59:41 cg Exp $' |
5031 ! ! |
5032 ! ! |