Marcel Taeumel uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-ct.364.mcz==================== Summary ====================
Name: EToys-ct.364
Author: ct
Time: 15 October 2019, 2:12:32.724129 pm
UUID: a1a5058a-ff82-1d4d-9588-c2a98585d8ce
Ancestors: EToys-mt.361
Fixes a drawing bug in SyntaxMorph
Before this commit, you could not even run [SyntaxMorph test] due to this slip ...
=============== Diff against EToys-mt.361 ===============
Item was changed:
----- Method: SyntaxMorph>>unhighlightBorder (in category 'highlighting') -----
unhighlightBorder
self currentSelectionDo: [:innerMorph :mouseDownLoc :outerMorph |
+ (self == outerMorph or: [owner notNil and: [owner isSyntaxMorph not]])
+ ifFalse: [self borderColor: self stdBorderColor]
+ ifTrue: [
+ (self hasProperty: #deselectedBorderColor)
+ ifTrue: [self borderColor: (self valueOfProperty: #deselectedBorderColor)]
+ ifFalse: [self borderStyle: (BorderStyle raised width: self borderWidth)]] ].!
- self borderColor: (
- (self == outerMorph or: [owner notNil and: [owner isSyntaxMorph not]])
- ifFalse: [self borderColor: self stdBorderColor]
- ifTrue: [
- (self hasProperty: #deselectedBorderColor)
- ifTrue: [self borderColor: (self valueOfProperty: #deselectedBorderColor)]
- ifFalse: [self borderStyle: (BorderStyle raised width: self borderWidth)]] )].!