Merge pull request #915 from DurieuxPol/fix/pharo17419

Sorting items in bag inspector by default
pharo-spec · Dec 17, 2024 · 284f42a · 284f42a
2 parents be458db + 3283deb
commit 284f42a
Showing 1 changed file with 21 additions and 15 deletions.
diff --git a/src/NewTools-Inspector-Extensions/Bag.extension.st b/src/NewTools-Inspector-Extensions/Bag.extension.st
@@ -2,20 +2,26 @@ Extension { #name : 'Bag' }
 
 { #category : '*NewTools-Inspector-Extensions' }
 Bag >> 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;
-			yourself);
-		items: contents associations;
-		yourself
+	<inspectorPresentationOrder: 0 title: 'Items'>
+	| sortFuction |
+	sortFuction := [ :c1 :c2 | c1 value > c2 value ].
+
+	^ 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;
+				   yourself);
+		  items: (contents associations sort: sortFuction);
+		  yourself
 ]