v

13 Jul 2015


      Dear Friends and Colleagues
Yesterday we had a wonderful Roassal Camp Smalltalk. 
Thanks to all the participants.
We had crazy programming sessions and nice chats. Below you will find a short description of what we have done. The description contains code snippets. Feel free to try. Some of them are impressive.
Cheers,
The Roassal Team
- Move code from DynaCase to Roassal. Thanks Peter U. and his team! TRConstraint has been significantly improved! Check the class TRConstraint
- New attach points have been added. Again, thanks to Peter U. and his team! Look at the classes RTRectangleAttachPoint and its friends
-=-=-=
v := RTView new.
e1 := (RTBox new size: 50) elementOn: 1.
e2 := (RTEllipse new size: 50) elementOn: 2.
v add: e1; add: e2.
e2 translateBy: 30 @ 60.
e1 @ RTDraggable.
e2 @ RTDraggable.
s := RTArrowedLine new color: Color black.
s attachPoint: RTRectangleAttachPoint new.
l := s edgeFrom: e1 to: e2.
v add: l.
v
-=-=-=
- New interaction called RTDraggableSnapToGrid. Again, another great contribution of Peter's team. This interaction is supported by RTInteractionBuilder. Here is an example:
-=-=-=-=
b := RTMondrian new.
b interaction snapToGrid.
b shape rectangle size: 20. 
b nodes: (1 to: 9).
b layout grid.
b
-=-=-=-=
- Rounded rectangle shape. Here is an example:
-=-=-=
v := RTView new.
e1 :=((RTRoundedBox new borderRadius: 10; size: 50) + RTLabel )  elementOn: 1.
e2 := (RTEllipse new size: 50) elementOn: 2.
v add: e1; add: e2.
e2 translateBy: 80 @ 60.
e1 @ RTDraggable.
e2 @ RTDraggable.
s := RTArrowedLine new color: Color black.
s attachPoint: RTRectangleAttachPoint new.
l := s edgeFrom: e1 to: e2.
v add: l.
v
-=-=-=
- A whole bunch of line decorations! Thanks Peter's team again!!!!!
-=-=-=
    | v b1 b2 edges |
    b1 := (RTBox new
    	size: 100;
    	element)
    	translateTo: 0 @ 0;
    	@ RTDraggable.
    b2 := (RTBox new
    	size: 100;
    	element)
    	translateTo: 400 @ 0;
    	@ RTDraggable.
    edges := OrderedCollection new.
    edges add: ((RTArrowedLine new head: RTFilledDiamond asHead; color: Color black; width: 2; attachPoint: (RTRectangleAttachPoint new offset: 15)) edgeFrom: b1 to: b2).
    edges add: ((RTDecoratedLine new color: Color blue; width: 2; attachPoint: (RTRectangleAttachPoint new offset: 15)) edgeFrom: b1 to: b2).
    edges add: ((RTDecoratedLine new filledDiamondHead; color: Color green; width: 2; attachPoint: (RTRectangleAttachPoint new offset: 15)) edgeFrom: b1 to: b2).
    edges add: ((RTDecoratedLine new filledDiamondHead; emptyCircleTail; color: Color red; width: 2; attachPoint: (RTRectangleAttachPoint new offset: 15)) edgeFrom: b1 to: b2).
v := RTView new
    add: b1;
    add: b2;
    addAll: edges.
edges do: [ :each | each update ].
^ v
-=-=-=
- discussing with Thomas and Niall, we discuss about: Popups, overrides methods, a better structurre for roassal2-visualworks. a new application for visualworks with all roassal examples.
- Integration to SciSmalltalk
- Styled multiline:
-=-=-=
v := RTView new.
es := (RTEllipse new size: 20; color: (Color blue alpha: 0.3)) elementsOn: (1 to: 10).
RTCircleLayout new on: es allButFirst.
v addAll: es.
es @ RTDraggable.
TRConstraint move: es first onTheCenterOf: es allButFirst.
shape := RTStyledMultiLine new.
shape filledArrowHead; arrowTail; dashdotLine; orthoVertical.
shape attachPoint: (RTRectangleAttachPoint new).
lines := shape edgesFrom: es first toAll: es allButFirst.
v addAll: lines.
v
-=-=-=
-- 
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

Roassal Camp Smalltalk Result

v

v

v