The Trunk: SUnitGUI-bp.50.mcz

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!