[Pkg] The Trunk: System-ul.409.mcz

[commits at source.squeak.org]

Levente Uzonyi uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ul.409.mcz

==================== Summary ====================

Name: System-ul.409
Author: ul
Time: 9 January 2011, 7:14:43.614 pm
UUID: 7aaf6d52-cceb-0f42-a924-bdfb0b24e277
Ancestors: System-bp.408, System-dtl.408

- merged

=============== Diff against System-bp.408 ===============

Item was changed:
  ----- Method: SmalltalkImage>>unloadAllKnownPackages (in category 'shrinking') -----
  unloadAllKnownPackages
  	"Unload all packages we know how to unload and reload"
  
  	"Prepare unloading"
  	Smalltalk zapMVCprojects.
  	Flaps disableGlobalFlaps: false.
  	StandardScriptingSystem removeUnreferencedPlayers.
  	Project removeAllButCurrent.
  	#('Morphic-UserObjects' 'EToy-UserObjects' 'Morphic-Imported' )
  		do: [:each | SystemOrganization removeSystemCategory: each].
  	Smalltalk at: #ServiceRegistry ifPresent:[:aClass|
  		SystemChangeNotifier uniqueInstance
  			noMoreNotificationsFor: aClass.
  	].
  	World removeAllMorphs.
  
  	"Go unloading"
  	#(	'ReleaseBuilder' 'ScriptLoader'
  		'311Deprecated' '39Deprecated'
  		'Universes' 'SMLoader' 'SMBase' 'Installer-Core'
  		'VersionNumberTests' 'VersionNumber'
  		'Services-Base' 'PreferenceBrowser' 'Nebraska'
  		'ToolBuilder-MVC' 'ST80'
  		'CollectionsTests' 'GraphicsTests' 'KernelTests'  'MorphicTests' 
  		'MultilingualTests' 'NetworkTests' 'ToolsTests' 'TraitsTests'
  		'SystemChangeNotification-Tests' 'FlexibleVocabularies' 
  		'EToys' 'Protocols' 'XML-Parser' 'Tests' 'SUnitGUI'
+ 		'Help-Squeak' 'HelpSystem'
  	) do: [:pkgName| 
  			(MCPackage named: pkgName) unload.
  			MCMcmUpdater disableUpdatesOfPackage: pkgName.
  			].
  	"Traits use custom unload"
  	Smalltalk at: #Trait ifPresent:[:aClass| aClass unloadTraits].
  
  	"Post-unload cleanup"
  	MCWorkingCopy flushObsoletePackageInfos.
  	SystemOrganization removeSystemCategory: 'UserObjects'.
  	Presenter defaultPresenterClass: nil.
  	World dumpPresenter.
  	ScheduledControllers := nil.
  	Preferences removePreference: #allowEtoyUserCustomEvents.
  	SystemOrganization removeEmptyCategories.
  	ChangeSet removeChangeSetsNamedSuchThat:[:cs | (cs == ChangeSet current) not].
  	Undeclared removeUnreferencedKeys.
  	StandardScriptingSystem initialize.
  	MCFileBasedRepository flushAllCaches.
  	MCDefinition clearInstances.
  	Behavior flushObsoleteSubclasses.
  	ChangeSet current clear.
  	ChangeSet current name: 'Unnamed1'.
  	Smalltalk flushClassNameCache.
  	Smalltalk at: #Browser ifPresent:[:br| br initialize].
  	DebuggerMethodMap voidMapCache.
  	DataStream initialize.
  	Smalltalk forgetDoIts.
  	AppRegistry removeObsolete.
  	FileServices removeObsolete.
  	Preferences removeObsolete.
  	TheWorldMenu removeObsolete.
  	Smalltalk garbageCollect.
  	Symbol compactSymbolTable.
  	TheWorldMainDockingBar updateInstances.
  	MorphicProject defaultFill: (Color gray: 0.9).
  	World color: (Color gray: 0.9).
  !