[squeak-dev] The Trunk: ToolBuilder-Kernel-mt.61.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Mar 5 23:55:29 UTC 2017


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!



More information about the Squeak-dev mailing list