Merge pull request magritte-metamodel#279 from seandenigris/feature_r…

…elation-spotter [Feature]: Bloc ToOne Relations Spotter Support
feenkcom · May 29, 2022 · f94580c · f94580c
2 parents d09e3a4 + 0cec232
commit f94580c
Show file tree

Hide file tree

Showing 3 changed files with 122 additions and 2 deletions.
diff --git a/source/Magritte-GToolkit/MAElementBuilder.class.st b/source/Magritte-GToolkit/MAElementBuilder.class.st
@@ -448,8 +448,23 @@ MAElementBuilder >> visitToManyScalarRelationDescription: anObject [
 ]
 
 { #category : #'visiting-description' }
-MAElementBuilder >> visitToOneRelationDescription: anObject [
-	self visitRelationDescription: anObject
+MAElementBuilder >> visitToOneRelationDescription: aDescription [
+	| inputElement valueLabel searchButton |
+
+	aDescription gtSearchSource ifNil: [ ^ self visitRelationDescription: aDescription ].
+
+	inputElement := MATokenCollectorElement new
+		relationDescription: aDescription;
+		tokenClickAction: [ :evt | 
+			(self object readUsing: aDescription)
+				ifNotNil: [ :obj | evt target phlow spawnObject: obj ] ];
+		spotterAction: [ :evt :colElem | 
+			aDescription write: evt element to: self memento.
+			colElem valueLabel text: (self textUsing: aDescription) ].	
+
+	inputElement valueLabel text: (self textUsing: aDescription).
+
+	self addInputField: inputElement using: aDescription
 ]
 
 { #category : #'visiting-description' }

diff --git a/source/Magritte-GToolkit/MATokenCollectorElement.class.st b/source/Magritte-GToolkit/MATokenCollectorElement.class.st
@@ -0,0 +1,95 @@
+Class {
+	#name : #MATokenCollectorElement,
+	#superclass : #BrHorizontalPane,
+	#instVars : [
+		'relationDescription',
+		'spotterAction',
+		'tokenClickAction',
+		'valueLabel'
+	],
+	#category : #'Magritte-GToolkit-Widgets'
+}
+
+{ #category : #initialization }
+MATokenCollectorElement >> initialize [
+
+	| searchButton |
+	super initialize.
+
+	self
+		hMatchParent;
+		padding: (BlInsets top: 4 bottom: 4);
+		alignCenterLeft;
+		cellSpacing: 5;
+		vFitContent.
+
+	valueLabel := BrLabel new
+		aptitude: BrGlamorousLabelAptitude;
+		beSmallSize;
+		addEventHandlerOn: BlClickEvent
+			do: [ :evt | self tokenClickAction cull: evt ];
+		yourself.
+
+	searchButton := GtSpotterDropdownButtonStencil new
+		valuable: [ self relationDescription gtSearchSource value ];
+		icon: BrGlamorousVectorIcons search;
+		spotterModelDo: [ :sm |
+			sm announcer
+				when: GtSpotterActOn
+				do: [ :evt | 
+					self spotterAction cull: evt cull: self.
+					evt actedUpon: true ] ];
+		create.
+
+	self
+		addChild: valueLabel;
+		addChild: searchButton.
+]
+
+{ #category : #accessing }
+MATokenCollectorElement >> relationDescription [
+
+	^ relationDescription
+]
+
+{ #category : #accessing }
+MATokenCollectorElement >> relationDescription: anObject [
+
+	relationDescription := anObject
+]
+
+{ #category : #accessing }
+MATokenCollectorElement >> spotterAction [
+
+	^ spotterAction
+]
+
+{ #category : #accessing }
+MATokenCollectorElement >> spotterAction: anObject [
+
+	spotterAction := anObject
+]
+
+{ #category : #accessing }
+MATokenCollectorElement >> tokenClickAction [
+
+	^ tokenClickAction
+]
+
+{ #category : #accessing }
+MATokenCollectorElement >> tokenClickAction: anObject [
+
+	tokenClickAction := anObject
+]
+
+{ #category : #accessing }
+MATokenCollectorElement >> valueLabel [
+
+	^ valueLabel
+]
+
+{ #category : #accessing }
+MATokenCollectorElement >> valueLabel: anObject [
+
+	valueLabel := anObject
+]
diff --git a/source/Magritte-Model/MAReferenceDescription.class.st b/source/Magritte-Model/MAReferenceDescription.class.st
@@ -80,6 +80,16 @@ MAReferenceDescription >> descriptionReference [
 		yourself
 ]
 
+{ #category : #accessing }
+MAReferenceDescription >> gtSearchSource [
+	^ self propertyAt: #gtSearchSource ifAbsent: [ nil ]
+]
+
+{ #category : #accessing }
+MAReferenceDescription >> gtSearchSource: valuable [
+	self propertyAt: #gtSearchSource put: valuable
+]
+
 { #category : #accessing }
 MAReferenceDescription >> initializer [
 	^ self propertyAt: #initializer ifAbsent: [ #yourself ]