workarounds for issues feenkcom#1 and feenkcom#2

dalehenrich · Apr 28, 2022 · 9939b37 · 9939b37
1 parent bbc0217
commit 9939b37
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/GToolkit-RemotePhlow-InspectorCore/GtRemotePhlowViewedObject.class.st b/src/GToolkit-RemotePhlow-InspectorCore/GtRemotePhlowViewedObject.class.st
@@ -60,7 +60,7 @@ GtRemotePhlowViewedObject >> getViewDeclaration: viewSelector [
 { #category : #'api - accessing' }
 GtRemotePhlowViewedObject >> getViewDeclarationForView: aDeclarativeView [
 
-	PharoLinkAnswerByValue setByValueOnly.
+	(Rowan classNamed: 'PharoLinkAnswerByValue') setByValueOnly.
 	^ aDeclarativeView asDictionaryForExport
 ]
 
@@ -70,7 +70,7 @@ GtRemotePhlowViewedObject >> getViewsDeclarations [
 	viewDeclarations := (self declarativeViewsBySelector 
 		collect: [ :declarativeView |
 			self getViewDeclarationForView: declarativeView ]).
-	PharoLinkAnswerByValue setByValueOnly.
+	(Rowan classNamed: 'PharoLinkAnswerByValue') setByValueOnly.
 	^ Dictionary new
 		at: 'views' put: viewDeclarations asArray;
 		yourself
@@ -112,7 +112,7 @@ GtRemotePhlowViewedObject >> phlowDeclarativeViews [
 	views := object gtDeclarativePhlowViews.
 	views 
 		detect: [ :each | each title = 'Raw' ]
-		ifNone: [ views add: (object gtRemoteGtRawFor: GtPhlowView empty) ].
+		ifNone: [ views add: (object gtRemoteGtRawFor: (Rowan classNamed: 'GtPhlowView') empty) ].
 
 	^ views
 ]