Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.94.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.94 Author: mt Time: 1 March 2015, 9:19:10.471 pm UUID: 1fb0b656-e93e-2540-8164-a993206d8cce Ancestors: ToolBuilder-Morphic-mt.93
Fixed creation of pluggable scroll pane. Failed to use correct interface for #whenNeeded behavior of scroll bars.
=============== Diff against ToolBuilder-Morphic-mt.93 ===============
Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableScrollPane: (in category 'widgets optional') ----- buildPluggableScrollPane: spec
| widget | widget := self scrollPaneClass new. widget model: spec model. self register: widget id: spec name. spec children ifNotNil: [:obj | "Create panel morph to scroll it." widget morph: (self pluggablePanelSpec new children: obj; layout: spec layout; frame: (0@0 corner: 1@1); buildWith: self). spec layout ~~ #proportional ifTrue: [ "Fix #spaceFill resizing because it does not make sense in scroll pane." widget morph hResizing: #shrinkWrap; vResizing: #shrinkWrap. widget morph submorphsDo: [:m | m extent: 100@100; flag: #refactor; "mt: Restore orginial properties?" hResizing: #rigid; vResizing: #rigid] ]] ifNil: [spec morph ifNotNil: [:m | widget morph: m] ifNil: [widget morphClass: spec morphClass]]. self setFrame: spec frame in: widget. parent ifNotNil: [self add: widget to: parent]. widget borderWidth: spec borderWidth. spec hScrollBarPolicy caseOf: { [#always] -> [widget alwaysShowHScrollBar: true]. [#never] -> [widget hideHScrollBarIndefinitely: true]. + [#whenNeeded] -> [widget showHScrollBarOnlyWhenNeeded: false]}. - [#whenNeeded] -> [widget showHScrollBarOnlyWhenNeeded: true]}. spec vScrollBarPolicy caseOf: { [#always] -> [widget alwaysShowVScrollBar: true]. [#never] -> [widget hideVScrollBarIndefinitely: true]. + [#whenNeeded] -> [widget showVScrollBarOnlyWhenNeeded: false]}. - [#whenNeeded] -> [widget showVScrollBarOnlyWhenNeeded: true]}. ^ widget!
squeak-dev@lists.squeakfoundation.org