Add refresh to the remote details view [feenkcom/gtoolkit#5059]

chisandrei · chisandrei · commit 6235c303c8df · 2026-06-25T18:35:15.000+02:00
diff --git a/src/GToolkit-RemoteGt/GtPhlowDetailsViewSpecification.extension.st b/src/GToolkit-RemoteGt/GtPhlowDetailsViewSpecification.extension.st
@@ -17,6 +17,14 @@ GtPhlowDetailsViewSpecification >> viewFor: aView [
 	
 	currentView localSend: [ :aPhlowRow :aRowSpecification |
 		self retrieveRowNodeRawValueAtRowIndex: aRowSpecification index].
+		
+	currentView
+		actionButtonIcon: BrGlamorousVectorIcons refresh
+			id: GtPhlowViewRefreshContentButtonId
+			tooltip: 'Update'
+			action: [ :aButton :aTab | 
+				self flushCachedData.
+				aTab phlow fireViewUpdateWish ].
 	
 	^ currentView
 ]
diff --git a/src/GToolkit-RemotePhlow-DeclarativeViews/GtPhlowDetailsViewSpecification.class.st b/src/GToolkit-RemotePhlow-DeclarativeViews/GtPhlowDetailsViewSpecification.class.st
@@ -29,6 +29,11 @@ GtPhlowDetailsViewSpecification >> asDictionaryForExport [
 		yourself
 ]
 
+{ #category : #accessing }
+GtPhlowDetailsViewSpecification >> flushCachedData [
+	^ self phlowDataSource flushCachedData
+]
+
 { #category : #views }
 GtPhlowDetailsViewSpecification >> gtViewRowSpecificationsFor: aView [
 	<gtView>
diff --git a/src/GToolkit-RemotePhlow-DeclarativeViews/GtRemotePhlowDeclarativeViewDetailsDataSource.class.st b/src/GToolkit-RemotePhlow-DeclarativeViews/GtRemotePhlowDeclarativeViewDetailsDataSource.class.st
@@ -35,6 +35,11 @@ GtRemotePhlowDeclarativeViewDetailsDataSource >> computeRowNodes [
 					nodeValue:nodeValue ]
 ]
 
+{ #category : #accessing }
+GtRemotePhlowDeclarativeViewDetailsDataSource >> flushCachedData [
+	cachedNodes := nil
+]
+
 { #category : #views }
 GtRemotePhlowDeclarativeViewDetailsDataSource >> gtPhlowViewRowsFor: aView [
 	<gtView>
diff --git a/src/GToolkit-RemotePhlow-Examples/GtRemotePhlowDeclarativeDetailsInspectableForExamples.class.st b/src/GToolkit-RemotePhlow-Examples/GtRemotePhlowDeclarativeDetailsInspectableForExamples.class.st
@@ -1,6 +1,10 @@
 Class {
 	#name : #GtRemotePhlowDeclarativeDetailsInspectableForExamples,
 	#superclass : #Object,
+	#instVars : [
+		'propertyOne',
+		'propertyTwo'
+	],
 	#category : #'GToolkit-RemotePhlow-Examples'
 }
 
@@ -43,6 +47,17 @@ GtRemotePhlowDeclarativeDetailsInspectableForExamples >> gtDetailsViewFor: aView
 		row: 'Date' value: [ self exampleDate ]
 ]
 
+{ #category : #views }
+GtRemotePhlowDeclarativeDetailsInspectableForExamples >> gtDetailsViewWithPropertiesFor: aView [
+	<gtView>
+
+	^aView details
+		title: 'Properties';
+		priority: 40;
+		row: 'Property One' value: [ self propertyOne ifNil: ['<missing>'] ];
+		row: 'Property Two' value: [ self propertyTwo ifNil: ['<missing>'] ]
+]
+
 { #category : #views }
 GtRemotePhlowDeclarativeDetailsInspectableForExamples >> gtDetailsWithErrorsViewFor: aView [
 	<gtView>
@@ -57,6 +72,26 @@ GtRemotePhlowDeclarativeDetailsInspectableForExamples >> gtDetailsWithErrorsView
 		row: 'Error in both' value: [ 1/0 ] text: [ :each | 1 / 0]
 ]
 
+{ #category : #accessing }
+GtRemotePhlowDeclarativeDetailsInspectableForExamples >> propertyOne [
+	^ propertyOne
+]
+
+{ #category : #accessing }
+GtRemotePhlowDeclarativeDetailsInspectableForExamples >> propertyOne: anObject [
+	propertyOne := anObject
+]
+
+{ #category : #accessing }
+GtRemotePhlowDeclarativeDetailsInspectableForExamples >> propertyTwo [
+	^ propertyTwo
+]
+
+{ #category : #accessing }
+GtRemotePhlowDeclarativeDetailsInspectableForExamples >> propertyTwo: anObject [
+	propertyTwo := anObject
+]
+
 { #category : #accessing }
 GtRemotePhlowDeclarativeDetailsInspectableForExamples >> string [
 	^ 'hello world'
