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

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