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: $,]]]
+ !