[squeak-dev] The Trunk: Morphic-mt.802.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Apr 1 11:50:02 UTC 2015


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 at 1) extent: self hScrollBarWidth@ h)
  !



More information about the Squeak-dev mailing list