[squeak-dev] The Trunk: MonticelloConfigurations-cmm.92.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Apr 25 00:17:23 UTC 2011
Chris Muller uploaded a new version of MonticelloConfigurations to project The Trunk:
http://source.squeak.org/trunk/MonticelloConfigurations-cmm.92.mcz
==================== Summary ====================
Name: MonticelloConfigurations-cmm.92
Author: cmm
Time: 24 April 2011, 7:17:13.976 pm
UUID: 7879c8ca-fa9b-44e2-b37f-be2918404a61
Ancestors: MonticelloConfigurations-cmm.91
- Extend support for MCConfigurations to regular MCDirectoryRepository's.
=============== Diff against MonticelloConfigurations-cmm.91 ===============
Item was changed:
----- Method: MCConfigurationBrowser>>addRepository (in category 'repositories') -----
addRepository
+ (self pickRepositorySatisfying:
+ [ : ea | (self repositories includes: ea) not ]) ifNotNil:
+ [ : repo | repo class supportsConfigurations ifFalse: [ ^ self inform: 'Not all of these repositories support MCConfigurations.' ].
+ self repositories add: repo.
+ self changed: #repositoryList ]!
- (self pickRepositorySatisfying: [:ea | (self repositories includes: ea) not])
- ifNotNil: [:repo |
- (repo isKindOf: MCHttpRepository)
- ifFalse: [^self inform: 'Only HTTP repositories are supported'].
- self repositories add: repo.
- self changed: #repositoryList.
- ]!
Item was changed:
----- Method: MCConfigurationBrowser>>checkRepositories (in category 'repositories') -----
checkRepositories
| bad |
+ bad := self repositories reject: [:repo | repo class supportsConfigurations ].
- bad := self repositories reject: [:repo | repo isKindOf: MCHttpRepository].
^bad isEmpty or: [
self selectRepository: bad first.
self inform: (String streamContents: [:strm |
strm nextPutAll: 'Please remove these repositories:'; cr.
bad do: [:r | strm nextPutAll: r description; cr].
strm nextPutAll: '(only HTTP repositories are supported)']).
false].
!
Item was added:
+ ----- Method: MCFileBasedRepository class>>supportsConfigurations (in category '*monticelloconfigurations') -----
+ supportsConfigurations
+ ^ true!
Item was added:
+ ----- Method: MCMagmaRepository class>>supportsConfigurations (in category '*monticelloconfigurations') -----
+ supportsConfigurations
+ ^ true!
Item was added:
+ ----- Method: MCRepository class>>supportsConfigurations (in category '*monticelloconfigurations') -----
+ supportsConfigurations
+ ^ false!
More information about the Squeak-dev
mailing list
|