GTInspect the components of a NaturalTransformation

shingarov · Jun 29, 2024 · 2ef3693 · 2ef3693
1 parent a06e8f8
commit 2ef3693
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/Refinements/NaturalTransformation.class.st b/src/Refinements/NaturalTransformation.class.st
@@ -66,6 +66,17 @@ NaturalTransformation >> functionSort [
 	^#MARK_NOT_NIL "FIXME"
 ]
 
+{ #category : #GT }
+NaturalTransformation >> gtInspectorItemsIn: composite [
+	<gtInspectorPresentationOrder: 10>
+	components isNil ifTrue: [ ^nil ].
+	^ composite fastList
+		title: 'Components';
+		display: [ components asOrderedCollection ];
+		beSingle;
+		format: [ :each | GTObjectPrinter asTruncatedTextFrom: each ]
+]
+
 { #category : #'as yet unclassified' }
 NaturalTransformation >> hasComponent: functionName [ 
 	^self componentNames includes: functionName