The Trunk: Morphic-mt.935.mcz

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

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

Name: Morphic-mt.935
Author: mt
Time: 26 April 2015, 10:13:29.494 pm
UUID: c451d565-57e4-ee4c-aef9-4bbb8feb6bef
Ancestors: Morphic-kfr.934

Fixed initialization of scroll panes to layout and update minimum extent.

=============== Diff against Morphic-kfr.934 ===============

Item was changed:
  ----- Method: ScrollPane>>initialize (in category 'initialization') -----
  initialize
 
  "initialize the state of the receiver"
  super initialize.
  ""
  self initializePreferences.
  hasFocus := false.
  self initializeScrollBars.
  ""
+
  self extent: self defaultExtent.
+ self
+ resizeScrollBars;
+ resizeScroller;
+ hideOrShowScrollBars;
+ updateMinimumExtent.!
- self hideOrShowScrollBars.
-
-
- !

Item was changed:
  ----- Method: ScrollPane>>initializeScrollBars (in category 'initialization') -----
  initializeScrollBars
  "Initialize vertical and horizontal scroll bars."
 
  (scrollBar := ScrollBar on: self getValue: nil setValue: #vScrollBarValue:)
  menuSelector: #vScrollBarMenuButtonPressed:;
+ orientation: #vertical;
+ extent: 1@1.
- extent: 5@10;
- orientation: #vertical.
  (hScrollBar := ScrollBar on: self getValue: nil setValue: #hScrollBarValue:)
  menuSelector: #hScrollBarMenuButtonPressed:;
+ orientation: #horizontal;
+ extent: 1@1.
- extent: 10@5;
- orientation: #horizontal.
 
  ""
  scroller := TransformMorph new color: Color transparent.
  scroller offset: 0 @ 0.
  self addMorph: scroller.
  ""
  scrollBar initializeEmbedded: retractableScrollBar not.
  hScrollBar initializeEmbedded: retractableScrollBar not.
  retractableScrollBar ifFalse:
  [self
  addMorph: scrollBar;
  addMorph: hScrollBar].
  self updateMinimumExtent.!

Item was changed:
  ----- Method: ScrollPane>>retractableOrNot (in category 'accessing retractable') -----
  retractableOrNot
  "Change scroll bar operation"
 
  retractableScrollBar := retractableScrollBar not.
  retractableScrollBar
  ifTrue: [
  self removeMorph: scrollBar; removeMorph: hScrollBar]
  ifFalse: [(submorphs includes: scrollBar)
  ifFalse:
  [self privateAddMorph: scrollBar atIndex: 1.
  self privateAddMorph: hScrollBar atIndex: 1]].
  self
- updateMinimumExtent;
  resizeScrollBars;
  resizeScroller;
+ hideOrShowScrollBars;
+ updateMinimumExtent.!
- hideOrShowScrollBars.!