[Moose-dev] Re: Roassal2 - edges building

I have actually introduced #if: on purpose to be provocative, to trigger a discussion. Consider the following script: -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= b := RTGraphBuilder new. b nodes rectangle; if: [ :c | c inheritsFrom: RTLayout ]; size: #numberOfMethods; color: (Color blue alpha: 0.5). b nodes rectangle; if: [ :c | c inheritsFrom: RTShape ]; size: #numberOfMethods; color: (Color green alpha: 0.5). b nodes color: Color gray. b edges connectFrom: #superclass; if: [ :f :t | t numberOfMethods > 10 ]; useInLayout. b layout force. b global minSize: 5. b addAll: RTObject withAllSubclasses. b open -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= This produce the visualization The same script, in Mondrian, without #if:, you would write: -=-=-=-=-=-=-=-=-=-=-=-= b := RTMondrianViewBuilder new. b shape rectangle size: #numberOfMethods; color: (Color blue alpha: 0.5). b nodes: (RTObject withAllSubclasses select: [ :c | c inheritsFrom: RTLayout ]). b shape rectangle size: #numberOfMethods; color: (Color green alpha: 0.5). b nodes: (RTObject withAllSubclasses select: [ :c | c inheritsFrom: RTShape ]). b shape circle color: Color gray. b nodes: ((RTObject withAllSubclasses reject: [ :c | c inheritsFrom: RTShape ]) reject: [ :c | c inheritsFrom: RTLayout ]). b edges: (RTObject withAllSubclasses select: [ :c | c numberOfMethods > 10 ]) from: #superclass to: #yourself. b forceBasedLayout. b open -=-=-=-=-=-=-=-=-=-=-=-= For a result as: You have to manually associate the same with what has to be painted. Using the #if:, I use a declarative syntax, a bit like in Prolog. This example clearly illustrates the benefit of having #if:. Maybe it could have been called #scope: or something else. But having a condition attached to a shape is handy, at least in this situation. Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. On May 18, 2014, at 8:32 AM, Tudor Girba <tudor(a)tudorgirba.com> wrote: