The Trunk: Morphic-mt.1587.mcz

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

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

Name: Morphic-mt.1587
Author: mt
Time: 13 November 2019, 12:09:47.029043 pm
UUID: b7dc0d3e-bd9b-ca4d-b9f6-c326c522380b
Ancestors: Morphic-mt.1586

Two minor layout fixes.

=============== Diff against Morphic-mt.1586 ===============

Item was changed:
  ----- Method: Morph>>inAScrollPane (in category 'initialization') -----
  inAScrollPane
  "Answer a scroll pane that allows the user to scroll the receiver in either direction.  It will have permanent scroll bars unless you take some special action."
 
  | widget |
  widget := ScrollPane new.
  widget borderWidth: 0.
 
  widget scroller addMorph: self.
  self position: 0@0.
 
  widget
  hScrollBarPolicy: #whenNeeded;
  vScrollBarPolicy: #whenNeeded;
+ fit;
+ extent: (widget width min: 300 max: 100) @ (widget height min: 150 max: 100).
- extent: (self width min: 300 max: 100) @ (self height min: 150 max: 100).
 
  widget color: self color darker darker.
  ^ widget!

Item was changed:
  ----- Method: Morph>>openInWindowLabeled:inWorld: (in category 'initialization') -----
  openInWindowLabeled: aString inWorld: aWorld
 
  | window extent |
 
  window := (SystemWindow labelled: aString) model: nil.
  window
  " guess at initial extent"
  bounds:  (RealEstateAgent initialFrameFor: window initialExtent: self fullBounds extent world: aWorld);
  addMorph: self frame: (0@0 extent: 1@1);
  updatePaneColors.
  " calculate extent after adding in case any size related attributes were changed.  Use
  fullBounds in order to trigger re-layout of layout morphs"
+ extent := self fullBounds extent
+ + (window extent - window layoutBounds extent).
- extent := self fullBounds extent +
- (window borderWidth@window labelHeight) + window borderWidth.
  window extent: extent.
  aWorld addMorph: window.
  window beKeyWindow.
  aWorld startSteppingSubmorphsOf: window.
  ^window
  !