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) !
packages@lists.squeakfoundation.org