Experiment with replication specs for the details view [feenkcom/gtoolkit#5059]

chisandrei · chisandrei · commit 05cc1c11efdc · 2026-06-24T00:15:43.000+02:00
diff --git a/src/GToolkit-RemoteGt-InspectorCore/GtLocalPhlowViewedObject.class.st b/src/GToolkit-RemoteGt-InspectorCore/GtLocalPhlowViewedObject.class.st
@@ -251,7 +251,8 @@ GtLocalPhlowViewedObject >> gtRemoteViewSpecificationsFor: aView [
 		priority: 105;
 		items: [ 
 			self currentDeclarativeViewSpecifications 
-				sorted: #priority ascending];
+				sorted: [:each | 
+					each priority ifNil: [75]] ascending];
 		column: 'Title' text: [ :aViewAccessor | aViewAccessor title ];
 		column: 'Selector' text: [ :aViewAccessor | aViewAccessor methodSelector ];
 		column: 'View' text: [ :aViewAccessor | aViewAccessor viewName ];
diff --git a/src/GToolkit-RemotePhlow-DeclarativeSpecification/GtRemotePhlowSpawnObjectWrapper.class.st b/src/GToolkit-RemotePhlow-DeclarativeSpecification/GtRemotePhlowSpawnObjectWrapper.class.st
@@ -4,9 +4,14 @@ Class {
 	#instVars : [
 		'targetObject'
 	],
-	#category : #'GToolkit-RemotePhlow-DeclarativeActions'
+	#category : #'GToolkit-RemotePhlow-DeclarativeSpecification'
 }
 
+{ #category : #serialization }
+GtRemotePhlowSpawnObjectWrapper class >> replicationSpec [
+	^#(#(#targetObject #stub))
+]
+
 { #category : #accessing }
 GtRemotePhlowSpawnObjectWrapper >> targetObject [
 	^ targetObject
diff --git a/src/GToolkit-RemotePhlow-DeclarativeViews/GtPhlowDetailsViewSpecification.class.st b/src/GToolkit-RemotePhlow-DeclarativeViews/GtPhlowDetailsViewSpecification.class.st
@@ -24,9 +24,8 @@ GtPhlowDetailsViewSpecification class >> fromJSONDictionary: aDictionary [
 { #category : #'as yet unclassified' }
 GtPhlowDetailsViewSpecification >> asDictionaryForExport [
 	^ super asDictionaryForExport
-		at: 'rowSpecifications' put: (self rowSpecifications 
-			collect: [ :eachRowSpecification | eachRowSpecification asDictionaryForExport ]
-			as: Array);
+		at: 'rowSpecifications' put: ((self rowSpecifications 
+			collect: [ :eachRowSpecification | eachRowSpecification asDictionaryForExport ]) asArray);
 		yourself
 ]
 
diff --git a/src/GToolkit-RemotePhlow-DeclarativeViews/GtRemotePhlowDataNode.class.st b/src/GToolkit-RemotePhlow-DeclarativeViews/GtRemotePhlowDataNode.class.st
@@ -23,6 +23,11 @@ GtRemotePhlowDataNode class >> fromJSONDictionary: aDictionary [
 		yourself
 ]
 
+{ #category : #serialization }
+GtRemotePhlowDataNode class >> replicationSpec [
+	^#(#(#targetObject #stub))
+]
+
 { #category : #accessing }
 GtRemotePhlowDataNode class >> valueType [
 	^ GtRemotePhlowItemValue
diff --git a/src/GToolkit-RemotePhlow-DeclarativeViews/GtRemotePhlowDetailsRowValue.class.st b/src/GToolkit-RemotePhlow-DeclarativeViews/GtRemotePhlowDetailsRowValue.class.st
@@ -3,8 +3,8 @@ Class {
 	#superclass : #GtRemotePhlowItemTextualValue,
 	#instVars : [
 		'rowText',
-		'rowValue',
-		'rowIndex'
+		'rowIndex',
+		'rowValueWrapper'
 	],
 	#category : #'GToolkit-RemotePhlow-DeclarativeViews'
 }
@@ -23,24 +23,13 @@ GtRemotePhlowDetailsRowValue >> asDictionaryForExport [
 ]
 
 { #category : #printing }
-GtRemotePhlowDetailsRowValue >> descriptionOn: aStream [
-		aStream
-			nextPutAll: 'index: ';
-			print: self rowIndex;
-			nextPutAll: '; text: ';
-			nextPutAll: self itemText 
-]
-
-{ #category : #printing }
-GtRemotePhlowDetailsRowValue >> printOn: aStream [
-	super printOn: aStream.
+GtRemotePhlowDetailsRowValue >> descriptionOn: aStream [ 
 	
-	aStream parenthesize: [
-		aStream
+	aStream
 			nextPutAll: 'index: ';
 			print: self rowIndex;
-			nextPutAll: '; text: ';
-			nextPutAll: self rowText ]
+			nextPutAll: '; '.
+	super descriptionOn: aStream 
 ]
 
 { #category : #accessing }
@@ -55,10 +44,21 @@ GtRemotePhlowDetailsRowValue >> rowIndex: anObject [
 
 { #category : #accessing }
 GtRemotePhlowDetailsRowValue >> rowValue [
-	^ rowValue
+	^ self rowValueWrapper targetObject
 ]
 
 { #category : #accessing }
 GtRemotePhlowDetailsRowValue >> rowValue: anObject [
-	rowValue := anObject
+	self rowValueWrapper: (GtRemotePhlowSpawnObjectWrapper new
+		targetObject: anObject)
+]
+
+{ #category : #accessing }
+GtRemotePhlowDetailsRowValue >> rowValueWrapper [
+	^ rowValueWrapper
+]
+
+{ #category : #accessing }
+GtRemotePhlowDetailsRowValue >> rowValueWrapper: aWrapper [
+	rowValueWrapper := aWrapper
 ]
diff --git a/src/GToolkit-RemotePhlow-PhlowViews/GtRemotePhlowDetailsView.class.st b/src/GToolkit-RemotePhlow-PhlowViews/GtRemotePhlowDetailsView.class.st
@@ -7,6 +7,11 @@ Class {
 	#category : #'GToolkit-RemotePhlow-PhlowViews'
 }
 
+{ #category : #'instance creation' }
+GtRemotePhlowDetailsView class >> new [ 
+	^ self basicNew initialize
+]
+
 { #category : #converting }
 GtRemotePhlowDetailsView >> asGtDeclarativeView [
 	"Answer the receiver as a GtDeclarativeView.
@@ -31,6 +36,7 @@ GtRemotePhlowDetailsView >> asGtDeclarativeView [
 GtRemotePhlowDetailsView >> gtRowsFor: aView [
 	<gtView>
 	rows ifNil: [^aView empty].
+	
 	^(aView columnedList)
 		title: 'Rows';
 		priority: 11;
