A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-mt.722.mcz

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

Name: Morphic-mt.722
Author: mt
Time: 15 June 2014, 8:46:55.467 am
UUID: 0ec07e17-be8b-4c41-87fa-8d837327f6bd
Ancestors: Morphic-cmm.721

Added pluggable version of scroll pane to be used in tool builder.

=============== Diff against Morphic-cmm.721 ===============

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