[Pkg] The Trunk: Monticello-bp.387.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Apr 3 05:44:50 UTC 2010


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
  !



More information about the Packages mailing list