Merge pull request #338 from seandenigris/enh_gt-form-memento-inspect

[Enh]: GT Form - Add "Inspect Memento" Button
magritte-metamodel · Oct 11, 2023 · ae35667 · ae35667
2 parents b24afda + a022e0b
commit ae35667
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/source/Magritte-GToolkit/Object.extension.st b/source/Magritte-GToolkit/Object.extension.st
@@ -60,7 +60,19 @@ Object >> maGtFormFor: aView [
 		title: 'Magritte';
 		priority: 50;
 		stencil: [ (description elementBuilderFor: self) addButtons; element ];
-		actionUpdateButton
+		actionButtonIcon: BrGlamorousVectorIcons inspect
+		  label: 'Memento'
+		  tooltip: 'Inspect Memento'
+		  action: [ :aButton :aTab | 
+		  	aTab viewContentElement
+				  allChildrenBreadthFirstDetect: [ :anElement | 
+					  anElement userData includesKey:
+							  #magrittePresenter ]
+				  ifFound: [ :anElement | 
+				  	| memento |
+				  	memento := (anElement userData at: #magrittePresenter) memento.
+					  aButton phlow spawnObject: memento ] ];
+		actionUpdateButton.
 ]
 
 { #category : #'*Magritte-GToolkit' }