[squeak-dev] The Trunk: MorphicTests-nice.63.mcz

commits at source.squeak.org commits at source.squeak.org
Wed May 13 21:34:24 UTC 2020


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!



More information about the Squeak-dev mailing list