MetacelloVersion should maybe take the projectLabel into account in the #=

[jecisc]

I have a problem because I wanted to collect as a set some versions but I lost one project because MetacelloVersion>>#= takes only the species and the version number into account.

Maybe it should also takes the projectLabel into account if there is one?

[dalehenrich]

hmmm the projectLabel is not an attribute of MetacelloVersion .... I can understand your problem, but I'm also reluctant to change such a fundamental thing without quite a bit of testing ... could you provide some context for collecting the set? Maybe there's another way to do what you are attempting without modifying MetacelloVersion>>#=?

[jecisc]

The idea is to build a visualization around the a configuration version.

With the Telescope framework I have this code:

self addNodesFromEntities: self versionsNodes.
    self connectFollowingProperty: [ :each | each projects collect: #version ].
    self styleSheet
        nodeLabel: [ :each | #(#ConfigurationOf #BaselineOf) inject: each asString into: [ :name :toRemove | name copyReplaceAll: toRemove with: '' ] ];
        nodeLabelPosition: #bottom.
    self
        layout:
            (TLTreeLayout rightToLeft
                leavesGap: 100;
                levelGap: 100;
                yourself)

And for now versionsNodes is:

versionsNodes
    ^ (version withDeepCollect: [ :each | each projects collect: #version ])
        inject: OrderedCollection new
        into: [ :coll :vers | 
            coll detect: [ :each | each versionNumber = vers versionNumber and: [ each projectLabel = vers projectLabel ] ] ifNone: [ coll add: vers ].
            coll ]

And originally I wanted to do:

versionsNodes
    ^ version withDeepCollect: [ :each | each projects collect: #version ] as: Set

But then I miss some projects