Bert Freudenberg uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-bf.525.mcz
==================== Summary ====================
Name: Monticello-bf.525 Author: bf Time: 20 September 2012, 2:07:49.849 pm UUID: 35b8d257-a1b4-4dda-baa1-f497de4d4328 Ancestors: Monticello-eem.524
SnapshotBrowser: label class extensions as *inst or *class
=============== Diff against Monticello-eem.524 ===============
Item was changed: ----- Method: MCSnapshotBrowser>>classList (in category 'listing') ----- classList + ^ categorySelection = self extensionsCategory + ifTrue: [self labeledClassnames: self visibleClasses] + ifFalse: [self visibleClasses]! - ^ self visibleClasses!
Item was added: + ----- Method: MCSnapshotBrowser>>labeledClassnames: (in category 'private') ----- + labeledClassnames: classNames + | methodClassification | + methodClassification := Dictionary new. + items do: [:def | def isMethodDefinition ifTrue: [ + (methodClassification at: def className ifAbsentPut: [Set new]) + add: (def classIsMeta ifFalse: [$i] ifTrue: [$c])]]. + ^ classNames collect: [:className | + String streamContents: [:s | + s nextPutAll: className; space. + (methodClassification at: className) + do: [:each | each = $i + ifTrue: [s nextPutAll: '*inst'] + ifFalse: [s nextPutAll: '*class']] + separatedBy: [s nextPut: $,]]] + !