The Trunk: ToolBuilder-Kernel-mt.61.mcz

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