[squeak-dev] The Trunk: SUnitGUI-bp.50.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun Nov 28 20:49:16 UTC 2010
Levente Uzonyi uploaded a new version of SUnitGUI to project The Trunk:
http://source.squeak.org/trunk/SUnitGUI-bp.50.mcz
==================== Summary ====================
Name: SUnitGUI-bp.50
Author: bp
Time: 22 November 2010, 8:53:09.668 pm
UUID: eb072196-893d-4822-8e86-09a113589786
Ancestors: SUnitGUI-ar.49
- fixed button height when resizing Test Runner
=============== Diff against SUnitGUI-ar.49 ===============
Item was changed:
----- Method: TestRunner>>buildWith: (in category 'building') -----
buildWith: aBuilder
| window |
window := aBuilder pluggableWindowSpec new
model: self; label: self label; extent: self extent;
children: (OrderedCollection new
add: ((self buildCategoriesWith: aBuilder)
+ frame: self categoriesFrame;
- frame: (0.00 @ 0.00 corner: 0.25 @ 0.92 );
yourself);
add: ((self buildClassesWith: aBuilder)
+ frame: self classesFrame;
- frame: (0.25 @ 0.00 corner: 0.50 @ 0.92 );
yourself);
add: ((self buildStatusWith: aBuilder)
+ frame: self statusFrame;
- frame: (0.50 @ 0.00 corner: 1.00 @ 0.08);
yourself);
add: ((self buildFailureListWith: aBuilder)
+ frame: self failureListFrame;
- frame: (0.50 @ 0.08 corner: 1.00 @ 0.50);
yourself);
add: ((self buildErrorListWith: aBuilder)
+ frame: self errorListFrame;
- frame: (0.50 @ 0.50 corner: 1.00 @ 0.92);
yourself);
add: ((self buildButtonsWith: aBuilder)
+ frame: self buttonsFrame;
- frame: (0.00 @ 0.92 corner: 1.00 @ 1.00);
yourself);
yourself);
yourself.
^ aBuilder build: window.!
Item was added:
+ ----- Method: TestRunner>>buttonHeight (in category 'building') -----
+ buttonHeight
+ ^Preferences standardButtonFont height + 25!
Item was added:
+ ----- Method: TestRunner>>buttonsFrame (in category 'building') -----
+ buttonsFrame
+ ^LayoutFrame new
+ leftFraction: 0 offset: 0;
+ topFraction: 1 offset: self buttonHeight negated;
+ rightFraction: 1 offset: 0;
+ bottomFraction: 1 offset: 0!
Item was added:
+ ----- Method: TestRunner>>categoriesFrame (in category 'building') -----
+ categoriesFrame
+ ^LayoutFrame new
+ leftFraction: 0 offset: 0;
+ topFraction: 0 offset: 0;
+ rightFraction: 0.25 offset: 0;
+ bottomFraction: 1 offset: self buttonHeight negated + 4!
Item was added:
+ ----- Method: TestRunner>>classesFrame (in category 'building') -----
+ classesFrame
+ ^LayoutFrame new
+ leftFraction: 0.25 offset: 0;
+ topFraction: 0 offset: 0;
+ rightFraction: 0.5 offset: 0;
+ bottomFraction: 1 offset: self buttonHeight negated + 4!
Item was added:
+ ----- Method: TestRunner>>errorListFrame (in category 'building') -----
+ errorListFrame
+ ^LayoutFrame new
+ leftFraction: 0.5 offset: 0;
+ topFraction: 0.5 offset: 0;
+ rightFraction: 1 offset: 0;
+ bottomFraction: 1 offset: self buttonHeight negated + 4!
Item was added:
+ ----- Method: TestRunner>>failureListFrame (in category 'building') -----
+ failureListFrame
+ ^LayoutFrame new
+ leftFraction: 0.5 offset: 0;
+ topFraction: 0 offset: self statusHeight;
+ rightFraction: 1 offset: 0;
+ bottomFraction: 0.5 offset: 0!
Item was added:
+ ----- Method: TestRunner>>statusFrame (in category 'building') -----
+ statusFrame
+ ^LayoutFrame new
+ leftFraction: 0.5 offset: 0;
+ topFraction: 0 offset: 0;
+ rightFraction: 1 offset: 0;
+ bottomFraction: 0 offset: self statusHeight!
Item was added:
+ ----- Method: TestRunner>>statusHeight (in category 'building') -----
+ statusHeight
+ ^Preferences standardCodeFont height * 2 + 5!
More information about the Squeak-dev
mailing list
|