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 at 10 corner: 150 at 70).
+ 	self assert: (101 at 41 corner: 148 at 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 at 10 corner: 150 at 70).
+ 	self assert: (60 at 20 corner: 140 at 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 at 10 corner: 150 at 70).
+ 	self assert: (50 at 10 corner: 150 at 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 at 10 corner: 150 at 70).
+ 	self assert: (60 at 20 corner: 110 at 35) = rectangle!