[squeak-dev] The Trunk: System-fbs.524.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Apr 18 10:15:48 UTC 2013


Frank Shearar uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-fbs.524.mcz

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

Name: System-fbs.524
Author: fbs
Time: 17 April 2013, 9:04:33.699 pm
UUID: 189f6552-b3d7-4186-ba88-4a55fabe6315
Ancestors: System-bf.523

Driving lots of stuff out into #cleanUp. Comments mark things known to be part of "aggressive cleanup".

=============== Diff against System-bf.523 ===============

Item was added:
+ ----- Method: Preferences class>>cleanUp (in category 'initialize-release') -----
+ cleanUp
+ 	self removeObsolete.!

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' 'SystemReporter'
  	) do: [:pkgName| 
  			(MCPackage named: pkgName) unload.
  			MCMcmUpdater disableUpdatesOfPackage: pkgName.
  			].
  	"Traits use custom unload"
  	Smalltalk at: #Trait ifPresent:[:aClass| aClass unloadTraits].
  
  	"Post-unload cleanup"
+ 	SmalltalkImage cleanUp.
+ 	MCWorkingCopy flushObsoletePackageInfos. "aggressive cleanUp"
- 	MCWorkingCopy flushObsoletePackageInfos.
  	SystemOrganization removeSystemCategory: 'UserObjects'.
  	Presenter defaultPresenterClass: nil.
  	World dumpPresenter.
  	ScheduledControllers := nil.
  	Preferences removePreference: #allowEtoyUserCustomEvents.
  	SystemOrganization removeEmptyCategories.
+ 	StandardScriptingSystem initialize. "aggressive cleanUp"
  	ChangeSet removeChangeSetsNamedSuchThat:[:cs | (cs == ChangeSet current) not].
- 	globals 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.
+ 
- 	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 Squeak-dev mailing list