The Trunk: Morphic-mt.1572.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1572.mcz

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

Name: Morphic-mt.1572
Author: mt
Time: 15 October 2019, 9:31:59.358598 am
UUID: f5d0878b-7619-d44b-bfc7-43eaa8fa4436
Ancestors: Morphic-mt.1571

Fixes two minor issues after the recent LazyListMorph updates which affect the #cellInset property.

=============== Diff against Morphic-mt.1571 ===============

Item was changed:
  ----- Method: LazyListMorph>>displayFilterOn:for:in:font: (in category 'drawing') -----
  displayFilterOn: canvas for: row in: drawBounds font: font
  "Draw filter matches if any."
 
+ | fill height |
- | fill |
  listSource filterableList ifFalse: [^ self].
 
+ height := font height.
  fill := self filterColor isColor
  ifTrue: [SolidFillStyle color: self filterColor]
  ifFalse: [self filterColor].
  fill isGradientFill ifTrue: [
  fill origin: drawBounds topLeft.
+ fill direction: 0@ font height].
- fill direction: 0@ drawBounds height].
 
  (self filterOffsets: row) do: [:offset | | r |
+ r := ((drawBounds left + offset first first) @ drawBounds top corner: (drawBounds left + offset first last) @ (drawBounds top + height)).
- r := ((drawBounds left + offset first first) @ drawBounds top corner: (drawBounds left + offset first last) @ drawBounds bottom).
  canvas
  frameAndFillRoundRect: (r outsetBy: 1@0)
  radius: 3
  fillStyle: fill
  borderWidth: 1
  borderColor: fill asColor twiceDarker.
  canvas
  drawString: offset second
  in: r
  font: font
  color: self filterTextColor].!

Item was changed:
  ----- Method: LazyListMorph>>maxHeight (in category 'layout') -----
  maxHeight
 
+ ^ (self getListSize max: 1) * self rowHeight!
- ^ (self getListSize max: 1) * (font height + self cellInset top + self cellInset bottom)!