just a question
why not
view := ROView new.
el1 := ROElement dragable.
or
view := ROView new.
el1 := ROElement new
el1 draggable
el1 + ROBox blue.
what is the advantage over
el1 color: #blue
?
or
el1 := ROElement new
el1 box green ; draggable
to me the + and @ looks complex and a bit ugly.
Then I do not understand why we can give an extent: before saying that this is a box?
| view el1 el2 edge line |
view := ROView new.
el1 := ROElement new.
el1 draggable ; box blue.
el1 extent: 50@50.
el2 := ROElement new.
el2 draggable; box green.
el2 extent: 50@50.
looks better to me.
> Hi!
>
> I know this has been on the wished list of many of you. The following script
produces:
> <Screen Shot 2012-06-13 at 12.54.05 AM.png>
>
> -=-=-=-=-=-=-=-=-=-=-=-=
> | view el1 el2 edge line |
> view := ROView new.
> el1 := ROElement new.
> el1 @RODraggable.
> el1 extent: 50@50.
el1 + ROBox blue.
>
> el2 := ROElement new.
> el2 @RODraggable.
> el2 extent: 50@50.
> el2 + ROBox green.
>
> el1 translateTo: 0 @ 100.
>
> edge := ROEdge from: el1 to: el2.
> line := ROLine new.
> line add: ROArrow new offset: 0.1.
> line add: ROArrow new offset: 0.5.
> edge + line.
>
> view add: el1; add: el2; add: edge.
> view open
> -=-=-=-=-=-=-=-=-=-=-=-=
>
> I will remove ROArrowedLine very soon then
>
> 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