Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.742.mcz
==================== Summary ====================
Name: Morphic-mt.742 Author: mt Time: 13 August 2014, 10:52:41.575 am UUID: 4d1aee22-7d2f-aa4d-84d6-a7aa96fd3307 Ancestors: Morphic-mt.741, Morphic-mt.722
Added pluggable version of scroll pane to be used in tool builder. (merged from inbox)
=============== Diff against Morphic-mt.741 ===============
Item was added: + ScrollPane subclass: #PluggableScrollPane + instanceVariableNames: 'morph morphClass' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Pluggable Widgets'!
Item was added: + ----- Method: PluggableScrollPane class>>on: (in category 'instance creation') ----- + on: morph + + ^ self new + morph: morph; + yourself!
Item was added: + ----- Method: PluggableScrollPane class>>onClass: (in category 'instance creation') ----- + onClass: morphClass + + ^ self new + morphClass: morphClass; + updateMorph; + yourself!
Item was added: + ----- Method: PluggableScrollPane>>morph (in category 'accessing') ----- + morph + + ^ morph ifNil: [ + self morph: self morphClass new. + morph]!
Item was added: + ----- Method: PluggableScrollPane>>morph: (in category 'accessing') ----- + morph: morphToScroll + + morphToScroll topLeft: 0@0. + morph := morphToScroll. + morphClass := morphToScroll class. + + self scroller + removeAllMorphs; + addMorph: morph. + + self updateMorph.!
Item was added: + ----- Method: PluggableScrollPane>>morphClass (in category 'accessing') ----- + morphClass + + ^ morphClass ifNil: [Morph]!
Item was added: + ----- Method: PluggableScrollPane>>morphClass: (in category 'accessing') ----- + morphClass: aMorphClass + + morphClass := aMorphClass.!
Item was added: + ----- Method: PluggableScrollPane>>updateMorph (in category 'updating') ----- + updateMorph + + self morph fullBounds. + self setScrollDeltas. + + scrollBar setValue: 0.0. + hScrollBar setValue: 0.0.!