Excellent job, Alex!
We start to have true decorators. It's getting exciting :).
Cheers, Doru
On 12 Jun 2012, at 18:54, Alexandre Bergel wrote:
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@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- www.tudorgirba.com
"Every now and then stop and ask yourself if the war you're fighting is the right one."