[squeak-dev] The Inbox: EToys-ct.364.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Oct 15 12:12:51 UTC 2019


A new version of EToys was added to project The Inbox:
http://source.squeak.org/inbox/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)]] )].!



More information about the Squeak-dev mailing list