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. + ]. + !
packages@lists.squeakfoundation.org