The Trunk: EToys-ct.364.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: EToys-ct.364.mcz

commits-2
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)]] )].!