diff --git a/src/NewTools-Inspector-Extensions/Bag.extension.st b/src/NewTools-Inspector-Extensions/Bag.extension.st index a4b2596c5..d8734ee24 100644 --- a/src/NewTools-Inspector-Extensions/Bag.extension.st +++ b/src/NewTools-Inspector-Extensions/Bag.extension.st @@ -9,10 +9,12 @@ Bag >> inspectionItems: aBuilder [ 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 diff --git a/src/NewTools-Inspector-Extensions/Collection.extension.st b/src/NewTools-Inspector-Extensions/Collection.extension.st index 813054ab1..ff7655c08 100644 --- a/src/NewTools-Inspector-Extensions/Collection.extension.st +++ b/src/NewTools-Inspector-Extensions/Collection.extension.st @@ -13,7 +13,7 @@ Collection >> inspectionItems: aBuilder [ addColumn: (SpStringTableColumn new title: 'Value'; evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each ]; - sortFunction: #printString ascending; + beSortable; yourself); items: self asOrderedCollection; yourself