I think what Gustavo wanted to show is in Roassal1 the Transcript is shown
only once whereas with Roassal2 it is shown at every step.
On Wed, Jun 18, 2014 at 5:09 PM, Alexandre Bergel <alexandre.bergel(a)me.com>
wrote:
Hi Gustavo,
Here is the similar version in Roassal2:
-=-=-=-=-=-=-=-=
| v el |
v := RTView new.
el := (RTBox new size: 20) element.
v add: el.
el when: TRMouseDragging do: [ :evt | Transcript show: 'ok'; cr ].
v open
-=-=-=-=-=-=-=-=
However, you cannot move the square. Since it is not draggable. So, you
can have
-=-=-=-=-=-=-=-=
| v el |
v := RTView new.
el := (RTBox new size: 20) element.
v add: el.
el @ RTDraggable.
el when: TRMouseDragging do: [ :evt | Transcript show: 'ok'; cr ].
v open
-=-=-=-=-=-=-=-=
Your example a bit more fancy:
-=-=-=-=-=-=-=-=
| v el lbl |
v := RTView new.
el := (RTBox new size: 20) element.
v add: el.
el @ RTDraggable.
lbl := RTLabel elementOn: 'Move the box!'.
v add: lbl.
lbl translateBy: 0 @ -50.
el when: TRMouseDragging do: [ :evt | lbl trachelShape text: evt
positionFromCamera asString. v signalUpdate ].
v open.
-=-=-=-=-=-=-=-=
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel
http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Jun 18, 2014, at 9:32 AM, Gustavo Santos <gugajansen(a)gmail.com> wrote:
Hello everyone,
I'm working on a small visualisation of packages and classes and
basically I
want to be able to drag and drop one class to other package
In Roassal I could do this:
| view el |
view := ROView new.
el := ROElement sprite.
view add: el.
el
on: ROMouseDragged
do: [ :event | Transcript show: 'ok'; cr ].
view open.
But in Roassal 2 I only have TRMouseDragging (equivalent to
ROMouseDragging in
R1), that executes the block during the whole dragging
operation. What's the alternative to MouseDragged in Roassal 2?
Other question will come after that, but let's do baby steps.
Cheers,
--
Gustavo Santos
Université de Lille-1
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev