From 54bbe64552f3c1e3911c26d725eb57101cac0367 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andrei=20Chi=C8=99?= <chisvasileandrei@gmail.com>
Date: Mon, 5 Aug 2024 14:45:29 +0200
Subject: [PATCH] Move the main logic for printing to GtBareProxy

---
 .../GtBareProxy.class.st                      | 54 ++++++++++---------
 .../GtGsBareProxy.class.st                    | 42 ---------------
 2 files changed, 29 insertions(+), 67 deletions(-)

diff --git a/src/GToolkit-GemStone-BareProxy-Pharo/GtBareProxy.class.st b/src/GToolkit-GemStone-BareProxy-Pharo/GtBareProxy.class.st
index 9fba784e..d9825d23 100644
--- a/src/GToolkit-GemStone-BareProxy-Pharo/GtBareProxy.class.st
+++ b/src/GToolkit-GemStone-BareProxy-Pharo/GtBareProxy.class.st
@@ -118,6 +118,15 @@ GtBareProxy >> gtActionsInContext: aPhlowContext [
 	^ collectedActions
 ]
 
+{ #category : #printing }
+GtBareProxy >> gtBasicDisplayOn: aStream [
+	proxyObject ifNil: [ 
+		aStream << '<not configured>'.
+		^ self ].
+	
+	proxyObject gtBasicDisplayOn: aStream
+]
+
 { #category : #'gt inspector' }
 GtBareProxy >> gtDefaultInspectorTool [
 	^ GtPhlowCompositeTool new
@@ -135,19 +144,9 @@ GtBareProxy >> gtDefaultInspectorTool [
 
 { #category : #printing }
 GtBareProxy >> gtDisplayOn: aStream [
-	proxyObject ifNil: [ 
-		aStream << 'Bare Proxy on: <not configured>'.
-		^ self ].
-	
-	proxyObject isProxyObjectActive ifFalse: [ 
-		aStream << 'Bare Proxy on: <not connected>'.
-		^ self ].
-	
-	aStream 
-		<< 'Bare Proxy on: ';
-		<< ([ proxyObject proxyPerform: #gtDisplayString autoCommit: false]
-				on: Error 
-				do: [ :e | 'Error printing'  ]) 
+
+	aStream << 'Bare Proxy on: '.
+	self gtBasicDisplayOn: aStream
 ]
 
 { #category : #printing }
@@ -159,17 +158,16 @@ GtBareProxy >> gtDisplayText [
 { #category : #printing }
 GtBareProxy >> gtInspectorRemoteSideTitleStringOn: aStream [
 	proxyObject ifNil: [ 
-		aStream << 'a GtBareProxy'.
+		aStream << 'a GtGsBareProxy'.
 		^ self ].
-	
-	proxyObject isProxyObjectActive ifFalse: [ 
-		aStream << 'Bare Proxy on: <not connected>'.
-		^ self ].
-	
-	aStream 
-		<< ([ proxyObject proxyPerform: #gtDisplayString autoCommit: false]
-				on: Error 
-				do: [ :e | 'Error printing'  ]) 
+
+	proxyObject gtBasicDisplayOn: aStream.
+
+	proxyObject gtSession ifNotNil:
+		[ :gtSession | aStream
+			<< ' [';
+			<< gtSession name;
+			<< ']' ]
 ]
 
 { #category : #printing }
@@ -185,7 +183,13 @@ GtBareProxy >> gtInspectorTitleString [
 
 { #category : #printing }
 GtBareProxy >> gtInspectorTitleStringOn: aStream [
-	self gtDisplayOn: aStream
+	self gtDisplayOn: aStream.
+	
+	proxyObject gtSession ifNotNil:
+		[ :gtSession | aStream
+			<< ' [';
+			<< gtSession name;
+			<< ']' ]
 ]
 
 { #category : #'gt inspector' }
@@ -288,7 +292,7 @@ GtBareProxy >> gtRemoteInspectorContentFor: aView [
 		context: GtPhlowContext new;
 		viewsSelector: #gtViewsForRemoteSideInContext:;
 		actionsSelector: #gtActionsForRemoteSideInContext:;
-		titleComputation: [
+		titleComputation: [ 
 			String streamContents: [ :aStream |
 				self gtInspectorRemoteSideTitleStringOn: aStream] ];
 		build
diff --git a/src/GToolkit-GemStone-BareProxy-Pharo/GtGsBareProxy.class.st b/src/GToolkit-GemStone-BareProxy-Pharo/GtGsBareProxy.class.st
index e84c2a27..c59c39a2 100644
--- a/src/GToolkit-GemStone-BareProxy-Pharo/GtGsBareProxy.class.st
+++ b/src/GToolkit-GemStone-BareProxy-Pharo/GtGsBareProxy.class.st
@@ -52,48 +52,6 @@ GtGsBareProxy >> asGtpoLocalObject [
 	^ proxyObject createGtpoLocalObjectLinkedToBareProxy:  self.
 ]
 
-{ #category : #printing }
-GtGsBareProxy >> gtBasicDisplayOn: aStream [
-	proxyObject ifNil: [ 
-		aStream << '<not configured>'.
-		^ self ].
-	
-	proxyObject gtBasicDisplayOn: aStream
-]
-
-{ #category : #printing }
-GtGsBareProxy >> gtDisplayOn: aStream [
-
-	aStream << 'Bare Proxy on: '.
-	self gtBasicDisplayOn: aStream
-]
-
-{ #category : #printing }
-GtGsBareProxy >> gtInspectorRemoteSideTitleStringOn: aStream [
-	proxyObject ifNil: [ 
-		aStream << 'a GtGsBareProxy'.
-		^ self ].
-
-	proxyObject gtBasicDisplayOn: aStream.
-
-	proxyObject gtSession ifNotNil:
-		[ :gtSession | aStream
-			<< ' [';
-			<< gtSession name;
-			<< ']' ]
-]
-
-{ #category : #printing }
-GtGsBareProxy >> gtInspectorTitleStringOn: aStream [
-	super gtInspectorTitleStringOn: aStream.
-	
-	proxyObject gtSession ifNotNil:
-		[ :gtSession | aStream
-			<< ' [';
-			<< gtSession name;
-			<< ']' ]
-]
-
 { #category : #printing }
 GtGsBareProxy >> gtRemoteSideInitialPlaygroundSnippet [
 	^ LeGemStoneSnippet new