[squeak-dev] The Trunk: Morphic-mt.1586.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Nov 13 10:52:54 UTC 2019


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 at 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!



More information about the Squeak-dev mailing list