[Pkg] The Trunk: Morphic-mt.1467.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Nov 15 11:15:18 UTC 2018
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: aColorOrSymbolOrNil;
trackColorFrom: self.
self changed.!
More information about the Packages
mailing list