12 Jun
2008
12 Jun
'08
10:16 p.m.
add: anElement
| descriptionName group |
self flag: 'broken'.
descriptionName := anElement mooseDescription mmQualifiedName.
group := byGroup
at: descriptionName
ifAbsentPut: [OrderedCollection new].
group add: anElement.
elements add: anElement.
^anElement
I'm really sorry but I have the impression that we will not make it
that way.
The wrong person doing the wrong things.
stef