Andreas Raab uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-bp.14.mcz
==================== Summary ====================
Name: MorphicTests-bp.14 Author: bp Time: 2 April 2010, 11:32:53.032 pm UUID: 3a037f09-63d5-4111-9f2c-cfdc5d5254f1 Ancestors: MorphicTests-ar.13
created LayoutFrameTest
=============== Diff against MorphicTests-ar.13 ===============
Item was changed: SystemOrganization addCategory: #'MorphicTests-Basic'! SystemOrganization addCategory: #'MorphicTests-Kernel'! + SystemOrganization addCategory: #'MorphicTests-Layouts'! + SystemOrganization addCategory: #'MorphicTests-Support'! SystemOrganization addCategory: #'MorphicTests-Text Support'! SystemOrganization addCategory: #'MorphicTests-Widgets'! - SystemOrganization addCategory: #'MorphicTests-Support'! SystemOrganization addCategory: #'MorphicTests-Worlds'!
Item was added: + TestCase subclass: #LayoutFrameTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicTests-Layouts'!
Item was added: + ----- Method: LayoutFrameTest>>testRightBottomQuadrant (in category 'as yet unclassified') ----- + testRightBottomQuadrant + | lf rectangle | + lf := LayoutFrame new + leftFraction: 1/2 offset: 1; + topFraction: 1/2 offset: 1; + rightFraction: 1 offset: -2; + bottomFraction: 1 offset: -2; + yourself. + rectangle := lf layout: nil in: (50@10 corner: 150@70). + self assert: (101@41 corner: 148@68) = rectangle!
Item was added: + ----- Method: LayoutFrameTest>>testInset (in category 'as yet unclassified') ----- + testInset + | lf rectangle | + lf := LayoutFrame new + leftFraction: 0 offset: 10; + topFraction: 0 offset: 10; + rightFraction: 1 offset: -10; + bottomFraction: 1 offset: -10; + yourself. + rectangle := lf layout: nil in: (50@10 corner: 150@70). + self assert: (60@20 corner: 140@60) = rectangle!
Item was added: + ----- Method: LayoutFrameTest>>testSpaceFill (in category 'as yet unclassified') ----- + testSpaceFill + | lf rectangle | + lf := LayoutFrame new + leftFraction: 0 offset: 0; + topFraction: 0 offset: 0; + rightFraction: 1 offset: 0; + bottomFraction: 1 offset: 0; + yourself. + rectangle := lf layout: nil in: (50@10 corner: 150@70). + self assert: (50@10 corner: 150@70) = rectangle!
Item was added: + ----- Method: LayoutFrameTest>>testLeftTopAligned (in category 'as yet unclassified') ----- + testLeftTopAligned + | lf rectangle | + lf := LayoutFrame new + leftFraction: 0 offset: 10; + topFraction: 0 offset: 10; + rightFraction: 0 offset: 60; + bottomFraction: 0 offset: 25; + yourself. + rectangle := lf layout: nil in: (50@10 corner: 150@70). + self assert: (60@20 corner: 110@35) = rectangle!
packages@lists.squeakfoundation.org