Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.62.mcz
==================== Summary ====================
Name: ToolBuilder-Kernel-mt.62 Author: mt Time: 13 August 2014, 10:54:11.149 am UUID: 668e67af-7a18-5448-bd8c-4a02243e4ec4 Ancestors: ToolBuilder-Kernel-mt.61
Added support for pluggable scroll panes to tool builder as introduced in Morphic-mt.742
=============== 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!
packages@lists.squeakfoundation.org