diff --git a/Iceberg-TipUI/IceTipGitRepositoryPanel.class.st b/Iceberg-TipUI/IceTipGitRepositoryPanel.class.st index 08fc1bfb98..eb361361b9 100644 --- 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 index fad665fab0..8e2a42f95e 100644 --- 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 index b4508d0349..0b4e333c58 100644 --- 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' }