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 !
packages@lists.squeakfoundation.org