changeset 3210 | d74ece5bbce1 |
parent 3209 | c13a1f4f4ccb |
child 3213 | 33e1f779fa15 |
3209:c13a1f4f4ccb | 3210:d74ece5bbce1 |
---|---|
2920 toRemove isNil ifTrue:[toRemove := OrderedCollection new]. |
2920 toRemove isNil ifTrue:[toRemove := OrderedCollection new]. |
2921 toRemove add:el. |
2921 toRemove add:el. |
2922 ] |
2922 ] |
2923 ]. |
2923 ]. |
2924 toRemove notNil ifTrue:[ |
2924 toRemove notNil ifTrue:[ |
2925 toRemove do:[:el| self remove:el ]. |
2925 toRemove do:[:el| elProcessed remove:el ]. |
2926 ]. |
2926 ]. |
2927 ]. |
2927 ]. |
2928 ]. |
2928 ]. |
2929 ! |
2929 ! |
2930 |
2930 |