> You
should load the latest Roassal.
How do I do that? I just loaded Roassal into a fresh Pharo4.0 image
and RTTimeLine is not included.
We did some refactoring.
Instead, you should do:
-=-=-=-=-=-=-=-=
data := #(#(WP1 0 5) #(WP2 5 8) #(WP3 7 10)).
b := RTTimeline new.
s := RTTimelineSet new.
s objects: data.
s lineIdentifier: #first.
s start: #second.
s end: #third.
b add: s.
b axisX
numberOfLabels: 5;
labelRotation: -45;
labelConversion: [ :v | Date year: 2015 day: v ].
d := RTVerticalTickLineDecorator new.
d shape line color: Color white.
b addDecorator: d.
b
-=-=-=-=-=-=-=-=
The class RTTimelineExample contains many examples
Let us know how it goes
Alexandre
> Alexandre
>
>
>
>> Le 9 mai 2015 à 19:06, H. Hirzel <hannes.hirzel(a)gmail.com> a écrit :
>>
>> Thank you for the examples, Alexandre!
>>
>> I have Pharo 4.0 with Roassal 2.0 installed (AlexandreBergel.718)
>>
>> I paste the following into a 'Playground' window and 'do it'.
>>
>> b := RTTimeLine new.
>>
>> b addEntry: (RTTimeLineEntry new identifier: #WP1; start: 0; end: 5).
>> b addEntry: (RTTimeLineEntry new identifier: #WP2; start: 5; end: 8).
>> b addEntry: (RTTimeLineEntry new identifier: #WP3; start: 7; end: 10).
>>
>> b axisX numberOfLabels: 5.
>> b
>>
>> I get the error message that RTTimeLine is not known.
>>
>> What am I missing?
>>
>> --Hannes
>>
>>
>>> On 5/8/15, Alexandre Bergel <alexandre.bergel(a)me.com> wrote:
>>> Hi Hannes!
>>>
>>> Here is a first shoot paired-programmed with Juraj using Roassal:
>>>
>>> -=-=-=-=-=-=-=-=-=-=-=-=
>>> b := RTTimeLine new.
>>>
>>> b addEntry: (RTTimeLineEntry new identifier: #WP1; start: 0; end: 5).
>>> b addEntry: (RTTimeLineEntry new identifier: #WP2; start: 5; end: 8).
>>> b addEntry: (RTTimeLineEntry new identifier: #WP3; start: 7; end:
>>> 10).
>>>
>>> b axisX numberOfLabels: 5.
>>> b
>>> -=-=-=-=-=-=-=-=-=-=-=-=
>>>
>>>
>>>
>>> Here some slightly more elaborated example:
>>>
>>> -=-=-=-=-=-=-=-=-=-=-=-=
>>> “One color per entry"
>>> | b d |
>>> b := RTTimeLine new.
>>> b addEntry: (RTTimeLineEntry new identifier: #c1; start: 0; end:
>>> 5).
>>> b addEntry: (RTTimeLineEntry new identifier: #c1; start: 6; end:
>>> 8).
>>>
>>> b addEntry: (RTTimeLineEntry new identifier: #c2; start: 0; end:
>>> 5).
>>> b addEntry: (RTTimeLineEntry new identifier: #c2; start: 8; end:
>>> 10).
>>>
>>> b addEntry: (RTTimeLineEntry new identifier: #c3; start: 0; end:
>>> 10).
>>>
>>> b addEntry: (RTTimeLineEntry new identifier: #c4; start: 5; end:
>>> 10).
>>>
>>> b addEntry: (RTTimeLineEntry new identifier: #c5; start: 5; end:
>>> 8).
>>>
>>> d := RTVerticalTickLineDecorator new.
>>> d shape line color: Color white.
>>> b addDecorator: d.
>>> b axisX
>>> numberOfLabels: 5;
>>> labelRotation: -45;
>>> labelConversion: [ :v | Date year: 2015 day: v ].
>>>
>>> b shape color: (RTMultiLinearColorForIdentity new objects: b
>>> entries).
>>> b
>>> -=-=-=-=-=-=-=-=-=-=-=-=
>>>
>>>
>>>
>>> One color per timeline
>>>
>>>
>>> -=-=-=-=-=-=-=-=-=-=-=-=
>>> | b |
>>> b := RTTimeLine new.
>>> b addEntry: (RTTimeLineEntry new identifier: #c1; start: 0; end:
>>> 5).
>>> b addEntry: (RTTimeLineEntry new identifier: #c1; start: 6; end:
>>> 8).
>>>
>>> b addEntry: (RTTimeLineEntry new identifier: #c2; start: 0; end:
>>> 5).
>>> b addEntry: (RTTimeLineEntry new identifier: #c2; start: 8; end:
>>> 10).
>>>
>>> b addEntry: (RTTimeLineEntry new identifier: #c3; start: 0; end:
>>> 10).
>>>
>>> b addEntry: (RTTimeLineEntry new identifier: #c4; start: 5; end:
>>> 10).
>>>
>>> b addEntry: (RTTimeLineEntry new identifier: #c5; start: 5; end:
>>> 8).
>>>
>>> d := RTVerticalTickLineDecorator new.
>>> d shape line color: Color white.
>>> b addDecorator: d.
>>> b axisX
>>> numberOfLabels: 5;
>>> labelRotation: -45;
>>> labelConversion: [ :v | Date year: 2015 day: v ].
>>>
>>> b shape color: (RTMultiLinearColorForIdentity new command:
>>> #identifier;
>>> objects: #(c1 c2 c3 c4 c5)).
>>> b
>>> -=-=-=-=-=-=-=-=-=-=-=-=
>>>
>>>
>>> Age of some classes:
>>> -=-=-=-=-=-=-=-=-=-=-=-=
>>> | b |
>>> b := RTTimeLine new.
>>> b extent: 500 @ 500.
>>> ((RTShape withAllSubclasses sortedAs: #ageInDaysRounded) select:
>>> #hasMethods)
>>> do: [ :cls |
>>> e := RTTimeLineEntry new.
>>> e identifier: cls.
>>> e start: cls computeYoungestMethod ageInDays.
>>> e end: cls computeOldestMethod ageInDays.
>>> b addEntry: e ].
>>> b
>>> -=-=-=-=-=-=-=-=-=-=-=-=
>>>
>>>
>>>
>>> All these examples are in the Roassal time line example menu.
>>>
>>> This is still an early version. Let us know how it goes!
>>>
https://www.facebook.com/ObjectProfile/posts/840542572699008
>>>
>>> Cheers,
>>> Alexandre
>>>
>>> --
>>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>>> Alexandre Bergel
http://www.bergel.eu
>>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>>
>>>
>>>
>>>> On May 7, 2015, at 4:25 PM, H. Hirzel <hannes.hirzel(a)gmail.com>
>>>> wrote:
>>>>
>>>> Hello
>>>>
>>>> Has somebody done a GANTT chart?
>>>>
>>>> GanttChartMorph openOn: aCollectionOfActivities
>>>>
>>>> ?
>>>>
>>>> Activities have
>>>> - id
>>>> - description
>>>> - start date
>>>> - end date
>>>> ?
>>>>
>>>> Regards
>>>>
>>>> Hannes
>>
>> _______________________________________________
>> Moose-dev mailing list
>> Moose-dev(a)iam.unibe.ch
>>
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev