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.

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