<div dir="ltr"><div>Thanks, Dave :-)</div><div><br></div><div>Best,</div><div>Karl</div><div><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Sat, Jan 11, 2020 at 8:50 PM <<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">David T. Lewis uploaded a new version of EToys to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/EToys-kfr.374.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/trunk/EToys-kfr.374.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: EToys-kfr.374<br>
Author: kfr<br>
Time: 2 January 2020, 7:49:35.08325 pm<br>
UUID: 710cb093-a31e-7f40-96a4-01adcaf3aa3a<br>
Ancestors: EToys-nice.373<br>
<br>
Fix spelling of symbol. I guess someone smart could make a nice joke about #shrinkWarp :-)<br>
<br>
=============== Diff against EToys-nice.373 ===============<br>
<br>
Item was changed:<br>
----- Method: WeekMorph>>title (in category 'all') -----<br>
title<br>
"Answer a title with the names of the days."<br>
| title extent days |<br>
title := AlignmentMorph new<br>
layoutInset: 0;<br>
color: Color red;<br>
listDirection: #leftToRight;<br>
+ vResizing: #shrinkWrap;<br>
- vResizing: #shrinkWarp;<br>
height: tileRect height.<br>
extent := self tile extent.<br>
<br>
days := (Week startDay = #Monday)<br>
ifTrue: [ #(2 3 4 5 6 7 1) ]<br>
ifFalse: [ 1 to: 7 ].<br>
<br>
(days reverse collect: [:each | Date nameOfDay: each]) do:<br>
[:each |<br>
title addMorph:<br>
((self tileLabeled: (each copyFrom: 1 to: 2))<br>
extent: extent)].<br>
^ title<br>
!<br>
<br>
<br>
</blockquote></div>