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

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

Name: Morphic-mt.742
Author: mt
Time: 13 August 2014, 10:52:41.575 am
UUID: 4d1aee22-7d2f-aa4d-84d6-a7aa96fd3307
Ancestors: Morphic-mt.741, Morphic-mt.722

Added pluggable version of scroll pane to be used in tool builder. (merged from inbox)

=============== Diff against Morphic-mt.741 ===============

Item was added:
+ ScrollPane subclass: #PluggableScrollPane
+ 	instanceVariableNames: 'morph morphClass'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'Morphic-Pluggable Widgets'!

Item was added:
+ ----- Method: PluggableScrollPane class>>on: (in category 'instance creation') -----
+ on: morph
+ 
+ 	^ self new
+ 		morph: morph;
+ 		yourself!

Item was added:
+ ----- Method: PluggableScrollPane class>>onClass: (in category 'instance creation') -----
+ onClass: morphClass
+ 
+ 	^ self new
+ 		morphClass: morphClass;
+ 		updateMorph;
+ 		yourself!

Item was added:
+ ----- Method: PluggableScrollPane>>morph (in category 'accessing') -----
+ morph
+ 
+ 	^ morph ifNil: [
+ 		self morph: self morphClass new.
+ 		morph]!

Item was added:
+ ----- Method: PluggableScrollPane>>morph: (in category 'accessing') -----
+ morph: morphToScroll
+ 
+ 	morphToScroll topLeft: 0 at 0.
+ 	morph := morphToScroll.
+ 	morphClass := morphToScroll class.
+ 
+ 	self scroller
+ 		removeAllMorphs;
+ 		addMorph: morph.
+ 	
+ 	self updateMorph.!

Item was added:
+ ----- Method: PluggableScrollPane>>morphClass (in category 'accessing') -----
+ morphClass
+ 
+ 	^ morphClass ifNil: [Morph]!

Item was added:
+ ----- Method: PluggableScrollPane>>morphClass: (in category 'accessing') -----
+ morphClass: aMorphClass
+ 
+ 	morphClass := aMorphClass.!

Item was added:
+ ----- Method: PluggableScrollPane>>updateMorph (in category 'updating') -----
+ updateMorph
+ 
+ 	self morph fullBounds.
+ 	self setScrollDeltas.
+ 	
+ 	scrollBar setValue: 0.0.
+ 	hScrollBar setValue: 0.0.!