The Trunk: Morphic-mt.1586.mcz

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

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

Name: Morphic-mt.1586
Author: mt
Time: 13 November 2019, 11:52:48.943043 am
UUID: 8dbca657-b1b5-0948-a9e1-04bd58355d74
Ancestors: Morphic-mt.1585

Fixes convenience messages to put a morph in a scroll pane. No need for the special case of a two-way scroll pane anymore.

=============== Diff against Morphic-mt.1585 ===============

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 extent: ((self width min: 300 max: 100) @ (self height min: 150 max: 100));
- borderWidth: 0.
  widget scroller addMorph: self.
+ self position: 0@0.
+
+ widget
+ hScrollBarPolicy: #whenNeeded;
+ vScrollBarPolicy: #whenNeeded;
+ extent: (self width min: 300 max: 100) @ (self height min: 150 max: 100).
+
- widget setScrollDeltas.
  widget color: self color darker darker.
  ^ widget!

Item was removed:
- ----- Method: Morph>>inATwoWayScrollPane (in category 'initialization') -----
- inATwoWayScrollPane
- "Answer a two-way 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 := TwoWayScrollPane new.
- widget extent: ((self width min: 300 max: 100) @ (self height min: 150 max: 100));
- borderWidth: 0.
- widget scroller addMorph: self.
- widget setScrollDeltas.
- widget color: self color darker darker.
- ^ widget!