[Enh] GT columns from desc

Add columns to a gt list for each described field
feenkcom · Aug 11, 2023 · 96015b2 · 96015b2
1 parent 6d67df3
commit 96015b2
Show file tree

Hide file tree

Showing 2 changed files with 48 additions and 0 deletions.
diff --git a/source/Magritte-GToolkit/GtPhlowProtoView.extension.st b/source/Magritte-GToolkit/GtPhlowProtoView.extension.st
@@ -0,0 +1,22 @@
+Extension { #name : #GtPhlowProtoView }
+
+{ #category : #'*Magritte-GToolkit' }
+GtPhlowProtoView >> maColumnedListOf: aClass [
+
+	^ self 
+		maColumnedListOf: aClass 
+		descriptionsSelect: [ :desc | true ]
+]
+
+{ #category : #'*Magritte-GToolkit' }
+GtPhlowProtoView >> maColumnedListOf: aClass descriptionsSelect: aBlock [
+
+	| result |
+	result := self columnedList.
+
+	aClass magritteTemplate magritteDescription children
+		select: aBlock
+		thenDo: [ :desc | desc gtAddColumnTo: result ].
+
+	^ result
+]
diff --git a/source/Magritte-GToolkit/MAElementDescription.extension.st b/source/Magritte-GToolkit/MAElementDescription.extension.st
@@ -1,5 +1,31 @@
 Extension { #name : #MAElementDescription }
 
+{ #category : #'*Magritte-GToolkit' }
+MAElementDescription >> gtAddColumnTo: aView [
+
+	self 
+		propertyAt: #columnWidth
+		ifPresent: [ :width |
+			aView 
+				column: self label 
+					text: [ :anObj | self readToString: anObj ]
+					width: width.
+			^ self ].
+
+	self 
+		propertyAt: #columnWeight
+		ifPresent: [ :weight |
+			aView 
+				column: self label 
+					text: [ :anObj | self readToString: anObj ]
+					weight: weight.
+			^ self ].
+
+	aView 
+		column: self label 
+			text: [ :anObj | self readToString: anObj ]
+]
+
 { #category : #'*Magritte-GToolkit' }
 MAElementDescription >> gtCustomizeView: aView for: anObject [
 	aView title = aView defaultTitle ifTrue: [ aView title: self label ].