A new version of ToolBuilder-Kernel was added to project The Inbox:
http://source.squeak.org/inbox/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! |
Free forum by Nabble | Edit this page |