Move GtRsrInspectorProxySerializationStrategy to remote-phlow

feenkcom · Jun 25, 2024 · 8d2b85d · 8d2b85d
1 parent 601f20a
commit 8d2b85d
Show file tree

Hide file tree

Showing 2 changed files with 49 additions and 0 deletions.
diff --git a/src/GToolkit-RemotePhlow-InspectorCore/GtRsrInspectorProxyDataSerializationStrategy.class.st b/src/GToolkit-RemotePhlow-InspectorCore/GtRsrInspectorProxyDataSerializationStrategy.class.st
@@ -0,0 +1,10 @@
+Class {
+	#name : #GtRsrInspectorProxyDataSerializationStrategy,
+	#superclass : #GtRsrInspectorProxySerializationStrategy,
+	#category : #'GToolkit-RemotePhlow-InspectorCore'
+}
+
+{ #category : #accessing }
+GtRsrInspectorProxyDataSerializationStrategy >> deserialize: viewProxyData [
+	^ viewProxyData
+]
diff --git a/src/GToolkit-RemotePhlow-InspectorCore/GtRsrInspectorProxySerializationStrategy.class.st b/src/GToolkit-RemotePhlow-InspectorCore/GtRsrInspectorProxySerializationStrategy.class.st
@@ -0,0 +1,39 @@
+Class {
+	#name : #GtRsrInspectorProxySerializationStrategy,
+	#superclass : #GtRsrSerializationStrategy,
+	#category : #'GToolkit-RemotePhlow-InspectorCore'
+}
+
+{ #category : #accessing }
+GtRsrInspectorProxySerializationStrategy >> deserialize: viewProxyData [
+	^ (viewProxyData at: 'proxyObject')
+		initializeFromProxyData: (viewProxyData at: 'proxyData');
+		yourself
+]
+
+{ #category : #accessing }
+GtRsrInspectorProxySerializationStrategy >> serialize: anObject [
+	"Called from GemStone. We defined is also for GT as it does not references GemStone specific classes"
+	| inspectorWrapper |
+	inspectorWrapper := GtRemotePhlowViewedObject object: anObject.
+	^ self serializedDataForInspectorWrapper: inspectorWrapper
+]
+
+{ #category : #accessing }
+GtRsrInspectorProxySerializationStrategy >> serializedDataForInspectorWrapper: anInspectorWrapper [
+	"Called from GemStone. We defined is also for GT as it does not references GemStone specific classes"
+	| dictionaryData proxyData |
+
+	dictionaryData := Dictionary new.
+
+	dictionaryData 
+		at: 'proxyObject'
+		put: anInspectorWrapper.
+
+	proxyData := anInspectorWrapper getViewsDeclarationsWithPhlowDataSource.
+	dictionaryData 
+		at: 'proxyData'
+		put: proxyData.
+
+	^ dictionaryData asGtRsrProxyObjectForConnection: nil
+]