equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/monticello' }" |
1 "{ Package: 'stx:goodies/monticello' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 Object subclass:#MCAncestry |
5 Object subclass:#MCAncestry |
4 instanceVariableNames:'ancestors stepChildren' |
6 instanceVariableNames:'ancestors stepChildren' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
37 ^ String streamContents: |
39 ^ String streamContents: |
38 [:s | self ancestors do: [:ea | s nextPutAll: ea name] separatedBy: [s nextPutAll: ', ']] |
40 [:s | self ancestors do: [:ea | s nextPutAll: ea name] separatedBy: [s nextPutAll: ', ']] |
39 ! |
41 ! |
40 |
42 |
41 ancestors |
43 ancestors |
42 ^ ancestors ifNil: [#()] |
44 ^ ancestors isNil ifTrue: [#()] ifFalse:[ancestors] |
|
45 |
|
46 "Modified: / 07-09-2015 / 15:45:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
43 ! |
47 ! |
44 |
48 |
45 ancestorsDoWhileTrue: aBlock |
49 ancestorsDoWhileTrue: aBlock |
46 self ancestors do: |
50 self ancestors do: |
47 [:ea | |
51 [:ea | |
146 !MCAncestry class methodsFor:'documentation'! |
150 !MCAncestry class methodsFor:'documentation'! |
147 |
151 |
148 version |
152 version |
149 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCAncestry.st,v 1.2 2012-09-11 21:20:19 cg Exp $' |
153 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCAncestry.st,v 1.2 2012-09-11 21:20:19 cg Exp $' |
150 ! ! |
154 ! ! |
|
155 |