[Pkg] Packages: Sake-Packages-kph.29.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Sake-Packages was added to project Packages:
http://www.squeaksource.com/Packages/Sake-Packages-kph.29.mcz

==================== Summary ====================

Name: Sake-Packages-kph.29
Author: kph
Time: 5 March 2009, 10:40:43 pm
UUID: f84e6f53-b1bf-4604-9caa-0c5a1c0572bd
Ancestors: Sake-Packages-kph.28

+ fixing upgrade

=============== Diff against Sake-Packages-kph.28 ===============

Item was changed:
  ----- Method: Packages class>>findNamed: (in category 'private') -----
  findNamed: packageName 
  	 
  	| sel |
  	
  	sel := self asSelector: packageName.
  	
+ 	^ (self findPath detect: [ :ea | ea canPerform: sel ] ifNone: [ ^nil ]) basicNamed: packageName!
- 	^ (self findPath detect: [ :ea | ea canPerform: sel ] ifNone: [ self error: 'not found' ]) basicNamed: packageName!

Item was changed:
  ----- Method: Packages class>>named: (in category 'public') -----
  named: packageNameOrList
  	
+ 	packageNameOrList isString ifTrue: [ ^ (self findNamed: packageNameOrList) ifNil: [ self error: 'not found: ', packageNameOrList ]].
- 	packageNameOrList isString ifTrue: [ ^ self findNamed: packageNameOrList ].
  	
+ 	^ (packageNameOrList collect: [ :ea | (self findNamed: packageNameOrList) ifNil: [ self error: 'not found: ', packageNameOrList ]]) asTask
+ 	!
- 	^ (packageNameOrList collect: [ :ea | self findNamed: packageNameOrList ]) asTask!

Item was changed:
  ----- Method: Packages class>>upgradeTasks (in category 'public') -----
  upgradeTasks
  	| list |
  	Packages update.
  	
  	list := Set new.
  	
+ 	self provided keysAndValuesDo: [ :k :v |  ((Smalltalk classNamed: (v at: #class)) findNamed: k) ifNotNil: [ :t | list add: t ] ].
- 	self provided keysAndValuesDo: [ :k :v |  list add: ((Smalltalk classNamed: (v at: #class)) named: k) ].
  	
  	^ list asTask!