add missing methods from GT package

dionisiydk · dionisiydk · commit a60b84fe7cc7 · 2022-05-12T22:08:04.000+01:00
diff --git a/ObjectStatistics-NewTools/ObjectStatDimension.extension.st b/ObjectStatistics-NewTools/ObjectStatDimension.extension.st
@@ -1,5 +1,10 @@
 Extension { #name : #ObjectStatDimension }
 
+{ #category : #'*ObjectStatistics-NewTools' }
+ObjectStatDimension >> inspectionTreeItems [
+	^self sortedSlices 
+]
+
 { #category : #'*ObjectStatistics-NewTools' }
 ObjectStatDimension >> itemsTreeInspectionIn: aBuilder [
 	<inspectorPresentationOrder: 30 title: 'Metrics'> 
diff --git a/ObjectStatistics-NewTools/ObjectStatSlice.extension.st b/ObjectStatistics-NewTools/ObjectStatSlice.extension.st
@@ -1,5 +1,10 @@
 Extension { #name : #ObjectStatSlice }
 
+{ #category : #'*ObjectStatistics-NewTools' }
+ObjectStatSlice >> inspectionTreeItems [
+	^statistics inspectionTreeItems
+]
+
 { #category : #'*ObjectStatistics-NewTools' }
 ObjectStatSlice >> itemsTreeInspectionIn: aBuilder [
 	<inspectorPresentationOrder: 30 title: 'Metrics'> 
diff --git a/ObjectStatistics-NewTools/ObjectStatistics.extension.st b/ObjectStatistics-NewTools/ObjectStatistics.extension.st
@@ -5,11 +5,18 @@ ObjectStatistics class >> buildInspectionMetricsTreeFor: anObject in: aBuilder [
 	
 	^aBuilder newTree
 		roots: { anObject };
-		children: [ :receiver | receiver inspectorTreeItems];
+		children: [ :receiver | receiver inspectionTreeItems ];
 		expandAll;
 		yourself
 ]
 
+{ #category : #'*ObjectStatistics-NewTools' }
+ObjectStatistics >> inspectionTreeItems [
+	dimensions size = 1 ifTrue: [ ^dimensions first inspectionTreeItems ].
+	
+	^dimensions reject: #isEmpty
+]
+
 { #category : #'*ObjectStatistics-NewTools' }
 ObjectStatistics >> itemsTreeInspectionIn: aBuilder [
 	<inspectorPresentationOrder: 30 title: 'Metrics'> 
