[Pkg] The Trunk: Morphic-ct.1986.mcz

[commits at source.squeak.org]

Christoph Thiede uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ct.1986.mcz

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

Name: Morphic-ct.1986
Author: ct
Time: 5 May 2022, 6:30:26.441816 pm
UUID: a0beb1fa-3f9e-784b-832a-0f109882136a
Ancestors: Morphic-mt.1984

Keep the hovering/pressing state of pluggable buttons when updating the fill style. For instance, this is triggered through enablement updates triggered by the model.

=============== Diff against Morphic-mt.1984 ===============

Item was changed:
  ----- Method: PluggableButtonMorph>>updateFillStyle (in category 'updating') -----
  updateFillStyle
  
+ 	^ self updateFillStyle: self currentEvent!
- 	self
- 		updateFillStylePressing: false
- 		hovering: false.!

Item was changed:
  ----- Method: PluggableButtonMorph>>updateFillStyle: (in category 'updating') -----
  updateFillStyle: evt
  
  	self
+ 		updateFillStylePressing: (evt isMouse and: [evt redButtonPressed] and: [self containsPoint: evt position])
+ 		hovering: (evt isMouse and: [evt redButtonPressed not] and: [self containsPoint: evt position]).!
- 		updateFillStylePressing: (evt redButtonPressed and: [self containsPoint: evt position])
- 		hovering: (evt redButtonPressed not and: [self containsPoint: evt position]).!