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
 ]