The Trunk: Morphic-mt.848.mcz

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"
  !