| author | Patrik Svestka <patrik.svestka@gmail.com> |
| Wed, 14 Nov 2018 12:57:13 +0100 | |
| branch | jv |
| changeset 1095 | 87f223484bc3 |
| parent 995 | 92bb466548a9 |
| child 1121 | c5661215109c |
| permissions | -rw-r--r-- |
| 122 | 1 |
"{ Package: 'stx:goodies/monticello' }"
|
2 |
||
|
995
92bb466548a9
Removed test classes from stx:goodies/monticello - they're in tests sub package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
620
diff
changeset
|
3 |
"{ NameSpace: Smalltalk }"
|
|
92bb466548a9
Removed test classes from stx:goodies/monticello - they're in tests sub package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
620
diff
changeset
|
4 |
|
| 122 | 5 |
ListItemWrapper subclass:#MCDependentsWrapper |
6 |
instanceVariableNames:'' |
|
7 |
classVariableNames:'' |
|
8 |
poolDictionaries:'' |
|
| 620 | 9 |
category:'SCM-Monticello-UI' |
| 122 | 10 |
! |
11 |
||
12 |
||
13 |
!MCDependentsWrapper methodsFor:'as yet unclassified'! |
|
14 |
||
15 |
asString |
|
16 |
^item description |
|
17 |
! |
|
18 |
||
19 |
contents |
|
20 |
| list workingCopies | |
|
21 |
workingCopies := model unsortedWorkingCopies. |
|
22 |
list := item requiredPackages collect: |
|
23 |
[:each | |
|
24 |
workingCopies detect: [:wc | wc package = each] ifNone: [nil]] |
|
25 |
thenSelect: [:x | x notNil]. |
|
26 |
^list collect: [:each | self class with: each model: model] |
|
27 |
! |
|
28 |
||
29 |
hasContents |
|
30 |
^item requiredPackages isEmpty not |
|
31 |
! |
|
32 |
||
33 |
item |
|
34 |
^item |
|
35 |
! ! |
|
36 |
||
37 |
!MCDependentsWrapper class methodsFor:'documentation'! |
|
38 |
||
39 |
version |
|
| 620 | 40 |
^ '$Header: /cvs/stx/stx/goodies/monticello/MCDependentsWrapper.st,v 1.2 2012-09-11 21:21:24 cg Exp $' |
| 122 | 41 |
! ! |
|
995
92bb466548a9
Removed test classes from stx:goodies/monticello - they're in tests sub package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
620
diff
changeset
|
42 |