[Pkg] Monticello Public: Monticello.impl-kph.563.mcz
squeaksource-noreply at iam.unibe.ch
squeaksource-noreply at iam.unibe.ch
Mon Aug 18 06:12:31 UTC 2008
A new version of Monticello.impl was added to project Monticello Public:
http://www.squeaksource.com/mc/Monticello.impl-kph.563.mcz
==================== Summary ====================
Name: Monticello.impl-kph.563
Author: kph
Time: 18 August 2008, 7:12:16 am
UUID: 531e4c79-e603-4f10-8e16-e7ac97f4520f
Ancestors: Monticello.impl-kph.562
fix typo in new package organizer code.
=============== Diff against Monticello.impl-kph.562 ===============
Item was changed:
----- Method: MCPackageManager class>>managersForCategory:do: (in category 'system changes') -----
managersForCategory: aSystemCategory do: aBlock
"Got to be careful here - we might get method categories where capitalization is problematic."
| cat foundOne index |
foundOne := false.
cat := aSystemCategory ifNil:[^nil]. "yes this happens; for example in eToy projects"
"first ask PackageInfos, their package name might not match the category"
self packageInfos do: [:pi |
(pi includesSystemCategory: aSystemCategory) ifTrue: [
aBlock value: pi manager.
foundOne := true.
]
].
foundOne ifTrue: [^self].
["Loop over categories until we found a matching one"
+ (self organizer packageNamed: cat ifAbsent: nil) ifNotNilDo:[:pi |
- (self organization packageNamed: cat ifAbsent: nil) ifNotNilDo:[:pi |
aBlock value: pi manager.
foundOne := true.
].
index := cat lastIndexOf: $-.
index > 0]whileTrue:[
"Step up to next level package"
cat := cat copyFrom: 1 to: index-1.
].
foundOne ifFalse:[
"Create a new (but only top-level)"
aBlock value: (MCWorkingCopy forPackage: (MCPackage named: (aSystemCategory copyUpTo: $-) capitalized)).
].!
More information about the Packages
mailing list