The Trunk: Morphic-mt.742.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Morphic-mt.742.mcz

commits-2
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.!