David T. Lewis uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-dtl.376.mcz==================== Summary ====================
Name: EToys-dtl.376
Author: dtl
Time: 11 January 2020, 2:53:43.182192 pm
UUID: 378673fc-1ae5-45ac-ae9b-3400df8547a9
Ancestors: EToys-nice.375, EToys-kfr.374
Merge
=============== Diff against EToys-nice.375 ===============
Item was changed:
----- Method: WeekMorph>>title (in category 'all') -----
title
"Answer a title with the names of the days."
| title extent days |
title := AlignmentMorph new
layoutInset: 0;
color: Color red;
listDirection: #leftToRight;
+ vResizing: #shrinkWrap;
- vResizing: #shrinkWarp;
height: tileRect height.
extent := self tile extent.
days := (Week startDay = #Monday)
ifTrue: [ #(2 3 4 5 6 7 1) ]
ifFalse: [ 1 to: 7 ].
(days reverse collect: [:each | Date nameOfDay: each]) do:
[:each |
title addMorph:
((self tileLabeled: (each copyFrom: 1 to: 2))
extent: extent)].
^ title
!