Hi,

Hmm, that font does not seem to work well at least with the title of the window. The title is too small and the text looks squeezed in.

You do not like the Source Sans/Code fonts?

Doru


On Tue, Apr 22, 2014 at 9:03 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote:
No particular reason for the "view open”. I usually never write it, but since some people told me “you forgot to open the view”. Well…

Helvetica Regular 12 :-)

Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.



On Apr 22, 2014, at 3:28 PM, Tudor Girba <tudor@tudorgirba.com> wrote:

> I have two questions:
> - why are you using "view open" when in the playground?
> - and what fonts are those?
>
> :)
>
> Doru
>
>
> On Tue, Apr 22, 2014 at 6:43 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote:
> It does work. Maybe you need to update Roassal.
> <Screen Shot 2014-04-22 at 1.42.31 PM.png>
>
> Alexandre
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel  http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
> On Apr 22, 2014, at 12:38 PM, Johan Fabry <jfabry@dcc.uchile.cl> wrote:
>
>> Cool, thanks!
>>
>> But just to be clear, this last mail of you is code that does NOT work?
>>
>> On Apr 21, 2014, at 5:37 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote:
>>
>>> Here is a version of the same code in which the “v addAll: …” is done __after__ using RTLabelled.
>>>
>>> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
>>> | v e1 e2 l |
>>> v := RTView new.
>>>
>>> e1 := (RTEllipse new size: 20) elementOn: 'hello'.
>>> e2 := (RTEllipse new size: 20) elementOn: 'world'.
>>>
>>> e1 @ RTDraggable.
>>> e2 @ RTDraggable.
>>>
>>> l := RTEdge from: e1 to: e2.
>>> l + (RTLine new color: Color red).
>>> l + (RTArrow new color: Color red).
>>>
>>> e2 translateBy: 60 @ 80.
>>>
>>>
>>> e1 @ (RTLabelled new view: v).
>>> e2 @ (RTLabelled new view: v).
>>>
>>> "Note that the RTLabelled interaction has to be set after having added the element in the view"
>>> l @ (RTLabelled new text: 'lining up!'; view: v).
>>>
>>> v addAll: { e1 . e2 . l }.
>>>
>>> v open.
>>> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
>>>
>>> --
>>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>>> Alexandre Bergel  http://www.bergel.eu
>>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>>
>>>
>>>
>>> On Apr 21, 2014, at 5:34 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote:
>>>
>>>> It was not implemented.
>>>>
>>>> You need to update Roassal.
>>>> -=-=-=-=-=-=-=-=-=-=
>>>> | v e1 e2 l |
>>>> v := RTView new.
>>>>
>>>> e1 := (RTEllipse new size: 20) elementOn: 'hello'.
>>>> e2 := (RTEllipse new size: 20) elementOn: 'world'.
>>>>
>>>> e1 @ RTDraggable.
>>>> e2 @ RTDraggable.
>>>>
>>>> l := RTEdge from: e1 to: e2.
>>>> l + (RTLine new color: Color red).
>>>> l + (RTArrow new color: Color red).
>>>>
>>>> e2 translateBy: 60 @ 80.
>>>> v addAll: { e1 . e2 . l }.
>>>>
>>>> e1 @ RTLabelled.
>>>> e2 @ RTLabelled.
>>>>
>>>> "Note that the RTLabelled interaction has to be set after having added the element in the view"
>>>> l @ (RTLabelled new text: 'lining up!').
>>>>
>>>> v open.
>>>> -=-=-=-=-=-=-=-=-=-=
>>>> <Screen Shot 2014-04-21 at 5.32.52 PM.png>
>>>>
>>>> There is a subtlety: you need to tell the RTLabelled what is the view to insert the label into. A bit cumbersome, but I have nothing better for now.
>>>>
>>>> Cheers,
>>>> Alexandre
>>>>
>>>>
>>>> --
>>>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>>>> Alexandre Bergel  http://www.bergel.eu
>>>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>>>
>>>>
>>>>
>>>> On Apr 21, 2014, at 4:03 PM, Johan Fabry <jfabry@dcc.uchile.cl> wrote:
>>>>
>>>>> I have a related question: how do I add a label to an edge? If I do the following it does not have any effect
>>>>>
>>>>> ((RTEdge from: efrom to: eto) + (RTLine new color: color) + (RTArrow new color: color)) @ RTLabelled.
>>>>>
>>>>> Thanks in advance,
>>>>>
>>>>> On Apr 20, 2014, at 10:25 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote:
>>>>>
>>>>>> On any element.
>>>>>>
>>>>>> Try this:
>>>>>>
>>>>>> -=-=-=-=-=-=-=-=-=-=-=-=
>>>>>> | v es |
>>>>>> v := RTView new.
>>>>>> v @ RTDraggableView.
>>>>>> es := (RTEllipse new size: #numberOfMethods) elementsOn: RTObject withAllSubclasses.
>>>>>> v addAll: es.
>>>>>>
>>>>>> es @ RTPopup @ RTLabelled @ RTDraggable.
>>>>>> RTFlowLayout new maxWidth: 900; gapSize: 50; on: es.
>>>>>>
>>>>>> v open
>>>>>> -=-=-=-=-=-=-=-=-=-=-=-=
>>>>>>
>>>>>> <Screen Shot 2014-04-20 at 10.23.14 PM.png>
>>>>>>
>>>>>> Alexandre
>>>>>>
>>>>>>
>>>>>> On Apr 20, 2014, at 9:06 PM, Leo Perard <leo.perard@gmail.com> wrote:
>>>>>>
>>>>>>> Looks pretty cool !
>>>>>>> Can we use on any RTShape or only RTBox ?
>>>>>>>
>>>>>>>
>>>>>>> On Sun, Apr 20, 2014 at 11:40 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote:
>>>>>>> Roassal Tip #2: Labeling bar with GraphET.
>>>>>>> You can use @RTLabelled for each bar elements. Consider the following example:
>>>>>>>
>>>>>>> -=-=-=-=-=-=-=-=-=
>>>>>>> | diagram |
>>>>>>> diagram := GET2DiagramBuilder new.
>>>>>>> diagram horizontalBarDiagram
>>>>>>> models: #(10 12 13 200 150 -13 149 -151);
>>>>>>> regularAxis.
>>>>>>> diagram build.
>>>>>>>
>>>>>>> "Pick the horizontal bars and add a label"
>>>>>>> diagram view elements do: [ :e |
>>>>>>>         (e shape class == RTBox)
>>>>>>>                 ifTrue: [ e @ RTLabelled new right ]
>>>>>>> ].
>>>>>>> diagram view open
>>>>>>> -=-=-=-=-=-=-=-=-=
>>>>>>> <10168048_620580701361864_1868405001679336135_n.png>
>>>>>>>
>>>>>>> https://www.facebook.com/ObjectProfile/photos/a.341189379300999.82969.340543479365589/620580701361864/?type=1&theater
>>>>>>>
>>>>>>> Cheers,
>>>>>>> Alexandre
>>>>>>>
>>>>>>> --
>>>>>>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>>>>>>> Alexandre Bergel  http://www.bergel.eu
>>>>>>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> _______________________________________________
>>>>>>> Moose-dev mailing list
>>>>>>> Moose-dev@iam.unibe.ch
>>>>>>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> --
>>>>>>> Leo Perard
>>>>>>> _______________________________________________
>>>>>>> Moose-dev mailing list
>>>>>>> Moose-dev@iam.unibe.ch
>>>>>>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>>>>>>
>>>>>> --
>>>>>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>>>>>> Alexandre Bergel  http://www.bergel.eu
>>>>>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>>>>>
>>>>>>
>>>>>>
>>>>>> _______________________________________________
>>>>>> Moose-dev mailing list
>>>>>> Moose-dev@iam.unibe.ch
>>>>>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>>>>>
>>>>>
>>>>>
>>>>> ---> Save our in-boxes! http://emailcharter.org <---
>>>>>
>>>>> Johan Fabry   -   http://pleiad.cl/~jfabry
>>>>> PLEIAD lab  -  Computer Science Department (DCC)  -  University of Chile
>>>>>
>>>>>
>>>>> _______________________________________________
>>>>> 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
>>>
>>
>>
>>
>> ---> Save our in-boxes! http://emailcharter.org <---
>>
>> Johan Fabry   -   http://pleiad.cl/~jfabry
>> PLEIAD lab  -  Computer Science Department (DCC)  -  University of Chile
>>
>>
>> _______________________________________________
>> 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
>
>
>
>
> --
> www.tudorgirba.com
>
> "Every thing has its own flow"
> _______________________________________________
> 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



--
www.tudorgirba.com

"Every thing has its own flow"