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

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

Name: Packages-Core-kph.41
Author: kph
Time: 10 June 2008, 2:59:05 am
UUID: 424cd605-4d57-448e-83bd-722f42e6ae7a
Ancestors: Packages-Core-kph.40

.

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

Item was added:
+ ----- Method: Packages>>allDependants (in category 'as yet unclassified') -----
+ allDependants
+ 
+ 	| list |
+ 
+ 	list := OrderedCollection new.
+ 
+ 	self provides in: [ :target |
+ 
+ 		self class allPackagesDo: [ :package |
+ 
+ 			package withAllPriorTasksIgnoringErrorsDo: [ :ea |
+ 				(ea dependsOn includesAnyOf: target) ifTrue: [ (list includes: package) ifFalse: [ list add: package ] ].
+ 			] 	
+ 		]
+ 	].
+ 
+ 	^ list
+ 	
+ "
+ String streamContents: [ :str | (Packages current named:'Seaside') allDependants do: [ :ea | str << ea info name << String cr << ea info description << String cr << '======='; cr ] ]
+ "!

Item was changed:
  ----- Method: Packages>>taskUnloadDependants (in category 'as yet unclassified') -----
  taskUnloadDependants
  
  	"if the task is the provided one, then we return the provided dependants."
  	
+ 	self loadedDependants in: [ :deps |
- 	self dependants in: [ :deps |
  	
  		deps ifEmpty: [ ^ nil ].
  	
  	 	^ (self class provided at: self name ifAbsent: nil) == self
  			ifTrue: [ (deps collect: [ :ea | ea copy beUnloading ]) asTask ]
  			ifFalse: [ (deps collect: [ : ea | (self class named: ea name) beUnloading ]) asTask ]
  	].!

Item was added:
+ ----- Method: Packages class>>allPackagesDo: (in category 'public') -----
+ allPackagesDo: aBlock
+ 
+ 	^ (self allSelectorsBelow: Packages) collect: [ :ea | aBlock value: (self named: ea) ]!

Item was added:
+ ----- Method: Packages>>loadedDependants (in category 'as yet unclassified') -----
+ loadedDependants
+ 
+ 	^ self class provided select: [ :dependant  | 
+ 		 dependant dependsOn includesAnyOf: self provides.
+ 	].
+ !