I've finally found my way back to it; I added it to same repo as my multiline��http://smalltalkhub.com/#!/~peteruhnak/RoassalPrototypes/ ; there's also an example in class side.

However there are two main issues:
* drawing of the grid is crude, I created an interaction but I haven't seen any way how to draw repeated patterns. But perhaps that's wrong way of looking at it. Maybe some "fixed" shape that would always fill up the visible view and would move with the camera?

* there are two interactions - one for adding the grid to the view, second for adding gridded movement to elements. But how does one pass the grid size from the former to the latter?
One idea would be that the RPGridView would add the size of the grid to RTView somehow and when element is added it would look for this value. But I don't think it's possible to add extra parameters to classes from different packages (compared to adding extra messages).

Peter


On Mon, Aug 11, 2014 at 5:10 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote:
Ok, excellent!

Alexandre
--��
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel ��http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

On Aug 11, 2014, at 4:37 AM, Peter Uhn��k <i.uhnak@gmail.com> wrote:

Hi Alex,

unfortunately I've been quite busy with other stuff however it's on my todo list so I'm planning to get back to it later this week.
I'll keep you posted.

Peter


On Fri, Aug 8, 2014 at 11:57 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote:
Hi Peter,

How things are going with having a snapOnGrid behavior?

Cheers,
Alexandre
--��
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel ��http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

On Aug 1, 2014, at 2:36 PM, Peter Uhn��k <i.uhnak@gmail.com> wrote:

Hi Alex,

While the "snap to grid" might be complicated I thought of simpler solution that might be achievable purely at Roassal level without the need to change Trachel classes. You can look at Umlet, since I am trying to copy it's grid behavior here.
Basically you don't move objects with mouse immediately but only after fixed increments. However I've encountered a problem with TRMouseDragging>>step, since I would probably need to continuously sum the individual steps and then reset them when dragging has started.

Here is a _very_ crude prototype:
---------------------
"i subclassed��RTDraggable and changed initializeElement: method as follows"
initializeElement: element
| sum gridSize |
gridSize := 20.
sum := 0 @ 0.
element
when: TRMouseDragging
do: [ :e |��
| d t |
t := RTGroup withAll: groupToDrag.
(t includes: element)
ifFalse: [ t add: element ].
d := element view canvas camera distanceFromPixelToSpace: e step.
sum := sum + d.
"move element only in increments of gridSize"
d := gridSize * ((sum x / gridSize) truncated @ (sum y / gridSize) truncated).
sum := sum - d.
t translateBy: d.
e signalUpdate ]
---------------------

and here is a demo utilizing it

-----------------------------
| v e1 e2 line gridSize ��b1 b2 b3 b4 edge |
v := RTView new.

"draw grid"
gridSize := 20.

(-20 to: 20) do: [ :i |
b1 := RTBox element.
b2 := RTBox element.
b3 := RTBox element.
b4 := RTBox element.
b1 translateTo: (i * gridSize) @ -1000. "top side"
b2 translateTo: (i * gridSize) @ 1000. "bottom side"
b3 translateTo: -1000 @ (i * gridSize). "left side"
b4 translateTo: 1000 @ (i * gridSize). "right side"
"vertical line"
edge := RTLine edgeFrom: b1 to: b2.
v add: edge.
"horizontal line"
edge := RTLine edgeFrom: b3 to: b4.
v add: edge.
].

e1 := (RTEllipse new size: 30; color: Color magenta) element.
e1 translateTo: -20 @ 0.
e1 @ RGGridDraggable.

e2 := (RTEllipse new size: 30; color: Color magenta) element.
e2 translateTo: 20 @ 0.
e2 @ RGGridDraggable.

(line := RTLine edgeFrom: e1 to: e2) shape color:Color black.

v add: e1; add: e2; add: line.

v open.
-----------------------------

Obviously it needs a lot of fine-tuning and such. Since RTInteraction (RTDraggable) instances are not created directly the gridSize would have to be stored probably class side. Also there is a problem with resetting the "sum" variable when dragging starts. (There is no TRMouseDragStart event as far as I've seen). And also drawing the grid itself the way I've done is very brutal and doesn't really work if I want to move the canvas camera (perhaps image pattern as a background would work better).

What are your thoughts on this?

Peter




On Fri, Aug 1, 2014 at 4:07 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote:
Hi Peter!

> While playing with RTMultiLine I thought that it would be nice to have option for RTDraggable elements to snap to a grid / move only by fixed increments - for example the position could only be divisible by 10 (grid size would be 10), so dragging from 20@10 to 26@4 would jump to 30@0. Is something like this possible with current implementation?


I first thought this would be easy. But actually it is not.
The way to achieve the snap on grid behavior is to have an indirection in the Trachel classes. Each trachel shape knows its position (the position is contained in the matrix attached to each shape). The snap-on-grid means you need to slightly process the matrix coordinate. Maybe there are other way to do this, but it does not look like. Changing Trachel because of this seems a bit overkill...

Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel ��http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.



On Jul 31, 2014, at 3:58 PM, Peter Uhn��k <i.uhnak@gmail.com> wrote:

> While playing with RTMultiLine I thought that it would be nice to have option for RTDraggable elements to snap to a grid / move only by fixed increments - for example the position could only be divisible by 10 (grid size would be 10), so dragging from 20@10 to 26@4 would jump to 30@0. Is something like this possible with current implementation?
>
> The second question is: is it possible for element to subscribe for position updates of another element? (I.e. element A watches for movement of element B and moves accordingly). I know I could add both of them to a composite shape or RTGroup (RTDraggable>>groupToDrag:), however I would prefer something more loosely coupled.
>
> In RTDraggable>>initializeElement: i found
> " �� �� element when: TRMouseDragging do: [ :e | e element translateBy: e step. e signalUpdate ]"
> however it is commented out so perhaps there some other way?
>
> Peter