RTCalendarBuilder

> On May 1, 2017, at 6:28 AM, Markus Böhm <[hidden email]> wrote:
>
> Hi Milton, tx once again. It's really tempting to experiment with Pharo's/Roassal's live coding. May I ask concerning OO model (I'm not an expert, but want to learn):
>
> I modified Your snippet slightly, to mark e.g. easter or a birthday. The code block [:d | ... ], handed over to "RTEllipse new color:" is executed for every day in a year; so for every day (365 times) it is checked if that day is easter (or a birthday ...). Would it be not more efficient to have an OO model that allows to receive such messages and execute them only >once<, similar to "mark: #easter with: Color red." or "mark collection of dates with Color red". Beyond that it seems to be necessary to construct the easter Date object 365 times as well, because year can only be derived from d within code block? But I guess there might be a workaround?
>
> BR Markus
>
>
> Week startDay: #Monday.
>
> b := RTCalendarBuilder new.
> b dateShape composite: [ :com |
> com add: (RTEllipse new color: [ :d |
> (d = Date today) | (d = (Date easterDateFor: d year)) | (d = (Date newDay: 12 month: #August year: d year))
> ifTrue: [ Color blue trans ]
> ifFalse: [Color transparent]]; size: 18).
> com add: (RTLabel new text: [:d| d dayOfMonth];
> color: [:d | (d dayOfWeek = 1)
> ifTrue: [Color red]
> ifFalse: [ Color black] ]) ].
>
> b showDayNames.
> b yearShape composite: [ :comp |
> comp add: (RTLabel new text: [ :d | d year ]; height: 20 ).
> comp add: (RTBox new color: [ Color blue alpha: 0.1 ]). ] .
> b dates: Year current.
> b build.
> ^ b view
>
> On Fri, Apr 28, 2017 at 3:49 PM, Markus Böhm <[hidden email]> wrote:
> Hi Milton, Alexandre
> tx for remembering, implementing and providing. I installed it and the calendar view looks really great. BR Markus
>
> On Fri, Apr 28, 2017 at 11:40 AM, Alexandre Bergel <[hidden email]> wrote:
> Hi Markus,
>
> Milton worked on the issue. With the last version of Roassal, can you try the following code?
>
> -=-=-=-=-=-=
> | b |
> Week startDay: #Monday.
>
> b := RTCalendarBuilder new.
> b dateShape composite: [ :com |
> com add: (RTEllipse new color: [ :d |
> d = Date today
> ifTrue: [ Color blue trans ]
> ifFalse: [Color transparent] ]; size: 18).
> com add: (RTLabel new text: [:d| d dayOfMonth];
> color: [:d | (d dayOfWeek = 1)
> ifTrue: [Color red]
> ifFalse: [ Color black ] ]) ].
>
> b showDayNames.
> b yearShape composite: [ :comp |
> comp add: (RTLabel new text: [ :d | d year ]; height: 20 ).
> comp add: (RTBox new color: [ Color blue alpha: 0.1 ]). ] .
> b dates: Year current.
> b build.
> ^ b view
>
> -=-=-=-=-=-=
>
> It produces:
>
>
> <33871758-2bcb-11e7-8fbf-ff1284fc607b.png>
>
> Let us know how it goes
>
> Cheers,
> Milton & Alexandre
>
>
>> On Apr 21, 2017, at 1:58 PM, Markus Böhm <[hidden email]> wrote:
>>
>> May I ask:
>>
>> Roassal and Pharo are really fantastic. I’m trying to get a grip on it and use it. What makes me think:
>>
>>
>> In the introduction of the superb “Agile Visualization” book it is stated, that the Roassal OO approach allows for visualizations that are “easily extensible”. I guess compared to hand-crafted, imperative visualizations.
>>
>> Let’s take an example: RTCalendarBuilder
>>
>> I noticed that present visualization of week days start with Sunday as first day of week. E.g. in Europe/Germany weeks start on Monday (according ISO8601). We are visually so used to it, that other schemes make us think (not intuitive).
>>
>> How could I modify this?
>>
>>
>> P.S.: Especially in calendrical visualizations there will be many (local) variations. So maybe it’s a good example to understand how to easily extend Roassal in above and similar topics as an interested user.
>>
>> BR Mike
>>
>> _______________________________________________
>> Moose-dev mailing list
>> [hidden email]
>> https://www.list.inf.unibe.ch/listinfo/moose-dev
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.list.inf.unibe.ch/listinfo/moose-dev
>
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.list.inf.unibe.ch/listinfo/moose-dev