Merge pull request pharo-vcs#1746 from pharo-vcs/fixes

Fixes
jecisc · Nov 21, 2023 · 78ca3d4 · 78ca3d4
2 parents c4d6283 + a7478c7
commit 78ca3d4
Show file tree

Hide file tree

Showing 3 changed files with 21 additions and 2 deletions.
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/IceTipRepositoriesBrowser.class.st b/Iceberg-TipUI/IceTipRepositoriesBrowser.class.st
@@ -111,7 +111,8 @@ IceTipRepositoriesBrowser >> addLibGitNotAvailableWarning [
 
 	notifyPanel layout add: (notifyPanel newLabel 
 		label: 'There is no libgit2 available in your system! Please verify everything is fine before continue.';
-		yourself)
+		yourself).
+	notifyPanel show
 ]
 
 { #category : 'initialization' }
@@ -170,6 +171,7 @@ IceTipRepositoriesBrowser >> initializePresenters [
 	notifyPanel := self newPresenter.
 	notifyPanel layout: SpBoxLayout newVertical.
 	notifyPanel addStyle: 'libgit2NotAvailable'.
+	notifyPanel hide.
 
 	repositoryNotebook := self newNotebook
 ]

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'
 ]