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.!
packages@lists.squeakfoundation.org