[squeak-dev] The Inbox: MorphicTests-bp.14.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Apr 2 21:32:54 UTC 2010
A new version of MorphicTests was added to project The Inbox:
http://source.squeak.org/inbox/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!
More information about the Squeak-dev
mailing list
|