equal
deleted
inserted
replaced
19 |
19 |
20 Class comment:' |
20 Class comment:' |
21 COPYRIGHT (c) 1989 by Claus Gittinger |
21 COPYRIGHT (c) 1989 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libbasic/Class.st,v 1.31 1995-02-22 03:34:50 claus Exp $ |
24 $Header: /cvs/stx/stx/libbasic/Class.st,v 1.32 1995-02-26 18:13:00 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !Class class methodsFor:'documentation'! |
27 !Class class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libbasic/Class.st,v 1.31 1995-02-22 03:34:50 claus Exp $ |
45 $Header: /cvs/stx/stx/libbasic/Class.st,v 1.32 1995-02-26 18:13:00 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
836 self methodArray do:[:aMethod | |
836 self methodArray do:[:aMethod | |
837 aMethod source isNil ifTrue:[^false]. |
837 aMethod source isNil ifTrue:[^false]. |
838 aMethod hasPrimitiveCode ifTrue:[^ false]. |
838 aMethod hasPrimitiveCode ifTrue:[^ false]. |
839 ]. |
839 ]. |
840 ]. |
840 ]. |
|
841 |
|
842 self allSubclassesDo:[:aClass | |
|
843 aClass unload |
|
844 ]. |
|
845 Transcript showCr:'unloading ' , name. |
841 |
846 |
842 Smalltalk at:self name put:nil. |
847 Smalltalk at:self name put:nil. |
843 Autoload addClass:self name inCategory:category. |
848 Autoload addClass:self name inCategory:category. |
844 ^ true |
849 ^ true |
845 |
850 |