[Moose-dev] Re: [Pharo-dev] Re: GanttChartMorph openOn: aCollectionOfActivities ?

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