Frank Shearar uploaded a new version of Installer-Core to project The Trunk:
http://source.squeak.org/trunk/Installer-Core-fbs.365.mcz==================== Summary ====================
Name: Installer-Core-fbs.365
Author: fbs
Time: 12 February 2013, 9:38:39.338 am
UUID: 68a5194b-3275-4c91-b01e-978c87dc20ec
Ancestors: Installer-Core-fbs.364
http://bugs.squeak.org/view.php?id=7722Use FileDirectory's abstractions rather than relying on a platform specific path separator.
=============== Diff against Installer-Core-fbs.364 ===============
Item was changed:
----- Method: InstallerMonticello>>project: (in category 'accessing') -----
project: name
| locs dirs all |
project := name.
packages := nil.
"mc repositories is a collection of repositories created on the fly. Store a reference to it so we have a stable working set."
all := mc repositories.
"Some repositories point to more specific parts within their structures when given a project name. An HTTP repository adds the project name to its path, for instance. A cache repository, despite being directory based, does not."
locs := all select: [:repo | repo respondsTo: #location:].
dirs := all select: [:repo | (repo respondsTo: #directory:) and: [(repo respondsTo: #cacheForPackage:) not]].
locs do: [:repo |
mc removeRepository: repo.
mc addRepository: (repo copy location: root , name)].
dirs do: [:repo |
mc removeRepository: repo.
+ mc addRepository: (repo copy directory: root , FileDirectory slash , name)].
- mc addRepository: (repo copy directory: root ,'/', name)].
^self copy.!