I am doing some cleanup of old stuff in inbox. This update and maybe a few others
represent MCZs that are part of existing trunk but got left in inbox, now moved
to trunk to fill the gap in the update record.

Dave

On Sun, Mar 05, 2017 at 11:55:29PM +0000, commits at source.squeak.org wrote:
> David T. Lewis uploaded a new version of ToolBuilder-Kernel to project The Trunk:
> http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.61.mcz
> 
> ==================== Summary ====================
> 
> Name: ToolBuilder-Kernel-mt.61
> Author: mt
> Time: 15 June 2014, 8:48:22.829 am
> UUID: 498679be-1699-544a-ab30-ad0691dcfb4e
> Ancestors: ToolBuilder-Kernel-nice.60
> 
> Added support for pluggable scroll panes to tool builder as introduced in Morphic-mt.722
> 
> =============== Diff against ToolBuilder-Kernel-nice.60 ===============
> 
> Item was added:
> + PluggableCompositeSpec subclass: #PluggableScrollPaneSpec
> + 	instanceVariableNames: 'morph morphClass borderWidth vScrollBarPolicy hScrollBarPolicy'
> + 	classVariableNames: ''
> + 	poolDictionaries: ''
> + 	category: 'ToolBuilder-Kernel'!
> 
> Item was added:
> + ----- Method: PluggableScrollPaneSpec>>borderWidth (in category 'accessing') -----
> + borderWidth
> + 
> + 	^ borderWidth ifNil: [1]!
> 
> Item was added:
> + ----- Method: PluggableScrollPaneSpec>>borderWidth: (in category 'accessing') -----
> + borderWidth: anObject
> + 
> + 	borderWidth := anObject!
> 
> Item was added:
> + ----- Method: PluggableScrollPaneSpec>>buildWith: (in category 'building') -----
> + buildWith: builder
> + 
> + 	^ builder buildPluggableScrollPane: self!
> 
> Item was added:
> + ----- Method: PluggableScrollPaneSpec>>hScrollBarPolicy (in category 'accessing') -----
> + hScrollBarPolicy
> + 
> + 	^ hScrollBarPolicy ifNil: [#always]!
> 
> Item was added:
> + ----- Method: PluggableScrollPaneSpec>>hScrollBarPolicy: (in category 'accessing') -----
> + hScrollBarPolicy: anObject
> + 	"#always, #never, #whenNeeded"
> + 
> + 	hScrollBarPolicy := anObject!
> 
> Item was added:
> + ----- Method: PluggableScrollPaneSpec>>morph (in category 'accessing') -----
> + morph
> + 
> + 	^ morph!
> 
> Item was added:
> + ----- Method: PluggableScrollPaneSpec>>morph: (in category 'accessing') -----
> + morph: anObject
> + 
> + 	morph := anObject!
> 
> Item was added:
> + ----- Method: PluggableScrollPaneSpec>>morphClass (in category 'accessing') -----
> + morphClass
> + 
> + 	^ morphClass!
> 
> Item was added:
> + ----- Method: PluggableScrollPaneSpec>>morphClass: (in category 'accessing') -----
> + morphClass: anObject
> + 
> + 	morphClass := anObject!
> 
> Item was added:
> + ----- Method: PluggableScrollPaneSpec>>vScrollBarPolicy (in category 'accessing') -----
> + vScrollBarPolicy
> + 
> + 	^ vScrollBarPolicy ifNil: [#always]!
> 
> Item was added:
> + ----- Method: PluggableScrollPaneSpec>>vScrollBarPolicy: (in category 'accessing') -----
> + vScrollBarPolicy: anObject
> + 	"#always, #never, #whenNeeded"
> + 	
> + 	vScrollBarPolicy := anObject!
> 
> Item was added:
> + ----- Method: ToolBuilder>>buildPluggableScrollPane: (in category 'widgets optional') -----
> + buildPluggableScrollPane: spec
> + 
> + 	^ spec children
> + 		ifNotNil: [self buildPluggablePanel: spec]
> + 		ifNil: [spec morph ifNil: [spec morphClass new]]!
> 
> Item was added:
> + ----- Method: ToolBuilder>>pluggableScrollPaneSpec (in category 'defaults') -----
> + pluggableScrollPaneSpec
> + 	^ PluggableScrollPaneSpec!
> 
>