Use a flag for marking a forward view as not declarative [feenkcom/gt…

…oolkit#4043]
feenkcom · Sep 28, 2024 · 8c9ac36 · 8c9ac36
1 parent eeacd1a
commit 8c9ac36
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 2 deletions.
diff --git a/src/GToolkit-RemoteGt/GtPhlowForwarderView.extension.st b/src/GToolkit-RemoteGt/GtPhlowForwarderView.extension.st
@@ -18,7 +18,7 @@ GtPhlowForwarderView >> asGtDeclarativeView [
 GtPhlowForwarderView >> canBeGtDeclarativeView [
 	"Answer a boolean indicating whether the receiver can be represented as a GtDeclarativeView"
 
-	^ self phlowView asAsyncPromise wait canBeGtDeclarativeView
+	^ isDeclarative ifNil: [ true ] 
 ]
 
 { #category : #'*GToolkit-RemoteGt' }
@@ -39,3 +39,8 @@ GtPhlowForwarderView >> computeForwardedView [
 
 	^ computedView
 ]
+
+{ #category : #'*GToolkit-RemoteGt' }
+GtPhlowForwarderView >> markAsNotDeclarative [
+	isDeclarative := false
+]
diff --git a/src/GToolkit-RemotePhlow-PhlowViews/GtRemotePhlowForwarderView.class.st b/src/GToolkit-RemotePhlow-PhlowViews/GtRemotePhlowForwarderView.class.st
@@ -4,7 +4,8 @@ Class {
 	#instVars : [
 		'viewSelector',
 		'objectComputation',
-		'transformation'
+		'transformation',
+		'isDeclarative'
 	],
 	#category : #'GToolkit-RemotePhlow-PhlowViews'
 }
@@ -21,6 +22,11 @@ GtRemotePhlowForwarderView >> asGtDeclarativeView [
 		dataTransport: GtPhlowViewSpecification dataLazy
 ]
 
+{ #category : #testing }
+GtRemotePhlowForwarderView >> canBeGtDeclarativeView [
+	^ isDeclarative ifNil: [ true ] 
+]
+
 { #category : #converting }
 GtRemotePhlowForwarderView >> computeForwardedView [
 	| targetObject computedView |
@@ -51,6 +57,11 @@ GtRemotePhlowForwarderView >> hasTransformation [
 	^ transformation notNil
 ]
 
+{ #category : #configuring }
+GtRemotePhlowForwarderView >> markAsNotDeclarative [
+	isDeclarative := false
+]
+
 { #category : #'api - scripting' }
 GtRemotePhlowForwarderView >> object: anObjectComputation [
 	objectComputation := anObjectComputation.