18 Jun
2014
18 Jun
'14
5:09 p.m.
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