[squeak-dev] The Trunk: ToolBuilder-MVC-mt.62.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Dec 16 08:06:17 UTC 2020

Marcel Taeumel uploaded a new version of ToolBuilder-MVC to project The Trunk:

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

Name: ToolBuilder-MVC-mt.62
Author: mt
Time: 16 December 2020, 9:06:17.554602 am
UUID: 7fbc702d-3163-5441-a7ec-66fd8e9055e3
Ancestors: ToolBuilder-MVC-mt.61

Tool components (or widgets) can be built without a parent (e.g. window) present.

Makes MVCToolBuilderTests green again.

=============== Diff against ToolBuilder-MVC-mt.61 ===============

Item was changed:
  ----- Method: MVCToolBuilder>>setFrame:in: (in category 'private') -----
  setFrame: fractionsRectangleOrLayoutFrame in: widget
  	| win |
  	fractionsRectangleOrLayoutFrame ifNil: [
  		"Translate subviews to position the viewport of each subView relative to
  	the widget window origin. If subviews are repositioned, as in a row of button
  	views arranged within a view, then the transformations will later be rescaled
  	to fit the subviews within the widget window."
  		self flag: #nonProportionalLayout. "See #setLayout:in:."
+ 		parent ifNotNil: [widget setTransformation: (widget transformation translateBy: parent window origin - widget window origin)].
- 		widget setTransformation: (widget transformation translateBy: parent window origin - widget window origin).
  		^ self].
  	win := fractionsRectangleOrLayoutFrame isRectangle
  		ifTrue: [self asWindow: fractionsRectangleOrLayoutFrame]
  		ifFalse: [fractionsRectangleOrLayoutFrame layout: nil in: topSize]. "assume LayoutFrame"
  	widget window: win.!

More information about the Squeak-dev mailing list