The Trunk: Monticello-bp.387.mcz

Andreas Raab uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-bp.387.mcz

==================== Summary ====================

Name: Monticello-bp.387
Author: bp
Time: 2 April 2010, 11:40:29.553 pm
UUID: 1807cd8e-3bdb-4b59-b97a-b6264af5b2ce
Ancestors: Monticello-nice.386

fix height on button rows in Monticello tools

=============== Diff against Monticello-nice.386 ===============

Item was changed:
  ----- Method: MCTool>>buildWith: (in category 'morphic ui') -----
  buildWith: builder
  |  windowBuilder |
 
  windowBuilder := MCToolWindowBuilder builder: builder tool: self.
  self widgetSpecs do:
+ [:spec | | send fractions offsets |
- [:spec | | send fractions offsets origin corner |
  send := spec first.
  fractions := spec at: 2 ifAbsent: [#(0 0 1 1)].
  offsets := spec at: 3 ifAbsent: [#(0 0 0 0)].
+ windowBuilder frame: (LayoutFrame
+ fractions: (fractions first @ fractions second corner: fractions third @ fractions fourth)
+ offsets: (offsets first @ offsets second corner: offsets third @ offsets fourth)).
- origin := (offsets first @ offsets second)
- / self defaultExtent asFloatPoint
- + (fractions first @ fractions second).
- corner := (offsets third @ offsets fourth)
- / self defaultExtent asFloatPoint
- + (fractions third @ fractions fourth).
- windowBuilder frame: (origin corner: corner).
  windowBuilder perform: send first withArguments: send allButFirst].
 
  ^ windowBuilder build
  !