Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.557.mcz
==================== Summary ====================
Name: Monticello-cmm.557 Author: cmm Time: 14 August 2013, 1:29:42.337 pm UUID: 9ac7148c-7115-492a-9f0c-dbb9ad967804 Ancestors: Monticello-cmm.556
Update flushAllCaches to report savings from stubbing of WorkingCopy ancestry.
=============== Diff against Monticello-cmm.556 ===============
Item was changed: ----- Method: MCWorkingCopyBrowser>>flushAllCaches (in category 'actions') ----- flushAllCaches + | beforeBytes afterBytes beforeVersions afterVersions beforeInfos afterInfos | + Cursor wait showWhile: + [ beforeBytes := Smalltalk garbageCollect. - | beforeBytes afterBytes beforeVersions afterVersions | - Cursor wait showWhile: [ - beforeBytes := Smalltalk garbageCollect. beforeVersions := MCVersion allSubInstances size. + beforeInfos := MCVersionInfo instanceCount. MCFileBasedRepository flushAllCaches. MCWorkingCopy stubAllAncestry. afterBytes := Smalltalk garbageCollect. afterVersions := MCVersion allSubInstances size. + afterInfos := MCVersionInfo instanceCount ]. + self inform: + (beforeVersions-afterVersions) asString, ' versions flushed', + String cr, (beforeInfos-afterInfos), ' infos flushed', + String cr, (afterBytes-beforeBytes) asBytesDescription, ' reclaimed'! - ]. - ^self inform: (beforeVersions - afterVersions) asString, ' versions flushed', String cr, - (afterBytes - beforeBytes) asStringWithCommas, ' bytes reclaimed'!
packages@lists.squeakfoundation.org