A new version of MonticelloConfigurations was added to project Monticello Public: http://www.squeaksource.com/mc/MonticelloConfigurations-djr.48.mcz
==================== Summary ====================
Name: MonticelloConfigurations-djr.48 Author: djr Time: 1 July 2008, 4:59:33 pm UUID: 50d1ce4b-0c41-46eb-91d4-9045d9c75842 Ancestors: MonticelloConfigurations-mtf.47
Continuing my quest for using configurations on the filesystem: Check if the map contains a relative path to a repository and construct one based on that, rather than defaulting to an HTTP one.
=============== Diff against MonticelloConfigurations-mtf.47 ===============
Item was changed: ----- Method: MCConfiguration class>>repositoryFromArray: (in category 'converting') ----- + repositoryFromArray: anArray - repositoryFromArray: anArray ^ MCRepositoryGroup default repositories detect: [:repo | repo description = anArray first] + ifNone: [(self seeIfRelativeDirectory: anArray first) + ifNil: [MCHttpRepository + location: anArray first + user: '' + password: '']]! - ifNone: [ - MCHttpRepository - location: anArray first - user: '' - password: '']!
Item was added: + ----- Method: MCConfiguration class>>seeIfRelativeDirectory: (in category 'converting') ----- + seeIfRelativeDirectory: aPath + | possiblePath | + possiblePath := FileDirectory + on: (FileDirectory default fullNameFor: aPath). + ^ possiblePath exists + ifTrue: [MCDirectoryRepository new directory: possiblePath] + ifFalse: [ nil ]!