[Pkg] The Trunk: System-ar.284.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Mar 6 19:49:35 UTC 2010


Andreas Raab uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ar.284.mcz

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

Name: System-ar.284
Author: ar
Time: 6 March 2010, 11:48:47.497 am
UUID: 5742f653-c1d8-9f40-9d06-c8200ba7dad9
Ancestors: System-dtl.283, System-ar.283

Merge System-dtl.283, System-ar.283

=============== Diff against System-dtl.283 ===============

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'
  	) do:[:pkgName| (MCPackage named: pkgName) unload].
  	"Traits use custom unload"
  	Smalltalk at: #Trait ifPresent:[:aClass| aClass unloadTraits].
  
  	"Post-unload cleanup"
  	PackageOrganizer instVarNamed: 'default' put: nil.
  	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).
  !



More information about the Packages mailing list