[prev in list] [next in list] [prev in thread] [next in thread] 

List:       squeak-dev
Subject:    [squeak-dev] The Trunk: MorphicTests-mt.47.mcz
From:       commits () source ! squeak ! org
Date:       2018-05-31 7:26:55
Message-ID: E1fOHz7-0002ux-8O () andreas
[Download RAW message or body]

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

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

Name: MorphicTests-mt.47
Author: mt
Time: 31 May 2018, 9:26:39.508323 am
UUID: 8c7b340d-5fcf-6346-8ed0-609d2e1c21f4
Ancestors: MorphicTests-mt.46

Adds a test for the interplay between layouts and border styles.

=============== Diff against MorphicTests-mt.46 ===============

Item was added:
+ ----- Method: BorderedMorphTests>>test04InnerBounds (in category 'tests') -----
+ test04InnerBounds
+ 	"Check whether a changed border width triggers a layout re-computation."
+ 	
+ 	| sut |
+ 	sut := Morph new.
+ 	sut changeTableLayout.
+ 	sut addMorph: (Morph new
+ 		hResizing: #spaceFill;
+ 		vResizing: #spaceFill;
+ 		yourself).
+ 	
+ 	self
+ 		assert: 0 equals: sut borderWidth;
+ 		assert: sut fullBounds equals: sut bounds;
+ 		assert: sut bounds equals: sut innerBounds;
+ 		assert: sut bounds equals: sut firstSubmorph bounds.
+ 
+ 	sut borderStyle: (BorderStyle raised width: 10).
+ 	
+ 	self
+ 		assert: 10 equals: sut borderWidth;
+ 		assert: sut fullBounds equals: sut bounds;
+ 		assert: (sut bounds insetBy: 10) equals: sut innerBounds;
+ 		assert: sut innerBounds equals: sut firstSubmorph bounds.!



[prev in list] [next in list] [prev in thread] [next in thread]