"{ Package: 'stx:goodies/monticello' }"

ListItemWrapper subclass:#MCDependentsWrapper

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Monticello-UI'

!

!MCDependentsWrapper methodsFor:'as yet unclassified'!

asString

	^item description

!

contents

	| list workingCopies |

	workingCopies := model unsortedWorkingCopies.

	list := item requiredPackages collect: 

					[:each | 

					workingCopies detect: [:wc | wc package = each] ifNone: [nil]]

				thenSelect: [:x | x notNil].

	^list collect: [:each | self class with: each model: model]

!

hasContents

	^item requiredPackages isEmpty not

!

item

	^item

! !

!MCDependentsWrapper class methodsFor:'documentation'!

version

    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCDependentsWrapper.st,v 1.2 2012-09-11 21:21:24 cg Exp $'

! !