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

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

Name: 51Deprecated-mt.38
Author: mt
Time: 31 July 2016, 11:24:23.37849 am
UUID: 165d2c29-2c81-c841-a85c-a60b5a222130
Ancestors: 51Deprecated-mt.37

*** Widget Refactorings and UI Themes (Part 6 of 11) ***

Some fixes and refactorings for lists, trees, text boxes --- including added support for UI theming.

=============== Diff against 51Deprecated-mt.37 ===============

Item was added:
+ ----- Method: NewParagraph>>insertionPointColor (in category '*51Deprecated') -----
+ insertionPointColor
+ 	self focused ifFalse: [^ Color transparent].
+ 	^ Display depth <= 2
+ 		ifTrue: [Color black]
+ 		ifFalse: [Preferences insertionPointColor]!

Item was added:
+ ----- Method: ScrollBar class>>createArrowOfDirection:in: (in category '*51Deprecated') -----
+ createArrowOfDirection: aSymbol in: aRectangle 
+ 	"PRIVATE - create an arrow bounded in aRectangle"
+ 
+ 	| arrow vertices |
+ 	vertices := Preferences alternativeButtonsInScrollBars 
+ 				ifTrue: [self verticesForComplexArrow: aRectangle]
+ 				ifFalse: [self verticesForSimpleArrow: aRectangle].
+ 	""
+ 	arrow := PolygonMorph 
+ 				vertices: vertices
+ 				color: Color transparent
+ 				borderWidth: 0
+ 				borderColor: Color black.
+ 	""
+ 	arrow bounds: (arrow bounds insetBy: (aRectangle width / 6) rounded).
+ 	""
+ 	Preferences alternativeButtonsInScrollBars 
+ 		ifTrue: [arrow rotationDegrees: 45].
+ 	""
+ 	aSymbol == #right 
+ 		ifTrue: [arrow rotationDegrees: arrow rotationDegrees + 90].
+ 	aSymbol == #bottom 
+ 		ifTrue: [arrow rotationDegrees: arrow rotationDegrees + 180].
+ 	aSymbol == #left 
+ 		ifTrue: [arrow rotationDegrees: arrow rotationDegrees + 270].
+ 	""
+ 	^arrow!

Item was added:
+ ----- Method: ScrollBar class>>createBoxIn: (in category '*51Deprecated') -----
+ createBoxIn: aRectangle 
+ 	"PRIVATE - create an box bounded in aRectangle"
+ 	| box |
+ 	box := RectangleMorph new.
+ 	box extent: (aRectangle scaleBy: 1 / 2) extent rounded;
+ 		 borderWidth: 0.
+ 	""
+ 	^ box!

Item was added:
+ ----- Method: ScrollBar class>>updateScrollBarButtonAspect:color: (in category '*51Deprecated') -----
+ updateScrollBarButtonAspect: aMorph color: aColor 
+ 	"update aMorph with aColor"
+ 	| fill direction |
+ 	aMorph isNil
+ 		ifTrue: [^ self].
+ 	""
+ 	aMorph color: aColor.
+ 	self gradientScrollBar ifFalse: [^ self].
+ 	""
+ 	fill := GradientFillStyle ramp: {
+ 		0.0 -> aColor twiceLighter twiceLighter.
+ 		1.0 -> aColor twiceDarker}.
+ 	""
+ 	direction := ((aMorph width min: aMorph height)
+ 				+ ((aMorph width - aMorph height) abs * 0.3)) rounded.
+ 	""
+ 	fill origin: aMorph topLeft + (direction // 8).
+ 	fill direction: direction @ direction.
+ 	fill radial: true.
+ 	""
+ 	aMorph fillStyle: fill!

Item was added:
+ ----- Method: ScrollBar class>>updateScrollBarButtonsAspect:color: (in category '*51Deprecated') -----
+ updateScrollBarButtonsAspect: aCollection color: aColor 
+ 	"update aCollection of morphs with aColor"
+ 	
+ 	
+ 	aCollection
+ 		do: [:each | self updateScrollBarButtonAspect: each color: aColor]!

Item was added:
+ ----- Method: ScrollBar class>>verticesForComplexArrow: (in category '*51Deprecated') -----
+ verticesForComplexArrow: aRectangle 
+ 	"PRIVATE - answer a collection of vertices to draw a complex arrow"
+ 	| vertices aux |
+ 	vertices := OrderedCollection new.
+ 	""
+ 	vertices add: aRectangle bottomLeft.
+ 	vertices add: aRectangle topLeft.
+ 	vertices add: aRectangle topRight.
+ 	""
+ 	aux := (aRectangle width / 3) rounded.
+ 	vertices add: aRectangle topRight + (0 @ aux).
+ 	vertices add: aRectangle topLeft + aux.
+ 	vertices add: aRectangle bottomLeft + (aux @ 0).
+ 	""
+ 	^ vertices!

Item was added:
+ ----- Method: ScrollBar class>>verticesForSimpleArrow: (in category '*51Deprecated') -----
+ verticesForSimpleArrow: aRectangle 
+ 	"PRIVATE - answer a collection of vertices to draw a simple arrow"
+ 	| vertices |
+ 	vertices := OrderedCollection new.
+ 	""
+ 	vertices add: aRectangle bottomLeft.
+ 	vertices add: aRectangle center x @ (aRectangle top + (aRectangle width / 8)).
+ 	vertices add: aRectangle bottomRight.
+ 	""
+ 	^ vertices!

Item was added:
+ ----- Method: ScrollBar>>scrollDown (in category '*51Deprecated') -----
+ scrollDown
+ 	self flag: #obsolete.
+ 	downButton eventHandler: nil.
+ 	downButton on: #mouseDown send: #scrollDownInit to: self.
+ 	downButton on: #mouseUp send: #finishedScrolling to: self.
+ 	^self scrollDownInit!

Item was added:
+ ----- Method: ScrollBar>>scrollUp (in category '*51Deprecated') -----
+ scrollUp
+ 	self flag: #obsolete.
+ 	upButton eventHandler: nil.
+ 	upButton on: #mouseDown send: #scrollUpInit to: self.
+ 	upButton on: #mouseUp send: #finishedScrolling to: self.
+ 	^self scrollUpInit!