Merge pull request #341 from seandenigris/gt-col-list-from-container

[Enh]: GT Columned List View from Container
magritte-metamodel · Nov 26, 2023 · 5518255 · 5518255
2 parents d0eab4e + debdd3b
commit 5518255
Showing 1 changed file with 16 additions and 8 deletions.
diff --git a/source/Magritte-GToolkit/GtPhlowProtoView.extension.st b/source/Magritte-GToolkit/GtPhlowProtoView.extension.st
@@ -1,5 +1,18 @@
 Extension { #name : #GtPhlowProtoView }
 
+{ #category : #'*Magritte-GToolkit' }
+GtPhlowProtoView >> maColumnedListFromContainer: anMAContainer descriptionsSelect: aBlock [
+
+	| result |
+	result := self columnedList.
+
+	anMAContainer children
+		select: aBlock
+		thenDo: [ :desc | desc gtAddColumnTo: result ].
+
+	^ result
+]
+
 { #category : #'*Magritte-GToolkit' }
 GtPhlowProtoView >> maColumnedListOf: aClass [
 
@@ -11,12 +24,7 @@ GtPhlowProtoView >> maColumnedListOf: aClass [
 { #category : #'*Magritte-GToolkit' }
 GtPhlowProtoView >> maColumnedListOf: aClass descriptionsSelect: aBlock [
 
-	| result |
-	result := self columnedList.
-
-	aClass magritteTemplate magritteDescription children
-		select: aBlock
-		thenDo: [ :desc | desc gtAddColumnTo: result ].
-
-	^ result
+	^ self 
+		maColumnedListFromContainer: aClass magritteTemplate magritteDescription 
+		descriptionsSelect: aBlock
 ]