[Pkg] Packages: Sake-Packages-kph.29.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Thu Mar 5 22:40:46 UTC 2009
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!
More information about the Packages
mailing list