The Trunk: Morphic-mt.802.mcz

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

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

Name: Morphic-mt.802
Author: mt
Time: 1 April 2015, 1:49:26.461 pm
UUID: 86843cf8-a4d3-104e-baa1-d6004e8e3013
Ancestors: Morphic-mt.801

Fixed layouting bug of horizontal scrollbar if vertical scroll bar is on the left.

=============== Diff against Morphic-mt.801 ===============

Item was changed:
  ----- Method: ScrollPane>>hResizeScrollBar (in category 'geometry') -----
  hResizeScrollBar
 
+ | topLeft h border offset |
- | topLeft h border |
 
  "TEMPORARY: IF OLD SCROLLPANES LYING AROUND THAT DON'T HAVE A hScrollBar, INIT THEM"
  hScrollBar ifNil: [ self hInitScrollBarTEMPORARY].
 
  (self valueOfProperty: #noHScrollBarPlease ifAbsent: [false]) ifTrue: [^self].
  bounds ifNil: [ self fullBounds ].
 
  h := self scrollBarThickness.
  border := borderWidth.
+ offset := scrollBarOnLeft ifTrue: [h] ifFalse: [0].
 
  topLeft := retractableScrollBar
+ ifTrue: [bounds bottomLeft + (border + offset @ border negated)]
+ ifFalse: [bounds bottomLeft + (border + offset @ (h + border) negated)].
- ifTrue: [bounds bottomLeft + (border @ border negated)]
- ifFalse: [bounds bottomLeft + (border @ (h + border) negated)].
 
  hScrollBar bounds: (topLeft + (-1@1) extent: self hScrollBarWidth@ h)
  !