c***@source.squeak.org
0000-11-16 17:05:54 UTC
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1467.mcz
==================== Summary ====================
Name: Morphic-mt.1467
Author: mt
Time: 15 November 2018, 12:14:27.981757 pm
UUID: fd0b1aac-d448-8d47-ba49-dc659c099ee6
Ancestors: Morphic-pre.1466
Fixes small bug in Morph border initialization.
=============== Diff against Morphic-pre.1466 ===============
Item was changed:
----- Method: Morph>>borderColor: (in category 'accessing') -----
borderColor: aColorOrSymbolOrNil
self flag: #compatibility. "mt: For old code. Should be removed in the future."
aColorOrSymbolOrNil
ifNil: [self borderStyle: nil]
ifNotNil: [:colorOrSymbol |
colorOrSymbol isSymbol ifTrue: [
^ self borderStyle: ((self borderStyleForSymbol: colorOrSymbol)
width: self borderStyle width;
baseColor: self borderStyle baseColor;
trackColorFrom: self;
yourself)]].
+ "Ensure a style object that can remember width and color."
+ self borderStyle style = #none
+ ifTrue: [self borderStyle: BorderStyle simple].
+
"Set the color of the current border style."
self borderStyle
baseColor: aColorOrSymbolOrN
http://source.squeak.org/trunk/Morphic-mt.1467.mcz
==================== Summary ====================
Name: Morphic-mt.1467
Author: mt
Time: 15 November 2018, 12:14:27.981757 pm
UUID: fd0b1aac-d448-8d47-ba49-dc659c099ee6
Ancestors: Morphic-pre.1466
Fixes small bug in Morph border initialization.
=============== Diff against Morphic-pre.1466 ===============
Item was changed:
----- Method: Morph>>borderColor: (in category 'accessing') -----
borderColor: aColorOrSymbolOrNil
self flag: #compatibility. "mt: For old code. Should be removed in the future."
aColorOrSymbolOrNil
ifNil: [self borderStyle: nil]
ifNotNil: [:colorOrSymbol |
colorOrSymbol isSymbol ifTrue: [
^ self borderStyle: ((self borderStyleForSymbol: colorOrSymbol)
width: self borderStyle width;
baseColor: self borderStyle baseColor;
trackColorFrom: self;
yourself)]].
+ "Ensure a style object that can remember width and color."
+ self borderStyle style = #none
+ ifTrue: [self borderStyle: BorderStyle simple].
+
"Set the color of the current border style."
self borderStyle
baseColor: aColorOrSymbolOrN