Add inspect instance button to unique instance trait

feenkcom · Nov 29, 2024 · 585a319 · 585a319
1 parent 388440a
commit 585a319
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/GToolkit-Utility-Basic/TGtUniqueInstance.trait.st b/src/GToolkit-Utility-Basic/TGtUniqueInstance.trait.st
@@ -23,6 +23,16 @@ TGtUniqueInstance classSide >> default [
 	^ self uniqueInstance
 ]
 
+{ #category : #'as yet unclassified' }
+TGtUniqueInstance classSide >> gtInstanceButtonFor: anAction [
+	<gtClassAction>
+	^ anAction button
+		tooltip: 'Inspect unique instance';
+		priority: 10;
+		icon: BrGlamorousVectorIcons playinspect;
+		action: [ :aButton | aButton phlow spawnObject: self uniqueInstance]
+]
+
 { #category : #testing }
 TGtUniqueInstance classSide >> hasUniqueInstance [