[Pkg] The Trunk: System-dtl.560.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Jul 8 05:16:30 UTC 2013

David T. Lewis uploaded a new version of System to project The Trunk:

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

Name: System-dtl.560
Author: dtl
Time: 8 July 2013, 1:15:09.698 am
UUID: f9176e6f-41f5-4bec-a2d0-a15717fabdeb
Ancestors: System-fbs.559

Add ST80Tools and ST80Tests to the list of packages to be unloaded in #unloadAllKnownPackages. These are new package categories that should be unloaded as part of MVC unloading.

=============== Diff against System-fbs.559 ===============

Item was changed:
  ----- Method: SmalltalkImage>>unloadAllKnownPackages (in category 'shrinking') -----
  	"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' 'ST80Tools' 'ST80Tests' 'ST80'
- 		'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"
  	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].
  	ChangeSet current clear.
  	ChangeSet current name: 'Unnamed1'.
  	Smalltalk at: #Browser ifPresent:[:br| br initialize].
  	DebuggerMethodMap voidMapCache.
  	DataStream initialize.
  	Smalltalk garbageCollect.
  	MorphicProject defaultFill: (Color gray: 0.9).
  	World color: (Color gray: 0.9).

More information about the Packages mailing list