[Pkg] Packages: Sake-Packages-kph.5.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.5.mcz

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

Name: Sake-Packages-kph.5
Author: kph
Time: 11 December 2008, 2:23:20 pm
UUID: 616966f5-2bf9-485c-93c6-7f5afe4ee28e
Ancestors: Sake-Packages-damiencassou.4

+ isNeeded:
= isNeeded

=============== Diff against Sake-Packages-damiencassou.4 ===============

Item was added:
+ ----- Method: Packages class>>isPackageProvided: (in category 'accessors') -----
+ isPackageProvided: aPackage
+ 
+ 	| pkgInfo |
+ 	pkgInfo := PackageOrganizer packageNamed: aPackage name ifAbsent: [ nil ].!

Item was added:
+ ----- Method: Packages>>isNeeded: (in category 'testing') -----
+ isNeeded: priorTasks
+ 
+ 	self isAlreadyProvided ifTrue: [ ^ false ].
+ 
+ 	^ super isNeeded!

Item was changed:
  ----- Method: Packages>>doActionEnd (in category 'as yet unclassified') -----
  doActionEnd
  
  	self isUnloading ifTrue: [ ^ self ].
  	
  	self class provided in: [ :reg |
- 		info := nil.
  		self provides do: [ :each | reg at: each put: self ].
+ 	].!
- 	].
- 
- 	^ nil!

Item was changed:
+ ----- Method: Packages>>isAlreadyProvided (in category 'comparing') -----
- ----- Method: Packages>>isAlreadyProvided (in category 'testing') -----
  isAlreadyProvided
  
+ 	(self version includes: '+') ifTrue: [ ^ false ]. "means the package is being loaded without specifying any fixed version"
- 	(self version includes: '+') ifTrue: [ ^ false ]. "means the package has been loaded without specifying any fixed version"
  
  	^ (self class provided at: self name ifAbsent: [ ^ false ]) version = self version
  
  !

Item was removed:
- ----- Method: Packages>>isNeeded (in category 'testing') -----
- isNeeded
- 
- 	self isAlreadyProvided ifTrue: [ ^ false ].
- 
- 	^ super isNeeded!