29 Jul
2015
29 Jul
'15
8:22 p.m.
Thanks for the updated GANTT script.
My question was about the version of Roassal to load.
Which one?
I just go for version 1000?
See screenshot.
--Hannes
On 7/29/15, Alexandre Bergel <alexandre.bergel(a)me.com> wrote:
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
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. Alexandre
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev 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
