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]!