The Trunk: Monticello-cmm.557.mcz

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'!