[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:

==================== 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."
  		ifNil: [self borderStyle: nil]
  		ifNotNil: [:colorOrSymbol |
  			colorOrSymbol isSymbol ifTrue: [
  				^ self borderStyle: ((self borderStyleForSymbol: colorOrSymbol)
  											width: self borderStyle width;
  											baseColor: self borderStyle baseColor;
  											trackColorFrom: self;
+ 	"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