[Pkg] The Trunk: Morphic-mt.848.mcz

[commits at source.squeak.org]

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.848.mcz

==================== Summary ====================

Name: Morphic-mt.848
Author: mt
Time: 9 April 2015, 11:46:59.806 am
UUID: 86075430-2847-e343-b1d1-da4dfa077d3f
Ancestors: Morphic-mt.847

Compatibility fix: Use lazy initialization for interval in scroll bars to make update work again.

=============== Diff against Morphic-mt.847 ===============

Item was changed:
  ----- Method: ScrollBar>>expandSlider (in category 'geometry') -----
  expandSlider
  	"Compute the new size of the slider (use the old sliderThickness as a minimum)."
  	| r |
  	r := self totalSliderArea.
  	slider extent: (bounds isWide
+ 		ifTrue: [((r width * self interval) asInteger max: self sliderThickness) @ slider height]
+ 		ifFalse: [slider width @ ((r height * self interval) asInteger max: self sliderThickness)])!
- 		ifTrue: [((r width * interval) asInteger max: self sliderThickness) @ slider height]
- 		ifFalse: [slider width @ ((r height * interval) asInteger max: self sliderThickness)])!

Item was changed:
  ----- Method: ScrollBar>>interval (in category 'access') -----
  interval
  	
+ 	^ interval ifNil: [interval := 0.2]!
- 	^ interval!

Item was changed:
  ----- Method: ScrollBar>>mouseDownInSlider: (in category 'other events') -----
  mouseDownInSlider: event
+ 	self interval = self maximumValue ifTrue:
- 	interval = self maximumValue ifTrue:
  		["make the entire scrollable area visible if a full scrollbar is clicked on"
  		self setValue: 0.
  		self model hideOrShowScrollBars.].
  "	super mouseDownInSlider: event"
  !