The Trunk: EToys-kfr.374.mcz

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

The Trunk: EToys-kfr.374.mcz

commits-2
David T. Lewis uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-kfr.374.mcz

==================== Summary ====================

Name: EToys-kfr.374
Author: kfr
Time: 2 January 2020, 7:49:35.08325 pm
UUID: 710cb093-a31e-7f40-96a4-01adcaf3aa3a
Ancestors: EToys-nice.373

Fix spelling of symbol. I guess someone smart could make a nice joke about #shrinkWarp :-)

=============== Diff against EToys-nice.373 ===============

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
  !


Reply | Threaded
Open this post in threaded view
|

Re: The Trunk: EToys-kfr.374.mcz

Karl Ramberg
Thanks, Dave :-)

Best,
Karl


On Sat, Jan 11, 2020 at 8:50 PM <[hidden email]> wrote:
David T. Lewis uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-kfr.374.mcz

==================== Summary ====================

Name: EToys-kfr.374
Author: kfr
Time: 2 January 2020, 7:49:35.08325 pm
UUID: 710cb093-a31e-7f40-96a4-01adcaf3aa3a
Ancestors: EToys-nice.373

Fix spelling of symbol. I guess someone smart could make a nice joke about #shrinkWarp :-)

=============== Diff against EToys-nice.373 ===============

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
        !