The Trunk: ToolBuilder-MVC-mt.62.mcz

Marcel Taeumel uploaded a new version of ToolBuilder-MVC to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-MVC-mt.62.mcz

==================== 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.!