[Pkg] Packages: Packages-Core-kph.56.mcz

[squeaksource-noreply at iam.unibe.ch]

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

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

Name: Packages-Core-kph.56
Author: kph
Time: 19 August 2008, 12:34:24 am
UUID: 5aadea3b-c9dc-4250-9acf-97cd61632afe
Ancestors: Packages-Core-kph.55

Implement so that 

Packages beta named: 'Rio', will fall back on Packages current Rio, if Packages beta Rio is not implemented.

(I thought I had already implemented this)

=============== Diff against Packages-Core-kph.55 ===============

Item was added:
+ ----- Method: Packages class>>findNamed: (in category 'private') -----
+ findNamed: packageName 
+ 	 
+ 	^ ((self canPerform: (self asSelector: packageName))
+ 		 ifTrue: [ self ] ifFalse: [ self current ]) basicNamed: packageName!

Item was changed:
  ----- Method: Packages class>>named: (in category 'public') -----
  named: packageNameOrList
  	
  	self == Packages ifTrue: [ self error: 'Usage: (Packages current named: ''PkgName'') run'. ].
  
+ 	packageNameOrList isString ifTrue: [ ^ self findNamed: packageNameOrList ].
- 	packageNameOrList isString ifTrue: [ ^ self basicNamed: packageNameOrList ].
  	
+ 	^ (packageNameOrList collect: [ :ea | self findNamed: packageNameOrList ]) asTask!
- 	^ (packageNameOrList collect: [ :ea | self basicNamed: packageNameOrList ]) asTask!

Item was changed:
  ----- Method: Packages>>action (in category 'as yet unclassified') -----
  action
  
+ 	^ self isUnloading 
- 	self isUnloading 
  		ifTrue: [ unloadBlock ifNil: [ [ self defaultUnloadAction ] ] ]
  		ifFalse: [ super action ].!