Hi! Here is a new example: v := RTView new. shape := RTMultiCompositeShape new. shape add: RTLabel new. shape add: RTBox new. es := shape elementsOn: RTShape withAllSubclasses. v addAll: es. RTNest new for: es inShape: #second add: [ :group :model | group addAll: ((RTBox new color: Color blue) elementsOn: model methods). RTGridLayout on: group. ]. RTFlowLayout new on: es. es @ RTPopup @ RTDraggable. v open -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= The last release of Roassal2 should address the comments of Leo and Doru I think… Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. _______________________________________________ Moose-dev mailing list [hidden email] https://www.iam.unibe.ch/mailman/listinfo/moose-dev |
Thanks for working on this!
I will try to find some time to review this, but it will take a while. Cheers, Doru On Sun, Jul 20, 2014 at 3:07 PM, Alexandre Bergel <[hidden email]> wrote:
"Every thing has its own flow"
_______________________________________________ Moose-dev mailing list [hidden email] https://www.iam.unibe.ch/mailman/listinfo/moose-dev |
Ok, no pb
I will probably rewrite the mondrian builder. It should now be simpler. I am also thinking about using + between shapes to produce RTMultiCompositeShape. Other composite shape classes should be removed I think. Alexandre On Jul 20, 2014, at 11:17 AM, Tudor Girba <[hidden email]> wrote: > Thanks for working on this! > > I will try to find some time to review this, but it will take a while. > > Cheers, > Doru > > > > > On Sun, Jul 20, 2014 at 3:07 PM, Alexandre Bergel <[hidden email]> wrote: > Hi! > > Here is a new example: > > -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > v := RTView new. > shape := RTMultiCompositeShape new. > shape add: RTLabel new. > shape add: RTBox new. > es := shape elementsOn: RTShape withAllSubclasses. > > v addAll: es. > > RTNest new > for: es > inShape: #second > add: [ :group :model | > group addAll: ((RTBox new color: Color blue) elementsOn: model methods). > RTGridLayout on: group. > ]. > > RTFlowLayout new on: es. > es @ RTPopup @ RTDraggable. > v open > -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > <Screen Shot 2014-07-20 at 9.06.33 AM.png> > > The last release of Roassal2 should address the comments of Leo and Doru I think… > > Alexandre > -- > _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: > Alexandre Bergel http://www.bergel.eu > ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. > > > > > _______________________________________________ > Moose-dev mailing list > [hidden email] > https://www.iam.unibe.ch/mailman/listinfo/moose-dev > > > > > -- > www.tudorgirba.com > > "Every thing has its own flow" > _______________________________________________ > Moose-dev mailing list > [hidden email] > https://www.iam.unibe.ch/mailman/listinfo/moose-dev -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. _______________________________________________ Moose-dev mailing list [hidden email] https://www.iam.unibe.ch/mailman/listinfo/moose-dev |
Exactly. The goal should be to get a powerful enough composition mechanism such that we do not need hardcoded composite shapes. Doru
On Sun, Jul 20, 2014 at 7:25 PM, Alexandre Bergel <[hidden email]> wrote: Ok, no pb "Every thing has its own flow"
_______________________________________________ Moose-dev mailing list [hidden email] https://www.iam.unibe.ch/mailman/listinfo/moose-dev |
Ok this is pretty cool. Now with the edges how can I say they have to attach to the box and not at the all shape (label + box) ? v := RTView new. shape := RTMultiCompositeShape new.
shape add: RTLabel new. shape add: RTBox new. es := shape elementsOn: RTShape withAllSubclasses. v addAll: es. RTEdge buildEdgesFromObjects: RTShape withAllSubclasses
from: #superclass to: #yourself using: (RTArrow new color: Color black; attachPoint: RTHorizontalAttachPoint new)
inView: v. RTNest new for: es inShape: #second
add: [ :group :model | group addAll: ((RTBox new color: Color blue) elementsOn: model methods). RTGridLayout on: group.
]. RTHorizontalTreeLayout on: es. es @ RTPopup @ RTDraggable. v open On Sun, Jul 20, 2014 at 8:00 PM, Tudor Girba <[hidden email]> wrote:
Cheers, Leo PerardUniversity of Lille 1 _______________________________________________ Moose-dev mailing list [hidden email] https://www.iam.unibe.ch/mailman/listinfo/moose-dev |
Hum… Edges are between elements… But thanks to the AttachPoint, this is easy to do:
-=-=-=-=-=-=-=-=-=-= v := RTView new. shape := RTMultiCompositeShape new. shape add: RTLabel new. shape add: RTBox new. es := shape elementsOn: RTShape withAllSubclasses. v addAll: es. RTEdge buildEdgesFromObjects: RTShape withAllSubclasses from: #superclass to: #yourself using: (RTArrow new color: Color black; attachPoint: (RTShorterDistanceAttachPointAndCompositeShape new composedShapeSelection: #second)) inView: v. RTNest new for: es inShape: #second add: [ :group :model | group addAll: ((RTBox new color: Color blue) elementsOn: model methods). RTGridLayout on: group. ]. RTHorizontalTreeLayout on: es. es @ RTPopup @ RTDraggable. v open -=-=-=-=-=-=-=-=-=-= Here is a screenshot I also started to work on a RTEdgeBuilder, but it is not finished... Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. On Jul 21, 2014, at 5:07 AM, Leo Perard <[hidden email]> wrote:
_______________________________________________ Moose-dev mailing list [hidden email] https://www.iam.unibe.ch/mailman/listinfo/moose-dev |
Free forum by Nabble | Edit this page |