Comment #16 on issue 831 by google....@ben.coman.com.au: Rossal problem with nested node translation to left of 0@0 http://code.google.com/p/moose-technology/issues/detail?id=831
I think it would simplify things for users if the order that translations were applied was not critical. So unless I'm way off base, a suitable test might look like this...
testDragging | translator view outer | translator := ROLayoutTranslator default. view := ROView new @ RODraggable.
outer := (ROElement spriteOn: ' outer position ' ) + (ROLabel text: [ :el2 | el2 model, el2 position truncated asString]). -3 to: 3 do: [ :n | Transcript crShow: n. outer add: ((ROElement spriteOn: n) width: 100; height: 100). ]. view add: outer. view open.
outer elements shuffled do: [ :el | translator translate: el to: el extent * el model. el attributes at: #pos put: el position. ].
outer elements shuffled do: [ :el | translator translate: el to: 0@0. ]. outer elements shuffled do: [ :el | translator translate: el to: el extent * el model. self assert: (el position = el attributes at: #pos). ].