Discussion:
The Trunk: Morphic-mt.1467.mcz
(too old to reply)
c***@source.squeak.org
0000-11-16 11:15:18 UTC
Permalink
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

Loading...