hg/stx-libbasic: comparison Class.st

equal deleted inserted replaced

-:f8a02752ca28
+:08f541e77f8e
 is gone ...)"
 |nm newClass|
 self wasAutoloaded ifFalse:[
-	"
+"
-	 can it be done ?
+can it be done ?
-	 (all of my methods must have a source)
+(all of my methods must have a source)
-	"
+"
-	self instAndClassSelectorsAndMethodsDo:[:sel :aMethod |
+self instAndClassSelectorsAndMethodsDo:[:sel :aMethod |
-	    aMethod source isNil ifTrue:[^false].
+aMethod source isNil ifTrue:[^false].
-	    aMethod hasPrimitiveCode ifTrue:[^ false].
+aMethod hasPrimitiveCode ifTrue:[^ false].
-	].
+].
 ].
 "/ cannot unload, if non-autoloaded subclasses exist ...
 self allSubclassesDo:[:aClass |
-	aClass wasAutoloaded ifFalse:[
+aClass wasAutoloaded ifFalse:[
-	    aClass isPrivate ifFalse:[
+aClass isPrivate ifFalse:[
-		self warn:('cannot unload ' , self name , ' (' , aClass name , ' requires it').
+self warn:('cannot unload ' , self name , ' (' , aClass name , ' requires it)').
-		^ self.
+^ false.
-	    ]
+]
-	]
+]
 ].
 self allSubclassesDo:[:aClass |
-	aClass wasAutoloaded ifTrue:[
+aClass wasAutoloaded ifTrue:[
-	    aClass unload
+aClass unload
-	] ifFalse:[
+] ifFalse:[
-	    aClass removeFromSystem.
+aClass removeFromSystem.
-	]
+]
 ].
 self privateClasses do:[:aClass |
-	aClass removeFromSystem.
+aClass removeFromSystem.
 ].
 Transcript showCR:'unloading ' , name , ' ...'.
 "/ reinstall as autoloaded
 Autoload removeClass:self.
 Smalltalk at:nm put:nil.
 ObjectMemory flushInlineCaches.
 ObjectMemory flushMethodCache.
 newClass := Autoload addClass:nm inCategory:category.
 newClass notNil ifTrue:[
-	newClass package:package
+newClass package:package
 ].
 Smalltalk flushCachedClasses.
 ^ true
 "
 ! !
 !Class class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.451 2003-11-18 09:07:19 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.452 2004-01-23 15:55:51 penk Exp $'
 ! !

changeset 7833	08f541e77f8e
parent 7755	08b4e0bca2e3
child 7866	6624a55c7dd0