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

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

Name: Morphic-mt.1468
Author: mt
Time: 2 December 2018, 11:09:37.078325 am
UUID: f2fb9cd4-6b5a-9941-adf6-0ecba9b669e5
Ancestors: Morphic-mt.1467

Two minor fixes in the realm of BorderedMorph:
1) Fixes a small issue with translucent borders.
2) Deprecates two set* messages.

=============== Diff against Morphic-mt.1467 ===============

Item was removed:
- ----- Method: BorderedMorph>>setBorderWidth:borderColor: (in category 'private') -----
- setBorderWidth: w borderColor: bc
- 	self borderWidth: w.
- 	self borderColor: bc.!

Item was removed:
- ----- Method: BorderedMorph>>setColor:borderWidth:borderColor: (in category 'private') -----
- setColor: c borderWidth: w borderColor: bc
- 	self color: c.
- 	self borderWidth: w.
- 	self borderColor: bc.!

Item was changed:
  ----- Method: FormCanvas>>frameAndFillRectangle:fillColor:borderWidth:topLeftColor:bottomRightColor: (in category 'drawing-rectangles') -----
  frameAndFillRectangle: r fillColor: fillColor borderWidth: borderWidth topLeftColor: topLeftColor bottomRightColor: bottomRightColor
  
  	| w h rect |
  	"First use quick code for top and left borders and fill"
  	self frameAndFillRectangle: r
  		fillColor: fillColor
  		borderWidth: borderWidth
  		borderColor: topLeftColor.
+ 	
+ 	"Return here for duplicate colors. Makes translucent borders work better."
+ 	topLeftColor = bottomRightColor ifTrue: [^ self].
  
  	"Now use slow code for bevelled bottom and right borders"
  	bottomRightColor isTransparent ifFalse: [
  		borderWidth isNumber
  			ifTrue: [w := h := borderWidth]
  			ifFalse: [w := borderWidth x.   h := borderWidth y].
  		rect := r translateBy: origin.
  		self setFillColor: bottomRightColor.
  		port 
  			 frameRectRight: rect width: w;
  			 frameRectBottom: rect height: h].
  !

Item was changed:
  ----- Method: MorphHierarchyListMorph>>createContainer (in category 'private') -----
  createContainer
  	"Private - Create a container"
  	| container |
  	container := BorderedMorph new.
  	container extent: (self world extent * (1 / 4 @ (2 / 3))) rounded.
  	container layoutPolicy: TableLayout new.
  	container hResizing: #rigid.
  	container vResizing: #rigid.
  	container
+ 		color: (Color gray: 0.9);
+ 		borderWidth: 1;
- 		setColor: (Color gray: 0.9)
- 		borderWidth: 1
  		borderColor: Color gray.
  	container layoutInset: 0.
  	"container useRoundedCorners."
  	""
  	container setProperty: #morphHierarchy toValue: true.
  	container setNameTo: 'Objects Hierarchy' translated.
  	""
  	^ container!