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

commits at source.squeak.org commits at source.squeak.org
Thu Dec 5 21:00:42 UTC 2013


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

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

Name: System-fbs.633
Author: fbs
Time: 5 December 2013, 8:59:53.138 pm
UUID: 49720c6c-6cb2-7847-95f7-a34a621964fe
Ancestors: System-cmm.632

Make Etoys responsible for its own #cleanUp:. This way #shrink can get away with less. (The other line removals are because those actions are covered by other classes' aggressive cleanups.)

=============== Diff against System-cmm.632 ===============

Item was removed:
- ----- Method: SmalltalkImage>>cleanUpEtoys (in category 'shrinking') -----
- cleanUpEtoys
- 	StandardScriptingSystem removeUnreferencedPlayers.
- 	Project removeAllButCurrent.
- 	#('Morphic-UserObjects' 'EToy-UserObjects' 'Morphic-Imported' ) do:
- 		[ : each | SystemOrganization removeSystemCategory: each ].
- 	World dumpPresenter.
- 	Presenter defaultPresenterClass: nil.
- 	Preferences removePreference: #allowEtoyUserCustomEvents.
- !

Item was changed:
  ----- Method: SmalltalkImage>>removeChangeSets (in category 'shrinking') -----
  removeChangeSets
+ 	self deprecated: 'Use ChangeSet cleanUp: true'.
+ 	ChangeSet cleanUp: true.!
- 	ChangeSet removeChangeSetsNamedSuchThat:
- 		[ : each | (each == ChangeSet current) not ].
- 	ChangeSet current
- 		 clear ;
- 		 name: 'Unnamed1'!

Item was changed:
  ----- Method: SmalltalkImage>>shrink (in category 'shrinking') -----
  shrink
  	"Clean up everything we know how to clean up that can be restored."
  	"Prepare unloading"
  	self zapMVCprojects.
  	Flaps disableGlobalFlaps: false.
- 	self cleanUpEtoys.
  "Yeow, why turn off listening for system changes?"
  	self
  		at: #ServiceRegistry
  		ifPresent: [ : aClass | SystemChangeNotifier uniqueInstance noMoreNotificationsFor: aClass ].
  	self unloadReloadablePackages.
+ 	"Post-unload aggressive cleanup"
+ 	Smalltalk cleanUp: true.
- 	"Post-unload cleanup"
- 	SmalltalkImage cleanUp.
- 	MCWorkingCopy flushObsoletePackageInfos.
- 	"aggressive cleanUp"
  	SystemOrganization removeSystemCategory: 'UserObjects'.
+ 	Smalltalk at: #ScheduledControllers ifPresent: [Smalltalk at: #ScheduledControllers put: nil].
- 	ScheduledControllers := nil.
- 	SystemOrganization removeEmptyCategories.
- 	StandardScriptingSystem initialize.
- 	"aggressive cleanUp"
- 	self removeChangeSets.
- 	self
- 		at: #Browser
- 		ifPresent:
- 			[ : br | br initialize ].
- 	DebuggerMethodMap voidMapCache.
- 	DataStream initialize.
  	Smalltalk garbageCollect!



More information about the Squeak-dev mailing list