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
!