[Pkg] The Trunk: ToolBuilder-Kernel-mt.62.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Aug 13 08:54:37 UTC 2014
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!
More information about the Packages
mailing list