equal
deleted
inserted
replaced
22 names notNil ifTrue:[ ^ names ]. |
22 names notNil ifTrue:[ ^ names ]. |
23 names := OrderedCollection new. |
23 names := OrderedCollection new. |
24 self children do:[:child | |
24 self children do:[:child | |
25 | id | |
25 | id | |
26 |
26 |
27 id := child name ? 'c'. |
27 id := child name notNil ifTrue:[ child name ] ifFalse:[ 'c' ]. |
28 (names includes: id) ifTrue:[ |
28 (names includes: id) ifTrue:[ |
29 | i | |
29 | i | |
30 |
30 |
31 i := 1. |
31 i := 1. |
32 [ names includes: (id , '_' , i printString) ] whileTrue:[ |
32 [ names includes: (id , '_' , i printString) ] whileTrue:[ |