Roassal Camp Smalltalk Result
Locked
 
|
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 [hidden email] https://www.iam.unibe.ch/mailman/listinfo/moose-dev |
Re: Roassal Camp Smalltalk Result
|
|
+1 Now I have to port to my own code. :) Peter From: [hidden email] Sent: 7/13/2015 9:07 AM To: [hidden email] Subject: [Moose-dev] Roassal Camp Smalltalk Result 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 [hidden email] https://www.iam.unibe.ch/mailman/listinfo/moose-dev _______________________________________________ Moose-dev mailing list [hidden email] https://www.iam.unibe.ch/mailman/listinfo/moose-dev |
|
|
Let us know how it goes. Best would be to do it this week since we are around Alexandre
_______________________________________________ Moose-dev mailing list [hidden email] https://www.iam.unibe.ch/mailman/listinfo/moose-dev |
Re: Roassal Camp Smalltalk Result
|
|
In reply to this post by abergel
I'm glad you like our stuff :) If you find any problems with it (for example, I am still unsure about that SVG export support because I did not define any visitor pattern methods) just let me know and I might be able to remember why did I do it like that :)
There is just one more thing we used to talk about but we abandoned it because of time issues - composite shapes. Both I and Peter independently ceased using it for DynaCASE, but I personally would like to try to upgrade/rewrite them and then use them. I and Peter want completely different behavior and I think our requirements are not compatible, but, well, it would be nice to work at least for needs of one of us, because I think current version of them is not much useful. Jan
|
|
|
We should discuss about it yes!!!
Alexandre > Le 14 juil. 2015 à 19:20, Jan Blizničenko <[hidden email]> a écrit : > > I'm glad you like our stuff :) If you find any problems with it (for example, > I am still unsure about that SVG export support because I did not define any > visitor pattern methods) just let me know and I might be able to remember > why did I do it like that :) > > There is just one more thing we used to talk about but we abandoned it > because of time issues - composite shapes. Both I and Peter independently > ceased using it for DynaCASE, but I personally would like to try to > upgrade/rewrite them and then use them. I and Peter want completely > different behavior and I think our requirements are not compatible, but, > well, it would be nice to work at least for needs of one of us, because I > think current version of them is not much useful. > > Jan > > > abergel wrote >> Thanks Peter's team again!!!!! > > > > > > -- > View this message in context: http://forum.world.st/Roassal-Camp-Smalltalk-Result-tp4837301p4837472.html > Sent from the Moose mailing list archive at Nabble.com. > _______________________________________________ > Moose-dev mailing list > [hidden email] > https://www.iam.unibe.ch/mailman/listinfo/moose-dev _______________________________________________ Moose-dev mailing list [hidden email] https://www.iam.unibe.ch/mailman/listinfo/moose-dev |
«
Return to Moose
|
1 view|%1 views
| Free forum by Nabble | Edit this page |