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!
squeak-dev@lists.squeakfoundation.org