baseline-dependencies-mondrian.st

BaselineOfXMLMAGenerator project latestVersion projects collect: [ :each | each name -> each versionString ] as: Array. "{'XMLParser'->#stable. 'XPath'->#stable. 'Magritte'->#stable. 'MagritteXMLBindings'->'baseline'. 'ChangesBuilder'->'baseline'}"

version := BaselineOfXMLMAGenerator project latestVersion.

nodes := version projects, version packages, version groups.

b := RTMondrian new.
b shape text text: #name.
b nodes: nodes.

deps := OrderedCollection new.
version groups, version packages do: [ :each |
	each includes, each requires do: [ :depName |
		deps add: each -> (nodes detect: [ :n | n name = depName ])
	].
].
b edges shape arrowedLine.
b edges useAssociations: deps.

b layout dominanceTree verticallyReverse verticalGap: 50.
b build.
b view @ RTZoomableView.