Discussion:
The Trunk: Morphic-mt.1468.mcz
(too old to reply)
c***@source.squeak.org
0000-12-03 10:09:43 UTC
Permalink
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.
""

Loading...