The Trunk: MorphicTests-nice.63.mcz

Nicolas Cellier uploaded a new version of MorphicTests to project The Trunk:
http://source.squeak.org/trunk/MorphicTests-nice.63.mcz

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

Name: MorphicTests-nice.63
Author: nice
Time: 13 May 2020, 11:34:05.676359 pm
UUID: 41c27432-fa5e-4d74-ab4d-37dc3e034b3c
Ancestors: MorphicTests-nice.62

Let one more MorphicTests pass when ScrollPane useRetractableScrollBars.

=============== Diff against MorphicTests-nice.62 ===============

Item was changed:
  ----- Method: MorphLayoutTest>>testScrollPaneBarUpdate (in category 'tests') -----
  testScrollPaneBarUpdate
 
+ | oldPreferences |
+ oldPreferences := ScrollPane useRetractableScrollBars.
+ [| child container |
+ ScrollPane useRetractableScrollBars: false.
- | child container |
  container := ScrollPane new color: Color green; extent: 300 @ 300; showVScrollBarOnlyWhenNeeded; showHScrollBarOnlyWhenNeeded.
  container scroller addMorphBack: (child := Morph new color: Color red; extent: 100 @ 100).
 
  self ensureLayout: container.
  self assert: container hScrollBar owner isNil.
  self assert: container vScrollBar owner isNil.
 
  child extent: 400 @ 100.
  self ensureLayout: container.
  self assert: container hScrollBar owner notNil.
  self assert: container vScrollBar owner isNil.
 
  child extent: 400 @ 400.
  self ensureLayout: container.
  self assert: container hScrollBar owner notNil.
+ self assert: container hScrollBar owner notNil]
+ ensure: [ScrollPane useRetractableScrollBars: oldPreferences]!
- self assert: container hScrollBar owner notNil!