diff --git a/Iceberg-Plugin-GitHub.package/IceTipGitHubRepositoryPanel.class/instance/newRepository.st b/Iceberg-Plugin-GitHub.package/IceTipGitHubRepositoryPanel.class/instance/newRepository.st index dbffa8b81c..2dc3fa49f1 100644 --- a/Iceberg-Plugin-GitHub.package/IceTipGitHubRepositoryPanel.class/instance/newRepository.st +++ b/Iceberg-Plugin-GitHub.package/IceTipGitHubRepositoryPanel.class/instance/newRepository.st @@ -1,17 +1,17 @@ accessing newRepository - | repository | - repository := super newRepository. + | newRepository | + newRepository := super newRepository. UIManager default informUser: 'Configuring Remotes...' during: [ | githubRepository | githubRepository := self getGitHubRepository. - githubRepository ifNil: [ ^ repository ]. + githubRepository ifNil: [ ^ newRepository ]. (githubRepository at: #fork) ifTrue: [ | parent remote | parent := githubRepository at: #parent. - remote := IceGitRemote name: ((parent at: #owner) at: #login) url: (parent at: #'git_url'). - repository addRemote: remote. + remote := IceGitRemote name: ((parent at: #owner) at: #login) url: (parent at: #'ssh_url'). + newRepository addRemote: remote. remote fetch. ] ]. - ^ repository \ No newline at end of file + ^ newRepository \ No newline at end of file