[Morphic] Safe unload of StarSqueak

[Lic. Edgar J. De Cleene]

This was easy for previous work of Juan, Cees  and collaboration and advice
from Ned , Dan and Daniel Vainsencher .
For download do ReleaseBuilder new unloadStarSqueak.
For reload use StarSqueak-CdG.5.mcz

Cheers

Edgar

-------------- next part --------------
'From Squeak3.9alpha of 4 July 2005 [latest update: #6703] on 9 November 2005 at 11:44:05 am'!

!ReleaseBuilder methodsFor: 'unloading' stamp: 'edc 11/9/2005 10:07'!
unloadStarSqueak
	"Safe unload of StarSqueak from 3.9a 6703 image"
	"ReleaseBuilder new unloadStarSqueak"
	| toRemove selectorList actualClass |
	toRemove := SystemOrganization categoriesMatching: 'StarSqueak*'.
	toRemove
		do: [:each | SystemOrganization removeSystemCategory: each].
	selectorList := SystemNavigation default allMethodsInCategory: '*starSqueak-*starSqueak'.
	selectorList
		do: [:each | 
			actualClass := Smalltalk
						atOrBelow: (each findTokens: ' ') first asSymbol
						ifAbsent: [].
			actualClass removeSelector: (each findTokens: ' ') last asSymbol].
	ReleaseBuilder new fixObsoleteReferences.
	SystemOrganization removeEmptyCategories.
	Smalltalk garbageCollect.! !