Skip to content

Instantly share code, notes, and snippets.

@HenrikHoyer

HenrikHoyer/gist:2997470

Created June 26, 2012 17:54
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save HenrikHoyer/2997470 to your computer and use it in GitHub Desktop.
Save HenrikHoyer/2997470 to your computer and use it in GitHub Desktop.
Download ZIP
Change all repositories to use a location relative to the location of vdevw.exe
Raw
gistfile1.st
RepositorySpec allInstances do: [:spec |
| locator |
locator := spec fileSystemLocator.
(locator isVolumeRelative not and: [ locator drive asUppercase = (KernelLibrary getModuleFileName: nil) asFileSystemPath drive asUppercase ]) ifTrue: [
locator absolute: #volumeRelative.
locator componentNames: (locator componentNames copyFrom: 2).
].
].
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment