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@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@iam.unibe.ch
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev


_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev