Replace repositoryGroups for workingCopies with filetree: equivalent

setupPharo14Sample.st

"cd to a likely spot on disk and run the following at a shell prompt (after installing git):

  git clone -b develop https://github.com/Phariverse/PharoCore.git

then set pharoCoreRepoPath below to path to repository directory inside PharoCore git repository.

Finally run the expressions in this workspace to connect your image up to the correct repositories.

"
| pharoCoreRepoPath  metacelloRepository filetreeRepository 
  pharoCoreRepository pharoCoreHTTPRepo filetreeHTTPRepo metacelloHTTPRepo
  pharoCoreRepoGroup metacelloRepoGroup filetreeRepoGroup |

pharoCoreRepoPath := '/opt/git/PharoCore/repository'. "Don't forget path should point at PharoCore/repository subdirectory"

pharoCoreRepository := MCFileTreeRepository new directory: 
	(FileDirectory default directoryNamed: pharoCoreRepoPath).
pharoCoreHTTPRepo := MCRepositoryGroup default repositories detect: [:repo | 
	repo description = 'http://ss3.gemstone.com/ss/Pharo14'].

metacelloRepository := MCGitHubRepository location: 'github://dalehenrich/metacello:newPackageFormat/repository'.
metacelloHTTPRepo := MCRepositoryGroup default repositories detect: [:repo | 
	repo description = 'http://seaside.gemstone.com/ss/metacello'].

filetreeRepository := MCGitHubRepository location: 'github://dalehenrich/filetree:pharoBugFix/repository'.
filetreeHTTPRepo := MCRepositoryGroup default repositories detect: [:repo | 
	repo description = 'http://ss3.gemstone.com/ss/FileTree'].

pharoCoreRepoGroup := MCRepositoryGroup new
	addRepository: pharoCoreHTTPRepo;
	addRepository: pharoCoreRepository;
	yourself.
filetreeRepoGroup := MCRepositoryGroup new
	addRepository: filetreeHTTPRepo;
	addRepository: filetreeRepository;
	yourself.
metacelloRepoGroup := MCRepositoryGroup new
	addRepository: metacelloHTTPRepo;
	addRepository: metacelloRepository;
	yourself.

MCWorkingCopy registry valuesDo: [:wc | 
	(wc repositoryGroup includes: metacelloHTTPRepo)
		ifTrue: [ wc repositoryGroup: metacelloRepoGroup ].
	(wc repositoryGroup includes: filetreeHTTPRepo)
		ifTrue: [ wc repositoryGroup: filetreeRepoGroup ].
	(wc repositoryGroup includes: pharoCoreHTTPRepo)
		ifTrue: [ wc repositoryGroup: pharoCoreRepoGroup ] ].