getting a context to execute the action

pharo-vcs · Oct 19, 2023 · 5ee31c2 · 5ee31c2
1 parent c0d141f
commit 5ee31c2
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 1 deletion.
diff --git a/Iceberg-TipUI/IceTipCommitBrowser.class.st b/Iceberg-TipUI/IceTipCommitBrowser.class.st
@@ -146,6 +146,8 @@ IceTipCommitBrowser >> initialize [
 
 	super initialize.
 	saveAction := IceTipSaveImageAction new
+		context: self;
+		yourself
 ]
 
 { #category : 'initialization' }

diff --git a/Iceberg-TipUI/IceTipSaveImageAction.class.st b/Iceberg-TipUI/IceTipSaveImageAction.class.st
@@ -6,14 +6,29 @@ I'm used by the presenter that prepares the commit.
 Class {
 	#name : 'IceTipSaveImageAction',
 	#superclass : 'Object',
+	#instVars : [
+		'context'
+	],
 	#category : 'Iceberg-TipUI-Commands',
 	#package : 'Iceberg-TipUI',
 	#tag : 'Commands'
 }
 
+{ #category : 'accessing' }
+IceTipSaveImageAction >> context [
+
+	^ context
+]
+
+{ #category : 'accessing' }
+IceTipSaveImageAction >> context: anObject [
+
+	context := anObject
+]
+
 { #category : 'execution' }
 IceTipSaveImageAction >> execute [
 
 	Smalltalk saveSession.
-	SpApplication defaultApplication newInform title: 'Image automatically saved'; openModal
+	self context inform: 'Image automatically saved'
 ]