The Trunk: System-fbs.633.mcz

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!