TLProjectMap is not right

[jecisc]

In Metacello versions do not implement the equality right. Thus we need to update the code of the visu.

I have a proto:

buildVisualization
    super buildVisualization.
    self addNodesFromEntities: self versionsNodes.
    self nodes
        do: [ :each | 
            (each entity projects collect: [ :e | self nodes detect: [ :n | n entity = e version and: [ n entity projectLabel = e version projectLabel ] ] ifNone: [ nil ] ])
                asSet do: [ :n | n ifNotNil: [ each connectToNode: n ] ] ].
    self styleSheet
        nodeLabel: [ :each | #(#ConfigurationOf #BaselineOf) inject: each asString into: [ :name :toRemove | name copyReplaceAll: toRemove with: '' ] ];
        nodeLabelPosition: #bottom;
        labelSize: 11.
    self layout: self defaultLayout

I little ugly but working. It does not manage well configurations, only baselines.

[jecisc]

In fact it is not the configurations that it does not manage. It's the dependencies not loaded in the image.

[jecisc]

Here is a much better version:

| project |
project := BaselineOfMoose.
substringsOfProjectsToHighlight := #(#Famix #Fame #Moose #TestResource).

visu := TLVisualization new.
visu addNodesFromEntities: ((BaselineOfMoose project 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 ]).

visu nodes
        do: [ :each | 
            (each entity projects collect: [ :e | visu nodes detect: [ :n | n entity = e version and: [ n entity projectLabel = e version projectLabel ] ] ifNone: [ nil ] ])
                asSet do: [ :n | n ifNotNil: [ each connectToNode: n ] ] ].

visu styleSheet
        nodeLabel: [ :each | each projectLabel withoutPrefix: #BaselineOf ];
        nodeLabelPosition: #bottom;
        backgroundColor: [ :each | (substringsOfProjectsToHighlight anySatisfy: [ :e | each projectLabel includesSubstring: e ]) ifTrue: [ MDLColor green ] ifFalse: [ MDLColor orange ] ];
        labelSize: 11.

visu layout: (TLTreeLayout rightToLeft
        leavesGap: 70;
        levelGap: 100;
        yourself).

visu addInteractions:
            {(TLStyleCustomizationAction
                custom: [ :style :drawable | 
                    drawable isConnection
                        ifTrue: [ style
                                color: MDLColor blue;
                                width: 3 ]
                        ifFalse: [ style
                                labelSize: 20;
                                textColor: MDLColor blue ].
                    self ]
                target: [ :aDrawable | aDrawable incomingConnections flatCollectAsSet: #withConnectedNodes ]) onMouseOver propagateToChildren . (TLStyleCustomizationAction
                custom: [ :style :drawable | 
                    drawable isConnection
                        ifTrue: [ style
                                color: MDLColor orange;
                                width: 3 ]
                        ifFalse: [ style
                                labelSize: 20;
                                textColor: MDLColor orange ].
                    self ]
                target: [ :aDrawable | aDrawable outgoingConnections flatCollectAsSet: #withConnectedNodes ]) onMouseOver propagateToChildren}.

visu open