Fixing the code as the return of informDuring: now works

pharo-vcs · Dec 1, 2023 · 32d3150 · 32d3150
1 parent a79d100
commit 32d3150
Show file tree

Hide file tree

Showing 3 changed files with 27 additions and 26 deletions.
diff --git a/Iceberg-TipUI/IceTipGitRepositoryPanel.class.st b/Iceberg-TipUI/IceTipGitRepositoryPanel.class.st
@@ -58,14 +58,14 @@ IceTipGitRepositoryPanel >> initializePresenters [
 { #category : 'accessing' }
 IceTipGitRepositoryPanel >> newRepository [
 
-	self application
+	^ self application
 		informUser: ('Cloning repository {1}' format: { self remoteUrl })
-		during: [ 
-			^ IceRepositoryCreator new 
-				repository: repository;
-				remote: (IceGitRemote url: self remoteUrl);
-				location: self projectLocation location;
-				createRepository ]
+		during: [
+			IceRepositoryCreator new
+				  repository: repository;
+				  remote: (IceGitRemote url: self remoteUrl);
+				  location: self projectLocation location;
+				  createRepository ]
 ]
 
 { #category : 'accessing' }

diff --git a/Iceberg-TipUI/IceTipLocalRepositoryPanel.class.st b/Iceberg-TipUI/IceTipLocalRepositoryPanel.class.st
@@ -64,16 +64,15 @@ IceTipLocalRepositoryPanel >> location: aReferenceOrString [
 { #category : 'accessing' }
 IceTipLocalRepositoryPanel >> newRepository [
 
-	| repo |
-	self application
-		informUser: ('Importing repository from {1}' format: { self location fullName })
-		during: [ 
-			repo := IceRepositoryCreator new
-				repository: repository;
-				location: self location;
-				createRepository ].
-
-	^ repo
+	^ self application
+		informUser:
+		('Importing repository from {1}' format: { self location fullName })
+		during: [
+			IceRepositoryCreator new
+				        repository: repository;
+				        location: self location;
+				        createRepository ].
+
 ]
 
 { #category : 'initialization' }

diff --git a/Iceberg-TipUI/IceTipNewRepositoryPanel.class.st b/Iceberg-TipUI/IceTipNewRepositoryPanel.class.st
@@ -87,15 +87,17 @@ IceTipNewRepositoryPanel >> newRepository [
 	repositoryName := self projectNameInputText text trimmed.
 	location := self projectLocation location.
 	subdirectory := self subdirectoryInputText text asString trimmed.
-
-	self application
-		informUser: ('Cloning repository {1} at {2}' format: { repositoryName. location fullName })
-		during: [ 
-			^ IceRepositoryCreator new
-				repository: repository;
-				location: location;
-				subdirectory: subdirectory;
-				createNewRepositoryNamed: repositoryName ]
+
+	^ self application
+		informUser: ('Cloning repository {1} at {2}' format: {
+					 repositoryName.
+					 location fullName })
+		during: [
+			IceRepositoryCreator new
+				  repository: repository;
+				  location: location;
+				  subdirectory: subdirectory;
+				  createNewRepositoryNamed: repositoryName ]
 ]
 
 { #category : 'accessing - ui' }