Add GtRemotePhlowViewedObject>>#getViewsDeclarationsWithPhlowDataSource

feenkcom · Jun 24, 2024 · 07c3106 · 07c3106
1 parent 7ac7781
commit 07c3106
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 1 deletion.
diff --git a/src/GToolkit-RemotePhlow-DeclarativeViews/GtPhlowTextualViewSpecification.class.st b/src/GToolkit-RemotePhlow-DeclarativeViews/GtPhlowTextualViewSpecification.class.st
@@ -14,7 +14,8 @@ GtPhlowTextualViewSpecification >> initializeFromInspector: anInspector [
 	self dataTransport = self class dataIncluded ifTrue: [ ^ self ].
 
 	phlowDataSource ifNil: [
-		self phlowDataSource: (anInspector getDeclarativeViewFor: self methodSelector) ]
+		self phlowDataSource: (anInspector 
+			getDeclarativeViewFor: self methodSelector) ]
 ]
 
 { #category : #'api - accessing' }

diff --git a/src/GToolkit-RemotePhlow-InspectorCore/GtRemotePhlowViewedObject.class.st b/src/GToolkit-RemotePhlow-InspectorCore/GtRemotePhlowViewedObject.class.st
@@ -72,6 +72,21 @@ GtRemotePhlowViewedObject >> getViewsDeclarations [
 		yourself
 ]
 
+{ #category : #'api - accessing' }
+GtRemotePhlowViewedObject >> getViewsDeclarationsWithPhlowDataSource [
+	| viewDeclarations |
+	viewDeclarations := (self declarativeViewsBySelector 
+		collect: [ :aDeclarativeView |
+			(self getViewDeclarationForView: aDeclarativeView)
+				ifNotNil: [ :aDictionary |
+					aDictionary 
+						at: 'phlowDataSource' put: aDeclarativeView;
+						yourself ] ]).
+	^ Dictionary new
+		at: 'views' put: viewDeclarations asArray;
+		yourself
+]
+
 { #category : #initialization }
 GtRemotePhlowViewedObject >> initializeDeclarativeViews [
 	| phlowViews |