The Trunk: EToys-dtl.376.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: EToys-dtl.376.mcz

commits-2
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
  !