This worked fine. The code is very readable and easy to adapt once there is an example. Thank you.
--Hannes
On 8/1/15, Alexandre Bergel alexandre.bergel@me.com wrote:
Sure, this is easy. Axis supports a method called #labelConversion: [ :aNumericalValue | … ] You need to provide a bloc that returns a string.
For example:
| data b s | data := #(#(c1 0 5) #(c1 6 8) #(c2 0 5) #(c2 8 10) #(c3 0 10) #(c4 5 10) #(c5 5 8)).
b := RTTimeline new.
s := RTTimelineSet new. s objects: data. s lineIdentifier: #first. s start: #second. s end: #third. b add: s.
b axisY title: 'Task'. b axisX numberOfLabels: 10; title: 'Week day'; labelConversion: [ :v | v \ 7 + 1 ].
b build. ^ b view
Does this help?
Cheers, Alexandre
On Aug 1, 2015, at 12:48 AM, H. Hirzel hannes.hirzel@gmail.com wrote:
The SVG export accessible through the '...' menu works fine.
A new question regarding the labeling of the x-axis.
How do I specify that I want to see months
8 9 10 11 12
only?
data := #( #(WP1 8 12) #(WP2 8 10) #(WP3 10 11) #(WP4 11 12)
And is something like this possible?
8 9 10 11 12 1 2 3 4
--Hannes
On 7/31/15, Alexandre Bergel alexandre.bergel@me.com wrote:
The ‘…’ button, top right of a GTInspector that is showing a Roassal visualization.
https://dl.dropboxusercontent.com/u/31543901/TMP/Screen%20Shot%202015-07-30%...
Alexandre
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Jul 30, 2015, at 2:25 PM, H. Hirzel hannes.hirzel@gmail.com wrote:
Which menu? Could you describe it verbally please where to click? The picture did not come through.
--Hannes
On 7/30/15, Alexandre Bergel alexandre.bergel@me.com wrote:
Simply use the menu:
Cheers, Alexandre
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Jul 30, 2015, at 11:59 AM, H. Hirzel hannes.hirzel@gmail.com wrote:
Alexandre,
This is really agile ... version 1005 of Roassal loaded and version 305 of Trachel :-)
The GANTT chart works fine, see screen shot.
How do I export it as SVG code in Roassal?
--Hannes
On 7/29/15, Alexandre Bergel alexandre.bergel@me.com wrote: > Pure agile development: the latest version is the one that count. > You need to update two packages: Roassal2 and Trachel. > > Cheers, > Alexandre > -- > _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: > Alexandre Bergel http://www.bergel.eu > ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. > > > >> 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 > > <Pharo_Roassal_GANTT_chart_Screenshot from 2015-07-30 14:55:31.png>
<Roassal_timeline_x_axis_question_Screenshot from 2015-08-01.png>
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.