On Jul 29, 2015, at 3:24 PM, H. Hirzel <hannes.hirzel@gmail.com> wrote:

Or a configuration? Which one?

--HH

On 7/29/15, H. Hirzel <hannes.hirzel@gmail.com> wrote:

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@me.com> wrote:

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@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@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@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@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

<Roassal2_configurations_Screenshot from 2015-07-29 18:23:50.png>_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev