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)). ].!