[Moose-dev] Re: Matrix and DSM builder for Roassal

Dear All, Juraj has been working on a new builder for Roassal. Imagine something like Mondrian for to define Matrixes. The idea is to port DSM on Roassal Juraj did an excellent job at defining the infrastructure to easily defines matrixes and DSM. Here is the incantation to load the builder: Gofer new smalltalkhubUser: 'JurajKubelka' project: 'RoassalProposals'; package: 'RoassalGraphBuilders'; load. (Smalltalk globals at: #RODependencyMatrixBuilderTest) browse. Here is a list of small doits with their respective screenshots: -=-=-=-=-=-=-=-=-=-=-=-= | view builder | view := ROView new. builder := RODependencyMatrixBuilder new. builder model: (Array with: true with: false). builder dependencyBoolean: #xor:. builder gapSize: 0. builder on: view. view open <Screen Shot 2013-05-27 at 1.35.42 PM.png> -=-=-=-=-=-=-=-=-=-=-=-= -=-=-=-=-=-=-=-=-=-=-=-= | view builder objects | objects := ROShape withAllSubclasses. view := ROView new. view @ RODraggable. builder := RODependencyMatrixBuilder new. builder model: objects. builder dependency: #superclass. builder gapSize: 0. builder on: view. view open <Screen Shot 2013-05-27 at 1.37.42 PM.png> -=-=-=-=-=-=-=-=-=-=-=-= -=-=-=-=-=-=-=-=-=-=-=-= | view builder | view := ROView new. builder := RODependencyMatrixBuilder new. builder model: (1 to: 5). builder dependencyModel: [ :model :r :c | r + c ]. builder dependencyShape: ROLabel green. builder on: view. view open <Screen Shot 2013-05-27 at 1.38.27 PM.png> -=-=-=-=-=-=-=-=-=-=-=-= In a Roassal Easel opened on a class group: -=-=-=-=-=-=-=-=-=-=-=-= | builder | builder := RODependencyMatrixBuilder new. builder model: classGroup. builder rowShape text: [ :element | element model name asString ]. builder columnShape text: ''. builder dependencyModel: [ :model :r :c | r queryAllOutgoingInvocations atClassScope includes: c ]. builder dependencyShape: (ROBox new color: [ :el | el model ifTrue: [ Color red ] ifFalse: [ Color white ] ]; extent: 20 @ 20). builder gapSize: 0. builder on: view raw. builder sort: [ :model | model queryAllOutgoingInvocations atClassScope size ]. <Screen Shot 2013-05-27 at 5.46.02 PM.png> -=-=-=-=-=-=-=-=-=-=-=-= Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. _______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev