From debdd3b381ea86bf484ad2ad653539acf539ec2e Mon Sep 17 00:00:00 2001
From: Sean DeNigris <code@clipperadams.com>
Date: Sun, 26 Nov 2023 00:14:37 -0500
Subject: [PATCH] [Enh]: GT Columned List View from Container

Previously Container was auto-generated from a class and could not be modified.
---
 .../GtPhlowProtoView.extension.st             | 24 ++++++++++++-------
 1 file changed, 16 insertions(+), 8 deletions(-)

diff --git a/source/Magritte-GToolkit/GtPhlowProtoView.extension.st b/source/Magritte-GToolkit/GtPhlowProtoView.extension.st
index de5753d6..764f383c 100644
--- 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
 ]