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. 

Dave


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:
> http://source.squeak.org/inbox/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
>   	!
> 
>