A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-mt.722.mcz==================== Summary ====================
Name: Morphic-mt.722
Author: mt
Time: 15 June 2014, 8:46:55.467 am
UUID: 0ec07e17-be8b-4c41-87fa-8d837327f6bd
Ancestors: Morphic-cmm.721
Added pluggable version of scroll pane to be used in tool builder.
=============== Diff against Morphic-cmm.721 ===============
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.!