Let us know how it goes. Best would be to do it this week since we are around
Alexandre
Le 13 juil. 2015 à 11:17, Peter Uhnak i.uhnak@gmail.com a écrit :
+1
Now I have to port to my own code. :)
Peter From: Alexandre Bergel Sent: 7/13/2015 9:07 AM To: Moose-related development Subject: [Moose-dev] Roassal Camp Smalltalk Result
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 ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev _______________________________________________ Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev