[squeak-dev] The Inbox: EToys-kfr.374.mcz
David T. Lewis
lewis at mail.msen.com
Thu Jan 2 20:26:35 UTC 2020
Someone definitely should implement #shrinkWarp :-)
Maybe we can create a BlackHoleMorph that uses #shrinkWarp to
suck nearby objects into its gravitational field. It could have
an event horizon that absorbs mouse and keyboard events if you
move the pointer too close to the black hole.
On Thu, Jan 02, 2020 at 06:50:02PM +0000, commits at source.squeak.org wrote:
> A new version of EToys was added to project The Inbox:
> ==================== 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') -----
> "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
More information about the Squeak-dev