The Trunk: Morphic-mt.1525.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1525.mcz

==================== Summary ====================

Name: Morphic-mt.1525
Author: mt
Time: 19 September 2019, 5:20:06.518125 pm
UUID: a141a369-ecd4-3e4b-a1ad-fe7a82e7d186
Ancestors: Morphic-mt.1524

Allow system windows to override the system-wide "rounded window corners" preference. Used for tests.

=============== Diff against Morphic-mt.1524 ===============

Item was changed:
  ----- Method: Morph>>cornerStyle: (in category 'rounding') -----
  cornerStyle: aSymbol
  "This method makes it possible to set up desired corner style. aSymbol has to be one of:
  #square
  #rounded"
 
+ self setProperty: #cornerStyle toValue: aSymbol.
+ self changed.!
- aSymbol == #square
- ifTrue:[self removeProperty: #cornerStyle]
- ifFalse:[self setProperty: #cornerStyle toValue: aSymbol].
- self changed!

Item was changed:
  ----- Method: SystemWindow>>wantsRoundedCorners (in category 'drawing') -----
  wantsRoundedCorners
+
+ ^ (self hasProperty: #cornerStyle)
+ ifTrue: [super wantsRoundedCorners]
+ ifFalse: [self class roundedWindowCorners]!
- ^ self class roundedWindowCorners or: [super wantsRoundedCorners]!