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

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

Name: Morphic-mt.935
Author: mt
Time: 26 April 2015, 10:13:29.494 pm
UUID: c451d565-57e4-ee4c-aef9-4bbb8feb6bef
Ancestors: Morphic-kfr.934

Fixed initialization of scroll panes to layout and update minimum extent.

=============== Diff against Morphic-kfr.934 ===============

Item was changed:
  ----- Method: ScrollPane>>initialize (in category 'initialization') -----
  initialize
  	
  	"initialize the state of the receiver"
  	super initialize.
  	""
  	self initializePreferences.
  	hasFocus := false.
  	self initializeScrollBars.
  	""
+ 	
  	self extent: self defaultExtent.
+ 	self
+ 		resizeScrollBars;
+ 		resizeScroller;
+ 		hideOrShowScrollBars;
+ 		updateMinimumExtent.!
- 	self hideOrShowScrollBars.
- 
- 
- !

Item was changed:
  ----- Method: ScrollPane>>initializeScrollBars (in category 'initialization') -----
  initializeScrollBars
  	"Initialize vertical and horizontal scroll bars."
  
  	(scrollBar := ScrollBar on: self getValue: nil setValue: #vScrollBarValue:)
  			menuSelector: #vScrollBarMenuButtonPressed:;
+ 			orientation: #vertical;
+ 			extent: 1 at 1.
- 			extent: 5 at 10;
- 			orientation: #vertical.
  	(hScrollBar := ScrollBar on: self getValue: nil setValue: #hScrollBarValue:)
  			menuSelector: #hScrollBarMenuButtonPressed:;
+ 			orientation: #horizontal;
+ 			extent: 1 at 1.
- 			extent: 10 at 5;
- 			orientation: #horizontal.
  
  	""
  	scroller := TransformMorph new color: Color transparent.
  	scroller offset: 0 @ 0.
  	self addMorph: scroller.
  	""
  	scrollBar initializeEmbedded: retractableScrollBar not.
  	hScrollBar initializeEmbedded: retractableScrollBar not.
  	retractableScrollBar ifFalse: 
  			[self 
  				addMorph: scrollBar;
  				addMorph: hScrollBar].
  	self updateMinimumExtent.!

Item was changed:
  ----- Method: ScrollPane>>retractableOrNot (in category 'accessing retractable') -----
  retractableOrNot
  	"Change scroll bar operation"
  
  	retractableScrollBar := retractableScrollBar not.
  	retractableScrollBar
  		ifTrue: [
  			self removeMorph: scrollBar; removeMorph: hScrollBar]
  		ifFalse: [(submorphs includes: scrollBar) 
  					ifFalse: 
  						[self privateAddMorph: scrollBar atIndex: 1.
  						self privateAddMorph: hScrollBar atIndex: 1]].
  	self
- 		updateMinimumExtent;
  		resizeScrollBars;
  		resizeScroller;
+ 		hideOrShowScrollBars;
+ 		updateMinimumExtent.!
- 		hideOrShowScrollBars.!