Sorting bag occurrences by number instead of alphabetically in inspector

[Ducasse]

inspectionItems: aBuilder
	<inspectorPresentationOrder: 0 title: 'Items'> 

	^ aBuilder newTable		
		addColumn: (SpStringTableColumn new 
			title: 'Items';
			evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ];
			beNotExpandable;
			beSortable;
			yourself);
		addColumn: (SpStringTableColumn new  
			title: 'Occurences'; 
			evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: (self occurrencesOf: each key) ];
			beSortable;
			compareFunction: [ :c1 :c2 | c1 value < c2 value ];
			yourself);
		items: contents associations;
		yourself