The Trunk: Morphic-mt.1468.mcz

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!