[Pkg] Monticello Public: Monticello.impl-kph.563.mcz

[squeaksource-noreply at iam.unibe.ch]

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