16 Sep
2012
16 Sep
'12
3:43 a.m.
Thanks. Got to crash right now. Will look at it in
the morning.
Let me know how it goes!
Cheers,
Alexandre
Alexandre Bergel wrote:
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Hi Ben!
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev ...where the two labels overlap. I think you
would gain a lot if you could do something like the following...
n1 := ROElement spriteOn: 'XX___'.
n1 + (shape1 := ROLabel new text: #model).
n1 + (ROLabel new text: #bounds; offset: [ shape1 bottomLeftCorner ] ).
rawView add: n1.
I have improved the way shapes are drawn. If you update, you can then create the
following class:
-=-=-=-=-=-=-=-=-=-=-=-=
ROShape subclass: #ROTranslatingShape
instanceVariableNames: 'offset'
initialize
super initialize.
offset := 0 @ 0
chainedDrawOn: aCanvas for: aROElement
aROElement translateBy: offset negated.
super chainedDrawOn: aCanvas for: aROElement.
aROElement translateBy: offset.
offset: aPoint
offset := aPoint
-=-=-=-=-=-=-=-=-=-=-=-=
I've attached the .cs for convenience.
You can then do the following:
el := ROElement new + ROBorder + (ROTranslatingShape new offset: 20 @ 20) + ROBox .
el extent: 50 @ 50.
el @ RODraggable.
rawView add: el.
<Mail Attachment.png>
Without the translation, you have
el := ROElement new + ROBorder + ROBox .
el extent: 50 @ 50.
el @ RODraggable @ ROPopup.
rawView add: el.
<Mail Attachment.png>
I haven't included ROTranslatingShape in Roassal. I first would like to see use cases
of it.
Let me know how it goes.
Cheers,
Alexandre
Alexandre Bergel wrote:
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Hi Ben,
Currently no. We definitely need a better way to specific layouts and their composition.
However this will take time before we have this.
How would you like to specific the layout?
Cheers,
Alexandre
On Aug 30, 2012, at 6:10 PM, Ben Coman
<btc(a)openInWorld.com>
wrote:
> I have been looking at the ROExample "Nesting" examples and expanded
#nesting2 with another level as shown in the code below, such that there is the outer
view, middle "#1" nodes and inner "#2" nodes. However the initial
state of this has much of the middle node1 and inner node2 nodes overlapping.
> How can these be made for the circle layout to leave spacing between the middle node1
nodes?
>
> cheers -ben
>
> --------------------
> | view nodes1 |
> view := ROView new.
> view add: (ROElement sprite addAll: (nodes1 := ROElement spritesOn: (1 to: 10))).
> nodes1 do: [:n | n addShape: ROLabel].
> nodes1 do:
> [ :node1 |
> ( (node1 model) *100+1 to: (node1 model)*100+5 ) do:
> [ :x |
> node1 add: ( (ROElement spriteOn: x) addShape: ROLabel).
> ].
> ROGridLayout on: node1 elements.
> ].
>
> ROCircleLayout on: nodes1.
> view openInWindow.
> _______________________________________________
> Moose-dev mailing list
>
>
> Moose-dev(a)iam.unibe.ch
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
>
>
>
>
<roassal simple composition.png><roassal children overlapping parent
label.png>_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev